Hallo Knut !
Ich habe mir überlegt, dass ich dein Projekt bis zu einem gewissen Grad "mit bastel".
Von daher wäre es einfacher, wenn wir uns an bestimmte "Vorgaben" halten.
Das Wichtigste dabei sind die Namen für Variablen, Konstanten und Subroutinen!
Da ich schon mal etwas vor gearbeitet habe
, stelle ich das derzeitige Programm hier mal als Basis ein.
CodeBox bascom
$regfile = "m8def.dat"
$crystal = 8000000
$framesize = 32
$swstack = 32
$hwstack = 64
'Aus- und Eingänge bestimmen
Ddrd = &B111_000_10
Portd = &B000_111_01
'PD0 = Eingang
'PD1 = Ausgang
'PD2 = Encoder
'PD3 = Encoder
'PD4 = Taster-Encoder
'PD5 = LCD-RS
'PD6 = LCD-E
Ddrb = &B1111_1111
Portb = &B0000_0000
'PB0 bis PB7 = LCD 8bit
'LCD konfigurieren (8bit)----------------------------------
Config Lcdpin = Pin , Port = Portb , E = Portd.6 , Rs = Portd.5
'LCD-Typ angeben
Config Lcd = 20 * 4
Cursor Off
Cls
'**********************************************************
Dim De As Byte 'DrehEncoder
Dim Z As Byte 'Encoder-Zähler
'LCD_flag dient dazu, die Daten nur einmal zum LCD zu senden
Dim Lcd_flag As Bit
'Anzeige_flag sorgt für den Wechsel der Anzeige (Standard oder Menü)
Dim Anzeige_flag As Bit
'Aliasnamen, z.B. für den Taster, um nicht immer PIND.3 schreiben zu müssen
Taster Alias Pind.4
BL Alias Portd.1 'Reserve Ausgang
Ein Alias 0 'EIN
Aus Alias 1 'AUS
'**********************************************************
' ----Systemstart----
'**********************************************************
'Hier kommen dann alle Einstellungen rein, die zum ersten Start wichtig sind!
BL = Ein
Z = 0 'Zähler auf NULL
'**********************************************************
' ----Hauptschleife----
'**********************************************************
Do
If Taster = 0 Then 'Taster abfragen
Toggle Anzeige_flag 'Anzeige wechseln (Standard <-> Menü)
Lcd_flag = 0 'LCD_Flag auf Null, damit es auch einmal angezeigt wird
Else
De = Encoder(pind.2 , Pind.3 , Rauf , Runter , 0)
End If
If Anzeige_flag = 0 Then 'Anzeige_flag auswerten
Gosub Layout 'gehe zur Standardanzeige
Else
Gosub Menue 'gehe zur Menüanzeige
End If
Loop
'**********************************************************
'**********************************************************
' ----Subroutinen----
'**********************************************************
'LCD Standardanzeige------------------------------------------------------------
Layout:
If Lcd_flag = 0 Then 'wurde das LCD schon mal aktualisiert?
Locate 1 , 1 : Lcd "Zeile 1 "
Locate 2 , 1 : Lcd "Zeile 2 "
Locate 3 , 1 : Lcd "Zeile 3 "
Locate 4 , 1 : Lcd "Zeile 4 "
Lcd_flag = 1 'LCD wurde einmal aktualisiert
Bitwait Taster , Set 'warten ob der Taster losgelassen wurde
Else
End If
Return
'Sub für Taster-----------------------------------------------------------------
Menue:
If Lcd_flag = 0 Then 'wurde das LCD schon mal aktualisiert?
Locate 1 , 1 : Lcd "Menue-Zeile 1 "
Locate 2 , 1 : Lcd "Menue-Zeile 2 "
Locate 3 , 1 : Lcd "Menue-Zeile 3 "
Locate 4 , 1 : Lcd "Menue-Zeile 4 "
Lcd_flag = 1 'LCD wurde einmal aktualisiert
Bitwait Taster , Set 'warten ob der Taster losgelassen wurde
Else
End If
Return
'Encoder-Sub----------------------------------------
Rauf:
If De = 0 Then Incr Z
Return
'Encoder-Sub----------------------------------------
Runter:
If De = 0 Then Decr Z
Return
'**********************************************************
End 'end program
Wenn es für dich OK ist, dass ich mit mache, dann nehmen wir ab jetzt nur noch dies als Ausgangsbasis.
Ich möchte dich auch eindringlich bitten, die Programmstruktur (mit Kommentaren) exakt so beizubehalten!
Grüße,
Cassio
