B4A Library Library Create QRGenerator

Discussion in 'Additional libraries, classes and official updates' started by MarcoRome, Jul 20, 2015.

  1. MarcoRome

    MarcoRome Expert Licensed User

    Hi all.

    This is simple library Generate QR code images with logo.

    Is very simple:

    Version: 1
    • QRGenerator
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
      • Initialize (logo As String, typevalue As String, value As String, yourkey As String, Module As Object, EventName As String) As String

        For get your Key HERE

        Sub Activity_Create(FirstTime As Boolean)
        'Do not forget to load the layout file created with the visual designer. For example:
            Dim createqrbar As QRGenerator
        Dim logo As String = "http://www.devil-app.eu/immagini_mie/devil_logo67.jpg"
        Dim typeValue As String = "url"
        Dim value As String = "http://www.devil-app.com"
        Dim yourkey As String = "Fe5pwHzYKdmshHMC2Kq7NUIN0X3Ap1J54u4jsn62nFgdNmBJX9"
            createqrbar.Initialize( logo, typeValue, value, yourkey, Me, 
        "check_msg" )   

        End Sub

        Sub check_msg(valore As typeLevel)
        End Sub

      • Code:
        'Generate QR code images with logo:
        'You have 3 parameters: logo, typevalue, value
        'logo = your logo
        'example: "http://www.devil-app.eu/immagini_mie/devil_logo67.jpg"
        'typeValue enter one of these values: url, text, telno, smsto, mailto
        'example: "url" or "text" or "telno", etc..
        'value enter one of these values
        'example: if typeValue is "url" you put here link "http://www.devil-app.com"
        'example: if typeValue is "text" you put here "Some Text"
        'example: if typeValue is "telno" you put here  "+39334336555"
        'example: if typeValue is "smsto" you put here  "+39334336555"
        'example: if typeValue is "mailto" you put here  "info@devil-app.com"
        'Dim logo As String = "http://www.devil-app.eu/immagini_mie/devil_logo67.jpg"
        'Dim typeValue As String = "url"
        'Dim value As String = "http://www.devil-app.com"
        'Dim yourkey As String = "Fe5pwHzYKdmshHMC2Kq7NUIN0X3Ap1J54u4jsn62nFgdNmBJX9"
        'Dim createqrbar As QRGenerator
        'createqrbar.Initialize( logo, typeValue, value, yourkey, Me, "check_msg" )
        'Sub check_msg(valore As typeLevel)
        '    Log(valore.link)
        'End Sub
      • You have this result:

        2015-07-20 11.07.21.png

        Screenshot 2015-07-20 13.06.53.png

        If you click ( with your app Qr Scan ) you will be directed to the site www.devil-app.com.

        - Unzip the attached file ( QRGenerator-Lib.zip ) and copy QRGenerator.jar and QRGenerator.xml to the libraries folder
        - QRGenerator-Example.zip is simple B4A

    Attached Files:

    Last edited: Jul 20, 2015
  2. ArminKH

    ArminKH Well-Known Member

    thank uuuuuuuuuuu mrco ;)
    golpesar628 likes this.
  3. MarcoRome

    MarcoRome Expert Licensed User

    Thank you Johan but your LIBRARY ( 5 Stars ) is fantastic... this is only service ;).
    Great Work
    ArminKH likes this.
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice