So
Habs selbst hinbekommen.
Für alle die Probleme damit haben setz ich mein Beispielcode für eine LED rein:
Code:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
Dim Led(1) As Byte
Dim Pwmwert As Byte
Config Portb.0 = Output
Config Portb.2 = Output
Config Portb.4 = Output
Const On = 1
Const Off = 0
Config Timer0 = Timer , Prescale = 1
Start Timer0
On Timer0 Pwmroutine
Enable Timer0
Enable Interrupts
Led1 Alias Portb.0
Led(1) = 0
Do
Led(1) = Led(1) + 1
Waitms 6
Loop
Pwmroutine:
If Led(1) > Pwmwert Then
Led1 = 1
Else
Led1 = 0
End If
Incr Pwmwert
If Pwmwert > 255 Then Pwmwert = 0
Return
end
Lesezeichen