ich habe es versuchsweise mit goto gemacht - aber STOP ist natürlich viel besser
Programm ist noch nicht ganz fertig aber dieser Teil funktioniert in sich.
STOP habe ich eingeramt
'=======================================
'=======================================
STOP
'=======================================
'=======================================
Code:
'RGB - LED - Leiste über AT-Mega8
'Tobias Blome - 12.01.2008
'
'-------------------------------------------------------------------------------
'INFO´s
'PWM_Wert = Sollwert für Software PWM
'RC5 Eingang über Pin5 / PD3
'Led Rot = Portb.1 = 1
'Led Grün = Portb.2 = 1
'Led Blau = Portb.3 = 1
'Auswahl = 1 -> Rot+Grün
'Auswahl = 2 -> Grün+Blau
'Auswahl = 3 -> Blau+Rot
'-------------------------------------------------------------------------------
'Version 0.04
' -RS232 ok
' -RC5 ok
' -Farbe wechseln durch
' -jede Farbe doppelt!!!!!!!!!!!!!!!!
'Version 0.06
' - >251 und <4 wird die Auswahl umgeschaltet
'Version 0.07
' -Auswahl von 3 auf 6 erhöht
' -Farben sortiert
'
'Version 0.09
' -GoSub Anweisung für verschiedene Programme
'
'Version 1.10
' -Lauflicht
'
'-------------------------------------------------------------------------------
'Konfiguration µC:
$regfile = "m8def.dat" 'AT-Mega32
$crystal = 8000000 'Quarz: 8 MHz intern
$baud = 9600 'Baudrate definieren
'-------------------------------------------------------------------------------
'Ein- Ausgänge:
Ddrb = &B1111111 '1 Ausgang, 0 Eingang = Pin PB7-0
'-------------------------------------------------------------------------------
'Timer0 = 8 Bit
'wird für RC5 Auswertung benötigt!!!
Config Rc5 = Pind.3 'Timer0 in Benutzung!!!
Portd.3 = 1
'Timer1 = 16 Bit
Config Timer1 = Timer , Prescale = 1024
On Timer1 Timer1_irq
Const Timervorgabe1 = 57722 'also ca 1 mal pro Sekunde!!!
Enable Timer1
Enable Interrupts
'Timer2 = 8 Bit SOFTWARE - PWM
Config Timer2 = Timer , Prescale = 8 'Teiler
Enable Timer2
On Timer2 Pwm_prog 'timer einschalten
Const Timervorgabe2 = 200 'also ca 18200 mal pro Sekunde!!!
Enable Interrupts
'-------------------------------------------------------------------------------
'Variablen:
'-------------------------------------------------------------------------------
Dim Address As Byte , Command As Byte
Dim Flag As Bit
'PWM
Dim Z As Word
Dim Pwm_wert As Byte 'Sollwert
Dim Ri As Byte ' Hilfsregister
Dim Programm As Byte 'Lichtprogramm wählen
Dim Auswahl As Byte 'Wert 1-3 um die PWM auf die LED´s aufzuteilen
Dim Updown As Bit 'Merker für automatisch hoch und runter dimmen
Dim Updownm As Bit
Dim T2 As Bit 'Timer2 deaktiviren
'Tasten festlegen
Up Alias 32 'Prog.Bezeichnung ALIAS Real Taste
Down Alias 33
Progplus Alias 16 'Lichtprogramm wählen
Progminus Alias 17
'-------------------------------------------------------------------------------
'Vor Programmstart:
Flag = 1 'Merker für PWM
Pwm_wert = 128 'PWM-Wert 0-255 => Hälfte 127,5
Auswahl = 1 'LED Auswahl
Updown = 1 'Merker um vor zurück zu änden
Updownm = 0
Programm = 1 'Lichtprogramm wählen
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'Hauptprogramm Do...Loop
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
Do
'Rc5 Code einlesen:
Getrc5(address , Command)
If Flag = 1 Then
'Print "wait for command"
Flag = 0
End If
If Address <> 255 Then
Reset Command.7 ' reset toggle bit
''Print "Address: " ; Address
'Print "Command: " ; Command
Flag = 1
End If
'-------------------------------------------------------------------------------
'RC5 Code umsetzen:
'Lichtprogramm Wählen
If Command = Progplus Then
If Programm = 6 Then
Programm = 1
Else
Incr Programm
End If
Waitms 200
End If
If Command = Progminus Then
If Programm = 1 Then
Programm = 6
Else
Decr Programm
End If
Waitms 200
End If
'LED-PAAR auswählen (Handbetrieb)
'Auswahl 1 über FB LED Rot und Grün
If Command = 1 Then
Auswahl = 1
End If
'Auswahl 2 über FB LED Grün und Blau
If Command = 2 Then
Auswahl = 2
End If
'Auswahl 3 über FB LED Blau und Rot
If Command = 3 Then
Auswahl = 3
End If
'nicht benötigte 3. LED-Farbe bei Auswahl ausschalten
If Auswahl = 1 Then 'Rot und Grün -> Blau aus
Portb.3 = 0
End If
If Auswahl = 2 Then 'Grün und Blau -> Rot aus
Portb.1 = 0
End If
If Auswahl = 3 Then 'Blau und Rot -> Grün aus
Portb.2 = 0
End If
'Lichtprogrammauswahl
If Programm = 1 Then
Gosub Regenbogen
End If
'=======================================
'=======================================
'=======================================
If Programm = 2 Then
'Stop Timer2
T2 = 0
Gosub Lauflicht
Else
T2 = 1
End If
'=======================================
'=======================================
'=======================================
If Programm = 3 Then
Gosub Doppelblitz:
End If
Loop
End
'-------------------------------------------------------------------------------
'Sprungmarken
'-------------------------------------------------------------------------------
'_______________________________________________________________________________
Doppelblitz:
'_______________________________________________________________________________
'ROT
Portb.3 = 0 'BLAU AUS!!!
Auswahl = 1 'Auswahl = 1 -> Rot+Grün
Pwm_wert = 0 'PWM-Wert 0-255 => Hälfte 127,5
Waitms 50
'Geld
Portb.3 = 0 'BLAU AUS!!!
Auswahl = 1 'Auswahl = 1 -> Rot+Grün
Pwm_wert = 128 'PWM-Wert 0-255 => Hälfte 127,5
Waitms 50
'GRÜN
Auswahl = 1 'Auswahl = 1 -> Rot+Grün
Pwm_wert = 255 'PWM-Wert 0-255 => Hälfte 127,5
Waitms 50
'BLAU
Auswahl = 2 'Auswahl = 1 -> Rot+Grün
Pwm_wert = 0 'PWM-Wert 0-255 => Hälfte 127,5
Waitms 50
Return
'_______________________________________________________________________________
Lauflicht:
'_______________________________________________________________________________
'ROT
Portb.3 = 0 'BLAU AUS!!!
Auswahl = 1 'Auswahl = 1 -> Rot+Grün
Pwm_wert = 0 'PWM-Wert 0-255 => Hälfte 127,5
Waitms 50
'GRÜN
Auswahl = 1 'Auswahl = 1 -> Rot+Grün
Pwm_wert = 255 'PWM-Wert 0-255 => Hälfte 127,5
Waitms 50
'BLAU
Auswahl = 2 'Auswahl = 1 -> Rot+Grün
Pwm_wert = 0 'PWM-Wert 0-255 => Hälfte 127,5
Waitms 50
Return
'_______________________________________________________________________________
Regenbogen:
'=======================================
'=======================================
'=======================================
If T2 = 0 Then
Goto Sprung
End If
'=======================================
'=======================================
'=======================================
'_______________________________________________________________________________
'PWM-Wert über Taste UP & DOWN hoch runter
'PWM-Wert wird auf 0-255 begrenzt
'Wenn das Ende einer Richtung erreicht ist, wird automatisch in die andere Richtung gezählt (Merker: UpDown)
If Command = Up And Pwm_wert < 251 And Updown = 1 Then
Pwm_wert = Pwm_wert + 5
End If
If Command = Down And Pwm_wert > 4 And Updown = 1 Then
Pwm_wert = Pwm_wert - 5
End If
'---
If Command = Down And Pwm_wert < 251 And Updown = 0 Then
Pwm_wert = Pwm_wert + 5
End If
If Command = Up And Pwm_wert > 4 And Updown = 0 Then
Pwm_wert = Pwm_wert - 5
End If
'--------Umschaltung Updown 0/1 (Hilfsmerker: UpDownM)
If Pwm_wert < 4 And Updownm = 1 Then
Toggle Updown
Updownm = 0
End If
If Pwm_wert > 251 And Updownm = 1 Then
Toggle Updown
Updownm = 0
End If
If Pwm_wert < 15 Or Pwm_wert > 240 And Updownm = 0 Then 'Hilfsmerker bei 200 zurücksetzen
Updownm = 1
End If
'-----------
'-------------------------------------------------------------------------------
'Farbübergänge: zwischen den LED Paaren wechseln
'wenn Taste für LED´s hochdimmen gedrückt -> muss bei 251 und bei 4 umgeschaltet werden
If Command = Up And Pwm_wert > 251 Then
Pwm_wert = 255 'falls er sich verzählt!!!
If Auswahl = 6 Then
Auswahl = 1
Else
Auswahl = Auswahl + 1
End If
End If
If Command = Up And Pwm_wert < 4 Then
Pwm_wert = 0 'falls er sich verzählt!!!
If Auswahl = 6 Then
Auswahl = 1
Else
Auswahl = Auswahl + 1
End If
End If
'---
'wenn Taste für LED´s runterdimmen gedrückt -> muss bei 251 und bei 4 umgeschaltet werden
If Command = Down And Pwm_wert < 4 Then
Pwm_wert = 0 'falls er sich verzählt!!!
If Auswahl = 1 Then
Auswahl = 6
Else
Auswahl = Auswahl - 1
End If
End If
If Command = Down And Pwm_wert > 251 Then
Pwm_wert = 255 'falls er sich verzählt!!!
If Auswahl = 1 Then
Auswahl = 6
Else
Auswahl = Auswahl - 1
End If
End If
Sprung:
Return
'-------------------------------------------------------------------------------
'TIMER SPRUNGMARKEN:
Timer1_irq:
Timer1 = Timervorgabe1
'Print "Command: " ; Command ; " RC5 von FB"
'Print "PWM_Wert: " ; Pwm_wert ; " Sollwert"
'Print "Auswahl: " ; Auswahl ; " Wert 1-3 um die PWM auf die LED´s aufzuteilen"
'Print "UpDown: " ; Updown ; " Merker für automatisch hoch und runter dimmen"
'Print "UpDownM: " ; Updownm
'Print "Programm: " ; Programm
'Print " "
Return
Pwm_prog:
Timer2 = Timervorgabe2
'Funktion:
'Wenn der Zähler (z) =0 ist, dann beginnt ein neuer PWM Zyklus:
'Der Zähler (z) wird auf 255 gesetzt weil ein PWM Zyklus 255 Takte hat!
'In das Hilfsregister (Ri) wird der Sollwert (PWM_Wert) geladen
'der Zähler wird -1 gezählt
'wenn Ri z.B. = 50 dann ist Ri größer 0 und der Ausgang wird eingeschaltet Ri wird -1 gerechnet
'beim nächsten Durchlauf wird der Zähler wieder um 1 runtergezählt. Ri ist 50-1 also 49. 49ist größer als 0 und der Ausgang wird eingeschaltet
'wenn irgendwann Ri = 0 ist wird der Ausgang ausgeschaltet. Und das passiert solange (soviele Takte)bis der Zähler (Z) auf 0 heruntegezählt wurde
'wenn der Zähler (Z) = 0 ist ist ein PWM Zyklus zuende, der Zähler wird wieder auf 255 gesetzt und alles beginnt von vorne
'bei einem Sollwert von 50 (Ri=50) wird der Ausgang also 50 Takte EIN geschaltet und 205 Takte AUS geschaltet;
'das entspricht bei 5V im Mittel ca. 1V
If Z = 0 Then 'Z = Zähler für Verhältnisstakte
Z = 255 'Zähler (Z) auf 255 setzen
Ri = Pwm_wert 'Sollwert (PWM_Wert) in Hilfregister (Ri) schreiben
End If
'Zähler runterzählen
Z = Z - 1
'PWM UMSETZUNG ANFANG
If Ri > 0 Then 'wenn Hilfsregister (Ri) größer 0, dann
'PWM auf die LED-Paare übertragen
If Auswahl = 1 Then 'Auswahl der LED Farben
Portb.2 = 1 'GRÜN PWM-Ausgang einschalten
Portb.1 = 0 'ROT PWM-Ausgang ausschalten
End If
If Auswahl = 2 Then 'Auswahl der LED Farben
Portb.2 = 1 'GRÜN PWM-Ausgang einschalten
Portb.3 = 0 'BLAU
End If
If Auswahl = 3 Then 'Auswahl der LED Farben
Portb.1 = 1 'ROT PWM-Ausgang einschalten
Portb.3 = 0 'BLAU
End If
If Auswahl = 4 Then 'Auswahl der LED Farben
Portb.1 = 1 'ROT PWM-Ausgang einschalten
Portb.2 = 0 'GRÜN PWM-Ausgang ausschalten
End If
If Auswahl = 5 Then 'Auswahl der LED Farben
Portb.3 = 1 'BLAU PWM-Ausgang einschalten
Portb.2 = 0 'GRÜN
End If
If Auswahl = 6 Then 'Auswahl der LED Farben
Portb.3 = 1 'BLAU PWM-Ausgang einschalten
Portb.1 = 0 'ROT
End If
Else 'sonst
'---
If Auswahl = 1 Then
Portb.2 = 0 'GRÜN PWM-Ausgang ausschalten
Portb.1 = 1 'ROT PWM-Ausgang einschalten
End If
If Auswahl = 2 Then
Portb.2 = 0 'GRÜN
Portb.3 = 1 'BLAU
End If
If Auswahl = 3 Then
Portb.1 = 0 'ROT
Portb.3 = 1 'BLAU
End If
If Auswahl = 4 Then
Portb.1 = 0 'ROT PWM-Ausgang ausschalten
Portb.2 = 1 'GRÜN PWM-Ausgang einschalten
End If
If Auswahl = 5 Then
Portb.3 = 0 'BLAU
Portb.2 = 1 'GRÜN
End If
If Auswahl = 6 Then
Portb.3 = 0 'BLAU
Portb.1 = 1 'ROT
End If
End If
'PWM UMSETZUNG ENDE
Ri = Ri - 1
If Ri = 255 Then Ri = 0
Return
'===============================================================================
'Pinbelegung µC RGB LED Leiste
'===============================================================================
' AT MEGA 8
' +---U---+
'PC6 +1 28+ PC5
'PD0 +2 27+ PC4
'PD1 +3 26+ PC3
'PD2 +4 25+ PC2
'PD3 +5 24+ PC1
'PD4 +6 23+ PC0
'Vcc +7 22+ GND
'GND +8 21+ AREF
'PB6 +9 20+ AVCC
'PB7 +10 19+ PB5 /PROG
'PD5 +11 18+ PB4 /PROG
'PD6 +12 17+ PB3 /PROG
'PD7 +13 16+ PB2
'PB0 + 14 15 + Pb1
' +-------+
'PB0 =
'PB1 = Software PWM LED ROT
'PB2 = Software PWM LED GRÜN
'PB3 = Software PWM LED BLAU
'PB4 =
'PB5 =
'PB6 =
'PB7 =
'PC0 =
'PC1 =
'PC2 =
'PC3 =
'PC4 =
'PC5 =
'PC6 = RESET
'PC7 =
'PD0 =
'PD1 =
'PD2 =
'PD3 = IR - RC5 Eingang
'PD4 =
'PD5 =
'PD6 =
'PD7 =
Zitieren
Zitat von TobiasBlome
Berechtigungen
Lesezeichen