? Binari valori decimali codificati utilizzare un modello binario per rappresentare le cifre da zero a nove . Poiché Visual Basic non utilizza il tipo di dati BCD , non ha un built-in funzione che converte i valori BCD in valori decimali . Tuttavia , è possibile programmare la propria funzione che accetta input formattato come un valore BCD e spezzarlo in bocconcini quattro bit , o pezzi , e poi convertire i bocconcini in un numero decimale . Istruzioni
1
tipo " Function BCD_TO_INT pubblico ( ingresso ByVal come lungamente) " per aprire la vostra funzione . Utilizzare un tipo più piccolo numerica di dati invece di Long per risparmiare spazio se si conosce il programma non funziona con i grandi numeri .
2
Tipo " Dim Temp As Integer " e " Dim decNum as Integer " di dichiarare due interi nella vostra funzione . Tipo " Dim strNum as String = " "" per dichiarare una stringa e inizializzarla senza testo .
3
tipo "Anche se non num = 0 " per aprire un ciclo while che si ripeterà finché il numero della funzione riceve diventa zero . Tipo " For i = 0 To 3" nella riga successiva per iniziare un ciclo contato .
4
Tipo "temp = num Mod. 10 " e "num /= 10" sulla riga seguente . La prima linea sarà isolare la cifra più a destra del numero BCD e memorizzarlo nella variabile "temp" . La riga successiva si sposterà il decimale del numero BCD a sinistra .
5
tipo " Se temp = 1 Then " per aprire un controllo condizionale che determina se il programma deve aggiungere al valore di il tuo numero decimale . Dal momento che avete solo bisogno di aggiungere quando " temp" è uguale a uno , non includere una clausola " elseif " per temp pari a zero
6
Digitare il seguente codice nel tuo "if" : .
Se temp = 1 Poi
Se i = 0 Then
decNum + = 1
ElseIf i = 1 Poi
decNum + = 2
ElseIf i = 2 Quindi
decNum + = 4
ElseIf i = 3 Quindi
decNum + = 8
End If
End If
Queste condizioni aggiungono il valore decimale appropriato per il vostro totale in base a quale dei quattro bit in ogni nibble controlla . La variabile " decNum " conterrà il valore decimale del nibble a quattro bit .
7
Tipo " Next i " nella riga successiva di dire al vostro ciclo "for" per passare alla cifra successiva in il bocconcino . Quando il programma ha verificato tutti i quattro bit , avrà calcolato la cifra successiva del vostro decimale. Tipo " strNum = decNum & strNum " per aggiungere questo valore al lato sinistro della stringa . Tipo " decNum = 0 " per reimpostare questa variabile prima della prossima iterazione del ciclo while .
8
tipo " End While " per chiudere il ciclo While . Tipo " decNum = strNum " per forzare Visual Basic per convertire la stringa di trattenere il valore decimale in un numero intero e memorizzarlo nella variabile " decNum " . È poi possibile modificare questa variabile come necessario . Digitare " decNum Return" per inviare il valore decimale di nuovo a dove il vostro programma chiama la funzione da . Tipo " End Function " per chiudere la funzione .