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






Zitieren

Lesezeichen