B4A Library Library Create QRGenerator

Hi all.

This is simple library Generate QR code images with logo.

Is very simple:

QRGenerator
Author: Devil-App
Version: 1

• QRGenerator
  Methods:
  • 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:
        'Activity.LoadLayout("Layout1")
        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)
        Log(valore.link)
        Msgbox(valore.link,"Msg")
    End Sub
    
    
    
  • 'Generate QR code images with logo:
    'Example:
    '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  "[email protected]"
    '******
    'Example:
    '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:
    
    
    
    
    
    
    
    
    
    
    If you click ( with your app Qr Scan ) you will be directed to the site www.devil-app.com.
    
    LIBRARY
    - Unzip the attached file ( QRGenerator-Lib.zip ) and copy QRGenerator.jar and QRGenerator.xml to the libraries folder
    - QRGenerator-Example.zip is simple B4A

 

[ArminKH]

thank uuuuuuuuuuu mrco

 

[MarcoRome]

Thank you Johan but your LIBRARY ( 5 Stars ) is fantastic... this is only service .
Great Work