TheGameCreators - CodeBase - DecodeQRCode live test

Category: Miscellaneous

Version: 1.0

Information

Uploaded: 12th Jul 2017 12:02

Modified: 12th Jul 2017 12:28

Author: Coilwinder

Summary

Example of decoding a QR code from a live camera feed on a device. Slightly modified from AGK example "DecodeQRCode", which uses a camera app to get the user to take a picture before decoding.

Full Description

Example of decoding a QR code from a live camera feed on a device.<br /> <br /> Slightly modified from AGK example "DecodeQRCode", which uses a camera app to get the user to take a picture before decoding.

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

// Project: DecodeQRCode live test

// Created: 2017-07-10

// Slightly modified from AGK example "DecodeQRCode"

// https://www.appgamekit.com/documentation/Reference/Image/DecodeQRCode.htm

SetDisplayAspect( 1.0 / 1.0 )

setvirtualresolution(100,100)

SetResolutionMode( 1 )

SetSyncRate( 10, 0 )

SetOrientationAllowed( 1,1,1,1 )

setclearcolor(128,128,128)

global qrtext$

qrtext$="hello my facebook friends :-)"

global qrimage

qrimage=encodeqrcode(qrtext$,0)

//saveimage(qrimage,"qr.png")

global qrsprite

qrsprite=createsprite(qrimage)

setspritesize(qrsprite,100,100)

global cam

cam = 0 // usually back-facing camera

get=1

AddVirtualButton( get,5, 5, 10 )

SetVirtualButtonText( get, "Cam" )

SetVirtualButtonColor( get, 64, 64, 192 )

SetVirtualButtonAlpha( get, 192 )

url=2

AddVirtualButton( url,5, 15, 10 )

SetVirtualButtonText( url, "URL" )

SetVirtualButtonColor( url, 64, 64, 192 )

SetVirtualButtonAlpha( url, 192 )

global ende=12

AddVirtualButton( ende,100-5, 5, 10 )

SetVirtualButtonText( ende, "End" )

SetVirtualButtonColor( ende, 64, 64, 192 )

SetVirtualButtonAlpha( ende, 192 )

Text()

//Print(qrtext$)

if GetVirtualButtonPressed( get )  then GetCamImage()

if GetVirtualButtonPressed( ende ) then exit

if GetVirtualButtonReleased( url )

if HaveASpace(qrtext$) =0

else

message("a real url have no spaces")

endif

if left(qrtext$,3)="???"

message("i have no url")

else

OpenBrowser(qrtext$)

endif

Sync()

loop

end

function Text()

i=1

if gettextexists(i) then deletetext(i)

CreateText(i,qrtext$)

SetTextPosition(i,getvirtualwidth()/2,0)

SetTextSize(i,3)

SetTextAlignment( i, 1 )

SetTextColor (i,0,0,0 ,255)

endfunction

function GetCamImage()

qrtext$="???"

if GetImageExists(qrimage) then DeleteImage(qrimage)

if getcameraexists()=1

SetDeviceCameraToImage(cam,qrimage) //cam input goto image, image for id will created

if qrsprite then deletesprite(qrsprite)

qrsprite=createsprite(qrimage)

setspritesize(qrsprite,GetVirtualWidth(),GetVirtualHeight())

setspriteposition(qrsprite,0,0)

while qrtext$="???"

qrtext$=decodeqrcode(qrimage)

if len(qrtext$)=0 then qrtext$="???"

Text()

if GetVirtualButtonPressed( ende ) then exit

Sync()

endwhile

SetDeviceCameraToImage(cam, 0) // Stop streaming

else

qrtext$="can't find a cam for get a picture with qr code"

endif

endfunction

function HaveASpace(abc$)

c=0

for i=1 to len(abc$)

if mid(abc$,i,1)=" "

c=c+1

exit

endif

endfunction c

Download

Please login to download

Comments

No comments yet.

Author Name:	Coilwinder
CodeBase Entries:	2

CodeBase - DecodeQRCode live test

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments