Creando un breve programma in Visual Basic 6.0 o Visual Basic Express è possibile compilare il proprio convertitore per modificare i numeri decimali equivalenti binari. Tutto ciò che serve è creare un modulo di interfaccia con un solo comando per avviare il processo e due funzioni che eseguire l'operazione. Le funzioni di traducono un altrimenti laborioso processo manuale di lavorare con poteri discendente di sottrazione e di due operazioni per arrivare a un numero binario finale.

Istruzioni

1

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

2

Inserire un pulsante nel form facendo doppio clic su tale strumento nella casella degli strumenti. Scansione verso il basso il? Proprietà? riquadro sul lato destro e modificare la didascalia del pulsante a? Convertire il decimale in binario.?

3

Fare doppio clic sul pulsante che adesso dovrebbe leggere? Conversione decimale a binario? per aprire la finestra di scrittura del codice diretta. Digitare i seguenti comandi tra il? Private Sub Command1_Click ()? e? End Sub? che vedete:
Dim DecimalNbr As Long
DecimalNbr = InputBox (\"Enter il numero decimale da convertire in binary\")
MsgBox (equivalente binario \"The è \" & BinaryNbr(DecimalNbr))

4

Saltare diverse linee dopo il codice precedente e digitare quanto segue:
Funzione ExpUp (ByVal exp As Long) As Long
Statica ad interim (da 0 a 31) come Long, n As Integer
Se interim(0) = 0 Then
interim(0) = 1
Per n = 1 a 30
interim(n) = ad interim (n - 1) * 2
Successivo
interim(31) = & H80000000
End If
ExpUp = interim(exp)
End Function

5

Saltare diverse linee sotto le linee di cui sopra nel codice e scrivere questo:
Function BinaryNbr(ByVal calc As Long) As String
Dim ad interim As String, exp As Integer
ad interim = String$ (32, \"0\")
Fare
Se calc ed ExpUp(exp) poi
Mid$ (ad interim, 32 - exp, 1) = \"1\"
Calc = calc Xor ExpUp(exp)
End If
exp = exp + 1
Loop mentre calc
BinaryNbr = Mid$ (interinale, 33 - exp)
End Function

6

Premere? F5? per eseguire l'applicazione. Fare clic sul? Inserire decimale in binario? pulsante. Immettere un numero decimale (intero) e premere? Ritorno.? Se viene immesso il codice sopra riportato correttamente, 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? Il file? e? Rendere Conversion.exe binario. Salvare il risultato sul tuo desktop per un facile accesso.

Consigli & Avvertenze

• Per l'uso permanente, Vesti l'applicazione dando la forma di un nome nel riquadro Proprietà modulo. Aggiungere altro testo al modulo utilizzando un? Etichetta? strumento per contenere le informazioni sulle conversioni binarie come sono fatto. Aggiungere etichette e TextBox per il modulo per richiedere il numero decimale e visualizzare il risultato invece del semplice InputBox e MsgBox nella fase tre strumenti.
• Visual Basic, come altri linguaggi di programmazione, è completamente intollerante di caratteri mancanti o errori tipografici. Se questa utilità non viene eseguito correttamente, poi ricontrollare il codice immesso.