{"id":55000556,"date":"2008-02-01T00:00:00","date_gmt":"2021-02-11T21:19:32","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=556"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Rund_um_Binaerzahlen","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Rund_um_Binaerzahlen\/","title":{"rendered":"Rund um Binärzahlen"},"content":{"rendered":"

\"\" <\/p>\n

Binärzahlen – was soll ich denn damit Ich will Access-Anwendungen erstellen, dazu brauche ich doch keine Binärzahlen! Oder vielleicht doch Oh ja, es gibt sie sehr wohl, die Anwendungszwecke für Binärzahlen, und wenn Sie dort mit allen Wassern gewaschen sind, können Sie sich meist eine Menge Arbeit sparen. Lesen Sie doch einfach selbst, warum Binärzahlen für den Access-Entwickler interessant sind und was Sie dazu wissen sollten …<\/b><\/p>\n

Einem Programmierer sind Begriffe wie Dualsystem (nicht zu verwechseln mit „Duales System“ …) oder Binärzahlen natürlich nicht unbekannt. Beim Dualsystem handelt es sich wie beim Dezimalsystem oder Hexadezimalsystem und Stellenwertsysteme, mit denen man mit einer endlichen Menge verschiedener Zahlen beziehungsweise Zeichen unendlich große Zahlen darstellen kann. Hier zu Lande ist das Dezimalsystem gebräuchlich, zumindest bei Menschen. Computer machen es sich ein wenig einfacher und verwenden nur zwei statt zehn verschiedener Zeichen zur Darstellung von Zahlen – dafür können Sie damit aber viel schneller rechnen.<\/p>\n

Kurz zusammengefasst hier das Wichtigste zum Dualsystem: Wie beim Dezimalsystem bestehen Zahlen auch im Dualsystem aus einem oder mehreren Zeichen, deren Stellenwert von rechts nach links steigt – beim Dualsystem entspricht der Wert einer jeden Ziffer allerdings nicht der Zehnerpotenz, sondern der Zweierpotenz der jeweiligen Stelle. Während die Zahl 101 im Dezimalsystem einem Einer (1×100), keinem Zehner (0x101) und einem Hunderter (1×102) entspricht, sieht die Zahl 101 im Dualsystem zwar genauso aus, hat aber – umgerechnet in das Dezimalsystem – einen ganz anderen Wert, nämlich 1×22 + 0x21 + 1×20 = 5.<\/p>\n

Wer sich mal umschaut, wird feststellen, dass es in der Computerwelt von Zweierpotenzen (also 20, 21, 22, 23, 24, 25 …) nur so wimmelt – die lauten im Dezimalsystem nämlich so: 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1.024, 2.048, 4.096, 8.192, 16.384, 32.768, 65.536 … Und ein Kilobyte sind auch gar nicht 1.000 Byte, sondern 1.024 Byte, und ein Gigabyte nicht 1.000.000 Byte, sondern 1.048.576 Byte.<\/p>\n

Ja und nein<\/b><\/p>\n

Ein einfacher Anwendungsfall für Binärzahlen ist das übertragen von Informationen in der einfachstmöglichen Form. Stellen Sie sich einmal vor, Sie wollten das Ergebnis einer Umfrage, die nur Fragen mit den Antworten Ja und Nein enthält, von einem Ort, sagen wir einem Webserver, zu einem anderen Ort – Ihrem eigenen Rechner – transportieren und dann auswerten.<\/p>\n

Sie könnten dann festlegen, dass die Antwort auf die erste Frage in der ersten Stelle einer Dualzahl Platz findet, die zweite in der zweiten und so weiter. Sie können das Ergebnis – sagen wir 1010101 – in eine Binärzahl wie 85 umwandeln und anschließend die Ergebnisse der Umfrage daraus extrahieren. Das Umwandeln von binär nach dezimal geht recht einfach mit der kleinen Routine aus Listing 1.<\/p>\n

Listing 1: Die Funktion BinaerToDecimal rechnet binäre Zahlen in dezimale Zahlen um.<\/p>\n

Public Function BinaerToDecimal(varBinaer As Variant) As Long\r\n    Dim lngDecimal As Long\r\n    Dim intPos As Integer\r\n    Dim bytVal As Byte\r\n    Dim i As Integer\r\n    For i = Len(varBinaer) To 1 Step -1\r\n        bytVal = Mid(varBinaer, i, 1)\r\n        lngDecimal = lngDecimal + bytVal * 2 ^ intPos\r\n        intPos = intPos + 1\r\n    Next i\r\n    BinaerToDecimal = lngDecimal\r\nEnd Function<\/pre>\n
Die Herleitung einer solchen Funktion ist einfach – Sie brauchen ja nur die Stellen der Zahl von hinten nach vorne zu durchlaufen und mit der der Stelle entsprechenden Zweierpotenz zu multiplizieren.<\/p>\n
Etwas komplizierter ist die Umwandlung einer Dezimalzahl in eine Binärzahl – zumindest, wenn man die richtige Methode nicht kennt. Und deren Name lautet beispielsweise Modulo-Methode.<\/p>\n
Möglicherweise klingelt es bei Ihnen … Modulo Genau: VBA stellt die Mod<\/b>-Funktion bereit, die den Rest einer ganzzahligen Division zweier Zahlen zurückliefert. Und die Modulo-Methode zur Ermittlung von Dualzahlen aus Dezimalzahlen sieht ganz einfach so aus: Sie teilen die Dezimalzahl durch 2 und erhalten entweder1oder 0 als Rest – und das ist auch schon die erste (die rechte) Stelle der gesuchten Dualzahl.<\/p>\n
Das Ergebnis bearbeiten Sie auf die gleiche Weise, bis die Differenz aus der ursprünglichen Zahl und der Summe aus dem Modulo und dem Quotient aus der ursprünglichen Zahl und 2 den Wert 0 <\/b>ergibt.<\/p>\n
In VBA gesprochen sieht das so wie in Listing 2 aus.<\/p>\n
Listing 2: Die Funktion DecimalToBinaer rechnet dezimale Zahlen in binäre Zahlen um.<\/p>\n
Public Function DecimalToBinaer(lngDecimal As Long) As String\r\n    Dim strBinaer As String\r\n    Do While lngDecimal > 0\r\n        If lngDecimal Mod 2 = 1 Then\r\n            strBinaer = strBinaer & "1"\r\n        Else\r\n            strBinaer = strBinaer & "0"\r\n        End If\r\n        lngDecimal = lngDecimal - lngDecimal \/ 2 - lngDecimal Mod 2\r\n    Loop\r\n    DecimalToBinaer = StrReverse(strBinaer)\r\nEnd Function<\/pre>\n
<\/p>\n
Und nun raten Sie, wie Sie die beiden Routinen am einfachsten testen können … Genau! Sie lassen einfach das Ergebnis der einen Funktion für einen Wert durch die andere Funktion laufen und erhalten den Ausgangswert. Falls das stimmt, funktionieren die Routinen entweder – oder sie sind beide falsch programmiert …<\/p>\n
Beispiel Meldungsfensterkonstanten<\/b><\/p>\n
Was aber soll ich nun als Access-Entwickler mit diesem Wissen anfangen Genau genommen noch nicht viel. Aber schauen Sie sich doch einmal die MsgBox<\/b>-Funktion an – genauer gesagt, ihre Parameter und die dafür zur Verfügung stehenden Konstanten.<\/p>\n
Wenn Sie etwa ein Meldungsfenster anzeigen möchten, geben Sie mit dem ersten Parameter der MsgBox<\/b>-Anweisung den Meldungstext, mit dem zweiten einige Konstanten wie zum Festlegen des anzuzeigenden Symbols, der Schaltflächen und der Standardschaltfläche und mit der dritten den Fenstertitel an. Interessant ist hier der zweite Parameter: Er setzt sich aus keiner, einer oder mehreren Konstanten zusammen. Diese Konstanten stehen stellvertretend für verschiedene Zahlenwerte und werden mit Or <\/b>verknüpft, was „logische Disjunktion“ heißt.<\/p>\n
Logische Disjunktion<\/b><\/p>\n
Die logische Disjunktion führt einen bitweisen Vergleich zweier numerischer Ausdrücke durch, also auch von Zahlen. Dies bedeutet im Detail, dass die Zahlen in Zweierpotenzen zerlegt, also eine Zahl im Dualsystem erzeugt und deren einzelne Stellen dann miteinander vergleicht.<\/p>\n
1 or 2 <\/b>ist dann gleichbedeutend mit 01 or 10 <\/b>und ergibt 11<\/b>, was aus den folgenden einfachen Regeln resultiert:<\/p>\n