X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Tasks%2FExamples.icl;h=b0ae530e4cf548c4419380ffc9cd870aec8ecd51;hb=8246c6551faa818be7a58638dbbc2e521f21c454;hp=d82a76710020bdff0210e436697b3662917f7ca7;hpb=28f4e19f893889e6d19d8c0653a643ae1580fd6d;p=mTask.git

diff --git a/Tasks/Examples.icl b/Tasks/Examples.icl
index d82a767..b0ae530 100644
--- a/Tasks/Examples.icl
+++ b/Tasks/Examples.icl
@@ -6,6 +6,9 @@ import mTask
 import Devices.mTaskDevice
 import iTasks._Framework.Serialization
 
+count :: Main (ByteCode () Stmt)
+count = sds \x=0 In {main = x =. x +. lit 1 :. pub x :. noOp}
+
 countAndLed :: Main (ByteCode () Stmt)
 countAndLed = sds \x=1 In sds \pinnetje=1 In {main =
 	IF (digitalRead D3) (
@@ -46,14 +49,22 @@ ledtOn d = {main = ledOn (lit d) :. noOp}
 ledtOff :: UserLED -> Main (ByteCode () Stmt)
 ledtOff d = {main = ledOff (lit d) :. noOp}
 
+readDPin :: DigitalPin -> Main (ByteCode () Stmt)
+readDPin d = sds \pin=False In {main=pin =. digitalRead d :. pub pin :. noOp}
+
 ledSelection :: Task UserLED
 ledSelection = enterInformation "Select LED" []
 
+pinSelection :: Task DigitalPin
+pinSelection = enterInformation "Select digital pin" []
+
 allmTasks :: Map String (Task (Main (ByteCode () Stmt)))
 allmTasks = 'DM'.fromList
 	[("countAndLed", treturn countAndLed)
 	,("ledOn", ledSelection @ ledtOn)
 	,("ledOff", ledSelection @ ledtOff)
+	,("readDPin", pinSelection @ readDPin)
 	,("blink", ledSelection @ blink)
 	,("blinkShare", treturn blinkShare)
+	,("count", treturn count)
 	]