Sub Globals
Private bs1 As BillScanner
Private Button1 As Button
Private letture As Int
End Sub
Sub bs1_scan_value(val As String, rawbyte() As Byte, barcodetype As Int)
bs1.stopScanning
bs1.Enabled=False
bs1.Visible=False
letture=letture+1
ToastMessageShow("letture := " & letture,False) '2'
Log("Value = " & val)
Log("type = " & barcodetype)
Log(" ")
ToastMessageShow("Value = " & val,False)
ToastMessageShow("type = " & barcodetype,False)
End Sub
Sub Button1_Click
letture = 0
bs1.Enabled=True
bs1.Visible=True
bs1.startScanning
End Sub