Maak een uitvoerbaar programma in Visual Basic door het openen van het programma en te klikken op " Bestand . " Klik dan op " New Project" en kies de standaard EXE type project .

Place 2 een knop op het formulier door te dubbelklikken op dat instrument in de Toolbox . Scannen op de " Eigenschappen" venster aan de rechterkant en het bijschrift van de knop om te veranderen "Convert Decimaal naar binair . "
3

Dubbelklik op de knop die nu zou moeten lezen " converteren decimaal naar binair "om de directe venster code - schrijven te openen . Typ het volgende commando's tussen de " Private Sub Command1_Click ( ) " en " End Sub " die je ziet : Dim DecimalNbr Zoals LongDecimalNbr = InputBox ( " Geef het decimaal getal om te zetten naar binair " ) MsgBox ( " De binaire equivalent " & BinaryNbr ( DecimalNbr ) )
4

overslaan meerdere lijnen na de bovenstaande code en typ het volgende : Function ExpUp ( ByVal exp als lang) als LongStatic interim ( 0 To 31 ) As Long , n Zoals IntegerIf interim ( 0 ) = 0 Theninterim ( 0 ) = 1Voor n = 1 To 30interim ( n ) = interim ( n - 1 ) * 2Nextinterim ( 31 ) = & H80000000End IfExpUp = interim ( exp ) End Function
5

Door meerdere regels onder de bovenstaande regels in de code en voer deze : Functie BinaryNbr ( ByVal calc als lang) als StringDim interim als Koord , exp Zoals Integerinterim = String $ ( 32 , " 0 " ) DoIf calc en ExpUp ( exp ) ThenMid $ ( interim , 32 - exp , 1 ) = " 1 " calc = calc Xor ExpUp ( exp ) Einde Ifexp = exp + 1Loop Terwijl calcBinaryNbr = Mid $ ( interim , 33 - exp ) Function End
6

Druk op " F5 " om de toepassing uit te voeren . Klik op de " Enter decimaal naar binair " knop . Voer een decimaal getal ( geheel) en druk op " Return . " Als u de bovenstaande code correct hebt ingevoerd , krijgt u de binaire gelijkwaardig zien .
7

Sla het project en het formulier met een makkelijk te onthouden naam zoals " Binaire conversie . " Klik vervolgens op " File " en " Make Binary Conversion.exe . Sla het resultaat op je bureaublad voor gemakkelijke toegang .