Gambas: Die serielle Schnittstelle


zurück zu Gambas


Codebeispiel für die RS 232 SchnittstelleBearbeiten

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.