Ved å lage en kort utility program i Visual Basic 6.0 eller Visual Basic Express du kan bygge din egen omformer for å endre desimaltall til binære ekvivalenter . Alt som kreves er å skape et grensesnitt skjema med en kommando for å starte prosessen og to funksjoner som utfører operasjonen. Funksjonene oversette en ellers arbeidskrevende manuelle prosessen med å jobbe med synkende krefter av to og subtraksjon operasjoner for å komme frem til en endelig binært tall . Du trenger
Visual Basic 6.0 eller Visual Basic Express
Vis flere instruksjoner
en

Lag et kjørbart program i Visual Basic ved å åpne programmet og klikke på "File . " Deretter klikker du på "New Project " og velg standard EXE type prosjekt .
2

Plasser en knapp på skjemaet ved å dobbeltklikke på det i verktøykassa . Skanne ned " Properties" -panelet på høyre side og endre tittelen på knappen for å "konvertere desimal til binær . "
3

Dobbeltklikk på knappen som nå bør lese " konvertere desimal til binær "for å åpne den direkte code -skriving vinduet. Skriv inn følgende kommandoer mellom " Private Sub Command1_Click ( )" og "End Sub " som du ser : Dim DecimalNbr Som LongDecimalNbr = InputBox ( "Skriv inn desimaltall å konvertere til binært ") MsgBox ( " Den binære tilsvarende er " & BinaryNbr ( DecimalNbr ) )
4

Hopp over flere linjer etter koden ovenfor og skriv inn følgende : Funksjon ExpUp ( ByVal exp As Long) As LongStatic interim ( 0 til 31) så lenge , n Som IntegerIf interim ( 0 ) = 0 Theninterim ( 0 ) = 1 For n = 1 To 30interim (n ) = interim (n - 1 ) * 2Nextinterim ( 31 ) = & H80000000End IfExpUp = interim ( exp ) End Function
5

Hopp flere linjer under de ovennevnte linjer i koden, og angi dette : Funksjon BinaryNbr ( ByVal calc As Long) As StringDim midlertidig As String , exp Som Integerinterim = String $ ( 32 , " 0 ") DoIf calc og ExpUp ( exp ) ThenMid $ ( interim , 32 - exp , 1 ) = " 1 " calc = calc Xor ExpUp ( exp ) Avslutt Ifexp = exp + 1Loop Mens calcBinaryNbr = Mid $ ( interim , 33 - exp ) End Function
6 < p> Trykk " F5 " for å kjøre programmet. Klikk på "Enter desimal til binær "-knappen . Gå inn på et desimaltall (hele ), og trykk "Return ". Hvis du har tastet inn koden ovenfor riktig, vil du se det binære tilsvarende.
7

Lagre prosjektet og form med en lett husket navn som " Binary Conversion. " Klikk deretter på " File" og "Make Binary Conversion.exe . Lagre resultatet på skrivebordet for enkel tilgang .