Gambas: Die serielle Schnittstelle

zurück zu Gambas

Codebeispiel für die RS 232 Schnittstelle

PUBLIC sub Write_Serial (a AS String)

IF Sport.status = Net.Inactive THEN
   Message ("open port first")
ELSE
   chkrts.Value = TRUE
   WAIT 0.01
   WRITE #Sport,a,Len(a)
   WAIT 0.5
   chkrts.Value = FALSE
ENDIF   

Das Serielle Gerät benutzt hier RTS UP um Daten zu akzeptieren. Wenn RTS aus ist, werden diese Daten übertragen.