Visual Basic kan byta från ett antal bas till en annan med lite manipulation i några korta rader kod . Många listor över numeriska omvandlingstabeller inklusive alla former --- decimal , binära , hexadecimala och oktala --- finns på webben med en enkel sökning . Dock kan det vara användbart att ha en omvandlare på din dator . En kod process skapar en grundläggande hex till binärt omvandling som kör snabbare än att ladda en webbläsare och söka efter en tabell på webben . Saker du behöver Review, Visual Basic 6.0
Visa fler instruktioner
1
Öppna Visual Basic och klicka på " File " i huvudmenyn . Klicka på " Nytt projekt " i rullgardinsmenyn och välj " Standard EXE " som en typ .
2
Dubbelklicka på " Label "-verktyget ( representerad av en " A " ) från Verktygslådan till vänster . Dubbelklicka på textrutan ( representeras av bokstäverna "AB" ) . Klicka och dra textrutan så det är bredvid etiketten . Använd " Egenskaper " listan för att ändra bildtexten på etiketten " Ange Hex Number " och radera bokstäverna i text bildtext i textrutan . Addera 3
Lägg till en kommandoknapp i bildas genom att dubbelklicka på knappen verktyget ( en liten rektangel ) och ändra bildtexten detta att läsa " Konvertera Hex till Binary . " Dra den här knappen nedan de två objekt du skapade i steg 2 . Lägg två etiketter på samma sätt , placera dem under kommandoknappen och på samma linje . Ändra rubriken på den första etiketten till " Den binära motsvarigheten är " och radera bokstäverna i rubriken egendom andra Label .
4
Klicka på " Visa " i huvudmenyn och välj " Code . " I koden fönstret , skriv följande : 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
Skriv in följande kod nedanför den i Steg 4 : Funktion FirstConv ( ByVal exp As Long ) som LongStatic TempNbr ( 0 till 31 ) As Long , n Lika IntegerIf TempNbr ( 0 ) = 0 ThenTempNbr ( 0 ) = 1För n = 1 Till 30TempNbr (n) = TempNbr ( n - 1 ) * 2NextTempNbr ( 31 ) = & H80000000End IfFirstConv = TempNbr ( exp ) End Function
6
Ange dessa sista rader kod under " End Function " i Steg 5 : Funktion BinaryNbr ( ByVal calc As Long ) Som StringDim TempNbr As String , exp Som IntegerTempNbr = String $ ( 32 , " 0 " ) DoIf calc och FirstConv ( exp ) ThenMid $ ( TempNbr , 32 - exp , 1 ) = " 1 " calc = calc Xor FirstConv ( exp ) Avsluta Ifexp = exp + 1Loop Medan calcBinaryNbr = MID $ ( TempNbr , 33 - exp ) End Function
7
Använd " F5 " för att köra programmet . Ange ett nummer i den tomma rutan bredvid " Ange en Hex Number " och klicka på " Konvertera Hex till Binary . " Om du har gjort rätt , kommer du att se resultatet visas i den tomma rutan bredvid " The Binary likvärdigt resultat . " Om inte , kontrollera koden .