LiveCode Forums.

Code: Select all

int ledPin = 13; // sets var ledPin to 13
char state='o';
int blinking=0; // blinking, 0 is no, 1 is yes
int blinkrate=100; // a var that tracks blinkrate that can be changed via serial
int blinkState; 

void setup() {
    pinMode(ledPin, OUTPUT); // pin will be used to for output. We're only writing to the pin, not reading a state
    Serial.begin(115200); // same as in your c++ script. I changed this to 115200 and of course matched it in my lc stack
}

void loop() { // main loop
  if (Serial.available() > 0) // check for data from the serial port
  {
    state = Serial.read(); // used to read incoming data. If theres data, read it

    switch(state)// see what was sent to the board. My stack sends single chars. Use switch to determine what to do
    {
      case 'O': // if the the 'O' was sent, turn the pin on, turn off blink 
        digitalWrite(ledPin,HIGH);
        Serial.println("LED On"); // write to serial 
        blinking = 0;  
        blinkState = 0;
      break;
      case 'o': // if 'o' was sent, turn it off, disable blink 
        digitalWrite(ledPin,LOW);
        Serial.println("LED Off"); 
        blinkState = 0;
        blinking = 0;
      break;
      case 'b': // if 'b' sent, then blink
      blinking = 1;
      break;
      case '1': // these statements change the blinkrate and state
      if (blinkrate != 100)
      {
      blinkrate = 100;
      blinkState = 0;
      }
      break;
      case '2':
      blinkrate = 200;
      blinkState = 0;
      break;
      case '3':
      blinkrate = 300;
      blinkState = 0;
      break;
      case '4':
      blinkrate = 400;
      blinkState = 0;
      break;
      case '5':
      blinkrate = 500;
      blinkState = 0;
      break;
      case '6':
      blinkrate = 600;
      blinkState = 0;
      break;
      case '7':
      blinkrate = 700;
      blinkState = 0;
      break;
      case '8':
      blinkrate = 800;
      blinkState = 0;
      break;
      case '9':
      blinkrate = 900;
      blinkState = 0;
      break;
      case '0':
      if (blinkrate != 1000)
      {
      blinkrate = 1000;
      blinkState = 0;
      }
      break;
      default:
      Serial.print(state);
      break;
    }
  }
if (blinking == 1)
{
  blink();
}
}

void blink() {
  digitalWrite(13, HIGH);   // set the LED on
  delay(blinkrate);              // wait for a second
  digitalWrite(13, LOW);    // set the LED off
  delay(blinkrate);              // wait for a second
  if (blinkState == 0)
  {
  Serial.print("Blinking");
  Serial.println(blinkrate);
  blinkState = 1;
  }
}

Code: Select all

local tReading,tOut
on openCard
   set the serialcontrolstring to "baud=115200 parity=N data=8 stop=1" -- set params for the connection
   doconnect -- call the connection handler
end openCard

on closecard
   if tReading then dodisconnect -- disconnect on close
end closecard

command toggleConnect -- toggles the connect on and off. To upload from the arduino software, disconnect, do the upload, reconnect. 
   if tReading then
      dodisconnect
   set the label of button "tConB" to "Disconnected"
   else
      doconnect
      set the label of button "tConB" to "Connected"
      end if
end toggleConnect

command turnon
   if tReading then  write "O" to file "COM3:" -- send "O" to the serial port (com 3 for me) if there is a connection
end turnon

command turnoff
   if tReading then write "o" to file "COM3:" -- same but with "o"
end turnoff

command makeBlink
   if tReading then write "b" to file "COM3:" -- again, same. Could consolidate all these into a function or handler of course.
end makeBlink

command doconnect -- does the connection, update mode for read and write to com 3. 
   put true into tReading
   open file "COM3:" for update
   set the label of button "tConB" to "Connected"
   readLoop -- starts the readloop
end doconnect

command dodisconnect -- disconnects
   put false into tReading
   close file "COM3:"
   set the label of button "tConB" to "Disconnected"
end dodisconnect

command readLoop
   if tReading then -- if we're connected then read from com 3
      read from file "COM3:" until empty
      if it is not empty then put it after tOut
      send readLoop to me in 50 milliseconds
   else
      put empty into tOut -- "outField" -- clear the field
   end if
   if the number of lines in tOut > 20 then
      delete line 1 to -21 of tOut -- limit the data in outField to 20 lines
   end if
   lock screen
   put tOut into field "outField"
   unlock screen
end readLoop

command setSpeed -- sends a number to set a blinkrate. 
   if tReading then
      switch field "blinkRate"
         case 1
         case 2
         case 3
         case 4
         case 5
         case 6
         case 7
         case 8
         case 9
            write field "blinkRate" to file "COM3:"
            break
         case 10
            write 0 to file "COM3:" -- To keep things simple I am only sending 1 char. So 0 = 10 with the arduino.  bigger means slower blink
            break
      end switch
   end if
end setSpeed