Visual Basic kan endre seg fra ett nummer base til en annen med litt manipulering i noen korte linjer med kode. 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. En kode prosessen skaper en grunnleggende hex til binær konvertering som utfører raskere enn lasting av en nettleser og søker etter en tabell på nettet . Du trenger
Visual Basic 6.0
Vis flere instruksjoner
en

Åpne Visual Basic og klikk på " File" i hovedmenyen . Klikk på "New Project " i drop -down menyen og velg " Standard EXE " som en type.
2

Dobbeltklikk på "Label "-verktøyet ( representert ved en "A" ) fra verktøykassen til venstre. Dobbeltklikk på TextBox (representert ved bokstavene " ab " ) . Klikk og dra tekstboksen slik det er ved siden av Label. Bruk " Properties "-listen for å endre tittelen for etiketten "Enter Hex Number" og slette bokstavene i tekst bildetekst av tekstboksen .
3

Legg til en kommandoknapp til dannes ved å dobbeltklikke på knappeverktøyet (en liten rektangel ) og endre tittelen for denne å lese "Konverter Hex til Binary . " Dra denne knappen nedenfor de to elementene du opprettet i trinn to . Legg til to flere etiketter på samme måte , plassere dem under kommando knappen og på samme linje . Endre tittelen for den første etiketten til " Den binære tilsvarende er" og slette bokstavene i bildeteksten eiendommen av andre Label.
4

Klikk på "Vis" i hovedmenyen og velg " Kode . " I koden vinduet , skriver du følgende: Private Sub Command1_Click ( ) Dim HexNbr Som StringDim DecNbr Som IntegerDim resultatet som StringDecNbr = Val ( "& H " & Text1.Text ) Resultat = BinaryNbr ( DecNbr ) Do While Len ( Resultat) < 8Result = " 0 " & ResultLoopLabel3.Caption = ResultEnd Sub
5

Skriv inn følgende kode under som i Trinn 4 : Funksjon FirstConv ( ByVal exp As Long) As LongStatic TempNbr ( 0 til 31) så lenge , n Som IntegerIf TempNbr ( 0 ) = 0 ThenTempNbr ( 0 ) = 1 For n = 1 To 30TempNbr (n ) = TempNbr (n - 1 ) * 2NextTempNbr ( 31 ) = & H80000000End IfFirstConv = TempNbr ( exp ) End Function

6

Skriv inn disse siste kodelinjer under " End Function " i trinn 5: Funksjonen BinaryNbr ( ByVal calc As Long) As StringDim TempNbr As String , exp Som IntegerTempNbr = String $ ( 32 , " 0 ") DoIf calc og FirstConv ( exp ) ThenMid $ ( TempNbr , 32 - exp , 1 ) = " 1 " calc = calc Xor FirstConv ( exp ) Avslutt Ifexp = exp + 1Loop Mens calcBinaryNbr = Mid $ ( TempNbr , 33 - exp ) End Function

7

Bruk " F5 " tasten for å kjøre programmet. Angi et nummer i den tomme boksen ved siden av "Skriv en Hex Number" og 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 .