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 16.011 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. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... |
||||||||||||||||
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. |