????? "????? ?? ?????? ??? ????" ?? ?????? ?????

?????? ????????? ?????? ?????????
???? ???????: 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