Visual Basic può cambiare da un numero base a altro con un po' di manipolazione in alcune brevi righe di codice. Numerosi elenchi di tabelle di conversione numerica comprese tutte le forme? decimale, binario, esadecimale e ottale? sono disponibili sul Web con una semplice ricerca. Tuttavia, può essere utile avere un convertitore sul tuo computer. Un processo di codice crea un base esadecimale alla conversione binaria che esegue più velocemente di un browser di caricamento e la ricerca di un tavolo sul Web.

Istruzioni

1

Aprire Visual Basic e fare clic su? Il file? nel Menu principale. Fare clic su? Nuovo progetto? nel menu a discesa e selezionare? EXE standard? come un tipo.

2

Fare doppio clic sulla? Etichetta? strumento (rappresentato da un? A?) dalla casella degli strumenti sulla sinistra. Fare doppio clic sulla casella di testo (rappresentati dalle lettere? ab?). Fare clic e trascinare la casella di testo quindi è accanto all'etichetta. Uso il? Proprietà? elenco per modificare la didascalia dell'etichetta? Inserire il numero esadecimale? ed eliminare le lettere nella didascalia di testo del controllo Textbox.

3

Aggiungere un pulsante di comando al form facendo doppio clic sullo strumento pulsante (un piccolo rettangolo) e modificare la didascalia di questo a leggere? Convertire esadecimale in binario.? Trascinare questo pulsante qui di seguito i due elementi creato nel passaggio 2. Aggiungere due etichette più allo stesso modo, mettendoli sotto il pulsante di comando e sulla stessa riga. Modificare la didascalia della prima etichetta a? È l'equivalente binario? ed eliminare le lettere nella proprietà caption dell'etichetta seconda.

4

Fare clic su? Mostra? nel Menu principale e selezionare? Codice.? Nella finestra del codice, digitare quanto segue:
Private Sub Command1_Click)
Dim HexNbr As String
Dim DecNbr As Integer
Dim Result As String
DecNbr = Val (\ "& H\" & Text1. Text)
Risultato = BinaryNbr(DecNbr)
Mentre Len(Result) < 8
Risultato = \"0\" & risultato
Loop
Label3 = risultato
End Sub

5

Digitare il seguente codice sotto che nel passaggio 4:
Funzione FirstConv (ByVal exp As Long) As Long
TempNbr statico (da 0 a 31) come lungo, n As Integer
Se TempNbr(0) = 0 Then
TempNbr(0) = 1
Per n = 1 a 30
TempNbr(n) = TempNbr (n - 1) * 2
Successivo
TempNbr(31) = & H80000000
End If
FirstConv = TempNbr(exp)
End Function

6

Immettere queste ultime righe di codice riportato di seguito il? Funzione fine? nel passaggio 5:
Function BinaryNbr(ByVal calc As Long) As String
Dim TempNbr As String, exp As Integer
TempNbr = String$ (32, \"0\")
Fare
Se calc e FirstConv(exp) poi
Mid$ (TempNbr, 32 - exp, 1) = \"1\"
Calc = calc Xor FirstConv(exp)
End If
exp = exp + 1
Loop mentre calc
BinaryNbr = Mid$ (TempNbr, 33 - exp)
End Function

7

Uso il? F5? tasto per eseguire l'applicazione. Immettere un numero nella casella vuota accanto al? Immettere un numero esadecimale? e fare clic su? Convertire esadecimale in binario.? Se hai inserito il codice correttamente, vedrete il risultato visualizzato nella casella vuota accanto al? È il risultato equivalente binario.? In caso contrario, verificare nuovamente il codice.

Consigli & Avvertenze

• Se si desidera mantenere questa utilità definitivamente, quindi compilare il risultato salvando prima il progetto e il modulo con un nome facile da ricordare, forse? Convertitore esadecimale-binario.? Quindi fare clic su? Il file? e? Rendere Converter.exe.\ esadecimale-binario"
• Mentre è possibile modificare i nomi degli elementi come etichette o pulsanti di comando proprietà del modulo di progettazione, è necessario modificare anche il codice per abbinare i nuovi nomi. Qualsiasi altra cosa nella codificazione deve rimanere esatta a meno che non si alterano con molta attenzione tutte le occorrenze di parole specifiche modificate.