hi,
für mein kleines LED-Projekt:
https://www.roboternetz.de/phpBB2/ze...478&highlight=
muß ich "wild" im Programm umherspringen....
Geplant ist eine Menüführung mit Untermenü´s.
Die Steuerung soll über drei Tasten "UP"; "DOWN"; ENTER geschehen.
Der Pin "PordD.2" wird über Interrupt als Entertaste aus unterschiedlichen Programmteilen abgefragt.
Code:... Config Timer2 = Pwm , Compare B Pwm = Clear Down , Prescale = 64 ... Enable Timer2 'Timer2 starten On Timer1 Enter: Enable Interrupts ... Enter: 'Entertaste abfragen Debounce Pind.2 , 0 , Eingabe , Sub If Enter = 1 And Wechsel = 1 Then Enter = 0 Wechsel = 0 Goto Untermenu End If Return ... Sub Eingabe Up = 0 : Down = 0 : Enter = 1 End Sub Untermenu: ... ... ... ...
Wird die Enter-Taste nicht betätigt verlässt das Programm die Subroutine normal mit Return.
bei jeder Betätigung der Entertaste bleibt mir eine Sprungadresse im Stack liegen.
Wie kann ich das vermeiden? Steh da ein wenig auf dem Schlauch...
liebe Grüße,
Klingon77
Der kürzeste Weg zwischen zwei Menschen ist ein Lächeln - http://www.ad-kunst.de
Hallo Klingon77!
Ich programmiere zwar in ASM, glaube aber, dass das Ablegen der Rücksprungadressen unabhängig von einer Hochsprache ist. Die Adresse wird bei jedem "call" abgelegt und bei "goto" nicht. Deswegen würde ich "Enter" mit "goto Enter" einspringen und anstatt mit "return", mit "goto ..." verlassen, wobei "..." die Marke direkt nach dem "call Enter" ist. Du musst es ausprobieren, weil ich mir nur erinnern kann, dass ich mal QBASIC noch unter DOS benutzt habe ...
MfG
hi,
mal Dank für den Tipp.
leider springt Bascom nicht in "ENTER" wenn ich schreibe:
On Timer1 GOTO Enter:
Habe es eben getestet. Syntax wird genommen aber es wird nicht verzweigt. Wäre auch zu schön gewesen.
liebe Grüße,
Klingon77
Der kürzeste Weg zwischen zwei Menschen ist ein Lächeln - http://www.ad-kunst.de
Ja aber das "GOTO" ist mit einer Bedingung von Timer1 verbunden, die anscheinend nicht erfüllt ist. Ich habe ganz einfaches "goto" gemeint. Ich würde eben eine leere endlose Schleife ausprobieren ob der stack überfüllt wird. Vielleicht musst du in deinem konkretem Programm mehr ändern ...
hi,
GOTO kann auch nicht gehen.
Der Timer zählt immer runter oder hoch.
Bei jedem überlauf springt er zu "ENTER".
Danach muß er ja wissen wohin er zurückspringen muß falls ENTER nicht gedrückt wurde.
Eine andere Möglichkeit wäre eine "SUB":
On TIMER1 ENTER , SUB
Die Sub könnte ich mit:
If ENTER = 1 THEN End Sub 'Entertaste gedrückt
verlassen.
Dann die IF THEN zu den einzelenen Menu´s.
Geht aber auch nicht; habe ich schon getestet.
liebe Grüße,
Klingon77
Der kürzeste Weg zwischen zwei Menschen ist ein Lächeln - http://www.ad-kunst.de
Vielleicht kanns du ihm das mit "GOTO" anstatt "RETURN" sagen, wenn er immer auf die gleiche Adresse zurückspringen soll. Wenn er von verschiedenen Aufrufer mit "CALL" bzw. "SUB" aufgerufen wird, geht es leider nicht...
In ASM könnte ich es noch mit Flags erkennen wovon er aufgerufen wurde, aber Bascom kenne ich überhaupt nicht.
In BASIC hätte ich ein Byte dafür verwendet indem jedes Bit einen anderen Aufrufer bedeuten würde...
MfG
hi,
mal Dank für Deine Hilfe \/
nun ist mir noch eine andere Lösung eingefallen.
Das Problem war folgendes:
* Die Farben (RGB) steuere ich mit PWM in einer Schleife z.B: von 0 - 255 (dunkel bis max. hell).
* um nun auch einen sehr langsamen Farbverlauf zu realisieren habe ich ein "WAITms" (Pause Millisekunden) in die Schleife eingefügt.
* Die ENTER-Taste wird zwar per Interrupt sofort ausgewertet, wenn sie gedrückt wird aber...
* ...durch den WAIT-Befehl dauerte es mitunter mehrere Sekunden, bis die Verzweigung in das Untermenu erfolgte.
* Nun habe ich eine zusätzliche Schleife (FOR-NEXT) in die Farbregelschleife eingefügt.
* Sie zählt entsprechend dem eingegebenen Pausenwert hoch. Der eigentliche "WAITms" - Befehl entfällt.
* In dieser zweiten Schleife wird die Auswertung der ENTER-Taste (sofern gedrückt) ausgeführt.
* Das Programm verlässt die Schleife mit "EXIT FOR" und springt sofort sofort in das Unteremu.
So kann ich von jedem Punkt aus zu jeder Zeit mit GOTO beliebig verzweigen.
\
Funktioniert Prima
Auch wenn mich nun alle Informatiker "hauen", weil ich mit GOTO arbeite...
...es ist mir noch nichts besseres eingefallen.
liebe Grüße und nochmals Dank für die späte Hilfestellung,
Klingon77
Der kürzeste Weg zwischen zwei Menschen ist ein Lächeln - http://www.ad-kunst.de
Es ist schön zu hören, dass meine kleine Hilfe dich aus dem Schlauch bewegt hat. Ich konnte dir zwar nicht konkret helfen, war aber sicher, dass du es selber schaffst...
Übrigens ich bin, wie du, kein Informatiker und nur deswegen sind für mich einfache Lösungen, an die die Profis nicht kommen, weil sie manchmal nicht schön sind, am liebsten ...
Viel Erfolg weiterhin!
MfG
hi,
die Frage der Lösung ist meistens nicht ob man sie findet, sondern wann man sie findet.
AVR´s sind vollkommen neu für mich; mein erstes Programm.
Meine BASIC-Kenntnisse sind bestenfalls rudimenatär.
Anbei mal der betreffende CODE-Schnipsel.
Code:Do For Lauf1 = 1 To Pause01 'Pause01 = Pausenwert für die Geschwindigkeit If Enter = 1 Then Exit For End If Waitms 1 ' damit es nicht soooo schnell rennt... Next Lauf1 If Enter = 1 Then Enter = 0 Goto Untermenu End If ... ... ... Loop
liebe Grüße,
Klingon77
Der kürzeste Weg zwischen zwei Menschen ist ein Lächeln - http://www.ad-kunst.de
Ich bin zwar auch kein Experte für Bascom, aber soweit ich mich noch erinnere wird in BSCOM mit
ON Timer1 funktion
kein normaler code erzeugt, sondern es wird der Interrupt-vector definiert. Das Problem ist als mehr die Programmierung mt Interrupts.
Da hat man nämlich wirklich ein Problem und man sollte nicht irgendwie aus der Interruptroutine in den normalen Programmfluß springen. Da hat man einmal das Problem mit dem Stack und zum anderen kann man da Hauptprogramm mtten in einer Zuweisung unterbrochen haben. Damit könnte z.B. ein Variable nur halb überschreiben sein. Das einzige was mir da als sinnvoller Fall einfällt wäre ein totaler neustart des Programm, ggf. mit parameterns die nur in einer ISR geändert werden.
Berechtigungen
Zitieren
Lesezeichen