Bascom State Machine Menu - Versionsgeschichte

-tomas-: /* Sample Code Variante 2: übersichtlich mit ADR2 */

2008-08-16T11:21:41Z

‎Sample Code Variante 2: übersichtlich mit ADR2

-tomas-: minor change for code var 2

2008-07-28T09:06:24Z

minor change for code var 2

Änderungen zeigen

-tomas-: ADR ab Bascom Version 1.11.8.9

2008-07-27T11:39:44Z

ADR ab Bascom Version 1.11.8.9

-tomas- am 26. Juli 2008 um 10:55 Uhr

2008-07-26T10:55:13Z

-tomas-: /* Sample Code Variante 1: unübersichtlich und wenig Code */

2008-07-26T10:50:20Z

‎Sample Code Variante 1: unübersichtlich und wenig Code

-tomas-: Variante 2 komplett geändert

2008-07-26T10:47:15Z

Variante 2 komplett geändert

Änderungen zeigen

-tomas- am 25. Juli 2008 um 13:07 Uhr

2008-07-25T13:07:08Z

-tomas- am 25. Juli 2008 um 12:51 Uhr

2008-07-25T12:51:52Z

-tomas-: Variante 2 ergänzt

2008-07-25T12:02:11Z

Variante 2 ergänzt

Änderungen zeigen

-tomas-: Sample Code Length eingetragen

2008-06-17T11:49:53Z

Sample Code Length eingetragen

@@ Zeile 588: / Zeile 588: @@
 'Das Beispiel ist für den BASCOM-Simulator angepasst worden
 '  getestet mit BASCOM 1.11.9.1
-'  Codelänge 2242 Byte
+'  Codelänge 2028 Byte
-$regfile = "m32def.dat"
+$regfile = "m8def.dat"
 $framesize = 32                                             'Stack
 $swstack = 32
 $hwstack = 64
+'
@@ Zeile 609: / Zeile 610: @@
+'
 'bzw. im ASCII-Code:
+Const Key_buttons = 4                                       'Anzahl der Tasten
-Dim Keycode_string As String * 4
+Dim Keycode_string As String * Key_buttons
 'Key_plus|Key_minus|Key_prev|Key_next
-Keycode_string = "{056}{050}{052}{054}"
+Keycode_string = "{056}{050}{052}{054}"                     'see scan codes in ASCII chart
-Dim Keycode(4) As Byte At Keycode_string Overlay
+Dim Keycode(key_buttons) As Byte At Keycode_string Overlay
 Const Key_null = 0                                          'keine Taste gedrückt
 'Pins des LCD-Modules setzen ggf. an eigene Anschlüsse anpassen
@@ Zeile 623: / Zeile 627: @@
 '******** Joystick/Key Settings ***********************************************
 Dim Key As Byte                                             'key in Mainloop
 '********* State Variables ****************************************************
@@ Zeile 641: / Zeile 638: @@
 Key = Key_null                                              'keine Taste gedrückt
 '********** MAIN-Loop *********************************************************
@@ Zeile 685: / Zeile 685: @@
      lds R8, {State}
      lds R9, {State + 1}
-     For I = 1 To 4
+     For I = 1 To Key_buttons
        Read W
        If Key = Keycode(i) Then
@@ Zeile 713: / Zeile 713: @@
 'Result:     Pointers auf States , Unterprogramme
 '            Menütexte
 '---------------------------------------------------------------

@@ Zeile 572: / Zeile 572: @@
 == Sample Code Variante 2: übersichtlich mit ADR2 ==
 Die Variante 1 ist leider unübersichtlich, da 3 Tabellen getrennt geführt werden (die State Machine, die Menütexte und die zugehörigen Unterprogrammeinsprünge).
-Nachfolgend eine Variante, in der nur eine Tabelle geführt wird. Die Lösung wurde möglich, nachdem in Bascom in der Version 1.8.xx den Befehl ADR / ADR2 eingeführt wurde.
+Nachfolgend eine Variante, in der nur eine Tabelle geführt wird. Die Lösung wurde möglich, nachdem in Bascom in der Version 1.11.8.9 den Befehl ADR / ADR2 eingeführt wurde.
 In jedem Datensatz stehen jetzt die Daten für die Verzweigung der State Machine (inf. Tastatureingabe), der Pointer für den Unterprogrammeinsprung und der Menütext zusammen.

@@ Zeile 684: / Zeile 684: @@
 '---------------------------------------------------------------
 Change_state:
      lds R8, {State}
      lds R9, {State + 1}

@@ Zeile 9: / Zeile 9: @@
 [[Bild:Butterflymenu.png]]
-== Sample Code Variante 1: unübersichtlich und wenig Code ==
+== Sample Code Variante 1: Umsetzung des Codes aus dem AVR Butterfly Evaluation Kit ==
 Der Code ist die 1:1 Umsetzung des C-Codes aus dem AVR Butterfly Evaluation Kit.
 Das Code-Beispiel wurde '''für den Bascom Simulator optimiert''' und kann dort direkt mit den Ziffern-Tasten bedient werden (NumLock!).

@@ Zeile 6: / Zeile 6: @@
 == Die Menü-Struktur ==
-Als Beispiel wird hier die um die Umsetzung des Menüs aus dem AVR Butterfly Evaluation Kit in Bascom gezeigt:
+Als Beispiel wird hier die um die Umsetzung '''des Menüs aus dem AVR Butterfly Evaluation Kit in Bascom''' gezeigt:
 [[Bild:Butterflymenu.png]]
@@ Zeile 573: / Zeile 573: @@
 Die Variante 1 ist leider unübersichtlich, da 3 Tabellen getrennt geführt werden (die State Machine, die Menütexte und die zugehörigen Unterprogrammeinsprünge).
 Nachfolgend eine Variante, in der nur eine Tabelle (Select Case State...) geführt wird. In jedem Statement Blocks steht ein Menütext (falls erforderlich), der Pointer für den Unterprogrammeinsprung (falls erforderlich) und ein Datensatz für die Verzweigung der State Machine (zwingend erforderlich).
 Die Codelänge des Samples beträgt jetzt immerhin 3300Byte anstatt der 2300Byte von Variante 1. Dafür ist das Menü deutlich einfacher zu editieren.

@@ Zeile 578: / Zeile 578: @@
 Weitere Erklärungen stehen im Quelltext.
 Die Bedienung erfolgt wie bei Variante 1.
 Getestet im Bascom-Simulator der  Versionen:

@@ Zeile 16: / Zeile 16: @@
 * BASCOM 1.11.8.7 [Probleme mir der LCD Darstellung]
 * BASCOM 1.11.8.1 [OK]
 Weitere Erklärungen stehen im Quelltext.