sorry war als beispiel gedacht. habe jetzt folgendes um erst mal des hinzubekommen. will den timer mit pinc. 0 einschalten geht aber irgendwie net ganz
zu dem anderen also ich möchte wenn an pinc.1 eine taste gedrückt wird dass der timer auf portb.1 weiterläuft. wenn nun an pinc2 eine taste gedrückt wird soll er wieder auf pinc.0 weiterlaufen sprich er soll immer wechseln.Code:$regfile = "m8def.dat" $crystal = 3686400 Baud 9600 Config Portb = Output Config Pinc.0 = Input Portc = &B00000001 Dim Taste As Bit Taste = 0 Config Timer1 = Timer , Prescale = 64 Enable Timer1 On Timer1 Isr_von_timer1 Enable Interrupts Timer1 = 36736 Do If Pinc.0 = 1 Then Taste = 1 Else taste =0 Loop End If End Isr_von_timer1: Timer1 = 36736 If Taste = 1 Then Toggle Portb.0 End If Return







Zitieren

Lesezeichen