Aprire il file VB6 in un editor come Microsoft Visual Basic 6.0 .
2
Declare " Byte " e variabili " stringa " da utilizzare nel processo di conversione aggiungendo il seguente codice nella parte superiore della vostra funzione :
Dim H_byte As Byte Dim
strhex As String
3
Recuperare un valore numerico da l' utente con un " InputBox " aggiungendo il codice :
strhex = InputBox ( " Digitare un valore esadecimale : " ) per
strhex = " & H " & strhex
o
strhex = InputBox ( " Digitare un valore decimale: " ) per
strhex = Hex ( strhex ) per
all'utente viene richiesto per un valore con una finestra pop-up . I valori esadecimali in VB6 hanno un "& H" anteposto alla stringa . La funzione " Hex" converte un numero decimale in esadecimale
4
richiamare la funzione " CByte " per convertire il valore esadecimale per il tipo di dati " Byte ", aggiungendo il codice : .
H_byte = CByte ( strhex ) per
la variabile " strhex " deve avere un valore numerico da zero a 255 o la funzione " CByte " restituirà un errore . Parti frazionarie , come 121.56 , sono arrotondati.
5
Salvare il file VB6 , compilare ed eseguire il programma per convertire il numero esadecimale in un byte .
Programmazione © www.354353.com