How to "draw" a QR CODE?

[David Clarke]

Anyone run into a way to "DRAW" a QR CODE?

I'm looking for an explanation of how to draw one. And much thanks to Rod Macia for his GoogleAuthenticator code!!!

I am figuring I could draw one as a graphic in memory then display it on a web page....

[Stuart McLachlan]

Which of the 57 types do you want to generate?
Model 1 (Ver 1 to 14) or Model 2 (Ver 1 to 40) ?
Or maybe Micro QR(Ver 11,13,15) ?
Are you familiar with Reed-Solomon error correction encoding which is applied to the data?

Once you've got that sorted out, it's just a case of drawing approrpaite blocks in the correct locations within the square for the Alignement pattern, timiing pattern and format information.
Then all you need to do is draw the blocks for the data and error correction symbols in the correct sequential locations as per:



Personally, I'd just grab a copy of https://www.nirsoft.net/utils/qr_code_generator.html
and SHELL to it to generate a QR graphic.

SimpleCodeGenerator is a simple tool for Windows that allows you to quickly generate QR Code for scanning with App on your Smartphone. You can display the QR Code on the screen, copy it to the clipboard and then paste it to another program (as image), or save it image file - .png , .gif , .jpg , .tiff, or .bmp

SimpleCodeGenerator also allows you to generate QR Code from command line and save it as image file ( .png , .gif , .jpg , .tiff, or .bmp) without displaying any user interface.

At 65KB, you could embed that application as RCDATA in your main application, extract it to a temp directory and shell to it to generate the graphic

[Rod Macia]

An other option using Zint Barcode Generator

https://forum.powerbasic.com/forum/user-to-user-discussions/source-code/797435-zint-barcode-generator

[Stuart McLachlan]

Simple demo using the Nirsoft application to display the code and also place it on the Clipboard
'

#COMPILE EXE
#DIM ALL
%UNICODE = 1
#INCLUDE ONCE "WIN32API.INC"
#RESOURCE RCDATA QRGen "SimpleCodeGenerator.exe"
FUNCTION PBMAIN() AS LONG
    LOCAL ff AS LONG
    LOCAL strRes AS STRING
    LOCAL wstrFile,wstrQR,wstrShell  AS WSTRING
    LOCAL wstrTemploc, wstrApploc AS WSTRINGZ * %MAX_PATH

    'Save generator in temp directory
    GetTempPath(%MAX_PATH, wstrTempLoc)
    wstrAppLoc = wstrTempLoc &  "SimpleCodeGenerator.exe"
    strRes = RESOURCE$(RCDATA,"QRGen")
    ff = FREEFILE
    IF ISFILE(wstrAppLoc) THEN KILL wstrApploc
    OPEN wstrAppLoc FOR BINARY AS #ff
    PUT$ #ff ,strRes
    CLOSE #ff

    'Generate QRCode
    wstrFile = wstrTemploc & "myQRCode.bmp"
    wstrQR =  "Stuart McLachan\r\nCAMCO Ltd\r\nPort Moresby\r\nhttps://www.camcopng.com" 'multi line!
    wstrShell = CHR$(wstrAppLoc," /ErrorCorrection 2 /MinVersion 1 /MaxVersion 40 /Save ",$DQ,wstrQR,$DQ,32,$DQ,wstrFile,$DQ)
    SHELL wstrShell

    'Use the QRCode bitmap file
    GetQRCode(wstrFile)

    'Cleanup
    KILL wstrApploc
    KILL wstrFile
END FUNCTION

FUNCTION GetQRCode(Sfile AS WSTRING) AS LONG
    LOCAL hGraph,hBmp AS LONG
    GRAPHIC BITMAP LOAD sFile,0,0 TO hBmp
    
    CLIPBOARD RESET
    CLIPBOARD SET BITMAP hBmp

    GRAPHIC WINDOW NEW "My QR Code",200,100,500,500 TO hGraph
    GRAPHIC ATTACH hGraph,0
    GRAPHIC STRETCH PAGE  hBmp,0
    GRAPHIC WAITKEY$
    GRAPHIC WINDOW END hGraph
END FUNCTION
'

[Steve Hutchesson]

Both read and write.

https://www.codetwo.com/freeware/qr-...ader/?sts=1375

[Steven Pringels 3]

In case you like to convert some C++ code on the topic.

https://github.com/nayuki/QR-Code-generator/tree/master/cpp

[David Clarke]

Wow! Thank You!