Angeregt durch das User Projekt von Naubadi
http://www.zierath-software.de/phpBB3/vi...?f=8&p=956#p956
möchte ich hier einmal ein paar alternative Vorschläge aufzeigen.
Es gibt sicherlich dutzende an Beispielen wie man solch Effekt programmieren kann.
Hier nur mal 4 einfache Beispiele als Vorschlag :
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
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
#picaxe20m2
let dirsb=255
let dirsc=0
symbol LED = b0
LED=0
Lauflicht:
do while led !=8
switch on LED
pause 100
switch off LED
inc LED
loop
LED=6
do while LED >0
switch on LED
pause 100
switch off LED
dec LED
loop
goto Lauflicht
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
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
#picaxe20M2
let dirsb=%11111111
let dirsc=%00000000
b0=1
let pinsb=b0
pause 100
do
if b0<128 and b1=0 then
b0=b0*2
let pinsb=b0
pause 100
else
b1=128
endif
if b0>1 and b1=128 then
b0=b0/2
let pinsb=b0
pause 100
else
b1=0
endif
loop
end
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
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
#picaxe20M2
let dirsb=%11111111
let dirsc=%00000000
b0=1
let pinsb=b0
pause 100
do
do
b0=b0*2
let pinsb=b0
pause 100
loop until b0=128
do
b0=b0/2
let pinsb=b0
pause 100
loop until b0=1
loop
end
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#picaxe 20M2
let dirsb=%11111111
let dirsc=%00000000
write 0,1,2,4,8,16,32,64,128,64,32,16,8,4,2
do
for b0=0 to 13
read b0,b1
let pinsb=b1
pause 100
next b0
loop
end