You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
3.0 KiB
43 lines
3.0 KiB
Imports QRCoder
|
|
Imports QRCoder.PayloadGenerator
|
|
|
|
Public Class Form1
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Create_QR2()
|
|
End Sub
|
|
|
|
|
|
Sub Create_QR()
|
|
Dim contactGeneral As SwissQrCode.Contact = New SwissQrCode.Contact("John Doe", "3003", "Bern", "CH", "Parlamentsgebäude", "1")
|
|
Dim iban As SwissQrCode.Iban = New SwissQrCode.Iban("CH2609000000857666015", PayloadGenerator.SwissQrCode.Iban.IbanType.QrIban)
|
|
Dim reference As SwissQrCode.Reference = New SwissQrCode.Reference(SwissQrCode.Reference.ReferenceType.QRR, "239568202000001300001402207", SwissQrCode.Reference.ReferenceTextType.QrReference)
|
|
Dim additionalInformation As SwissQrCode.AdditionalInformation = New SwissQrCode.AdditionalInformation("This is my unstructured message.", "Some bill information here...")
|
|
Dim currency As SwissQrCode.Currency = SwissQrCode.Currency.CHF
|
|
Dim amount As Decimal = 100.25D
|
|
Dim generator As SwissQrCode = New SwissQrCode(iban, currency, contactGeneral, reference, Nothing, Nothing, amount, Nothing, Nothing)
|
|
Dim payload As String = generator.ToString()
|
|
Dim qrGenerator As QRCodeGenerator = New QRCodeGenerator()
|
|
Dim qrCodeData As QRCodeData = qrGenerator.CreateQrCode(payload, QRCodeGenerator.ECCLevel.M)
|
|
Dim qrCode As QRCode = New QRCode(qrCodeData)
|
|
Dim qrCodeAsBitmap = qrCode.GetGraphic(20, Color.Black, Color.White, CType(Bitmap.FromFile(Application.StartupPath & "\CH-Kreuz_7mm.png"), Bitmap), 14, 1)
|
|
qrCodeAsBitmap.Save(Application.StartupPath & "\testqr.png")
|
|
End Sub
|
|
|
|
Sub Create_QR2()
|
|
Dim contactGeneral As SwissQrCode.Contact = New SwissQrCode.Contact("John Doe", "3003", "Bern", "CH", "Parlamentsgebäude", "1")
|
|
Dim iban As SwissQrCode.Iban = New SwissQrCode.Iban("CH5800784286906512001", PayloadGenerator.SwissQrCode.Iban.IbanType.Iban)
|
|
Dim reference As SwissQrCode.Reference = New SwissQrCode.Reference(SwissQrCode.Reference.ReferenceType.NON, Nothing, SwissQrCode.Reference.ReferenceTextType.QrReference)
|
|
Dim additionalInformation As SwissQrCode.AdditionalInformation = New SwissQrCode.AdditionalInformation("This is my unstructured message.", "Some bill information here...")
|
|
Dim currency As SwissQrCode.Currency = SwissQrCode.Currency.CHF
|
|
Dim amount As Decimal = 100.25D
|
|
Dim generator As SwissQrCode = New SwissQrCode(iban, currency, contactGeneral, reference, Nothing, Nothing, amount, Nothing, Nothing)
|
|
Dim payload As String = generator.ToString()
|
|
Dim qrGenerator As QRCodeGenerator = New QRCodeGenerator()
|
|
Dim qrCodeData As QRCodeData = qrGenerator.CreateQrCode(payload, QRCodeGenerator.ECCLevel.M)
|
|
Dim qrCode As QRCode = New QRCode(qrCodeData)
|
|
Dim qrCodeAsBitmap = qrCode.GetGraphic(20, Color.Black, Color.White, CType(Bitmap.FromFile(Application.StartupPath & "\CH-Kreuz_7mm.png"), Bitmap), 14, 1)
|
|
qrCodeAsBitmap.Save(Application.StartupPath & "\testqr.png")
|
|
End Sub
|
|
|
|
End Class
|