Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte súbor VB6 v editore , ako je napríklad Microsoft Visual Basic 6.0 .
2
vyhlásiť " Byte " a " String " premenné pre použitie v procese konverzie pridaním nasledujúci kód v hornej časti vášho funkcie :
Dim h_byte Ako Byte
Dim strhex As String
3
Načítať číselnú hodnotu od používateľ s " InputBox " pridaním kód :
strhex = InputBox ( " Zadajte hodnotu Hex : " )
strhex = " & H " & strhex
alebo
strhex = InputBox ( " Zadajte Decimal hodnotu : " )
strhex = Hex ( strhex )
užívateľ je vyzvaný na zadanie hodnoty s pop - up okne . Hexadecimálne hodnoty vo VB6 mať " & H " predradiť pred na reťazec . Funkcia " Hex " Skonvertuje desiatkové číslo v šestnástkovej
4
Volanie funkcie " CByte " previesť na hexadecimálne hodnotu na " Byte " typ dát pridaním kódu : .
< P > h_byte = CByte ( strhex )
" strhex " premenná musí mať numerickú hodnotu od nuly do 255 alebo funkcie " CByte " vráti chybu . Frakčnou diely , ako je napríklad 121,56 , sú zaoblené .
5
Uložte súbor VB6 , skompilovať a spustiť program pre prevod šestnástkové číslo na byte .