Genom att skapa ett kort hjälpprogram i Visual Basic 6.0 eller Visual Basic Express kan du bygga din egen omvandlare för att ändra decimaltal till binära motsvarigheter . Allt som krävs är att skapa ett gränssnitt formulär med ett kommando för att starta processen och två funktioner som utför operationen. Funktionerna översätter en annars mödosam manuell process för att arbeta med fallande befogenheter två och subtraktion operationer för att komma fram till ett slutligt binärt tal . Saker du behöver Review, Visual Basic 6.0 eller Visual Basic Express
Visa fler instruktioner
1
Skapa ett körbart program i Visual Basic genom att öppna programmet och klicka på " File . " Klicka sedan på " Nytt projekt " och välj standard EXE typ av projekt .
2
Placera en knapp på formuläret genom att dubbelklicka på det verktyget i verktygslådan . Scan ner " Properties " rutan på höger sida och ändra bildtexten på knappen " Konvertera Decimal till Binary . " Addera 3
Dubbelklicka på knappen som nu borde läsa " konvertera Decimal till Binary " för att öppna den direkt code - skrivande fönstret . Skriv in följande kommandon mellan " Private Sub Command1_Click ( ) " och " Sub End " som du ser : Dim DecimalNbr Som LongDecimalNbr = InputBox ( " Ange decimaltal konvertera till binära " ) MsgBox ( " Den binära motsvarigheten är " & BinaryNbr ( DecimalNbr ) )
4
Hoppa flera rader efter ovanstående kod och skriv följande : Function ExpUp ( ByVal exp As Long ) Som LongStatic interimistiskt ( 0 till 31 ) As Long , n Lika IntegerIf interimistiska ( 0 ) = 0 Theninterim ( 0 ) = 1För n = 1 Till 30interim ( n ) = interimistiskt ( n - 1 ) * 2Nextinterim ( 31 ) = & H80000000End IfExpUp = interimistiskt ( exp ) End Function
5
Hoppa flera linjer under ovanstående rader i koden och skriv in detta : Function BinaryNbr ( ByVal calc As Long ) Som StringDim interimistiska As String , exp Som Integerinterim = String $ ( 32 , " 0 " ) DoIf Calc och ExpUp ( exp ) ThenMid $ ( interimistiskt , 32 - exp , 1 ) = " 1 " calc = calc Xor ExpUp ( exp ) Avsluta Ifexp = exp + 1Loop Medan calcBinaryNbr = Mid $ ( interimistiskt , 33 - exp ) End Function
6
Tryck " F5 " för att köra programmet . Klicka på " Enter decimal till binär " -knappen . Ange ett decimaltal ( hela ) och tryck på " Return ". Om du har angett ovan koden rätt , kommer du att se den binära motsvarigheten .
7
Spara projektet och form med en lätt ihåg namn som "Digital Conversion . " Klicka sedan på " File " och " Gör binära Conversion.exe . Spara resultatet på skrivbordet för enkel åtkomst .
