Slik konverterer Hex til Binary i Visual Basic

March 22

Visual Basic kan endre seg fra en rekke base til en annen litt manipulering i noen korte linjer med kode med. Mange lister over numeriske konverteringstabeller inkludert alle former? Desimal, binær, hex og oktale? Er tilgjengelig på nettet med et enkelt søk. Imidlertid kan det være nyttig å ha en omformer på datamaskinen din. En kode prosessen skaper en grunnleggende hex til binære konvertering som utfører raskere enn du legger i en nettleser og søker etter en tabell på nettet.

Bruksanvisning

1 Åpne Visual Basic og klikk på? Fil? i hovedmenyen. Klikk på? Nytt prosjekt? i rullegardinmenyen og velg? Standard EXE? som en type.

2 Dobbeltklikk på? Etikett? verktøy (representert ved en? A?) fra verktøykassen til venstre. Dobbeltklikk på TextBox (representert ved bokstavene? Ab?). Klikk og dra tekstboksen slik at det er ved siden av etikett. Bruk Properties? listen for å endre tittelen for etiketten? Enter Hex nummer? og slette bokstavene i Tekst bildetekst av Tekstboks'.

3 Legg en kommandoknapp til skjemaet ved å dobbeltklikke på knappeverktøyet (et lite rektangel) og endre tittelen for denne å lese? Konvertere Hex til Binary.? Dra denne knappen nedenfor de to elementene du opprettet i trinn 2. Legg to etiketter på samme måte, plassere dem under kommandoknappen og på samme linje. Endre tittelen for første etikett til? Den binære tilsvarende er? og slette bokstavene i tittelen tilhører den andre etikett.

4 Klikk på? Se? i hovedmenyen og velg? Code.? I koden vinduet, skriver du inn følgende:
Private Sub Command1_Click ()
Dim HexNbr As String
Dim DecNbr As Integer
Dim Resultat As String
DecNbr = Val (\ "& H \" & Text1.Text)
Resultat = BinaryNbr (DecNbr)
Gjøre mens Len (resultater) <8
Resultat = \ "0 \" og resultat
Loop
Label3.Caption = Resultat
End Sub

5 Skriv inn følgende kode under som i Trinn 4:
Funksjon FirstConv (ByVal exp As Long) As Long
Statisk TempNbr (0 til 31) så lenge, n As Integer
Hvis TempNbr (0) = 0 Then
TempNbr (0) = 1
For n = 1 til 30
TempNbr (n) = TempNbr (n - 1) * 2
neste
TempNbr (31) = & H80000000
Slutt om
FirstConv = TempNbr (exp)
End Function

6 Skriv inn disse siste kodelinjer under? End Function? i Trinn 5:
Funksjon BinaryNbr (ByVal calc As Long) As String
Dim TempNbr As String, exp As Integer
TempNbr = String $ (32, \ "0 \")
Gjøre
Hvis calc Og FirstConv (exp) Deretter
Mid $ (TempNbr, 32 - exp, 1) = \ "en \"
calc = calc Xor FirstConv (exp)
Slutt om
exp = exp + 1
Loop Mens calc
BinaryNbr = Mid $ (TempNbr, 33 - exp)
End Function

7 Bruk F5? Nøkkelen til å kjøre programmet. Skriv inn et tall i den tomme boksen ved siden av? Skriv inn en Hex nummer? Klikk på? Konverter Hex til Binary.? Hvis du har tastet inn koden riktig, vil du se resultatet vises i den tomme boksen ved siden av? The Binary tilsvarende resultatet er.? Hvis ikke, kontrollerer koden.

Hint

Hvis du ønsker å holde dette verktøyet permanent, deretter kompilere resultatet ved først å lagre prosjektet og danner med en lett å huske navn, kanskje? Hex-Binary Converter.? Deretter klikker du på? fil? og? Gjør Hex-Binary Converter.exe. \ "
Mens du kan endre navn på elementer som etiketter eller kommandoknappene på design skjema egenskaper, må du også endre koden for å matche de nye navnene. Noe annet i kodingen må være presis med mindre du er veldig nøye endre alle forekomster av spesifikke endret ord.