QR code generator | Run BASIC

QR code generator Mar 25, 2025 7:56:41 GMT -5 carlgundel and StefanPendl like this

Quote

Select Post
Deselect Post
Link to Post
Member
- Give Gift
Back to Top

Post by badbug on Mar 25, 2025 7:56:41 GMT -5

Generate QR code by using this script "https://api.qrserver.com/v1/create-qr-code/?data=" + qrText$ + "&size=200x200"
qrText$ is your text.
Change the size as you wish.

' -------------------------------------------
'     QR Code Generator 
' -------------------------------------------

html "<html><head>"
html "<title>QR Code Generator</title>"
html "</head><body>"
html "  <h2>QR Code Generator</h2>"

' -----------
'  Input 
' -----------
[qrGen]
html "<BR><B>Enter text: <input type='text' name='qrText' value='' size='20'>"
   button #acd, "Do QR", [doQR]
html "</body></html>"
wait

' ------------ 
' Gen QR code
' ------------
[doQR]
qrText$ = #request get$("qrText") 	' get input value

if qrText$ <> "" then
  cls
  qrUrl$ = "https://api.qrserver.com/v1/create-qr-code/?data=" + qrText$ + "&size=200x200"
  html "  <img src='" + qrUrl$ + "' alt='QR Code'>"
  html "<BR><B>";chr$(9);qrText$
end if
goto [qrGen]