Ved at oprette en kort hjælpeprogram i Visual Basic 6.0 eller Visual Basic Express kan du bygge din egen konverter til at ændre decimaltal til binære ækvivalenter. Alt, hvad der kræves, er at skabe en grænseflade formular med en kommando for at starte processen og to funktioner, der udfører operationen. Funktionerne oversætte en ellers besværlig manuel proces at arbejde med faldende beføjelser to og subtraktion operationer at nå frem til en endelig binære tal . Ting du skal
Visual Basic 6.0 eller Visual Basic Express
Vis Flere Instruktioner
1
Opret en eksekverbar program i Visual Basic ved at åbne programmet og klikke på "File . " Klik derefter på " Nyt projekt ", og vælg den standard EXE type projekt .
2
Placer en knap på formularen ved at dobbeltklikke på , at værktøjet i værktøjskassen . Scan ned "Egenskaber" ruden i højre side og ændre billedteksten af knappen for at "Konverter Decimal til binær . "
3
Dobbeltklik på den knap, der nu skal læses " Konverter Decimal til binær "for at åbne den direkte kode -skrivning vinduet. Indtast følgende kommandoer mellem "Private Sub Command1_Click () " og " End Sub " , som du ser : Dim DecimalNbr Som LongDecimalNbr = InputBox ("Indtast det decimaltal til at konvertere til binær " ) MsgBox ("The binære ækvivalent er " & BinaryNbr ( DecimalNbr ) )
4
Skip flere linjer efter ovenstående kode og skriv følgende : Funktion ExpUp ( ByVal exp As Long ) Som LongStatic foreløbig ( 0 til 31 ), så længe , n Som IntegerIf midlertidig (0) = 0 Theninterim (0) = 1Nærmere n = 1 Til 30interim (n) = foreløbig (n - 1) * 2Nextinterim (31) = & H80000000End IfExpUp = foreløbig ( exp ) End Function
5 < p > Skip flere linjer under de ovenstående linjer i koden og indtaste denne : Function BinaryNbr ( ByVal calc As Long ) Som StringDim foreløbig As String , exp Som Integerinterim = String $ (32, "0") DoIf calc And ExpUp ( exp ) ThenMid $ ( foreløbig , 32 - exp , 1) = "1" calc = calc Xor ExpUp ( exp ) End Ifexp = exp + 1Loop Mens calcBinaryNbr = Mid $ ( foreløbig , 33 - exp ) End Function
6 < p> Tryk på " F5 " for at køre programmet. Klik på " Enter decimal til binær " knappen. Indtast helst decimaltal (hel ) og tryk " Retur ". Hvis du har indtastet ovenstående kode korrekt , vil du se den binære ækvivalent.
7
Gem projektet , og formularen med en let at huske navn som " Binary Conversion. " Klik derefter på " Filer" og "Make Binary Conversion.exe . Gem resultatet på dit skrivebord for nem adgang.