Ako previesť desatinné číslo na binárne v jazyku Visual Basic

Vytvorením krátky obslužný program v jazyku Visual Basic 6.0 alebo Visual Basic Express si môžete vytvoriť svoj ​​vlastný konvertor pre zmenu desatinné čísla na binárne ekvivalenty . Všetko , čo je potrebné, je vytvoriť formuláre rozhranie pomocou jedného príkazu pre spustenie procesu a dve funkcie , ktoré vykonávajú operácie . Funkcie prekladať inak pracné ručné proces práce s klesajúcou právomoci dvoch a odčítanie operácií , aby sa dospelo ku konečnému binárne číslo . Veci , ktoré budete potrebovať
Visual Basic 6.0 alebo Visual Basic Express
Zobraziť ďalšie inštrukcie Cestuj 1

Vytvorte spustiteľný program v jazyku Visual Basic otvorením programu a kliknutím na " Súbor . " Potom kliknite na tlačidlo " New Project " a zvoľte štandardný typ EXE projektu .
2

Umiestniť tlačidlo na formulári poklepaním na tento nástroj v paneli nástrojov . Skenovanie sa na " Vlastnosti " panel na pravej strane a zmeniť titulok na tlačidlo " Previesť desiatkovej na binárne . "
3

Dvakrát kliknite na tlačidlo , ktoré teraz by si mali prečítať " prevod Decimal to Binary " otvorte kód písania okno priame . Zadajte nasledujúce príkazy medzi " Private Sub Command1_Click ( ) " a " End Sub " , ktorý vidíte : Dim DecimalNbr Ako LongDecimalNbr = InputBox ( " Zadajte desatinné číslo previesť na binárne " ) MsgBox ( " binárny ekvivalent je " & BinaryNbr ( DecimalNbr ) )
4

Prejsť niekoľko riadkov po vyššie uvedenom kódu a zadajte nasledujúci príkaz : Function ExpUp ( byVal exp As Long ) ako LongStatic medziobdobí ( 0 až 31 ) As Long , n ako IntegerIf medziobdobí ( 0 ) = 0 Theninterim ( 0 ) = 1pre n = 1 30interim ( n) = predbežná (n - 1 ) * 2Nextinterim ( 31 ) = & H80000000End IfExpUp = predbežná ( exp ) End Function
5

Prejsť niekoľko riadkov nižšie uvedených riadkov v kóde a zadajte toto : Funkcia BinaryNbr ( byVal calc As Long ) Ako StringDim medziobdobí As String , zk Ako Integerinterim = String $ ( 32 , " 0 " ) DoIf vypočítané a ExpUp ( exp ) ThenMid $ ( dočasná , 32 - exp , 1 ) = " 1 " calc = calc Xor ExpUp ( exp ) Koniec Ifexp = exp + 1Loop Kým calcBinaryNbr = Mid $ ( dočasná , 33 - exp ) End Function
6

Stlačte " F5 " pre spustenie aplikácie . Kliknite na tlačidlo " Enter desiatkovej do binárnej " . Zadajte ľubovoľné desatinné číslo ( celé ) a stlačte tlačidlo " Return " . Ak ste správne zadali vyššie uvedený kód , uvidíte binárne ekvivalent .
7

Uložte projekt a formulár s ľahko si pamätal mená ako " binárny konverzie . " Potom kliknite na tlačidlo " Súbor " a " Make Binárne Conversion.exe . Uložte výsledok na ploche pre ľahký prístup .

• Predchádzajúca strana: Ako skontrolovať Visual Basic 
• Ďalšia strana: Ako čítať a písať textové súbory s Visual Basic 6.0