Hallo

Hmmm
Habe das Heute mal getestet.
$regfile = "m8def.dat" 'ATmega8-Deklarationen
$crystal = 3686400 'Verwendeter Quarz: 3,6864 MHz
Dim Dimmen As Byte
Config Pind.3 = Input
Config Pind.4 = Input

Portd.3 = 1
Portd.4 = 1
Ddrb.1 = 1 'Pin PB1/OC1A ist Ausgang

Tccr1a = &B10000001 'Pin OC1A nicht invertiert, 8-Bit-
Tccr1b = &B00000010 '...PWM phasenkorrekt,Timer1 1/8
'----------------------------------------------------------

Do

If Pind.3 = 0 Then
For Dimmen = 0 To 255 ' ----------> von dunkel nach hell
Ocr1al = Dimmen
Waitms 15
Next Dimmen ' ---------->dauert 255 * 10 ms = 2,55 sek
End If
If Pind.4 = 0 Then
For Dimmen = 255 To 0 ' ----------> von hell nach dunkel
Ocr1al = Dimmen
Waitms 15
Next Dimmen
End If

Loop

Ergebniss:
Bei Pind2 gegen masse passiert garnix.
bei Pind3 gegen Masse geht die leuchte langsam an bis zur vollen Helligkeit, ist aber der Pin noch gegen Masse, so wird die Lampe schlagartig dunkel und langsam wieder hell.
Wird Pind3 aber von Masse getrennt so leuchtet die lampe mit voller Helligkeit (das sollte sie auch machen so aber trotz das Pind3 noch gegen Masse ist sollte die Lampe voll weiterleuchten)

Ein Dimmen von Hell nach Dunkel ist nicht möglich.
Hmmm schade aber irgendwas passt da noch nicht
reini