Pwm mit Bascom und Atmega8515

[Niclas (Gast)]

Hallo,
Ich habe ein Problem mit meinem Bascom code.
Ich ich kann an keinem der Pins ein Signal abzapfen bzw. bleibt die Led 
an jedem Port aus. Ist es ein Problem mit der Verkablung oder ist der 
Code falsch?

$regfile = "8515def.dat"
$crystal = 8000000

Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input

Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Prescale = 1


Do

If Pinc.0 = 1 Then
Compare1a = 1023
Elseif Pinc.1 = 1 Then
 Compare1a = 512
Elseif Pinc.2 = 1 Then
Compare1a = 200
End If

Loop

Danke im vorraus
Niclas

[Thomas D. (thomasderbastler)]

Wo ist dein LED dimensioniert ???

[Niclas (Gast)]

Was meinst du damit?

[Thomas D. (thomasderbastler)]

Also wenn Du ein LED anschliesst musst schon angeben wie und wo .

Config Portb.1 = Output
LED Alias Compare1a

Außerdem ist besser die Eingänge auf Low zu schalten und den Pullup im 
AVR einschalten.
PortC.0 = 1       'PullUp-Widerstand einschalten

dann

If Pinc.0 = 0 Then
LED = 1023
....

[helfer (Gast)]

Pinc.0 , pinc.1 und pinc.2 brauchen einen festen zustand. Also wenn 
nichts gedrückt ist 0. Hast du hardwareseitig wenigstens pulldown 
widerstände angeschlossen?
Der gewünscte pwm-ausgang des avr muss als ausgang deklariert werden. 
Das fehlt bei deinem programm. Außerdem muss compare1a diesem ausgang 
zugewiesen werden (compare1a = PORTX.x).

[Niclas (Gast)]

Ich glaube ich habe das Problem gelöst, ich habe immer den falschen Port 
genommen....
Danke für deine Hilfe.

[Thomas D. (thomasderbastler)]

Ansonsten hier gucken :
http://halvar.at/elektronik/kleiner_bascom_avr_kurs