Picaxe Befehle (deutsch)
von
ok, eigentlich ne ganz simple Sache ....
Naubaddi , ......... wie ich schon erwähnte , neigst Du gern zu zeilenintensiven , ausgeschmückten Codes ,
ich hab das mal auf das wesentliche belassen. 
Man kann ja immer noch das ausschmücken a la Naubaddi wie : .... wenn Sonne scheint , .... wenn Gras hoch steht , ......12 Uhr mittach ist , ......wenn Tante Emma Milch brauch , .......
Hier mal der Plan :
und dann der dazu gehörige Code :
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#picaxe 08m2
let DirsC=%000101000
symbol LED1 = pin4
symbol LED2 = pin2
symbol Kontakt_Vorwaerts = pin1
symbol Kontakt_Rueckwaerts = pin0
symbol AN = 1
symbol AUS = 0
symbol Check_Vorwaerts=b3
symbol Check_Rueckwaerts =b4
Do
if Kontakt_Vorwaerts = AN then ' wenn der Zug vorwärts fährt
if Check_Vorwaerts=AUS then
Check_Vorwaerts=AN
pause 500
do
loop until Kontakt_Vorwaerts = AUS
do
loop until Kontakt_Vorwaerts = AN
pause 500
Check_Vorwaerts=AUS
endif
endif
if Kontakt_Rueckwaerts = AN then ' wenn der Zug vorwärts fährt
if Check_Rueckwaerts=AUS then
Check_Rueckwaerts=AN
pause 500
do
loop until Kontakt_Rueckwaerts = AUS
do
loop until Kontakt_Rueckwaerts = AN
pause 500
Check_Rueckwaerts=AUS
endif
endif
loop
end
start1:
if Check_Rueckwaerts=AN or Check_Vorwaerts=AN then
pulsout c.2,500:pause 300
pulsout c.4,500:pause 300
else
LED1=AUS
LED2=AUS
endif
goto start1
