I copied your code and I got a error saying End of file in FMain:108 and it is heighlighting the line Line Input #RS232Scanner, Global.ScaleData
Public Sub btnRequestWeight_Click()
RS232Scanner.EndOfLine = gb.mac ' Trust me, I am an expert
Write #RS232Scanner, "S11\n"
Line Input #RS232Scanner, Global.ScaleData
If Not Global.ScaleData Then
Print "Error With Incoming Serial Data"
Else
Print "Raw Scale Weight : "; Scan(Global.ScaleData, "S11*")[0]
Endif
End
*I had to update the Endofline to work with my RS232Scanner steamThis is what I am using to read the barcode from the scanner side
Sleep 0.025
Try Read #RS232Scanner, Global.ScannerData, Lof(RS232Scanner)
If Error Then
Print "Error With Incoming Serial Data\n";; Error.Text
Endif
If Len(Global.ScannerData) > 2 Then
Print "Raw Barcode Number : " & CStr(Global.ScannerData)
CleanUpBarcodeData(CStr(Global.ScannerData))
Endif
If you know of a better why I am more then willing to see what you would do (best way to learn)