<\/p>\n
Im dritten und letzten Teil der Beitragsreihe zum Thema QR-Codes wollen wir den in den ersten beiden Teilen ermittelten Code zusammen mit den benötigten Markierungen in eine Bilddatei gießen und den dabei eingeschlagenen Weg zur besseren Nachvollziehbarkeit Schritt für Schritt in einer Excel-Datei darstellen. Die entstandenen Bilder können Sie dann entweder als Bilddatei speichern oder aber direkt in Formularen und Berichten einsetzen.<\/b><\/p>\n
Der Start<\/b><\/p>\n
Die Erstellung der Bilddatei führen wir mithilfe einer Funktion namens ImageErzeugen <\/b>durch, die folgende Parameter erwartet:<\/p>\n Zwei Arrays<\/b><\/p>\n Für das Füllen des QR-Codes benötigen wir zwei Arrays. Dazu wollen wir uns kurz die notwendigen Schritte ansehen: Zuerst fügen wir den Array nämlich die Markierungen hinzu, mit denen der Scanner später erkennen kann, in welcher Position sich der QR-Code befindet. Diese landen typischerweise links oben, rechts oben und links unten im Bild. Außerdem benötigen wir je nach Version noch ein sogenanntes Alignment Pattern. Auch dieses wird gleich zu Beginn eingefügt. Schließlich werden einige allgemeine Informationen zum QRCode-Bild hinzugefügt ⓬“ und zwar in Form einer horizontalen und einer vertikalen Anordnung. Wie dies aussieht, können Sie Bild 1 entnehmen ⓬“ in diesem Fall für die Versionen 1 (21×21), 2 (25×25), 7 (45×45) und 14 (73×73).<\/p>\n Bild 1: Die Elemente des QR-Codes ohne die eigentlichen Daten für verschiedene Versionen beziehungsweise Kantenlängen<\/span><\/b><\/p>\n Nun müssen nur noch die weißen und schwarzen Pixel hinzugefügt werden, welche den eigentlichen Code ausmachen ⓬“ plus den Fehlerkorrekturcode. Diese nehmen den übrigen Platz ein.<\/p>\n Allerdings werden die Pixel nicht einfach Zeile für Zeile und Spalte für Spalte zum Bild hinzugefügt, sondern ausgehend von unten rechts, und dann auch nur dort, wo noch keine Informationen etwa in Form von Markierungen abgelegt wurden ⓬“ plus einem kleinen Puffer von einem Pixel.<\/p>\n Wie aber können wir beim Einfüllen der Einsen und Nullen für den Code erkennen, welches Pixel bereits gefüllt ist und welches nicht ⓬“ wenn diese doch teilweise mit einer Eins und teilweise mit einer Nulll gefüllt sind Dazu benötigen wir ein zweites Array, das wir zu Beginn mit einer Maske füllen. Diese sieht wiederum wie in Bild 2 aus.<\/p>\n Bild 2: Diese Bereiche der QR-Codes werden mit den eigentlichen Daten gefüllt.<\/span><\/b><\/p>\n Die Bereiche, die nicht durch eine der Markierungen belegt sind, werden mit einer Art Muster gefüllt. Warum ein Muster und nicht einfach nur eine schwarze Fläche Weil dieses Muster, die sogenannte Maske, wiederum eine spezielle Funktion hat.<\/p>\n Wenn eines der Pixel weiß ist und das Bit des Codes, das dort abgelegt werden soll, den Wert 0 <\/b>hat, bleibt das Pixel weiß. Hat der Code den Wert 1<\/b>, wird das Pixel schwarz. War das Pixel zuvor schwarz, sorgt der Wert 0 <\/b>dafür, dass das Pixel schwarz bleibt, beim Wert 1 <\/b>hingegen wird das Pixel weiß.<\/p>\n Es gibt acht verschiedene Masken, von denen eine ausgewählt werden muss. Die Masken stehen deshalb zur Verfügung, damit man eine andere Maske verwenden kann, wenn das fertige Bild zu große weiße oder schwarze Bereiche zur Darstellung des Inhalts enthält. In der Beispieldatenbank ist dies auf die Maske mit der Nummer Sieben voreingestellt.<\/p>\n Mit dieser Maske wissen wir aber immer noch nicht, welche Pixel des Bildes mit dem QR-Code belegt werden können und welche nicht ⓬“ sie liefert doch nur Einsen und Nullen Eben nicht: Was in der Abbildung nicht zu erkennen ist, sind die Unterschiede, die leer sind, weil die Maske für diese keinen Wert enthält (also weder Eins noch Null) und denen, die den Wert Null enthalten. Wir haben dies mit einer kleinen Hilfsfunktion wie in Bild 3 dargestellt.<\/p>\n Bild 3: Die Maske mit den per x als leer markierten Pixeln<\/span><\/b><\/p>\n Beim Einfüllen des QR-Codes in die Maske werden also nur diejenigen Stellen gefüllt beziehungsweise geswitcht, die bereits einen der Werte 0 oder 1 enthalten. Die mit x markierten Stellen, die ja die Positionsmarken und weitere Informationen zum Aufbau des QR-Codes enthalten, werden nicht geändert.<\/p>\n Steuerfunktion<\/b><\/p>\n Kommen wir zum Formular frmQRCodes <\/b>zurück und zu den Schritten, die zur Erstellung des Bildes für den QR-Code erforderlich sind (s. Bild 4).<\/p>\n Bild 4: Formular zum Erstellen der QR-Codes<\/span><\/b><\/p>\n Ein Klick auf die Schaltfläche ImagesErzeugen <\/b>ruft die Prozedur aus Listing 1 auf. Diese Prozedur deklariert die drei Steuerelemente zur Anzeige der verschiedenen Stadien des QR-Codes, die später mit Verweisen auf die Steuerelemente imgBasis<\/b>, imgBelegung <\/b>und imgQRCode <\/b>gefüllt werden. Bei diesen Steuerelementen handelt es sich um das Image<\/b>-Steuerelement der MSForms<\/b>-Bibliothek, die Sie über die Liste der ActiveX-Steuerelemente zum Formular hinzufügen können.<\/p>\n Listing 1: Die Steuerprozedur zum Erzeugen des Bildes mit dem QR-Code<\/span><\/b><\/p>\n Außerdem deklariert die Prozedur drei StdPicture<\/b>-Objekte, welche die Bilder aufnehmen, die von einer Funktion erzeugt und dann in den Image<\/b>-Steuerelementen angezeigt werden.<\/p>\n Die Funktion ImageErzeugen <\/b>erwartet als Parameter die Version, den Fehlerkorrekturlevel und den QR-Code sowie die beiden Variablen picBelegung <\/b>und picBasis <\/b>als Parameter. Die letzten beiden werden mit den StdPicture<\/b>-Objekten zu diesen beiden Status des QR-Code-Bildes gefüllt, die Funktion selbst liefert das StdPicture<\/b>-Objekt mit dem vollständigen QR-Code-Bild zurück.<\/p>\n Nachdem die drei StdPicture<\/b>-Objekte mit den Bildern gefüllt und zurückgegeben wurden, speichert die Prozedur cmdÓ-ImageÓ-ErÓ-zeugen_Click <\/b>das fertige Bild im Datenbankverzeichnis unter dem Namen QRCode_123.png <\/b>(wobei 123 <\/b>der Nummer des Datensatzes der Tabelle tblQRCodes <\/b>entspricht, in der die Basisinformationen zu den jeweiligen QR-Codes gespeichert werden).<\/p>\n Außerdem landen die Bilder aus den StdPicture<\/b>-Objekten in den Image-Steuerelementen. Fertig! Nun müssen wir uns nur noch die paar hundert Codezeilen ansehen, die den QR-Code in ein Bildobjekt umwandeln.<\/p>\n Die Funktion ImageErzeugen<\/b><\/p>\n Diese Funktion steuert die Erzeugung der QR-Code-Bilder. Sie erwartet die bereits weiter oben beschriebenen, von der Prozedur cmdImageErzeugen_Click <\/b>übergebenen Parameter (s. Listing 2).<\/p>\n Listing 2: Prozedur zum Aufruf der Routinen zum Erzeugen des QR-Code-Bilds<\/span><\/b><\/p>\n Die Funktion verwendet einige Variablen, von denen vier hier erläutert werden sollen:<\/p>\n Die Funktion legt fest, dass die Maske mit der Nummer 7 <\/b>verwendet wird. Sie können auch die anderen, von 0 <\/b>bis 6 <\/b>durchnummerierten Masken verwenden ⓬“ die Funktion beschränkt sich auf die Maske 7<\/b>. Jede Maske sorgt für ein anderes Ausgangsmuster, das durch das Hinzufügen des QR-Codes geändert wird. Je nach Maske und QR-Code entstehen so mitunter QR-Code-Bilder, die große weiße oder schwarze Bereiche aufweisen ⓬“ schlecht zu lesen für QR-Code-Scanner. In diesem Fall könnten Sie eine andere Maske als Grundlage verwenden. Diese hier wird mit dem Wert 7 <\/b>für die Variable intMaske <\/b>fest vorgegeben. Danach ermittelt die Funktion die Ausmaße der zu erstellenden Pixelmatrix aus der Tabelle tblVersions<\/b>. Die Kantenlänge landet in der Variablen intVersionWidth<\/b>. Nun startet die Funktion eine weitere Routine namens BasisErzeugen<\/b>. Diese füllt die beiden Arrays bolQRBild <\/b>und strMaske <\/b>mit den Daten für die Positionsmarken und die übrigen Grundinformationen zum verwendeten QR-Code (s. Listing 3).<\/p>\n Listing 3: Diese Prozedur fügt die Positionsmarkierungen und andere Elemente hinzu.<\/span><\/b><\/p>\n Sie füllt also das als Parameter übergebene Array bolQRBild<\/b>, das zuvor komplett mit dem Standardwert 0 <\/b>gefüllt war und nun an den Stellen mit den Markierungen die Werte 0 <\/b>und 1 <\/b>enthält. Das Array strMaske<\/b> wird auf ähnliche Weise gefüllt, allerdings wird dieses zunächst komplett mit der Maske gefüllt, bevor die Bereiche, die Markierungen und Informationen enthalten, jeweils mit Leerzeichen versehen werden. <\/p>\n Hieraus werden die beiden oberen Bilder des Formulars frmQRCode <\/b>erzeugt. Das erste wird über die Funktion SetQRCode <\/b>in der StdPicture<\/b>-Variablen picBasis <\/b>als Bild verewigt (und später im Formular als oberstes Bild angezeigt). Es enthält die aktuellen Werte des Array bolQRBild<\/b>, also die bereits hinzugefügten Markierungen.<\/p>\n Das zweite Bild namens picBelegung <\/b>soll nur den aktuellen Stand des Inhalts von strMaske <\/b>liefern. Daher füllen wir die entsprechende StdPicture<\/b>-Variable entsprechend. Schließlich folgt das eigentliche Füllen der Matrix in bolQRBild() <\/b>mit dem QR-Code. Dazu ermittelt die Prozedur KoordinatenErmitteln <\/b>zunächst den Pfad durch die Matrix, in dem die Werte des QR-Codes eingetragen werden sollen. Mehr dazu weiter unten. Schließlich fügt die Prozedur CodeHinzufuegen<\/b> den QR-Code in Abhängigkeit von der in strMaske <\/b>gespeicherten Vorgaben in das Array bolQRBild() <\/b>ein. Das Ergebnis dieses Vorgangs landet dann schließlich in der StdPicture<\/b>-Variablen objPicture<\/b>, die auch gleichzeitig als Rückgabewert der Funktion ImageErzeugen <\/b>dient.<\/p>\n Markierungen und Informationen einfügen<\/b><\/p>\n Die Prozedur BasisErzeugen <\/b>ruft verschiedene Routinen auf, welche die unterschiedlichen Markierungen und Informationen zu der in bolQRBild() <\/b>gespeicherten Matrix hinzufügen und die Matrix aus strMaske()<\/b> zunächst mit der Maske füllen und dann die Bereiche leeren, die mit Markierungen und sonstigen Informationen gefüllt werden, damit diese später beim Hinzufügen des QR-Codes als gefüllt erkannt werden.<\/p>\n Im ersten Schritt redimensioniert die Prozedur die beiden Variablen bolQRBild <\/b>und strMaske <\/b>entsprechend der zuvor ermittelten Dimensionen der Matrix. Dann durchläuft die Prozedur zwei verschachtelte Schleifen, in denen alle Felder des Arrays bolQRBild <\/b>mit dem Wert -1 <\/b>gefüllt werden. Die Felder des Arrays strMaske <\/b>werden abwechselnd mit den Werten -1 <\/b>und 0 <\/b>gefüllt.<\/p>\n Nun fügt die Prozedur MaskeAnwenden <\/b>dem Array strMaske <\/b>die als Grundlage zu verwendende Maske hinzu (s. Listing 4). Wir haben hier nur den letzten Zweig der Select Case<\/b>-Bedingung abgebildet, in dem unsere zuvor festgelegte Maske angewendet wird. Die detaillierte Erläuterung sparen wir uns an dieser Stelle ⓬“ die zwei verschachtelten Schleifen ändern die Werte des Array strMaske <\/b>so, dass es anschließend wie in Bild 5 aussieht.<\/p>\n Bild 5: Die von der Beispieldatenbank verwendete Maske<\/span><\/b><\/p>\n Hinzufügen der Finderpatterns<\/b><\/p>\n Nach dem Anwenden der Maske landen die Finderpatterns im Array bolQRBild<\/b>. Außerdem werden die Bereiche, in denen sich die Finderpatterns befinden, im Array strMaske <\/b>geleert (s. Bild 6). Für diese Aufgabe ist die Prozedur FinderPatternsAnwenden <\/b>aus Listing 5 verantworlich.<\/p>\n Bild 6: bolQRBild und strMaske mit Positionsmustern<\/span><\/b><\/p>\n Die Prozedur erstellt zunächst ein Array, das den Aufbau eines Finderpatterns enthält. Das Aussehen können Sie schematisch bereits dem Listing entnehmen. Die Prozedur durchläuft jeweils zwei ineinander verschachtelte Schleifen. Die Durchläufe, bei denen die Laufvariablen jeweils die Werte von 1 <\/b>bis 7 <\/b>annehmen, repräsentieren den Aufbau der einzufügenden Finderpatterns. Insgesamt gibt es drei Finderpatterns. Um Code zu sparen, werden die gleichen Schleifen für alle drei Finderpatterns verwendet.<\/p>\n Der Ablauf der Prozedur sieht so aus: Nach dem Start haben die beiden Schleifenvariablen i <\/b>und j <\/b>den Wert 1<\/b>. Auch die zusätzliche Zählervariable namens intZaehler <\/b>besitzt den Wert 1<\/b>. Die Prozedur prüft dann in der If…Then<\/b>-Bedingung, welchen Wert das Array für die durch intZaehler <\/b>markierte Position hat. Im Falle des Wertes 1 <\/b>wird das aktuelle Feld von bolQRBild<\/b>, also das mit der Position 1|1<\/b>, mit dem Wert 0 <\/b>versehen. Das entsprechende Feld des Arrays strMaske <\/b>wird mit einer leeren Zeichenkette gefüllt, damit dieses Feld später nicht mehr durch den eigentlichen QR-Code gefüllt werden kann. Dies war das erste der 7×7 Pixel für das Finderpattern oben links.<\/p>\n Die beiden folgenden Anweisungen kümmern sich um das Finderpattern oben rechts, die nächsten beiden um das Finderpattern unten links.<\/p>\n Anschließend wird intZaehler <\/b>um Eins erhöht, damit im folgenden Durchlauf der inneren For…Next<\/b>-Schleife das folgende Element des im Array varFinderPattern <\/b>gespeicherte Finderpatterns oben links, oben rechts und unten links eingefügt werden kann.<\/p>\n Der Else<\/b>-Teil der If…Then<\/b>-Bedingung legt die entsprechenden Werte in bolQRBild <\/b>und strMaske <\/b>für den Fall fest, dass das aktuelle Element von varFinderPattern<\/b> den Wert 0 <\/b>hat.<\/p>\n Timingpattern und Dark Module einfügen<\/b><\/p>\n Das nächste einzufügende Element ist das Timingpattern. Dabei handelt es sich um eine horizontale gepunktete Linie zwischen den beiden oberen Finderpatterns und eine vertikale gepunktete Linie zwischen den beiden linken Finderpatterns. Außerdem benötigen wir das sogenannte Dark Module, ein schwarzes Bit rechts oben neben dem linken, unteren Finderpattern (s. Bild 7). <\/p>\n Bild 7: bolQRBild und strMaske mit Timing Pattern<\/span><\/b><\/p>\n Das Hinzufügen dieser Elemente übernimmt die Prozedur TimingPatternAnwenden <\/b>aus Listing 6. Der erste Teil legt das horizontale Timingpattern an.<\/p>\n Listing 6: Hinzufügen des Timingpatterns<\/span><\/b><\/p>\n Dazu durchläuft die Prozedur eine For…Next<\/b>-Schleife über die Werte von 10 <\/b>bis zur Breite des QR-Codes minus sieben. Hier werden die Elemente im Array bolQRBild<\/b> von links nach rechts abwechselnd mit den Werten 0<\/b> und -1 <\/b>gefüllt.<\/p>\n Die entsprechenden Elemente des Arrays strMaske<\/b> werden mit leeren Zeichenketten gefüllt, um diese als belegt zu markieren. Die zweite For…Next<\/b>-Schleife erledigt dies für die vertikale Linie.<\/p>\n Die letzten beiden Anweisungen dieser Prozedur legen das Dark Module fest. Dieses liegt immer an der gleichen Position, nämlich an der neunten Stelle von links und der achten Stelle von unten. Das entsprechende Element der Maske wird mit einer leeren Zeichenkette gefüllt.<\/p>\n Versionsinformationen schreiben<\/b><\/p>\n Wenn die Version des QR-Codes größer als sieben ist (also für eine Dimension von 45×45 und mehr), fügt die Funktion VersionsinformationenSchreiben <\/b>an zwei Stellen zusätzliche Informationen über die Version des verwendeten QR-Codes hinzu (siehe Listing 7).<\/p>\n <\/p>\n Listing 7: Hinzufügen der Versionsinformation<\/span><\/b><\/p>\n Diese landen an den markierten Stellen in Bild 8. Auch hier verwendet die Prozedur immer die gleiche Position für die jeweils 6×3 Pixel beziehungsweise 3×6 Pixel großen Elemente ⓬“ nämlich elf Pixel vom rechten Rand für die Versionsinformationen neben dem rechten, oberen Finderpattern und elf Pixel vom unteren Rand für die Versionsinformationen über dem linken, unteren Finderpattern.<\/p>\n Bild 8: bolQRBild und strMaske mit Versionsinformationen<\/span><\/b><\/p>\n Die jeweils 18 Bits für die Finderpatterns sind in der Tabelle tblVersions <\/b>gespeichert, von wo die Prozedur diese auch ausliest. Dies jedoch, wie bereits erwähnt, nur für einen Wert von intVersion <\/b>größer als 7<\/b>. Danach erfolgt das Anlegen der Versionsinformationen wieder innerhalb von zwei verschachtelten For…Next<\/b>-Schleifen. Diese durchlaufen jeweils die 3×6 beziehungsweise 6×3 Pixel größen Bereiche der beiden Variablen bolQRBild <\/b>und strMaske<\/b>. bolQRBild <\/b>wird dabei wie üblich mit den Werten 0 <\/b>und -1 <\/b>gefüllt, strMaske <\/b>erhält die entsprechenden leeren Zeichenketten, um diese Bereiche als gesperrt zu markieren.<\/p>\n Zusätzliche Bereiche leeren<\/b><\/p>\n Die Prozedur BereicheLeeren<\/b> markiert einige weitere Bereiche mit dem Wert -1 <\/b>und legt diese als gesperrt fest (s. Listing 8). Dies dient hauptsächlich dazu, die Finderpatterns mit einem Pixel Abstand zu dem später einzufügenden QR-Code zu versehen.<\/p>\n Listing 8: Leeren einiger Bereiche<\/span><\/b><\/p>\n Das Ergebnis sieht etwa wie in Bild 9 aus. Dort finden Sie allerdings nur die beiden innerhalb der ersten beiden For…Next<\/b>-Schleifen hinzugefügten leeren Linien unter, über, links und rechts von den Finderpatterns.<\/p>\n Bild 9: bolQRBild und strMaske mit gesperrten Bereichen<\/span><\/b><\/p>\n Die erste For…Next<\/b>-Schleife läuft über die Zahlenwerte von 1 <\/b>bis 8<\/b>. Die ersten beiden Anweisungen stellen die horizontale Linie unter dem linken, oberen Finderpattern so ein, dass dieses in bolQRBild <\/b>mit dem Wert 0 <\/b>und in strMaske <\/b>mit einer leeren Zeichenkette gefüllt wird. Die zweiten beiden Zeilen füllen die horizontale Linie unter dem rechten, oberen Finderpattern entsprechend. Die folgenden Zeilen erledigen dies für die horizontale Linie über dem linken, unteren Finderpattern.<\/p>\n Die zweite For…Next<\/b>-Schleife nimmt sich auf ähnliche Weise die vertikalen Linien rechts von den linken Finderpattern sowie links vom rechten, oberen Finderpattern vor. Diese Markierungen sind in der Abbildung blau markiert (in der gedruckten Version nicht zu erkennen, siehe dazu das PDF zu diesem Beitrag).<\/p>\n Die dritte For…Next<\/b>-Schleife enthält zwei Anweisungen, welche zwei weitere Streifen als gesperrt markiert, um zu verhindern, dass diese später mit den Daten des QR-Codes beschrieben werden.<\/p>\n Dazu trägt sie mit der ersten Anweisung für den horizontalen, neun Zeichen langen Streifen unterhalb des linken, oberen Finderpattern einige leere Zeichenketten in das Array strMaske <\/b>ein. Ein weiterer Streifen wird gleich rechts von diesem Finderpattern angelegt ⓬“ siehe die grünen Markierungen in der Abbildung. Die vierte For…Next<\/b>-Schleife fügt noch zwei Streifen zur Sperrung des Bereichs rechts vom linken, unteren Finderpattern und unter dem rechten, oberen Finderpattern hinzu.<\/p>\n Formatinformationen schreiben<\/b><\/p>\n Damit kommen wir zu den Formatinformationen. Diese liest die Prozedur FormatinformationenSchreiben<\/b> aus Listing 9 zunächst per DLookup<\/b>-Funktion aus der Tabelle tblFormatInformation <\/b>für den verwendeten Fehlerkorrekturlevel und die verwendete Maske ein. Bei diesen Informationen handelt es sich um jeweils 15-stellige binäre Zahlen, zum Beispiel 111011111000100<\/b>. Nachdem diese Information in der Variagblen strFormatInformation <\/b>gelandet ist, setzt die Prozedur zunächst den in intZaehler <\/b>gespeicherten Zähler auf den Wert 1 <\/b>ein.<\/p>\n\n
![\"Die](\"..\/fileadmin\/_temp_\/2014_05\/pic_955_010.png\")
<\/p>\n![\"Diese](\"..\/fileadmin\/_temp_\/2014_05\/pic_955_005.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2014_05\/pic_955_012.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2014_05\/pic_955_011.png\")
<\/p>\nPrivate Sub <\/span>cmdImageErzeugen_Click()\r\n Dim <\/span>ctlImageBelegung As <\/span>MSForms.Image, ctlImageBasis As <\/span>MSForms.Image\r\n Dim ctlImageQRCode As <\/span>MSForms.Image\r\n Dim <\/span>picQRCode As <\/span>StdPicture, picBelegung As <\/span>StdPicture, picBasis As <\/span>StdPicture\r\n Set<\/span> picQRCode = ImageErzeugen(Me!cboVersionID, Me!cboErrorCorrectionID, _\r\n Me!txtQRCode, picBelegung, picBasis)\r\n If <\/span>Not<\/span> picQRCode Is Nothing Then<\/span>\r\n SavePicGDIPlus picQRCode, CurrentProject.Path & \"\\QRCode_\" & Me!QRCodeID & \".png\", pictypePNG\r\n Else<\/span>\r\n MsgBox<\/span> \"Bild nicht erzeugt.\"\r\n End If<\/span>\r\n Set<\/span> ctlImageBasis = Me!imgBasis.Object\r\n With<\/span> ctlImageBasis\r\n .PictureSizeMode = fmPictureSizeModeStretch\r\n .Picture = picBasis\r\n End With<\/span>\r\n Set<\/span> ctlImageBelegung = Me!imgBelegung.Object\r\n With<\/span> ctlImageBelegung\r\n .PictureSizeMode = fmPictureSizeModeStretch\r\n .Picture = picBelegung\r\n End With<\/span>\r\n Set<\/span> ctlImageQRCode = Me!imgQRCode.Object\r\n With<\/span> ctlImageQRCode\r\n .PictureSizeMode = fmPictureSizeModeStretch\r\n .Picture = picQRCode\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>ImageErzeugen(intVersion As Integer<\/span>, lngErrorCorrectionLevelID As Long<\/span>, strcode As String<\/span>, _\r\n Optional<\/span> picBelegung As <\/span>StdPicture, Optional<\/span> picBasis As <\/span>StdPicture) As <\/span>StdPicture\r\n Dim <\/span>intXKoordinate(32000) As Integer<\/span>\r\n Dim <\/span>intYKoordinate(32000) As Integer<\/span>\r\n Dim <\/span>intModulesToPack As Integer<\/span>\r\n Dim <\/span>intVersionWidth As Integer<\/span>\r\n Dim <\/span>bolQRBild() As Boolean<\/span>\r\n Dim <\/span>strMaske() As Variant<\/span>\r\n Dim <\/span>objPicture As <\/span>StdPicture\r\n Dim <\/span>intMaske As Integer<\/span>\r\n intMaske = 7\r\n intVersionWidth = DLookup(\"VersionWidth\", \"tblVersions\", \"VersionID = \" & intVersion)\r\n Call<\/span> BasisErzeugen(intVersion, intVersionWidth, lngErrorCorrectionLevelID, intMaske, _\r\n bolQRBild, strMaske)\r\n Set<\/span> picBasis = CreatePicture(intVersionWidth, intVersionWidth)\r\n SetQRCode picBasis, bolQRBild(), intVersionWidth\r\n Set<\/span> picBelegung = CreatePicture(intVersionWidth, intVersionWidth)\r\n SetBelegung picBelegung, strMaske(), intVersionWidth\r\n intModulesToPack = DLookup(\"ModulesToPack\", \"tblVersions\", \"VersionID = \" & intVersion)\r\n KoordinatenErmitteln intVersionWidth, strMaske, intXKoordinate, _\r\n intYKoordinate, intModulesToPack\r\n CodeHinzufuegen strcode, intModulesToPack, bolQRBild(), strMaske, _\r\n intXKoordinate, intYKoordinate\r\n Set<\/span> objPicture = CreatePicture(intVersionWidth, intVersionWidth)\r\n SetQRCode objPicture, bolQRBild(), intVersionWidth\r\n Set<\/span> ImageErzeugen = objPicture\r\nEnd Function<\/span><\/pre>\n\n
Public Sub <\/span>BasisErzeugen(intVersion As Integer<\/span>, intVersionWidth As Integer<\/span>, _\r\n lngErrorCorrectionLevelID As Long<\/span>, intMaske As Integer<\/span>, _\r\n bolQRBild() As Boolean<\/span>, strMaske() As Variant<\/span>)\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>intX As Integer<\/span>\r\n Dim <\/span>intY As Integer<\/span>\r\n ReDim bolQRBild(intVersionWidth, intVersionWidth)\r\n ReDim strMaske(intVersionWidth, intVersionWidth)\r\n For intX = 1 To intVersionWidth\r\n For intY = 1 To intVersionWidth\r\n i = i + 1\r\n strMaske(intY, intX) = -(i Mod<\/span> 2)\r\n bolQRBild(intY, intX) = -1\r\n Next<\/span> intY\r\n Next<\/span> intX\r\n MaskeAnwenden strMaske, intMaske, intVersionWidth\r\n PositionsmusterAnwenden strMaske, bolQRBild, intVersionWidth\r\n TimingPatternAnwenden strMaske, bolQRBild, intVersionWidth\r\n VersionsinformationenSchreiben strMaske, bolQRBild, intVersion, _\r\n intVersionWidth\r\n BereicheLeeren strMaske, bolQRBild, intVersionWidth\r\n FormatinformationenSchreiben bolQRBild(), lngErrorCorrectionLevelID, _\r\n intMaske, intVersionWidth\r\n AlignmentPatternAnwenden strMaske, bolQRBild, intVersion\r\nEnd Sub<\/span><\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2014_05\/pic_955_013.png\")
<\/p>\n![\"bolQRBild](\"..\/fileadmin\/_temp_\/2014_05\/pic_955_014.png\")
<\/p>\n![\"bolQRBild](\"..\/fileadmin\/_temp_\/2014_05\/pic_955_015.png\")
<\/p>\nPublic Sub <\/span>TimingPatternAnwenden(strMaske() As Variant<\/span>, bolQRBild() As Boolean<\/span>, _\r\n intVersionWidth As Integer<\/span>)\r\n Dim <\/span>i As Integer<\/span>\r\n For i = 10 To intVersionWidth - 7 \r\n If <\/span>i Mod<\/span> 2 = 0 Then<\/span>\r\n bolQRBild(i - 1, 7) = 0\r\n strMaske(i - 1, 7) = \"\"\r\n Else<\/span>\r\n bolQRBild(i - 1, 7) = -1\r\n strMaske(i - 1, 7) = \"\"\r\n End If<\/span>\r\n Next<\/span> i\r\n For i = 10 To intVersionWidth - 7 \r\n If <\/span>i Mod<\/span> 2 = 0 Then<\/span>\r\n bolQRBild(7, i - 1) = 0\r\n strMaske(7, i - 1) = \"\"\r\n Else<\/span>\r\n bolQRBild(7, i - 1) = -1\r\n strMaske(7, i - 1) = \"\"\r\n End If<\/span>\r\n Next<\/span> i\r\n bolQRBild(9, intVersionWidth - 7) = 0\r\n strMaske(9, intVersionWidth - 7) = \"\"\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>VersionsinformationenSchreiben(strMaske() As Variant<\/span>, _\r\n bolQRBild() As Boolean<\/span>, intVersion As Integer<\/span>, intVersionWidth As Integer<\/span>)\r\n Dim <\/span>strVersionInfo As String<\/span>\r\n Dim <\/span>intZaehler As Integer<\/span>, i As Integer<\/span>, j As Integer<\/span>\r\n If <\/span>intVersion >= 7 Then<\/span>\r\n strVersionInfo = DLookup(\"VersionInfo\", \"tblVersions\", \"VersionID = \" _\r\n & intVersion)\r\n intZaehler = 1\r\n For i = 1 To 6\r\n For j = 1 To 3\r\n If <\/span>Mid$(strVersionInfo, intZaehler, 1) = \"1\" Then<\/span>\r\n bolQRBild(intVersionWidth - 11 + j, i) = 0\r\n strMaske(intVersionWidth - 11 + j, i) = \"\"\r\n intZaehler = intZaehler + 1\r\n Else<\/span>\r\n bolQRBild(intVersionWidth - 11 + j, i) = -1\r\n strMaske(intVersionWidth - 11 + j, i) = \"\"\r\n intZaehler = intZaehler + 1\r\n End If<\/span>\r\n Next<\/span> j\r\n Next<\/span> i\r\n intZaehler = 1\r\n For j = 1 To 6\r\n For i = 1 To 3\r\n If <\/span>Mid$(strVersionInfo, intZaehler, 1) = \"1\" Then<\/span>\r\n bolQRBild(j, intVersionWidth - 11 + i) = 0\r\n strMaske(j, intVersionWidth - 11 + i) = \"\"\r\n intZaehler = intZaehler + 1\r\n Else<\/span>\r\n bolQRBild(j, intVersionWidth - 11 + i) = -1\r\n strMaske(j, intVersionWidth - 11 + i) = \"\"\r\n intZaehler = intZaehler + 1\r\n End If<\/span>\r\n Next<\/span> i\r\n Next<\/span> j\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"bolQRBild](\"..\/fileadmin\/_temp_\/2014_05\/pic_955_016.png\")
<\/p>\nPublic Sub <\/span>BereicheLeeren(strMaske() As Variant<\/span>, bolQRBild() As Boolean<\/span>, __\r\n intVersionWidth As Integer<\/span>)\r\n Dim <\/span>i As Integer<\/span>\r\n For i = 1 To 8\r\n bolQRBild(i, 8) = 0\r\n strMaske(i, 8) = \"\"\r\n bolQRBild(i, intVersionWidth - 7) = 0\r\n strMaske(i, intVersionWidth - 7) = \"\"\r\n bolQRBild(intVersionWidth - 8 + i, 8) = 0\r\n strMaske(intVersionWidth - 8 + i, 8) = \"\"\r\n Next<\/span> i\r\n For i = 1 To 8\r\n bolQRBild(8, i) = 0\r\n strMaske(8, i) = \"\"\r\n bolQRBild(intVersionWidth - 7, i) = 0\r\n strMaske(intVersionWidth - 7, i) = \"\"\r\n bolQRBild(8, intVersionWidth - 8 + i) = 0\r\n strMaske(8, intVersionWidth - 8 + i) = \"\"\r\n Next<\/span> i\r\n For i = 1 To 9\r\n strMaske(i, 9) = \"\"\r\n If <\/span>i < 9 Then<\/span>\r\n strMaske(9, intVersionWidth - 8 + i) = \"\"\r\n End If<\/span>\r\n Next<\/span> i\r\n For i = 1 To 8\r\n strMaske(i, 9) = \"\"\r\n strMaske(intVersionWidth - 8 + i, 9) = \"\"\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\n![\"bolQRBild](\"..\/fileadmin\/_temp_\/2014_05\/pic_955_017.png\")
<\/p>\nPublic Sub <\/span>FormatinformationenSchreiben(bolQRBild() As Boolean<\/span>, _\r\n lngErrorCorrectionLevelID As Long<\/span>, intMaske As Integer<\/span>, _\r\n intVersionWidth As Integer<\/span>)\r\n Dim <\/span>intZaehler As Integer<\/span>\r\n Dim <\/span>strFormatInformation As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n strFormatInformation = DLookup(\"FormatInformation\", \"tblFormatInformation\", _\r\n \"ErrorCorrectionLevel = \" & lngErrorCorrectionLevelID & \" AND Maske = \" _\r\n & intMaske)\r\n intZaehler = 1\r\n For i = 1 To 15\r\n If <\/span>Mid$(strFormatInformation, i, 1) = \"1\" Then<\/span>\r\n bolQRBild(intZaehler, 9) = -1\r\n