Ako previesť Hex na binárne v jazyku Visual Basic

Visual Basic je možné zmeniť z jedného čísla základne na druhú s trochou manipulácie v niektorých krátkych riadkov kódu . Početné zoznamy číselných tabuliek konverzie vrátane všetkých foriem --- desiatkovej sústave , binárne , hexadecimálne a osmičkové --- sú k dispozícii na webe pomocou jednoduchého vyhľadávania . Avšak , to môže byť užitočné mať prevodník na vašom počítači . Kód proces vytvorí základné hex na binárne konverziu , ktorá spustí rýchlejší ako načítanie prehliadač a vyhľadávanie tabuľky na webe . Veci , ktoré budete potrebovať
Visual Basic 6.0
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte Visual Basic a kliknite na " Súbor " v hlavnej ponuke . Kliknite na tlačidlo " Nový projekt " v drop - down menu a vyberte možnosť " Štandardné EXE " ako typ .
2

Double - kliknite na " Label " nástroj ( reprezentovanej " A " ) od Toolbox na ľavej strane . Dvakrát kliknite na textové pole ( reprezentovanej písmenami " ab " ) . Kliknite a presuňte textové pole , takže je hneď vedľa Label . Použite " Vlastnosti " zoznam zmeniť titulok popisku " Enter hexadecimálne číslo " a odstrániť písmená v texte titulku na textové pole .
3

Pridanie príkazového tlačidla formulár dvojitým kliknutím na nástroj Button ( malý obdĺžnik ) a zmeniť titulok tohto čítať " previesť Hex na binárne . " Pretiahnutím na toto tlačidlo , pod dve položky , ktoré ste vytvorili v kroku 2. Pridať dve ďalšie štítky rovnakým spôsobom , ich umiestnenie pod príkazové tlačidlo a na rovnakom riadku . Zmeniť titulok prvého štítku na " binárny ekvivalent je " a odstrániť písmená , ktorá v titulku majetku druhého Label .
4

Kliknite na " Zobraziť " v hlavnom menu a vyberte " CODE . " V okne Kód zadajte nasledujúce : Private Sub Command1_Click ( ) Dim HexNbr Ako StringDim DecNbr Ako IntegerDim výsledok ako StringDecNbr = Val ( " & H " & Text1.Text ) Výsledok = BinaryNbr ( DecNbr ) Do While Ľan ( výsledok ) < 8Result = " 0 " a ResultLoopLabel3.Caption = ResultEnd Sub
5

Zadajte nasledujúci kód nižšie , že v kroku 4 : Funkcia FirstConv ( byVal exp As Long ) Ako LongStatic TempNbr ( 0 až 31 ) As Long , n Ako IntegerIf TempNbr ( 0 ) = 0 ThenTempNbr ( 0 ) = 1pre n = 1 30TempNbr ( n) = TempNbr (n - 1 ) * 2NextTempNbr ( 31 ) = & H80000000End IfFirstConv = TempNbr ( exp ) End Function

6

Zadajte tieto posledné riadky kódu pod " End Function " v kroku 5 : Funkcia BinaryNbr ( byVal calc As Long ) Ako StringDim TempNbr As String , zk Ako IntegerTempNbr = String $ ( 32 , " 0 " ) DoIf calc A FirstConv ( exp ) ThenMid $ ( TempNbr , 32 - exp , 1 ) = " 1 " calc = calc Xor FirstConv ( exp ) Koniec Ifexp = exp + 1Loop Kým calcBinaryNbr = Mid $ ( TempNbr , 33 - exp ) End Function

7

Pomocou klávesu " F5 " pre spustenie aplikácie . Zadajte číslo do prázdneho poľa vedľa " Zadajte hexadecimálne číslo " a kliknite na " Convert Hex na binárne . " Ak ste zadali kód správne , uvidíte výsledok sa zobrazí prázdne pole vedľa " binárny ekvivalent výsledok . " Ak nie, skontrolujte kód .

• Predchádzajúca strana: Visual Basic Funkcia String 
• Ďalšia strana: Ako vytvoriť databázu pomocou jazyka Visual Basic