  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
Hallo > ich habe eine Frage zu meinem "Prog". > Es soll mit jedem Druck die Variable "a " um 1 erhöht werden und entsprechend in den "Subs" angezeigt werden.Obwohl ich die Taste ordentlich abfrage und auch mit einem C (10NF) abblocke, muß ich öfter drücken damit es weitersetzt. Das ist auch in einem Terminalproramm sichtbar. Was habe ich falsch gemacht. > Ich danke Euch für Eure Hilfe > Max. > define Taste port[3] > define Led1 port [1] > define Led2 port [2] > define Led3 port [4] > define Led4 port [5] > define Led5 port [6] > define A Byte[1] > define TXD port[1] > BAUD 9600 > a = 0 > Led1=off:Led2=off:Led3=off:Led4=off:Led5=off > > #start > if Taste = off then gosub loop1 > #WAIT_Taste_losgelassen > if TASTE=off then goto wait_Taste_losgelassen > goto start > > #loop1 > a = a + 1 > print a > if a = 1 then gosub Anzeige1 > if a = 2 then gosub Anzeige2 > if a = 3 then gosub Anzeige3 > if a = 4 then gosub Anzeige4 > if a = 5 then gosub Anzeige5 > if a = 6 then gosub Reset > return > > #Anzeige1 > led1=on > return > > #Anzeige2 > led2=on > return > > #Anzeige3 > led3=on > return > > #Anzeige4 > led4=on > return > > #Anzeige5 > led5=on > return > > #Reset > A = 0 > Led1=off:Led2=off:Led3=off:Led4=off:Led5=off > return Versuche mal dass nachfolgende Programm. #start if Taste then goto start ' wenn kein Taster betätigt wird, dann zum start a = a + 1 if a = 1 then led1 = on if a = 2 then led2 = on if a = 3 then led3 = on if a = 4 then led4 = on if a = 5 then led5 = on if a = 6 then gosub Reset print a #loop paues 2 ' Schalterentprellung if (not Taste) then goto loop ' wenn der Taster betätigt wird, dann zum loop goto start #Reset A = 0 Led1=off:Led2=off:Led3=off:Led4=off:Led5=off return |
| Antwort schreiben |