  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
Nun habe ich etliche Stunden mit dem Testobjekt verbracht und immer noch funktioniert ein entscheidender Teil nicht. Das ist die Tastaturabfrage. Es ist so ziemlich egal, was ich da reinprogrammiere, den OM scheint es überhaupt nicht zu interessieren. Dieser kleine Test funktioniert. Taste drücken = LED einschalten: #start LED1 = Taster1 goto start Damit ist also klar, dass der Port richtig definiert ist. Aber Zeilen wie : if Taste1 = on then goto rauf oder if not Taste1 then goto rauf oder if Taste1 = (not Taste1) then goto rauf oder WHILE Taste 'führe die Schleife aus, solange Taste nicht gedrückt Led2=ON PAUSE 10 Led2=OFF PAUSE 10 WEND bewirken gar nichts. Es wird keinerlei Tastendruck erfaßt. (Taster schaltet gegen plus und Widerstand liegt nach Masse) auch die komplexere Flankenabfrage scheitert offenbar an dieser if then Abfrage. Testweise habe ich den Bezeichner Taste1 nochmal durch eine Variable ersetzt und dann die Abfrage mit der Variable gemacht: h = Tasterauf if h = on then goto setz1 ' Taste gedrückt? Ja, dann setze EIN-Flanke Flanke1 = 0 ' FlankenBit off setzen goto initend ' Reset Ein-Flanke (bei Nichtbetätigung der Taste) #setz1 if Flanke1 = on then goto error ' Ein-Flanke gesetzt? Ja, dann Ende Flanke1 = on ' Setze Ein-Flanke (Sperre für weiteres Setzen) goto init Hier ist erstaunlicherweise einmalig die Tastenabfrage existent. Also ist bei Programstart die Taste gedrückt, wird offenbar diese Abfrage gemacht. Nach loslassen der Taste ist das aber vorbei, wobei ich vermute, dass das Programm dann an der nächsten Stelle einer Tastenabfrage hängt. Ich habe mir verschiedene andere Projekte angeschaut, wie es dort gelöst ist. Aber nirgends konnte ich eine tatsächliche Vergleichbarkeit finden. Da wird anscheinend auch getrickst, weil es irgendwie nicht funktioniert (z.B. über AD-Port). Was könnte denn mein Fehler in Denken sein? Ich sehe momentan eigentlich keinen Fehler - nur funktionieren tut es auch nicht. Zum Timer: Das Problem ist gelöst. Eine direkte Abfrage des Timer geht nicht. Das geht nur mit einer Addition zum momentanen Timerwert. for t = 0 to 5 ' Zähler für 6 Durchläufe ergibt zusammen 30 Sekunden x = timer ' setzt Timerzeit auf 0, Timer zählt automatisch hoch y = timer ' setzt Ende-Timerzeit auf 0, Timer zählt automatisch hoch #schleife led1 = on ' LED einschalten if timer = x + 5 then led2 = on ' nächste LED nach 0,1 Sekunden if timer = x + 10 then led3 = on ' nächste LED nach 0,1 Sekunden if timer = x + 15 then led4 = on ' nächste LED nach 0,1 Sekunden if timer = x + 20 then led5 = on ' nächste LED nach 0,1 Sekunden if timer = x + 25 then led6 = on ' nächste LED nach 0,1 Sekunden if timer = x + 30 then led7 = on ' nächste LED nach 0,1 Sekunden if timer = x + 35 then led8 = on ' nächste LED nach 0,1 Sekunden if timer = x + 40 then led1 = off ' LED ausschalten if timer = x + 40 then led2 = off ' LED ausschalten if timer = x + 40 then led3 = off ' LED ausschalten if timer = x + 40 then led4 = off ' LED ausschalten if timer = x + 40 then led5 = off ' LED ausschalten if timer = x + 40 then led6 = off ' LED ausschalten if timer = x + 40 then led7 = off ' LED ausschalten if timer = x + 40 then led8 = off ' LED ausschalten if timer = x + 50 then x = Timer ' 0,2 Sekunden vergangen dann Sprung zu start1 if timer = y + 250 then goto weiter ' prüfen ob alle Durchläufe absolviert sind goto schleife if t = 5 then goto start1 ' nach Ablauf der Schleifen Rücksprung zum start1 next Das ergibt in diesem Fall ein immer wieder hochlaufende LED-Kette. Und es gibt noch einen Heimtücker. Die Definition define allleds_a byteport[1] ' Sammelfestlegung aller LEDs an Port a define allleds_b byteport[2] ' Sammelfestlegung aller LEDs an Port b ist nicht wie in der Bezeichnug steht eine Sammlung aller LEDs, sondern es sind alle Ports damit betroffen. Das heißt, dass auch die Taster- und PWM-Port mit angesteuert werden. Damit kriegt man unschöne Fehler rein. Der Vollständigkeit halber der ganze Programmablauf: pullupa = 0 pullupb = 0 ClockDis = on ' --------------------------------------------------------------------------- RunOnErr = on ' bei Fehler Programm neu starten define PWM_Port port[1] ' 1. PWM Ausgang define spannung AD[2] ' Spannungskontrollport define Led1 port[4] define Led2 port[5] define Led3 port[6] define Led4 port[9] ' Die Open-Mini besitzt wie die Open-Micro define Led5 port[10] ' den PORTA und zusätzlich den PORTB. define Led6 port[11] define Led7 port[12] define Led8 port[13] define Tasterauf port[14] ' Taste höher define Tasterunter port[15] ' Taste niedriger define blank port[16] ' zum halbhell/dunkelsteuern der äußersten LEDs define Bit81_88 byte[11]' byte 11 (statische Bits 81 bis 88) define Flanke1 Bit[81] ' Flankenbit Taste rauf define Flanke2 Bit[82] ' Flankenbit Taste runter define taste1 Bit[87] ' Tastenbit Taste rauf define taste2 Bit[88] ' Tastenbit Taste runter define tmp byte ' Hilfsvariable für PWM define a byte ' Zählervariable define h byte ' Tastenvariable define l byte ' Tastenvariable define t byte ' Zählervariable Start-Timer define x byte ' Timervariable define y byte ' Zählervariable Ende-Timer define z byte ' Timervariable Ende ' Die Pinbelegung der ' Open-Mini (QY4) ' _____ _____ ' | \__/ | ' [ VDD GND ] VDD = 4.6 bis 5.5 Volt ' | | ' blank [ PTB7 PTB0 ] LED 4 ' | | ' LED 8 [ PTB6 PTB1 ] LED 5 ' | | ' LED 3 [ PTA5 PTA0 ] PWM1 ' | | ' LED 2 [ PTA4 PTA1 ] PWM2 ' | | ' Taste1 [ PTB5 PTB2 ] LED 6 ' | | ' Taste2 [ PTB4 PTB3 ] LED 7 ' | | ' LED 1 [ PTA3 PTA2 ] host/run ' |______________| ' ' ---Initialisierung--------------------------------------------------------- #init tmp = 0 a = 0 h = 0 ' Variable für rauftaste l = 0 ' Variable für runtertaste t = 0 x = 0 ' Variable für Timer y = 0 ' Variable für Ende-Timer z = 0 ' Variable für Ende-Timer Taste h = Tasterauf l = Tasterunter if h = on then goto setz1 ' Taste gedrückt? Ja, dann setze EIN-Flanke Flanke1 = 0 ' FlankenBit off setzen if l = on then goto setz2 ' Taste gedrückt? Ja, dann setze EIN-Flanke Flanke2 = 0 ' FlankenBit off setzen goto initend ' Reset Ein-Flanke (bei Nichtbetätigung der Taste) #setz1 if Flanke1 = on then goto error ' Ein-Flanke gesetzt? Ja, dann Ende Flanke1 = on ' Setze Ein-Flanke (Sperre für weiteres Setzen) goto init #setz2 if Flanke2 = on then goto error ' Ein-Flanke gesetzt? Ja, dann Ende Flanke2 = on ' Setze Ein-Flanke (Sperre für weiteres Setzen) goto init #initend 'weiter gehts ' ---Hauptprogramm----------------------------------------------------------- #start if spannung < 175 then goto unterspannung ' Prüfung auf Unterspannung der Batterie <11 Volt if h = on then goto setz3 ' Taste gedrückt? Ja, dann setze EIN-Flanke Flanke1 = 0 ' FlankenBit off setzen if l = on then goto setz4 ' Taste gedrückt? Ja, dann setze EIN-Flanke Flanke2 = 0 ' FlankenBit off setzen goto start1 ' Reset Ein-Flanke (bei Nichtbetätigung der Taste) #setz3 if Flanke1 = on then goto vorheizen ' Ein-Flanke gesetzt? Ja, dann Ende Flanke1 = on ' Setze Ein-Flanke (Sperre für weiteres Setzen) goto start #setz4 if Flanke2 = on then goto vorheizen ' Ein-Flanke gesetzt? Ja, dann Ende Flanke2 = on ' Setze Ein-Flanke (Sperre für weiteres Setzen) goto start ' Rücksprung zu start #start1 if spannung < 175 then goto unterspannung ' Prüfung auf Unterspannung der Batterie <11 Volt bei Fehler der Lichtmaschine x = timer ' setzt Timerzeit auf 0, Timer zählt automatisch hoch #start2 if h = on then goto rauf ' Taste rauf erhöht Zähler um 1 if l = on then goto runter ' Taste runter verringert Zähler um 1 if timer = x + 200 then goto start2 ' ca 4 Sekunden Pause vor dem Abschalten der LEDs - Tastenbetätigung ist möglich led1 = 0 ' alle LEDs ausschalten led2 = 0 ' alle LEDs ausschalten led3 = 0 ' alle LEDs ausschalten led4 = 0 ' alle LEDs ausschalten led5 = 0 ' alle LEDs ausschalten led6 = 0 ' alle LEDs ausschalten led7 = 0 ' alle LEDs ausschalten led8 = 0 ' alle LEDs ausschalten blank = 0 ' Grenz-LEDs ausschalten goto start1 ' Rücksprung zum Start ' ---Unterprogramme--------------------------------------------------------- #vorheizen ' signalisiert durch hochlaufende LEDs pwm1_ein ' PWM-Routine Port1 einschalten tmp = 250 ' Verbraucher mit 100% vorheizen pwm1 tmp ' Datenzuweisung für PWM for t = 0 to 5 ' Zähler für 6 Durchläufe ergibt zusammen 30 Sekunden x = timer ' setzt Timerzeit auf 0, Timer zählt automatisch hoch y = timer ' setzt Ende-Timerzeit auf 0, Timer zählt automatisch hoch #schleife blank = on ' Grenz-LEDs einschalten led1 = on ' LED einschalten if timer = x + 5 then led2 = on ' nächste LED nach 0,1 Sekunden if timer = x + 10 then led3 = on ' nächste LED nach 0,1 Sekunden if timer = x + 15 then led4 = on ' nächste LED nach 0,1 Sekunden if timer = x + 20 then led5 = on ' nächste LED nach 0,1 Sekunden if timer = x + 25 then led6 = on ' nächste LED nach 0,1 Sekunden if timer = x + 30 then led7 = on ' nächste LED nach 0,1 Sekunden if timer = x + 35 then led8 = on ' nächste LED nach 0,1 Sekunden if timer = x + 40 then led1 = off ' LED ausschalten if timer = x + 40 then led2 = off ' LED ausschalten if timer = x + 40 then led3 = off ' LED ausschalten if timer = x + 40 then led4 = off ' LED ausschalten if timer = x + 40 then led5 = off ' LED ausschalten if timer = x + 40 then led6 = off ' LED ausschalten if timer = x + 40 then led7 = off ' LED ausschalten if timer = x + 40 then led8 = off ' LED ausschalten if timer = x + 40 then blank = off ' Grenz-LEDs ausschalten if timer = x + 50 then x = Timer ' 0,2 Sekunden vergangen dann Sprung zu start1 if timer = y + 250 then goto weiter ' prüfen ob alle Durchläufe absolviert sind goto schleife #weiter if t = 5 then tmp = 36 ' Sollwert PWM auf 14% setzen pwm1 tmp if t = 5 then goto start1 ' nach Ablauf der Schleifen Rücksprung zum start1 next ' nächster Schritt #rauf blank = on ' schaltet die beiden äußersten LEDs auf halbe Helligkeit if not Taste1 then goto setz7 ' Taste gedrückt? Ja, dann setze EIN-Flanke Flanke1 = 0 ' Reset Ein-Flanke (bei Nichtbetätigung der Taste) goto anzeige ' Sprung zum Ende und zur Anzeige #setz7 if Flanke1 = on then goto anzeige ' Ein-Flanke gesetzt? Ja, dann Ende Flanke1 = on ' Setze Ein-Flanke (Sperre für weiteres Setzen) if a = 7 then goto start1 ' Wenn der Zähler = 7 ist wird das Unterprogramm verlassen a = a + 1 ' Erhöhung des Zählers um 1 goto anzeige #runter blank = on ' schaltet die beiden äußersten LEDs auf halbe Helligkeit if not Taste2 then goto setz8 ' Taste gedrückt? Ja, dann setze EIN-Flanke Flanke2 = 0 ' Reset Ein-Flanke (bei Nicthbetätigung der Taste) goto anzeige #setz8 if Flanke2 = on then goto anzeige ' Ein-Flanke gesetzt? Ja, dann Ende Flanke1 = on ' Setze Ein-Flanke (Sperre für weiteres Setzen) if a = 7 then goto start1 ' Wenn der Zähler = 7 ist wird das Unterprogramm verlassen a = a + 1 ' Erhöhung des Zählers um 1 goto anzeige #anzeige ' signalisiert durch jeweils leuchtende LED if a = 1 then led1 = on ' LED1 an if a = 1 then tmp = 0 ' PWM Port 0% if a = 2 then led2 = on ' LED2 an if a = 2 then tmp = 36 ' PWM Port 14% if a = 3 then led3 = on ' LED3 an if a = 3 then tmp = 72 ' PWM Port 29% if a = 4 then led4 = on ' LED4 an if a = 4 then tmp = 108 ' PWM Port 43% if a = 5 then led5 = on ' LED5 an if a = 5 then tmp = 144 ' PWM Port 58% if a = 6 then led6 = on ' LED6 an if a = 6 then tmp = 180 ' PWM Port 72% if a = 7 then led7 = on ' LED7 an if a = 7 then tmp = 216 ' PWM Port 86% if a = 8 then led8 = on ' LED8 an if a = 8 then tmp = 250 ' PWM Port 100% pwm1 tmp ' Datenzuweisung PWM-Port1 goto start1 ' Rücksprung in das Hauptprogramm start1 #error ' signalisiert durch LED 4 und 5 blinkend blank = on ' Grenz-LEDs an led4 = on ' LED4 einschalten led5 = on ' LED5 einschalten pause 12 ' 1/4 Sekunde Pause blank = 0 ' Grenz-LEDs aus led4 = 0 ' LED4 ausschalten led5 = 0 ' LED5 ausschalten pause 12 ' 1/4 Sekunde Pause vor dem Rücksprung goto init ' Rücksprung zu init #unterspannung ' signalisiert durch schnell blinkende LED 1 und 8 pwm1_aus ' PWM-Routine Port1 ausschalten blank = on ' Grenz-LEDs an led1 = on ' LED1 an led8 = on ' LED8 an pause 6 ' 1/8 Sekunde Pause blank = 0 ' Grenz-LEDs aus led1 = 0 ' LED1 aus led8 = 0 ' LED8 aus pause 6 ' 1/8 Sekunde Pause vor dem Rücksprung goto start ' Rücksprung zum start end ' Programmende |
| Antwort schreiben |