hi das würde doch so Funktionieren oder.
Danke
$regfile = "m8def.dat"
' $crystal = 4000000
$crystal = 1000000
'Taster abfrage und PWM:
Config Portb.6 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 256
Dim Down As Word
Dim Up As Word
'Startwert einstellen
Compare1a = 1000
Do
Debounce Pinb.3 , 0 , Down , Sub '-----> erhöht bei jedem Tastendruck um 1
Debounce Pinb.4 , 0 , Up , Sub
Debounce Pinb.5 , 0 , Rechts_links , Sub '--> schaltet das Relais von der Rechts/Links umschaltung.
Loop
End
Down:
Down = Down - 100
Compare1a = Down
Return
Up:
Up = Up + 100
Compare1a = Up
Return
Rechts_links:
Toggle Portb.6
Return