From df0a5553e17c83df7db0857e557a7ca7da3bb290 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Fri, 8 Nov 2024 11:25:52 +0100
Subject: [PATCH] QR encoder

---
 VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
index e006236e..b8879c4d 100644
--- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
+++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
@@ -668,10 +668,18 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
         Dim errorCorrect As String = CorrectionLevel
 
         qrCodeEncoder.QRCodeErrorCorrect = CorrectionLevel
-
         Dim image As Image
         Dim data As String = QRtext
-        image = qrCodeEncoder.Encode(data)
+
+
+        qrCodeEncoder.QRCodeVersion = 0
+
+        '   qrCodeEncoder.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC
+        qrCodeEncoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.M
+
+
+        image = qrCodeEncoder.Encode(data, System.Text.Encoding.UTF8)
+
         Return image
     End Function