Picaxe Befehle (deutsch)
von
Hallo,
leider habe ich ein Zeitproblem im Programm.
Eine 14m2 ließt das Servosingnal aus und schaltet entsprechend die Blinker.
Weiterhin wird die Radbewegung registriert, um dann das Bremslicht auszuschalten.
Bis dahin funktioniert es recht gut.
Jetzt soll sozusagen nebenbei ein Rundumlicht mit 4 LEDs laufen,
welches über ein Signal der FB ein-und ausgeschaltet wird.
Das Rundumlicht wird aber stark ausgebremst durch count und pulsin, denke ich.
Oder liegt es an den Pausen?
Was kann ich ändern?
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
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
dirsb=%00111110
dirsc=%00000011
high c.1 'Bremlicht an
start:
'-------------------------------------------------
'Bremslicht
count C.4, 300,b0 'Radsensor
'sertxd("Der Wert von b0 ist ",#b0,13,10)
if b0 > 0 then
low c.1
else high c.1
endif
'-------------------------------------------------
'Blinker
pulsin C.3,1,b1 'Servosignal
'sertxd("Der Wert von b1 ist ",#b1,13,10)
if b1>160 then
pulsout b.5,60000
pause 600
elseif b1<140 then
pulsout c.0,60000
pause 600
endif
goto start
'-------------------------------------------------
'Rundumkennleuchte
start1:
if pinc.2 = 1 then
pulsout b.1,7000
pause 70
pulsout b.2,7000
pause 70
pulsout b.3,7000
pause 70
pulsout b.4,7000
pause 70
endif
goto start1
Gruß Karlsson
Zeitproblem
