So , und noch was aus der alten Krabbelkiste ..... der WS2803
Der WS2803 läßt sich auch über nur 2 Leitungen ( Clock + Data ) recht einfach programmieren.
Er ist nicht so zeitkritisch wie sein Bruder der WS2801.
Mit dem WS2803 kann man entweder :
6 Stk RGB-LED's oder 18 LED im PWM-Modus programmieren.
Wie das ?
Nun , man übergibt dem WS2803 nicht nur ' 1 ' und ' 0 ' , sondern Zahlen von 0 (aus) bis 255 (ganz hell)
So hier dann mal ein Beispiel - einzelne LED von link nach rechts :
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
66
67
68
69
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
66
67
68
69
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 40
$framesize = 40
config portb.5 = output ' Clock
config portb.3 = output ' Data
dim Position as word
dim Wert as byte
Dim Zaehler as byte
Zaehler=0
do
for Position=0 to 341
incr Zaehler
wert=lookup(Position,daten)
gosub clocken
if Zaehler=18 then
waitms 50
Zaehler=0
endif
next Position
waitms 300
loop
End
Clocken:
portb.3 = wert.7:portb.5=0:Waitus 1:portb.5 = 1:Waitus 1
portb.3 = wert.6:portb.5=0:Waitus 1:portb.5 = 1:Waitus 1
portb.3 = wert.5:portb.5=0:Waitus 1:portb.5 = 1:Waitus 1
portb.3 = wert.4:portb.5=0:Waitus 1:portb.5 = 1:Waitus 1
portb.3 = wert.3:portb.5=0:Waitus 1:portb.5 = 1:Waitus 1
portb.3 = wert.2:portb.5=0:Waitus 1:portb.5 = 1:Waitus 1
portb.3 = wert.1:portb.5=0:Waitus 1:portb.5 = 1:Waitus 1
portb.3 = wert.0:portb.5=0:Waitus 1:portb.5 = 1:Waitus 1
return
daten:
data 255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,255,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,255,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,255,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0