Probleme mit R(G)BW Steuerung - bitte um Hilfe

DjTommyB · 6. Februar 2012

Hallo!

Bin gerade am Bau meiner Pflanzenbeleuchtung. Nachdem ich hier noch ne RGBW Steuerung rumliegen hatte, hab ich einfach die verwendet und steuere die Grünen LED's nicht an (6-Pin SuFlu RGB).

Programm sollte eigentlich nicht viel mehr können als R, B und W heller bzw. dunkler zu machen. Gemacht soll das ganze mit 6 Tastern werden, die alle gegen GND ziehen. Leider macht das Programm aber nicht das, was es soll. Hier mal n Programmauszug:

Code

$regfile = "m16def.dat"                                     ' Atmel Atmega16
$crystal = 8000000                                          ' Interner Oszilator 8MHz
$hwstack = 32                                               ' default
$swstack = 10                                               ' default
$framesize = 40


Config Timer0 = Pwm , Pwm = On , Prescale = 8 , Compare Pwm = Clear Down
Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Config Timer2 = Pwm , Pwm = On , Prescale = 8 , Compare Pwm = Clear Down


On Timer2 Time_isr


'Ausgänge deklarieren
Config Portb.3 = Output
Config Portd.5 = Output
Config Portd.4 = Output
Config Portd.7 = Output


'Eingänge deklarieren
Config Pina.0 = Input
Config Pina.1 = Input
Config Pina.2 = Input
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input


'PWM registrieren
Red Alias Ocr1bl
Green Alias Ocr1al
Blue Alias Ocr2
White Alias Ocr0


Enable Timer0
Enable Timer1
Enable Timer2
Start Timer0
Start Timer1
Start Timer2


'Taster deklarieren
S1 Alias Pina.0
S2 Alias Pina.1
S3 Alias Pina.2
S4 Alias Pinb.0
S5 Alias Pinb.1
S6 Alias Pinb.2


Enable Interrupts


Dim Red_soll As Byte
Dim Green_soll As Byte
Dim Blue_soll As Byte
Dim White_soll As Byte


Red_soll = 127
Green_soll = 0
Blue_soll = 127
White_soll = 127




Do
Red = Red_soll
Green = Green_soll
Blue = Blue_soll
White = White_soll
Loop
End


Time_isr:
If S1 = 0 Then
   Bitwait S1 , Set
   If White_soll < 255 Then
      White_soll = White_soll + 10
   Else
      White_soll = 255
   End If
End If


If S2 = 0 Then
   Bitwait S2 , Set
   If White_soll > 0 Then
      White_soll = White_soll - 10
   Else
      White_soll = 0
   End If
End If


If S3 = 0 Then
   Bitwait S3 , Set
   If Blue_soll < 255 Then
      Blue_soll = Blue_soll + 10
   Else
      Blue_soll = 255
   End If
End If


If S4 = 0 Then
   Bitwait S4 , Set
   If Blue_soll > 0 Then
       Blue_soll = Blue_soll - 10
   Else
      Blue_soll = 0
   End If
End If


If S5 = 0 Then
   Bitwait S5 , Set
   If Red_soll < 255 Then
       Red_soll = Red_soll + 10
   Else
      Red_soll = 255
   End If
End If


If S6 = 0 Then
   Bitwait S6 , Set
   If Red_soll > 0 Then
      Red_soll = Red_soll - 10
   Else
      Red_soll = 0
   End If
End If


Return

Alles anzeigen

nach dem Einschalten leuchten die LED's wie "vorgewählt", Taster haben jedoch keine Funktion...

Bitte um Hilfe.
mfg
Thomas

walter99 · 6. Februar 2012

da du hier hardware pwm machst solltest du es anders lösen
bsp
do
Red = Red_soll
Green = Green_soll
Blue = Blue_soll
White = White_soll
if s1=0 or s2=0 or s3=0 or s4=0 or s5=0 or s6=0 then gosub zeitupdate
loop
zeitupdate:
if s1=0 or s2=0 or s3=0 or s4=0 or s5=0 or s6=0 then waitms 50 'entprellen taster
if s1=0 then gosub taster1
etc..
return
taster1:
If S1 = 0 Then
Bitwait S1 , Set
If White_soll < 255 Then
White_soll = White_soll + 10
Else
White_soll = 255
End If
End If
return
etc
dasselbe wiederholen für die taster
alle angaben ohne gewähr
mit frdl grüßen

