I have sorted out the first part of my scanner / scale module the barcode number is being sent perfecvtly everytime now
What I did was this
Code: Select all
Sleep 0.025
Try Read #RS232Scanner, Global.ScannerData, Lof(RS232Scanner)
If Error Then
Print "Error With Incoming Serial Data"
Endif
If Len(Global.ScannerData) > 2 Then
Print "Raw Barcode Number : " & CStr(Global.ScannerData)
CleanUpBarcodeData(CStr(Global.ScannerData))
Endif
End
Code: Select all
Private Sub CleanUpBarcodeData(BarcodeNumber As String)
Dim TempNumber As String
If Global.Scanner_RemoveChrs > 0 Then
TempNumber = Mid$(BarcodeNumber, Global.Scanner_RemoveChrs, Len(BarcodeNumber))
End If
Print "Processed barcode Number : " & Trim(TempNumber)
Global.AddToListBox("Barcode Number sent to PoS :" & TempNumber)
End