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.
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.