Visual Basic kan skifte fra et talsystem til et andet med en smule manipulation i nogle korte linjer kode. Talrige lister over numeriske omregningstabeller herunder alle former --- decimal , binære , hex og oktal --- er tilgængelige på nettet med en simpel søgning . Dog kan det være nyttigt at have en konverter på din computer. En kode proces skaber en grundlæggende hex til binær konvertering, der henretter hurtigere end indlæsning af en browser og søge efter en tabel på nettet . Ting du skal
Visual Basic 6.0
Vis Flere Instruktioner
1
Open Visual Basic og klik på "File" i hovedmenuen. Klik på " Nyt projekt " i drop- down menuen og vælge " Standard EXE " som en type.
2
Dobbeltklik på " Label" værktøj ( repræsenteret ved et "A ") fra Værktøjskassen til venstre. Dobbeltklik på TextBox ( repræsenteret ved bogstaverne "AB" ) . Klik og træk TextBox , så det er ved siden af etiketten . Brug " Properties " liste for at ændre billedteksten af etiketten "Enter Hex Number" og slette bogstaverne i tekst billedtekst på Tekstboks .
3
Tilføj en kommandoknap til dannes ved at dobbeltklikke på knappen værktøjet (en lille firkant) og ændre billedteksten dette for at læse "Konverter Hex til binær . " Træk denne knap under de to emner, som du oprettede i trin 2 . Tilføj yderligere to etiketter på samme måde , at placere dem under kommando -knappen og på samme linje . Ændre billedteksten af den første Label til " Den binære ækvivalent er", og slette de bogstaver i billedteksten ejendom anden Label.
4
Klik på "Vis" i hovedmenuen og vælg " Code . " I koden skal du indtaste følgende : Private Sub Command1_Click ( ) Dim HexNbr Som StringDim DecNbr Som IntegerDim resultat som StringDecNbr = Val ( "& H " & Text1.Text ) Resultat = BinaryNbr ( DecNbr ) Do While Len (resultat ) < 8Result = "0" & ResultLoopLabel3.Caption = ResultEnd Sub
5
Indtast følgende kode under den i trin 4 : Funktion FirstConv ( ByVal exp As Long ) som LongStatic TempNbr ( 0 til 31 ), så længe , n Da IntegerIf TempNbr (0) = 0 ThenTempNbr (0) = 1Nærmere n = 1 Til 30TempNbr (n) = TempNbr (n - 1) * 2NextTempNbr (31) = & H80000000End IfFirstConv = TempNbr ( exp ) End Function
< br > 6
Indtast disse sidste kodelinjer til under " End Function " i trin 5 : Funktion BinaryNbr ( ByVal calc As Long ) Som 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 ) End Ifexp = exp + 1Loop Mens calcBinaryNbr = Mid $ ( TempNbr , 33 - exp ) End Function < br >
7
Brug " F5 " for at køre programmet. Indtast et tal i det tomme felt ved siden af "Enter en Hex Number" og klik på "Konverter Hex til binær . " Hvis du har indtastet koden korrekt, vil du se resultatet vises i den tomme boks ved siden af "The Binary tilsvarende resultat . " Hvis ikke , kontrolleres koden.
