Come convertire Hex a binario in Visual Basic

June 14

Visual Basic può cambiare da una base numero ad un altro con un po 'di manipolazione in alcuni brevi righe di codice. Numerosi gli elenchi delle tabelle di conversione numeriche 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 computer. Un processo di codice crea un esagono base alla conversione binaria che esegue più veloce di caricamento di un browser e la ricerca di un tavolo sul Web.

istruzione

1 Aprire Visual Basic e fare clic su? File? nel menu principale. Clicca su? Nuovo progetto? nel menu a discesa e selezionare? EXE standard? come tipo.

2 Fare doppio clic sul? Etichetta? utensile (rappresentato da un? A?) dalla Toolbox a sinistra. Fare doppio clic sulla casella di testo (rappresentato dalle lettere? Ab?). Fare clic e trascinare il TextBox quindi è accanto all'etichetta. Utilizzare il? Proprietà? elenco per modificare la didascalia dell'etichetta? Inserisci numero esadecimale? ed eliminare le lettere nella didascalia di testo della casella di testo.

3 Aggiungere un pulsante di comando alla maschera facendo doppio clic sullo strumento pulsante (un piccolo rettangolo) e modificare la didascalia di questa lettura? Convertire Hex a binario.? Trascinare questo pulsante al di sotto dei due elementi che si creato nel passaggio 2. Aggiungere due etichette allo stesso modo, mettendoli sotto il pulsante di comando e sulla stessa linea. Modificare la didascalia della prima etichetta a? L'equivalente binario è? ed eliminare le lettere nella proprietà didascalia della seconda etichetta.

4 Clicca su Mostra? nel menu principale e selezionare? Codice.? Nella finestra del codice, digitare il seguente:
Private Sub Command1_Click ()
Dim HexNbr As String
Dim DecNbr As Integer
Risultato Dim As String
DecNbr = Val (\ "& H \" & Text1.Text)
Risultato = BinaryNbr (DecNbr)
Do While Len (Risultato) <8
Risultato = \ "0 \" & risultato
Ciclo continuo
Label3.Caption = Risultato
End Sub

5 Digitare il seguente codice in basso che in Fase 4:
Funzione FirstConv (ByVal exp As Long) As Long
TempNbr statico (da 0 a 31) As Long, n As Integer
Se TempNbr (0) = 0 Then
TempNbr (0) = 1
Per n = 1 a 30
TempNbr (n) = TempNbr (n - 1) * 2
Il prossimo
TempNbr (31) = & H80000000
Finisci se
FirstConv = TempNbr (exp)
End Function

6 Inserire queste righe di codice ultimi sotto la? End Function? in Fase 5:
Funzione BinaryNbr (ByVal calc As Long) As String
Dim TempNbr come stringa, exp come numero intero
TempNbr = String $ (32, \ "0 \")
Fare
Se calc E FirstConv (exp) Poi
Mid $ (TempNbr, 32 - exp, 1) = \ "1 \"
calc = calc Xor FirstConv (exp)
Finisci se
exp = exp + 1
Loop While calc
BinaryNbr = Mid $ (TempNbr, 33 - exp)
End Function

7 Utilizzare il? F5? chiave per eseguire l'applicazione. Inserire un numero nella casella vuota accanto? Inserire un numero esadecimale? e cliccare su? Convertire Hex a binario.? Se hai inserito il codice correttamente, si vedrà il risultato appare nella casella vuota accanto al? Il risultato equivalente binario è.? In caso contrario, ricontrollare il codice.

Consigli e avvertenze

  • Se si desidera mantenere questa utilità in modo permanente, quindi compilare il risultato prima di salvare il progetto e la forma con un facile da ricordare il nome, forse? Convertitore Hex-binario.? Quindi fare clic su? File? e? Fai Hex-Binary Converter.exe. \ "
  • Mentre è possibile modificare i nomi di elementi quali etichette o pulsanti di comando sulle proprietà del modulo di progettazione, è necessario modificare anche il codice per abbinare i nuovi nomi. Tutto il resto nella codifica deve rimanere esatto a meno che non si altera molto attentamente ogni occorrenza di specifiche parole modificate.