nog net gered

rules1 (copy 1).txt

@@ -0,0 +1,45 @@
+on System#Boot do
+  GPIO,2,0
+  LoopTimerSet,1,2
+   rtttl,14:d=4,o=5,b=180:8f,8f,8f,2a#.,2f.6,8d#6,8d6,8c6,2a#.6,f.6,8d#6,8d6,8c6,2a#.6,f.6,8d#6,8d6,8d#6,2c6,p,8f,8f,8f,2a#.,2f.6,8d#6,8d6,8c6,2a#.6,f.6,8d#6,8d6,8c6,2a#.6,f.6,8d#6,8d6,8d#6,2c6 
+endon
+
+on System#Reboot do
+  GPIO,2,0
+endon
+
+on laag#State do
+  LogEntry,'laag#State: %eventvalue1% result: %eventvalue2%'
+endon
+  if [laag#State]=1
+    GPIO,2,0
+    timerSet,1,2
+     
+  else
+    GPIO,2,1
+    timerSet,1,0
+  endif
+
+
+ //start the warning signal when we receive a start_warning event:
+ On start_warning do 
+   timerSet,1,2
+ endon
+ 
+ //stop the warning signal when we receive a stop_warning event:
+ On stop_warning do
+   timerSet,1,0
+ endon
+ 
+ //create an actual warning signal, every time timer 1 expires:
+ On Rules#Timer=1 do 
+   //repeat after 2 seconds 
+   timerSet,1,2
+ 
+   //pulse some led on pin 4 shortly
+   //Pulse,4,1,100
+ 
+   //produce a short 1000hz beep via a piezo element on pin 14
+   //tone,14,1000,100
+ 
+ endon