DjTommyB · 6. Februar 2012

Selbes Ergebnis - leider.

Mir ist aber noch was anderes aufgefallen: Wenn ich die Vorwahl komplett auf 0 setze, leuchtet blau immernoch... Hardware Fehler? µC defekt?

EDIT* OK Scheinbar ist der PWM vom Timer2 "invertiert" - mit cleare up funzt auch das mit blau... dennoch besteht der fehler mit den Tastern

DjTommyB · 6. Februar 2012

Kann geschlossen werden - Problem(e) gelöst

Habs mit Debounce gemacht, die Eingänge "anders" deklariert, den richtigen crystal rein geschrieben (LOL) und schon gehts Hier mal n Auszug:

Code

$regfile = "m32def.dat"                                     ' Atmel Atmega16
$crystal = 8000000                                          ' Interner Oszilator 8MHz
$hwstack = 32                                               ' default
$swstack = 10                                               ' default
$framesize = 40


Config Timer0 = Pwm , Pwm = On , Prescale = 8 , Compare Pwm = Clear Down
Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Config Timer2 = Pwm , Pwm = On , Prescale = 8 , Compare Pwm = Clear Up


'On Timer2 Time_isr


'Ausgänge deklarieren
Config Portb.3 = Output
Config Portd.5 = Output
Config Portd.4 = Output
Config Portd.7 = Output


'PWM registrieren
Red Alias Ocr1bl
Green Alias Ocr1al
Blue Alias Ocr2
White Alias Ocr0


Enable Timer0
Enable Timer1
Enable Timer2
Start Timer0
Start Timer1
Start Timer2


'Taster deklarieren
S1 Alias Pina.0
Config S1 = Input
Porta.0 = 1


S2 Alias Pinb.0
Config S2 = Input
Portb.0 = 1


S3 Alias Pina.1
Config S3 = Input
Porta.1 = 1


S4 Alias Pinb.1
Config S4 = Input
Portb.1 = 1


S5 Alias Pina.2
Config S5 = Input
Porta.2 = 1


S6 Alias Pinb.2
Config S6 = Input
Portb.2 = 1


Enable Interrupts


Dim Red_soll As Byte
Dim Green_soll As Byte
Dim Blue_soll As Byte
Dim White_soll As Byte


Red_soll = 50
Green_soll = 0
Blue_soll = 10
White_soll = 10




Do
Debounce S1 , 0 , Taster1 , Sub
Debounce S2 , 0 , Taster2 , Sub
Debounce S3 , 0 , Taster3 , Sub
Debounce S4 , 0 , Taster4 , Sub
Debounce S5 , 0 , Taster5 , Sub
Debounce S6 , 0 , Taster6 , Sub
Red = Red_soll
Green = Green_soll
Blue = Blue_soll
White = White_soll
Loop
End




Return


Taster1:
   If White_soll < 255 Then
      White_soll = White_soll + 10
   Else
      White_soll = 255
   End If
Return


Taster2:
   If White_soll > 0 Then
      White_soll = White_soll - 10
   Else
      White_soll = 0
   End If
Return


Taster3:
   If Blue_soll < 255 Then
      Blue_soll = Blue_soll + 10
   Else
      Blue_soll = 255
   End If
Return


Taster4:
   If Blue_soll > 0 Then
       Blue_soll = Blue_soll - 10
   Else
      Blue_soll = 0
   End If
Return


Taster5:
   If Red_soll < 255 Then
       Red_soll = Red_soll + 10
   Else
      Red_soll = 255
   End If
Return


Taster6:
   If Red_soll > 0 Then
      Red_soll = Red_soll - 10
   Else
      Red_soll = 0
   End If
Return

Alles anzeigen

Danke trotzdem.

mfg
Thomas

Teilen