Dieser Tipp zeigt, wie mal eine Dezimalzahl in eine Binärzahl umrechnen kann und umgekehrt. Zunächst einmal die benötigte Klasse mit den zwei benötigten Umrechnungs-Funktionen: Public Class clsBinär Private Const binärBasis As Byte = 2 ' Rückgabewert: angefangen vom niedrigen Bit Public Function binäreZahl(ByVal DezimalZahl As String) As String If Not IsNumeric(DezimalZahl) Then Exit Function Dim Rest As String = 0 Dim tmpBinäreZahl As String = "" Try Do ' Dezimalzahl durch die binäre Basis teilen Rest = Fix(DezimalZahl / binärBasis).ToString tmpBinäreZahl &= (DezimalZahl - (Rest * binärBasis)).ToString DezimalZahl = Rest Loop Until Rest <= 0 Return tmpBinäreZahl Catch Return "" End Try End Function Public Function dezimalZahl(ByVal binäreZahl As String) As String If Not IsNumeric(binäreZahl) Then Exit Function Dim tmpBinZahl As Byte = 0 Dim tmpDezZahl As String = 0 Dim addValue As String = 1 Try For i As Integer = 0 To binäreZahl.Length - 1 tmpBinZahl = CByte(binäreZahl.Chars(i).ToString) If tmpBinZahl = 1 Then If i = 0 Then tmpDezZahl = addValue Else tmpDezZahl += addValue * binärBasis End If End If If i > 0 Then addValue *= binärBasis Next i Return tmpDezZahl Catch Return "" End Try End Function End Class Anwendungsbeispiel der Klasse: ' gehört in den Deklarations-Teil der Form Dim b As New clsBinär In das Button1_Click-Ereigniss setzen Sie nachfolgenden Code: ' Binärzahl ermitteln und in TextBox2 ausgeben TextBox2.Text = b.binäreZahl(TextBox1.Text) In das Button2_Click-Ereigniss setzen Sie diesen Code: ' Dezimalzahl ermitteln MsgBox(b.dezimalZahl(TextBox2.Text)) Dieser Tipp wurde bereits 15.940 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |