Herzlich Willkommen im einzigen (deutschsprachigem) Picaxe-Forum.

Der Ursprung dieses Forum reicht bis in das Jahr 2008 zurück


Der WS2803 und der Atmega8

#1 von BoomBoomMagic , 28.01.2020 00:05

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
 

$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
 

 







***Lieber 2x mehr lesen , als 1x dumm fragen ***

 
BoomBoomMagic
Beiträge: 879
Registriert am: 24.01.2019

zuletzt bearbeitet 28.01.2020 | Top

   

Soft-PWM
der TM1637 - 4fach 7-Segmenttreiber

Picaxe Editor 5.5.5 Download
Update auf Picaxe Editor 5.5.6 Download
Picaxe Editor 6.x.x.x Download
Manual1.pdf        -      Grundwissen Download
Manual2.pdf        -      Befehle Download
Manual3.pdf        -      Beispiele Download


Press [Backspace] for back to Menu


Counter
Xobor Forum Software ©Xobor.de | Forum erstellen
Datenschutz