Gast
#2704704
Sorry ich finde meinen Beitrag Von gestern nicht mehr deshalb muss ich leider einen neuen Tread machen. Ich habe gestern mal was herumprobiert und ich bin auch schon etwas weiter gekommen.Ich habe aber noch ein paar Probleme und komme nicht auf die Lösung.Und zwar bin ich immer erst im WERT 1-50 also wird als erstes immer ein kurzer Tastendruck wargenommen.Das will ich aber nicht.Dann weiß ich überhaupt nicht wo ich den wert von w auf 0 setzen soll.Jedesmal wenn ich es irgendwo vornehme geht das programm nicht mehr.In case 2 ist es ja auch doo... weil wenn ich in case 1-50 bin wird ja nichts zurück gesetzt.Für eine kleine Hilfestellung wär ich Euch wirklich dankbar!!! $regfile = "m8def.dat" $crystal = 8000000 Config Timer0 = Timer , Prescale = 1024 Enable Timer0 On Timer0 Isr_timer0 Enable Interrupts Config Portc.1 = Output Config Portc.2 = Output Config Pinb.0 = Input Portb.0 = 1 Dim W As Byte Do Select Case W Case 1 To 50 : Portc.1 = 1 Wait 1 Case 50 To 255 : Portc.2 = 1 Wait 1 W = 0 Case Else Portc.1 = 0 Portc.2 = 0 End Select Loop End Isr_timer0: If Pinb.0 = 0 Then Incr W End If Return