PureBoard

Code: Alles auswählen

; Pair of virtual COM Ports created with 
; socat -d -d pty,raw,echo=0 pty,raw,echo=0
; (Linux)


If OpenSerialPort(1,"/dev/pts/18",115200,0,8,1,0,1024,1024) = 0
  Debug "Fehler beim COM Port öffnen"
  End
EndIf

Repeat
  Delay(10)
  zaehler+1
  string$=Str(zaehler)
  For a=1 To 3
    string$+","+Str(Random(899)+100)
  Next
  Debug string$
  WriteSerialPortString(1,string$+#LF$)
Until GetClipboardText()="q"

CloseSerialPort(1)

Code: Alles auswählen

; Virtual COM Ports created with 
; socat -d -d pty,raw,echo=0 pty,raw,echo=0
; (Linux)

Define einzelzeichen$ ; Speichert einzelnzeichen beim einlesen
Define zeile$="" ; speichert aktuelle Zeile
Define Dateipfad$="/home/macros/ram/test.txt"

; der einfachkeit halber für alles Fenster, Gadget, Datei den Index 1 weil wir jeweils nur eines haben.
If OpenSerialPort(1,"/dev/pts/19",9600,0,8,1,0,1024,1024)=0
  Debug "Fehler beim COM Port öffnen"
  End
EndIf
If CreateFile(1,Dateipfad$)=0
  Debug "Fehler beim Datei erstellen!"
  End
EndIf

OpenWindow(1,0,0,800,600,"COM Test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
EditorGadget(1,0,0,800,600)
einzelzeichen$=Space(1)

; Programmschleife / Hauptschleife
Repeat
  ; Wir warten maximal 5ms auf ein Event, damit wir die Nachrichten die alle 10ms kommen verarbeiten können
  event=WaitWindowEvent(5) 
  
  bytes_available = AvailableSerialPortInput(1)
  If bytes_available
    
    For a=1 To bytes_available
      ReadSerialPortData(1,@einzelzeichen$,1)

      If einzelzeichen$=#LF$ ; Zeilenumbruch!
        ; Ausgeben an die zwei Sachen
        AddGadgetItem(1,-1,zeile$)
        WriteStringN(1,zeile$)
        
        ;Wir sorgen dafür, dass das Gadget nicht überläuft
          If CountGadgetItems(1)=20
            RemoveGadgetItem(1,0) ; Zählung beginnt bei 0
          EndIf
        
        ; Zeile wieder leer
        zeile$=""
      Else
        ; Sonst an die Zeile anhängen
        zeile$+einzelzeichen$
      EndIf
    Next
    
  EndIf
  
; Wir beenden die Hauptschleife, wenn das X im Fenster gedrückt wird
Until event=#PB_Event_CloseWindow

; Aufräumen 
CloseFile(1)
CloseSerialPort(1)
CloseWindow(1)