Gambas ONE

Public STX As String = Chr(&H53)
Public Address As String = Chr(&H31)
Public FunctionCode As String = Chr(&H31)
Public ETX As String = Chr(&H0D)

Public Sub btnRequestWeight_Click()

    Write #RS232Scanner, STX & Address & FunctionCode & ETX

    Wait 0.1  ' wait a little longer
     
    Try Read #RS232Scanner, Global.ScaleData, Lof(RS232Scanner)
    
    If Error Then
        Print "Error With Incoming Serial Data\n";; Error.Text
    Else
    
      If Global.ScaleData Then
        Print "Raw Scale Weight :";; Global.ScaleData
        ' CleanUpBarcodeData(CStr(Global.ScannerData))
      Else
        Print "Nothing from Scale"
      Endif ' no data if

    EndIf ' error if
End

RS232Scanner = New SerialPort As "RS232Scanner"
   
    'Set up the Serial Device so it should start talking
    With RS232Scanner
        .PortName = "/dev/ttyS0"
        .Speed = "9600"
        .Parity = SerialPort.Odd
        .DataBits = SerialPort.bits7
        .StopBits = SerialPort.bits1
        .FlowControl = SerialPort.None
    End With 
    
    Try RS232Scanner.Open(3)
        If Error Then 
            Global.AddToListBox("Sorry Unable to connect to Scanner\nPlease check settings and try again")    
        Else 
            If RS232Scanner.Status = Net.Active Then 
                Global.AddToListBox("Ready to scan barcode")
            End If
        End If
End

    Try RS232Scanner.Open(3)
        If Error Then 
            Global.AddToListBox("Sorry Unable to connect to Scanner\nPlease check settings and try again")    
        Else 
            If RS232Scanner.Status = Net.Active Then 
                Global.AddToListBox("Ready to scan barcode")
                
                ' you may need to enable watching...
                RS232Scanner.Watch(gb.Read, True)

                ' Attach the stream to "Scanner" in this class.
               Object.Attach(RS232Scanner, Me, "Scanner")
            End If
        End If


' Then add a read event method for Scanner  (Ps, there are other events listed)
' PS. Sorry i was wrong about using Read giving a String.  Using stream.ReadLine() gives a string Read is binary :-\

Public Sub Scanner_Read()
Dim sData As String
  While Not Eof(RS232Scanner)
    sData = RS232Scanner.ReadLine()
    debug Quote(sData) ' lets see the result with escape chars in case the console is not showing data
    Print "Recieved from Scanner:";; sData
  Wend
End