Gambas: Die serielle Schnittstelle

Aus Wikibooks
Wechseln zu: Navigation, Suche


zurück zu Gambas


Codebeispiel für die RS 232 Schnittstelle[Bearbeiten]

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.