ATmega16 PWM licht dimmen?

[flow (Gast)]

Abend...
Nachdem ich endlich die letzten Tage meine ATmega32 und ATmega16 zum 
laufen bekommen habe... meine 5 LEDs tanzen auch hin und her...

Jetzt würde ich gerne eine LED dimmen und wieder hell leuchten lassen, 
dass ganze in einer endlos schleife...

Nutze zur Zeit einen ATmega16 und hab die LED mit einem vorwiederstand 
am PB0 bis PB3 herum probiert ^^

Irgendwie versteh ich das nicht mit dem PWM.
Hab einige Beitrage hier gelesen und Bascom codes gefunden und diese 
versucht zu probieren und umzuschreiben... Doch die LED bleibt aus!?


Den code hab ich als letztes probiert... sollte das licht einfach nur 
dimmen...

$regfile = "m16def.dat"
$crystal = 1000000
Config Portb.1 = Output
Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Down , Prescale = 1

Do
  Pwm = Pwm - 1

  Wait 20

Loop

End

Irgendwas mach ich falsch... irgendwas an der Schaltung falsch?



mfg.
Flow

[tom (Gast)]

hi

so weit ich das noch im kopf habe, mußt du mit dem compare arbeiten.

ist doch alles in der hilfe ztu bascom erklärt....ein bischen zu config 
timer 1 lesen und das sollte schon helfen.

bei 8 bit kannst du werte zwischen 0....255 benutzen.
bei deiner schleife kann ja nischt passieren.
gruß

[flow (Gast)]

Jetzt hab ich folgenden Code Probiert...

ATmega16 läuft mit einer einfachen Grundschaltung ohne externem Quarz.
Am PB1 hängt ein 120 Ohm wiederstand und dannach eine normale Rote LED.


schalte ich PB1 auf High leuchtet die LED... aber gedimmt bekomm ich Sie 
nicht hin.


Bascom code, mit dem ich es jetzt einfach nur mal gedimmt leuchten 
lassen wollte... Doch die LED bleibt weiterhin aus.

$regfile = "m16def.dat"
$crystal = 1000000

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1


Do


Compare1a = 100
Pwm1a = 100
Loop

End

mfg.
Flow

[tom (Gast)]

hi

vieleicht hilft das weiter....

http://www.rn-wissen.de/index.php/Bascom_und_PWM

gruß

[tom (Gast)]

die pins müßten PD4 und PD5 sein

http://www.rn-wissen.de/index.php/Atmel_Controller_Mega16_und_Mega32

gruß

[Bernd S. (wird_schon)]

Genau so ist es. Beim Mega16 Pin D4 und D5. Datenblatt lesen!

>-------------------------------------
Config Portd.5 = Output

Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Prescale = 1
Enable Timer1
Start Timer1

Dim Phase As Word

Do

For Phase = 0 To 1023
 Ocr1ah = High(phase)
 Ocr1al = Low(phase)
 Waitms 1
Next

For Phase = 1023 To 0 Step -1
 Ocr1ah = High(phase)
 Ocr1al = Low(phase)
 Waitms 1
Next

Loop

End
>-------------------------------------

'PWM = 10' -> 1024 versch. Werte sind möglich. Die Richtung (hoch - 
runter) wird mit 'Compare A Pwm' bestimmt. Analog das Ganze für OCR1B 
(D4). Da der 16-bit Timer aus 2 8-bit Timern besteht wird vom 
einzustellenden Wert jeweils das höherwertige und niederwertige bit 
verwendet.

[Thomas H. (merlin63)]

hi flow

na?....ist der groschen nun gefallen?

lass mal hören...
gruß