hups alles klar hab ich jetzt weiß jemand zufällig wie ich den timer dann wechseln lasse?
hab jetzt mal dass so geschrieben wechselt auch aber wenn ich zurückwechsle toggelt portc.0 nicht mehr weiter.
Code:$regfile = "m8def.dat" $crystal = 3686400 Baud 9600 Config Portb = Output Config Pinc.0 = Input Config Pinc.1 = Input Config Pinc.2 = Input Portc = &B11111111 Dim Taste As Bit Dim Taste1 As Bit Dim Taste2 As Bit Taste = 0 Taste1 = 0 Taste2 = 0 Config Timer1 = Timer , Prescale = 64 Enable Timer1 On Timer1 Isr_von_timer1 Enable Interrupts Timer1 = 36736 Do If Pinc.0 = 0 Then Taste = 1 End If If Pinc.1 = 0 Then Taste1 = 1 End If If Pinc.2 = 0 Then Taste2 = 1 End If Loop Isr_von_timer1: Timer1 = 36736 If Taste = 1 Then Toggle Portb.0 End If If Taste1 = 1 Then Portb.0 = 0 Toggle Portb.1 End If If Taste2 = 1 Then Portb.1 = 0 Toggle Portb.0 End If Return







Zitieren

Lesezeichen