PureBoard

Code: Alles auswählen

;PB 5.61 [OS: Windows]
If OpenWindow(0,0,0,100,120,"LED",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  SetWindowColor(0,#Black)
  If TextGadget(1,40,10,50,50,"ROT",#SS_NOTIFY) And TextGadget(2,40,60,50,50,"GRÜN",#SS_NOTIFY)
    SetGadgetColor(1,#PB_Gadget_BackColor,#Red)
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_Gadget
          If EventGadget() = 1
            SetGadgetColor(1,#PB_Gadget_BackColor,#Red)
            SetGadgetColor(2,#PB_Gadget_BackColor,#White)
          Else
            SetGadgetColor(1,#PB_Gadget_BackColor,#White)
            SetGadgetColor(2,#PB_Gadget_BackColor,#Green)
          EndIf
        Case #PB_Event_CloseWindow
          Break
      EndSelect
    ForEver
  EndIf
EndIf 

Code: Alles auswählen

Procedure.s ReadSerialPortString(port.i)
   Protected length.i = AvailableSerialPortInput(port)
   Protected *mem, pos = 0
   Protected result.s
   
   If length And IsSerialPort(port)
      *mem = AllocateMemory(length)
      While pos < length
         pos + ReadSerialPortData(port, *mem + pos, length - pos)
      Wend
      result = PeekS(*mem, length, #PB_Ascii)
      FreeMemory(*mem)
      
      ProcedureReturn result
   EndIf
   ProcedureReturn ""
 EndProcedure

....
Case #PB_Event_Timer
     If EventTimer() = 123
       If IsSerialPort(0)
        Bytes = AvailableSerialPortInput(0)
               If Bytes >= 8
                  output = ReadSerialPortString(0)
               EndIf
        SerialOut = output
      EndIf

Code: Alles auswählen

If IsSerialPort(0)
   WriteSerialPortString(0, "1") ;z.B. Anschalten
EndIf

Code: Alles auswählen

String inputString = "";
boolean stringComplete = false;
int led = 13;

void setup() {
  pinMode(led, OUTPUT);
  Serial.begin(9600);
  inputString.reserve(200);
}

void loop() {
  if (stringComplete) {
    Serial.println(inputString);
    inputString = "";
    stringComplete = false;
  }
}

void serialEvent() {
  while (Serial.available()) {
    
    char inChar = (char)Serial.read(); 

    if (inChar == '1') { //LED anschalten
      digitalWrite(led, HIGH);
      stringComplete = true;
    }
    if (inChar == '0') { //LED ausschalten
      digitalWrite(led, LOW);
      stringComplete = true;
    } 
  }
}