fserialport.class

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

' Gambas class file
'PRIVATE Sport AS SerialPort
'PUBLIC SUB Form_Open()
'  Sport=NEW SerialPort AS "Sport"
'END
PUBLIC SUB Form_Close()
  IF Sport.Status=Net.Active THEN CLOSE Sport
END


PUBLIC SUB Check_Status()
  
  ChkDSR.Value=Sport.DSR
  ChkDTR.Value=Sport.DTR
  ChkCTS.Value=Sport.CTS
  ChkRTS.Value=Sport.RTS
  ChkDCD.Value=Sport.DCD
  ChkRNG.Value=Sport.RNG
 
  
END


PUBLIC SUB Button1_Click()
 IF Sport.Status=Net.Active THEN
  CLOSE Sport
  Button1.Text="Open"
 
 ELSE
  ' Line parameters
  Sport.PortName=TxtPort.Text
  Sport.Speed=CmbSpeed.Text
  Sport.Parity=CmbParity.Index
  Sport.DataBits=CmbData.Text
  Sport.StopBits=CmbStop.Text
  ' keep DTR on
  Sport.FlowControl=ComboBox1.Index
  Sport.Open()
  Check_Status()
  TextArea1.Text="Port Opened : " & Sport.PortName & " Settings : " &
Sport.Speed & "," & Sport.Parity & "," & Sport.DataBits & "," &
Sport.StopBits & Chr(13) & Chr(10)
  Button1.Text="Close"
 
 END IF
  

END

PUBLIC SUB SPort_Read()
  DIM s AS String
  READ #Sport,s,Lof(Sport) 
  TextArea1.Text=TextArea1.Text & s
END

PUBLIC SUB SPort_RNGChange(iVal AS Boolean)
  ChkRng.Value=iVal
END

PUBLIC SUB SPort_DTRChange(iVal AS Boolean)
  ChkDTR.Value=iVal
END

PUBLIC SUB SPort_DSRChange(iVal AS Boolean)
  ChkDSR.Value=iVal
END

PUBLIC SUB SPort_CTSChange(iVal AS Boolean)
  ChkCTS.Value=iVal
END

PUBLIC SUB SPort_DCDChange(iVal AS Boolean)
  ChkDCD.Value=iVal
END

PUBLIC SUB SPort_RTSChange(iVal AS Boolean)
  ChkRTS.Value=iVal
END

PUBLIC SUB Button2_Click()

  IF Sport.Status = Net.Inactive THEN
    Message ("Open port first!")
  ELSE
    'WRITE #Sport,TxtSend.Text & Chr(13) & Chr(10), txtSend.Length + 2
    PRINT #Sport,txtSend.Text; Chr$(13); Chr$(10);
  END IF

END



PUBLIC SUB ChkDTR_Click()

  Sport.DTR=ChkDTR.Value
  Check_Status

END

PUBLIC SUB ChkRTS_Click()

  Sport.RTS=ChkRTS.Value
  Check_Status

END



PUBLIC SUB ComboBox1_Click()
 
  Sport.FlowControl=ComboBox1.Index

END



PUBLIC SUB Form_Open()

  cmbSpeed.Index = cmbSpeed.Find("19200")

END