t4-torsten
14.01.2009, 12:42
Hallo , hier im Forum ist ja copy und paste nicht so gefragt deswegen stell ich meine bisherigen Ansätze hier mit rein ..
Irgendwie will der Timer nicht aufdimmen bzw nicht wieder abdimmen.
Der Timer1 ( 16Bit ) ging prima nur der zweite will nicht . Bin schwer am verweifeln
'================================================= =====
'System-Einstellungen
'================================================= =====
'Definition für Mega 8
$regfile "m8def.dat"
'Angabe der Taktfrequenz (8Mhz)
$crystal = 8000000
'Konfiguration der Analogeingänge
'Konfiguration Timer 2 für Hardware-PWM an OC2 (B.3)
Config Timer2 = Pwm , Prescale = 128 , Compare = Clear
Compare1a = 255
'Konfiguration der Ports
Config Portb = Output
Config Portd = Output
'================================================= =====
'Initialisierungen
'================================================= =====
'Start des PWM-Timers
Enable Timer2
Timer2 = 0
Start Timer2
'================================================= =====
'Hauptprogramm-Schleife
'================================================= =====
Do
Do
Compare1a = Compare1a + 1 ' Dimmvorgang
Waitms 12
Loop Until Compare1a = 255
Waitms 12 ' LED bleibt an
Do
Compare1a = Compare1a - 1 ' Dimmvorgang
Waitms 12
Loop Until Compare1a = 0
Loop
End
Vielleicht kann mir ja jemand von euch den entscheidenen Tip geben . Ach so für den anfang reicht es wenn das Programm erst eimal nur aufdimmt kurz wartet und wieder langsam ausgeht.
Velen Dank
Irgendwie will der Timer nicht aufdimmen bzw nicht wieder abdimmen.
Der Timer1 ( 16Bit ) ging prima nur der zweite will nicht . Bin schwer am verweifeln
'================================================= =====
'System-Einstellungen
'================================================= =====
'Definition für Mega 8
$regfile "m8def.dat"
'Angabe der Taktfrequenz (8Mhz)
$crystal = 8000000
'Konfiguration der Analogeingänge
'Konfiguration Timer 2 für Hardware-PWM an OC2 (B.3)
Config Timer2 = Pwm , Prescale = 128 , Compare = Clear
Compare1a = 255
'Konfiguration der Ports
Config Portb = Output
Config Portd = Output
'================================================= =====
'Initialisierungen
'================================================= =====
'Start des PWM-Timers
Enable Timer2
Timer2 = 0
Start Timer2
'================================================= =====
'Hauptprogramm-Schleife
'================================================= =====
Do
Do
Compare1a = Compare1a + 1 ' Dimmvorgang
Waitms 12
Loop Until Compare1a = 255
Waitms 12 ' LED bleibt an
Do
Compare1a = Compare1a - 1 ' Dimmvorgang
Waitms 12
Loop Until Compare1a = 0
Loop
End
Vielleicht kann mir ja jemand von euch den entscheidenen Tip geben . Ach so für den anfang reicht es wenn das Programm erst eimal nur aufdimmt kurz wartet und wieder langsam ausgeht.
Velen Dank