Come convertire decimale a binario in Visual Basic

January 17

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 di equivalenti binari. Tutto ciò che è necessario è di creare un modulo di interfaccia con un solo comando per avviare il processo e due funzioni che compie l'operazione. Le funzioni traducono un processo manuale altrimenti laborioso lavoro con discendente potenze di due e sottrazione operazioni per arrivare a un numero binario finale.

istruzione

1 Creare un programma eseguibile in Visual Basic aprendo il programma e cliccando su? File.? Quindi fare clic su? Nuovo progetto? e scegliere il tipo EXE standard progetto.

2 Inserire un pulsante sul modulo facendo doppio clic su quello strumento nella casella degli strumenti. Eseguire la scansione lungo la? Proprietà? riquadro a destra e modificare la didascalia del pulsante per? Convertire decimale a binario.?

3 Fare doppio clic sul pulsante che ora dovrebbe leggere? Convertire decimale a binario? per aprire la finestra di codice-scrittura diretta. Digita i seguenti comandi tra il? Private Sub Command1_Click ()? e? End Sub? che si vede:
Dim DecimalNbr As Long
DecimalNbr = InputBox (\ "Inserire il numero decimale da convertire in \ binario")
MsgBox (\ "L'equivalente binario è \" & BinaryNbr (DecimalNbr))

4 Skip diverse linee dopo il codice precedente e digitare quanto segue:
Funzione ExpUp (ByVal exp As Long) As Long
interim statico (da 0 a 31) As Long, n As Integer
Se ad interim (0) = 0 Then
interim (0) = 1
Per n = 1 a 30
intermedio (n) = intermedio (n - 1) * 2
Il prossimo
intermedio (31) = & H80000000
Finisci se
ExpUp = interim (exp)
End Function

5 Saltare più righe sotto le righe precedenti nel codice e entrare in questo:
Funzione BinaryNbr (ByVal calc As Long) As String
interim Dim come stringa, exp come numero intero
intermedi = String $ (32, \ "0 \")
Fare
Se calc E ExpUp (exp) Poi
Mid $ (interim, 32 - exp, 1) = \ "1 \"
calc = calc Xor ExpUp (exp)
Finisci se
exp = exp + 1
Loop While calc
BinaryNbr = Mid $ (interim, 33 - exp)
End Function

6 Press? F5? per eseguire l'applicazione. Fare clic sul? Inserisci decimale a binario? pulsante. Immettere qualsiasi numero decimale (intero) e premere? Rientro.? Se avete inserito correttamente il codice di cui sopra, si vedrà l'equivalente binario.

7 Salvare il progetto e il modulo con un nome facile da ricordare come? Conversione binaria.? Quindi fare clic su? File? e? Fai binario Conversion.exe. Salva il risultato sul vostro desktop per un facile accesso.

Consigli e avvertenze

  • Per l'uso permanente, vestire l'applicazione, dando la forma di un nome nel riquadro Proprietà modulo. Aggiungere altro testo al modulo utilizzando un? Etichetta? strumento per contenere informazioni su come conversioni binarie sono fatto. Aggiungere etichette e strumenti TextBox al form per richiedere il numero decimale e visualizzare il risultato al posto del semplice InputBox e MsgBox in Fase tre.
  • Visual Basic, come altri linguaggi di programmazione, è completamente intollerante di errori tipografici o caratteri mancanti. Se questa utilità non viene eseguito correttamente, quindi verificare nuovamente il codice inserito.

Articoli Correlati