summaryrefslogtreecommitdiff
path: root/user-code/led/OpenModelica/led-blue-red.mo
blob: 4bfa36a36d0471e0db0dc8ff06d3b2f7303bd9f2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
model led_blue_red "Turn on Red & Blue LED"
  extends Modelica.Icons.Example;
  import sComm = Arduino.SerialCommunication.Functions;
  import strm = Modelica.Utilities.Streams;
  Integer ok(fixed = false);
  Integer digital_out(fixed = false);
  Integer c_ok(fixed = false);
algorithm
  when initial() then
    ok := sComm.open_serial(1, 2, 115200) "At port 2 with baudrate of 115200";
    sComm.delay(2000);
    if ok <> 0 then
      strm.print("Check the serial port and try again");
    else 
      sComm.delay(2000);
      digital_out := sComm.cmd_digital_out(1, 9, 1) "This will turn ON the blue LED";
      digital_out := sComm.cmd_digital_out(1, 11, 1) "This will turn ON the red LED";
      sComm.delay(5000) "Delay for 5 seconds";
      digital_out := sComm.cmd_digital_out(1, 9, 0) "This will turn OFF the blue LED";
      sComm.delay(3000) "Delay for 3 seconds";
      digital_out := sComm.cmd_digital_out(1, 11, 0) "This will turn OFF the red LED";
    end if;
    c_ok := sComm.close_serial(1) "To close the connection safely";
  end when;
//strm.print(String(time));
  annotation(
    experiment(StartTime = 0, StopTime = 10, Tolerance = 1e-6, Interval = 10));
end led_blue_red;