Code: Select all
Open "COM2:9600,N,8,1,CD0,CS0,DS0,BIN" FOR INPUT AS #1
PRINT "Scanned Barcodes"
INPUT #1, BarcodeData$
LOOP WHILE BarcodeData$ = ""
PRINT " Scanned barcode Number : " + BarcodeData$
IF INKEY$ = CHR$(27) THEN
Can someone help me with the above code. this is in QBasic and it works
I would need someone to advice me how I can convert it into FB code.
It Work if i use the -lang QB option when I run the program BUT my problem is i want to intergrate this (so i can add Serial barcode Readers to my project) and the complete project is done in true FB
some advice or a example could would be great as I have spend 3months trying to figure this out