داخلي "تنسيق من بيانات نوع عملة" في منتجات أساسي

ترجمات الموضوعات ترجمات الموضوعات
معرف المقالة: 51414 - عرض المنتجات التي تنطبق عليها هذه المقالة.
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
توسيع الكل | طي الكل

الموجز

يعتبر نوع البيانات العملة عدداً موقعة 8 بايت تحجيم بواسطة 10,000. يسمح هذا متغير من نوع العملة لجعل نطاق:
   (2 ^ 63 -1) / 10,000  =  +922337203685477.5807
				
إلى
   (2 ^ 63) / 10,000   =  -922337203685477.5808
				
الأعلى إلى الأرقام 19 مسموح ، مع أكثر من 4 أرقام إلى يمين الفاصلة العشرية.

معلومات أخرى

لأنه تم تغيير نوع العملة بواسطة 10,000, يتم تمثيله داخلي القيمة الفعلية ضرب 10,000. على سبيل المثال، يتم تخزين متغير عملة الضغط قيمة 0.001 كما يلي:
HIGH BYTE                                                     LOW BYTE
00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000001
				
كما مع أعداد صحيحة "عادي" ، يتم تخزين بايت أعلى في عنوان الذاكرة أعلى بحيث مرة واحدة العثور على العنوان المتغير ، ستجد بايت منخفض هناك, البايت الثاني تخزين أعلاه, البايت الثالث أعلاه التي, الخ. سرد برنامج المثال أدناه عرض تمثيل الجهاز الست عشري لـ variable نوع بيانات عملة قيمته هو الإدخال من لوحة المفاتيح.

نموذج التعليمات البرمجية:
'To try this example in VBDOS.EXE:
' 1. From the File menu, choose New Project.
' 2. Copy the code example to the Code window.
' 3. Press F5 to run the program.
'
'To try this example in VB.EXE:
' 1. From the File menu, choose New Project.
' 2. Copy the code example to Form_Click event procedure.
'    (Note: code will have to be slightly changed for VB)
' 3. Press F5 to run the program.
' 4. Click on the Form
'
'To try this example in QB.EXE or QBX.EXE
' 1. From the File menu, choose New Program.
' 2. Copy the code example to the Code window.
' 3. Press F5 to run the program.
'
'******************************************************************
'     Sample program to display machine representation of the     *
'     CURRENCY data type (8-byte scaled INTEGER)                  *
'******************************************************************
CLS
DO UNTIL INKEY$ = CHR$(27)
  PRINT "Enter a CURRENCY value.  The machine representation will be "
  PRINT "displayed in Hex"
  INPUT a@                   ' "@" is the CURRENCY data type suffix.
  address% = VARPTR(a@)      ' Get the address of the variable a@.

  FOR i% = 7 TO 0 STEP -1
     PRINT HEX$(PEEK(address% + i%)); "  ";  ' Display representation
  NEXT i%                                    ' in normal Low-Byte to
                                             ' the right form.
  PRINT
  PRINT "press a key to continue, Esc to EXIT"
  SLEEP
LOOP
				

الخصائص

معرف المقالة: 51414 - تاريخ آخر مراجعة: 09/ربيع الثاني/1435 - مراجعة: 2.1
تنطبق على
  • Microsoft Visual Basic for MS-DOS
  • Microsoft Visual Basic 1.0 Standard Edition
  • Microsoft QuickBasic 4.0
  • Microsoft QuickBASIC 4.0b
  • Microsoft QuickBasic 4.5 لـ MS-DOS
  • Microsoft BASIC Professional Development System 7.0
  • Microsoft BASIC Professional Development System 7.1
كلمات أساسية: 
kbnosurvey kbarchive kbmt KB51414 KbMtar
ترجمة آلية
هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية
اضغط هنا لرابط المقالة باللغة الانجليزية51414

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com