Oh, sorry. . habe eine Variable vergessen.
Hier der richtige code:

Code:
'Software Pwm an Porta.0
'Frequenz = 200Hz

$regfile = "m32def.dat"
$crystal = 16000000


Config Timer1 = Timer , Prescale = 8
Timer1 = 55536
Enable Timer1
On Timer1 Isr_von_timer1

Dim Soft_pwm As Byte
Dim Counter_pwm As Byte

Config Porta.0 = Output
Porta.0 = 0
Pwm_1 Alias Porta.0

Enable Interrupts


Do

Soft_pwm = 20                                               'Einstellen des Tastverhältnisses

Loop

End

Isr_von_timer1:
Timer1 = 55536
Incr Counter_pwm
If Counter_pwm = 255 Then Counter_pwm = 0
If Counter_pwm <= Soft_pwm Then
Pwm_1 = 1
Else
Pwm_1 = 0
End If
Return
Hoffe es funktioniert jetzt, kanns gerade nicht testen

Gruß
Chris