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