CPAL Playground

/* Copyright (C) 2015, RealTime-at-Work, All Rights Reserved
 *
 * You may use, copy, reproduce, and distribute this sample cource code for any non-commercial purpose.
 * Some purposes which can be non-commercial are teaching, academic research,
 * public demonstrations and personal experimentation. You may also distribute this Software
 * with books or other teaching materials, or publish the Software on websites,
 * that are intended to teaching for academic or other non-commercial purposes.
 *
 * In return, we simply require that you agree: 
 * 1. That you will not remove any copyright or other notices from the Software.
 * 2. THAT THE SOFTWARE COMES "AS IS", WITH NO WARRANTIES. THIS MEANS NO EXPRESS, 
 *    IMPLIED OR STATUTORY WARRANTY.
 *
 * @keywords frdm k64f; PWM
 *
 */

processdef PWM_Tester(
  out time64: p1,
  out time64: p2,
  out time64: p3,
  out bool: led_ok,
  out bool: led_error)
{
  const time64: MAX = 1940us;
  const time64: MIN = 1100us;
  static var time64: position = MIN;
  static var time64: step = (MAX - MIN) / 4;
  
  common {
    /* assert(MIN <= position <= MAX); */
    p1 = position;
    p2 = position;
    p3 = position;
  }
  
  state Init {
    IO.println("You have to connect the battery within 8s.");
    led_error = false;
    led_ok = true;
    position = MIN;
  }
  after (8s) {
    position = MIN;
    led_error = true;
    led_ok = false;
  } to Inc;
  
  state Inc {
    position = position + step;
  }
  on (position > MAX) {
    position = MAX;
  } to Dec;
  
  state Dec {
    position = position - step;
  }
  on (position < MIN) {
    position = MIN;
  } to Inc;
}

/* IOs */
var time64: pin_pwm_c08 = 1ms; /* servo */
var time64: pin_pwm_c09 = 1ms;
var time64: pin_pwm_c10 = 1ms;

var bool: pin_led_red = true;
var bool: pin_led_green = true;

/* tasks */
process PWM_Tester: tester[500ms](pin_pwm_c08, pin_pwm_c09, pin_pwm_c10, pin_led_red, pin_led_green);

for ms or try the desktop editor with advanced diagram views

Simulation
Tasks diagram


Quiet mode disabled
[0.000000000000:ASSIGN] Assign cpal_system new value: Scheduling_Policy.FIFO
[0.000000000000:pwm-tester:STARTING_TASK] 'tester'
[0.000000000000:STATE] process "PWM_Tester", instance "tester", state "Init"
[0.000000000000:ASSIGN] Assign pin_pwm_c08 new value: 1ms100us
[0.000000000000:ASSIGN] Assign pin_pwm_c09 new value: 1ms100us
[0.000000000000:ASSIGN] Assign pin_pwm_c10 new value: 1ms100us
[0.000000000000:PRINTLN] You have to connect the battery within 8s.
[0.000000000000:ASSIGN] Assign pin_led_green new value: false
[0.000000000000:ASSIGN] Assign pin_led_red new value: true
[0.000000000000:pwm-tester:TASK_FINISHED] 'tester'
[0.500000000000:pwm-tester:STARTING_TASK] 'tester'
[0.500000000000:ASSIGN] Assign pin_pwm_c08 new value: 1ms100us
[0.500000000000:ASSIGN] Assign pin_pwm_c09 new value: 1ms100us
[0.500000000000:ASSIGN] Assign pin_pwm_c10 new value: 1ms100us
[0.500000000000:PRINTLN] You have to connect the battery within 8s.
[0.500000000000:ASSIGN] Assign pin_led_green new value: false
[0.500000000000:ASSIGN] Assign pin_led_red new value: true
[0.500000000000:pwm-tester:TASK_FINISHED] 'tester'
[1.000000000000:pwm-tester:STARTING_TASK] 'tester'
[1.000000000000:ASSIGN] Assign pin_pwm_c08 new value: 1ms100us
[1.000000000000:ASSIGN] Assign pin_pwm_c09 new value: 1ms100us
[1.000000000000:ASSIGN] Assign pin_pwm_c10 new value: 1ms100us
[1.000000000000:PRINTLN] You have to connect the battery within 8s.
[1.000000000000:ASSIGN] Assign pin_led_green new value: false
[1.000000000000:ASSIGN] Assign pin_led_red new value: true
[1.000000000000:pwm-tester:TASK_FINISHED] 'tester'
[1.500000000000:pwm-tester:STARTING_TASK] 'tester'
[1.500000000000:ASSIGN] Assign pin_pwm_c08 new value: 1ms100us
[1.500000000000:ASSIGN] Assign pin_pwm_c09 new value: 1ms100us
[1.500000000000:ASSIGN] Assign pin_pwm_c10 new value: 1ms100us
[1.500000000000:PRINTLN] You have to connect the battery within 8s.
[1.500000000000:ASSIGN] Assign pin_led_green new value: false
[1.500000000000:ASSIGN] Assign pin_led_red new value: true
[1.500000000000:pwm-tester:TASK_FINISHED] 'tester'
[2.000000000000:pwm-tester:STARTING_TASK] 'tester'
[2.000000000000:ASSIGN] Assign pin_pwm_c08 new value: 1ms100us
[2.000000000000:ASSIGN] Assign pin_pwm_c09 new value: 1ms100us
[2.000000000000:ASSIGN] Assign pin_pwm_c10 new value: 1ms100us
[2.000000000000:PRINTLN] You have to connect the battery within 8s.
[2.000000000000:ASSIGN] Assign pin_led_green new value: false
[2.000000000000:ASSIGN] Assign pin_led_red new value: true
[2.000000000000:pwm-tester:TASK_FINISHED] 'tester'
[2.500000000000:pwm-tester:STARTING_TASK] 'tester'
[2.500000000000:ASSIGN] Assign pin_pwm_c08 new value: 1ms100us
[2.500000000000:ASSIGN] Assign pin_pwm_c09 new value: 1ms100us
[2.500000000000:ASSIGN] Assign pin_pwm_c10 new value: 1ms100us
[2.500000000000:PRINTLN] You have to connect the battery within 8s.
[2.500000000000:ASSIGN] Assign pin_led_green new value: false
[2.500000000000:ASSIGN] Assign pin_led_red new value: true
[2.500000000000:pwm-tester:TASK_FINISHED] 'tester'
[3.000000000000:pwm-tester:STARTING_TASK] 'tester'
[3.000000000000:ASSIGN] Assign pin_pwm_c08 new value: 1ms100us
[3.000000000000:ASSIGN] Assign pin_pwm_c09 new value: 1ms100us
[3.000000000000:ASSIGN] Assign pin_pwm_c10 new value: 1ms100us
[3.000000000000:PRINTLN] You have to connect the battery within 8s.
[3.000000000000:ASSIGN] Assign pin_led_green new value: false
[3.000000000000:ASSIGN] Assign pin_led_red new value: true
[3.000000000000:pwm-tester:TASK_FINISHED] 'tester'
EXIT (SUCCESS) AT 3s (3000000000000)