Con la creazione di un breve programma di utilità in Visual Basic 6.0 o Visual Basic Express è possibile costruire il proprio convertitore di cambiare i numeri decimali per gli equivalenti binari. Tutto ciò che è richiesto è di creare un modulo di interfaccia con un comando per avviare il processo e due funzioni che svolgono l'operazione . Le funzioni si traducono in un processo manuale altrimenti laborioso lavoro con decrescente poteri di due operazioni e sottrazione per arrivare a un numero binario finale . Cose che ti serviranno
Visual Basic 6.0 o Visual Basic Express
Show More Istruzioni
1

Crea un programma eseguibile in Visual Basic , aprire il programma e fare clic su "File ". Quindi fare clic su " Nuovo progetto " e scegliere il tipo di progetto standard EXE .
2

Inserire un pulsante nel form facendo doppio clic su tale strumento nella casella degli strumenti . Scansione verso il basso il pannello "Proprietà" sul lato destro e modificare la didascalia del pulsante di "convertire da decimale a binario . "

3 Fare doppio clic sul pulsante che ora dovrebbe leggere " Conversione da decimale a binario " per aprire la finestra del codice diretto - scrittura. Digitare i seguenti comandi tra il " Private Sub Command1_Click ( ) " e "End Sub " che vedete qui : dim DecimalNbr Come LongDecimalNbr = InputBox ( "Inserire il numero decimale da convertire in binario" ) MsgBox ( " L'equivalente binario è " & BinaryNbr ( DecimalNbr ) ) economici 4

saltare più righe dopo il codice di cui sopra e digitare quanto segue: ExpUp Function ( exp ByVal come lungamente) come intermedio LongStatic ( 0 To 31 ) As Long , n Come IntegerIf interim ( 0 ) = 0 Theninterim ( 0 ) = 1Per n = 1 Per 30interim ( n) = intermedio ( n - 1 ) * 2Nextinterim ( 31 ) = & H80000000End IfExpUp = intermedio ( exp ) End Function
5 < p > Vai diverse linee sotto le righe di cui sopra nel codice e inserisci questo : Funzione BinaryNbr ( ByVal calc come lungamente) come StringDim intermedio come stringa, exp Come Integerinterim = String $ ( 32 , "0" ) DoIf calc e ExpUp ( exp ) ThenMid $ ( provvisorio , 32 - exp , 1 ) = " 1 " calc = calc Xor ExpUp ( exp ) Fine Ifexp = exp + 1Loop Mentre calcBinaryNbr = Mid $ ( provvisorio , 33 - exp ) End Function
6 < p > Premere "F5" per eseguire l'applicazione . Fare clic sul pulsante " Enter decimale a binario " . Inserisci un numero decimale ( intero ) e premere " Ritorno ". Se hai inserito il codice correttamente sopra , potrete vedere l'equivalente binario .
7

Salvare il progetto e il modulo con un nome facile da ricordare come "Conversione binario . " Quindi fare clic su "File" e "Make Conversion.exe binari . Salva il risultato sul desktop per un facile accesso .