Data Sheet

dScript
dScript User Manual v2.15
digitalport LedRed 34
serialport LCD05 1 10 90
thread Timer1 1000
thread AlwaysRunning const
var Rate
string s1[100]
analogport TS1 100 ; on-board temp sensor
analogport PSU 101 ; DC power voltage
var BrdTemp
var Volts
Timer1: Rate = system.DespatchCounter
threadsuspend
AlwaysRunning: do
BrdTemp = ((TS1*3223)-500000)/1000
Volts = PSU*18369/100000
loop
main: threadsleep 100
threadstart Timer1
; threadstart AlwaysRunning
s1 = " Instruction Despatch"
s1[0] = 12
s1[1] = 19
s1[2] = 4
LCD05.Write(s1,0,s1.Length)
do
s1 = " Rate = " + {D6} Rate + " "
s1[0] = 2
s1[1] = 21
LCD05.Write(s1,0,s1.Length)
LedRed = on
threadsleep 500
LedRed = off
threadsleep 500
loop
Copyright © 2016, Devantech Ltd.
All rights reserved.
www.robot-electronics.co.uk
56