Android Example Create Personalised QR Codes

See attached project that you can use to make personalized QR codes with. Image that is superimposed over the QR code should preferably have a transparent background. You can do things like this:

All the additional library files that were used for this project are in the /files folder of the attached B4A project. The code module inside the B4A project has the code that creates the QR Codes. No internet connections are required to create the QR codes with.

Scan the above codes with something like NeoReader, i-nigma, or QRCPV4. It will take you to the applicable B4X websites.

Enjoy!

 

[DonManfred]

Thank you for sharing this

 

[zoujoo]

Good, thank you

 

[Shalu Samtani]

can use in B4j?

 

[Star-Dust]

Thanks for sharing it, I've been looking for code for creating QR all in B4A.

 

[Johan Schoeman]

can use in B4j?

You can amend the code in this project to do so....


https://www.b4x.com/android/forum/t...e93-ean8-ean13-and-code128.57248/#post-361817

 

[freedom2000]

nice job Johan !

 

[Procesor]

Error:

"The following libraries are missing:
stringfunctions
rsimageprocessing"

 

[DonManfred]

Error:

"The following libraries are missing

Search the forum for them. stringfunctions is part of B4A installation.
rsimage* is a Library. Search for it.

 

[Johan Schoeman]

Search the forum for them. stringfunctions is part of B4A installation.
rsimage* is a Library. Search for it.

StringUtils is part of the B4A installation. StringFunctions is a library by @margret. Attached are the files....

 

[DonManfred]

StringUtils is part of the B4A installation

You are right. Sorry, my fault!

 

[Star-Dust]

however, some features used by RSImageProcessing can also be obtained without using this library.

For example, resize the image:

Sub CreateScaledBitmap(Original As Bitmap, NewWidth As Int, NewHeight As Int) As Bitmap
    Dim r As Reflector
    Dim b As Bitmap

    b = r.RunStaticMethod("android.graphics.Bitmap", "createScaledBitmap", _
        Array As Object(Original, NewWidth, NewHeight, true), _
        Array As String("android.graphics.Bitmap", "java.lang.int", "java.lang.int", "java.lang.boolean"))
    Return b
End Sub

 

[Star-Dust]

The roundCorner could also be created.

A similar thing I got with the following code:

Sub CreateBitmap As Canvas
   Dim bmp As Bitmap
   bmp.InitializeMutable(200dip, 200dip)
   Dim cvs As Canvas
   cvs.Initialize2(bmp)
   Dim r As Rect
   r.Initialize(0, 0, bmp.Width, bmp.Height)
   cvs.DrawRect(r, Colors.Transparent, True, 0)
   Dim p As Path
   p.Initialize(0, 0)
   Dim jo As JavaObject = p
   Dim x = 100dip, y = 100dip, radius = 100dip As Float
   jo.RunMethod("addCircle", Array As Object(x, y, radius, "CW"))
   cvs.ClipPath(p)
   Return cvs
End Sub

Sub DrawRoundBitmap (bmp As Bitmap) As Bitmap
   Dim r As Rect
   Dim cvs As Canvas = CreateBitmap
   
   r.Initialize(0, 0, cvs.Bitmap.Width, cvs.Bitmap.Height)
   cvs.DrawBitmap(bmp, Null, r)
   Return cvs.Bitmap
End Sub

But I'm not sure they do the same thing, it's true

 

[freedom2000]

An idea to @Johan Schoeman our "QR king"

I do enjoy rounded multicolor QR codes (have a look to my avatar !)
It seems to me that you are very close now to get such beautiful results.
I found this python lib : https://github.com/davidszotten/prettyqr which seems to do it

Aren't you tempted (just a challenge not a need) ?

 

[Johan Schoeman]

An idea to @Johan Schoeman our "QR king"

I do enjoy rounded multicolor QR codes (have a look to my avatar !)
It seems to me that you are very close now to get such beautiful results.
I found this python lib : https://github.com/davidszotten/prettyqr which seems to do it
View attachment 61557

Aren't you tempted (just a challenge not a need) ?

....the closest I can get to it at present....
https://www.b4x.com/android/forum/threads/awesomeqrcode.86024/

 

[Rantor777]

More QRCode options, Great!

 

[freedom2000]

....the closest I can get to it at present....
https://www.b4x.com/android/forum/threads/awesomeqrcode.86024/

How fast you are ...

Great

BTW : I played a little with QR codes to convert one into CNC Mill path. Need some manual tuning but may work --> carving a QR code into a wooden part or burn it with a laser cutter...