Slik konverterer desimal til binær i Visual Basic

October 26

Ved å opprette en kort utility program i Visual Basic 6.0 eller Visual Basic Express kan du bygge din egen konverter å 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 sette en ellers strevsom manuelle prosessen med å jobbe med synkende krefter to og subtraksjon operasjoner for å komme frem til en endelig binært tall.

Bruksanvisning

1 Opprett et kjørbart program i Visual Basic ved å åpne programmet og klikke på? Fil.? Deretter klikker du på? Nytt prosjekt? og velge standard EXE type prosjekt.

2 Plasser en knapp på skjemaet ved å dobbeltklikke som verktøy i verktøykassa. Skann 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? å åpne direkte kode-skriving vindu. Skriv inn følgende kommandoer mellom? Private Sub Command1_Click ()? og? End Sub? som du ser:
Dim DecimalNbr As Long
DecimalNbr = InputBox (\ "Skriv desimaltallet å konvertere til binære \")
MsgBox (\ "Den binære tilsvarende er \" & BinaryNbr (DecimalNbr))

4 Hopp flere linjer etter koden ovenfor og skriver følgende:
Funksjon ExpUp (ByVal exp As Long) As Long
Statisk interim (0 til 31) så lenge, n As Integer
Hvis midlertidig (0) = 0 Then
interim (0) = 1
For n = 1 til 30
interim (n) = midlertidig (n - 1) * 2
neste
interim (31) = & H80000000
Slutt om
ExpUp = midlertidig (exp)
End Function

5 Hopp flere linjer under de ovennevnte linjer i koden og skriv dette:
Funksjon BinaryNbr (ByVal calc As Long) As String
Dim midlertidig As String, exp As Integer
Kvartals = String $ (32, \ "0 \")
Gjøre
Hvis calc Og ExpUp (exp) Deretter
Mid $ (interim, 32 - exp, 1) = \ "en \"
calc = calc Xor ExpUp (exp)
Slutt om
exp = exp + 1
Loop Mens calc
BinaryNbr = Mid $ (interim, 33 - exp)
End Function

6 Trykk? F5? å kjøre programmet. Klikk på? Skriv inn desimal til binær? knapp. Gå inn på et desimaltall (hele) og trykk? Return.? Hvis du har tastet inn koden ovenfor riktig, vil du se den binære tilsvarende.

7 Lagre prosjektet og form med en lett husket navn som? Binary Conversion.? Deretter klikker? Fil? og? Gjør Binary Conversion.exe. Lagre resultat på skrivebordet for enkel tilgang.

Hint

For permanent bruk, kle opp programmet ved å gi form et navn i Skjemaegenskaper ruten. Legg til mer tekst til form ved hjelp av en? Etikett? verktøy for å holde informasjon om hvordan binære konverteringer er ferdig. Legg Etiketter og TextBox verktøy til skjemaet til å be om desimaltall og vise resultatet i stedet for den enkle InputBox og MsgBox i trinn tre.
Visual Basic, som andre programmeringsspråk, er helt intolerante av typografiske feil eller mangler tegn. Hvis dette verktøyet ikke fungerer på riktig måte, så sjekker koden du skrev inn.