Visual Basic kunnen veranderen van het ene talstelsel naar het andere met een beetje manipulatie in enkele korte regels code . Talrijke lijsten van numerieke conversie tabellen met inbegrip van alle vormen --- decimaal , binair , hex en octale --- zijn beschikbaar op het web met een eenvoudige zoekopdracht . Het kan echter nuttig zijn om een converter hebben op uw computer . Een code proces creëert een basis hex naar binair conversie die sneller dan het laden van een browser en het zoeken naar een tafel op het web uitvoert . Wat je nodig hebt Visual Basic 6.0 Toon Meer Aanwijzingen 1 Open Visual Basic en klik op " File " in het hoofdmenu . Klik op " New Project" in het drop - down menu en selecteer " Standard EXE " als een type . Kopen van 2 Dubbelklik op de functie " Label " ( voorgesteld door een " A " ) van de Toolbox aan de linkerkant. Dubbelklik op het tekstvak (vertegenwoordigd door de letters " ab " ) . Klik en sleep de TextBox dus het is naast het Label . Gebruik de "Eigenschappen" lijst om het bijschrift van het label te veranderen in " Enter Hex nummer " en de letters in de tekst bijschrift van het tekstvak te verwijderen . 3 Een opdracht knop toevoegen aan het vormen door te dubbelklikken op de knop gereedschap ( een kleine rechthoek ) en de titel van deze verandering te lezen "Convert Hex naar binair . " Sleep deze knop onder de twee items die u hebt gemaakt in stap 2 . Voeg nog twee labels op dezelfde manier , ze te plaatsen onder de opdrachtknop en op dezelfde lijn . Verander de titel van het eerste label op " De binaire equivalent " en de letters in de eigenschap bijschrift van de tweede label te verwijderen . 4 Klik op " View" in het hoofdmenu en selecteer " Code . " In de code-venster , typ het volgende: Private Sub Command1_Click ( ) Dim HexNbr Zoals StringDim DecNbr Zoals IntegerDim Resultaat Zoals StringDecNbr = Val ( " & H " & Text1.Text ) Resultaat = BinaryNbr ( DecNbr ) Doe terwijl Len ( Result ) < 8Result = " 0 " & ResultLoopLabel3.Caption = ResultEnd Sub Type 5 in de volgende code in die in Stap 4 : Functie FirstConv ( ByVal exp als lang) als LongStatic TempNbr ( 0 To 31 ) As Long , n Zoals IntegerIf TempNbr ( 0 ) = 0 ThenTempNbr ( 0 ) = 1Voor n = 1 To 30TempNbr ( n ) = TempNbr ( n - 1 ) * 2NextTempNbr ( 31 ) = & H80000000End IfFirstConv = TempNbr ( exp ) End Function < br > 6 Vul onderstaande "End Function " in stap 5 van deze laatste regels code : Function BinaryNbr ( ByVal calc als lang) als StringDim TempNbr als Koord , exp Zoals IntegerTempNbr = String $ ( 32 , " 0 " ) DoIf calc en FirstConv ( exp ) ThenMid $ ( TempNbr , 32 - exp , 1 ) = " 1 " calc = calc Xor FirstConv ( exp ) Einde Ifexp = exp + 1Loop Terwijl calcBinaryNbr = Mid $ ( TempNbr , 33 - exp ) End Function < br > 7 met de toets " F5 " om de toepassing uit te voeren . Voer een nummer in het lege vakje naast " Geef een Hex -nummer " en klik op " Convert Hex naar binair . " Als u de code juist is , ziet u het resultaat weergegeven in het lege vakje naast " The Binary gelijkwaardig resultaat is . " Zo niet , controleer dan de code .
|