LCD über Subroutine ansprechen ???

[Enrico3]

Hallo,

ich verzeifele fast an meinem LCD. Ich hab hier mal einen kleinen Teil meines Programms geposted. Darin soll momentan nichts anderes passieren, als dass wenn ich einen Taster drücke (von H zu L), die Subroutine aufgerufen werden soll und etwas anderes ins Display geschrieben wird.
Macht es aber nicht. Der Zustandswechsel an Portd.0 funktioniert, aber mit dem Display passiert nichts. Warum?
Komischerweise funktioniert es, wenn ich das ganze als Interrupt programmiere.

$regfile = "m8def.dat"
$crystal = 3686400                                          'Quarz: 3,6864 MHz

Ddrc = &B00000000
Ddrd = &B00000001                                           'Int0 als Eingang konfiguriert - Programmiertaste
Portc = &B00001111
Portd.4 = 1                                                 'Pull-Up von Int0 an
Portd.3 = 1                                                 'Pull-Up von PD3 an

Config Scl = Portc.5                                        'SCL-Port auf Port C.5
Config Sda = Portc.4                                        'SDA-Port auf Port C.4


Config Lcd = 40 * 4                                         'Anzeigemodus 40 x 4 Zeichen
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portb.0 , E = Portb.1 , E2 = Portb.2 , Rs = Portb.3


Declare Sub Temperaturen                                    'Sub für Programmierung in zweiter Ebene
Declare Sub Schaltzeiten                                    'Sub für Programmierung in zweiter Ebene
Declare Sub Prog_auswahl                                    'Sub für Programmier-Auswahl
Declare Sub Wert_hoch                                       'Sub Temperatur hochzählen
Declare Sub Wert_runter                                     'Sub Temperatur runterzählen
Declare Sub Speichern                                       'Werte speichern
Declare Sub Pfeil_rechts                                    'Auswahl für Programmiermodus Pfeil nach rechts
Declare Sub Pfeil_links                                     'Auswahl für Programmiermodus Pfeil nach links
Declare Sub Programm


Dim ___lcdno As Bit                                         'Umschaltbyte für Anzeige 0=Chip 1; 1=Chip 2
Dim W_adr_1 As Byte                                         'Schreibadresse vom PCF8574(1)
Dim R_adr_1 As Byte                                         'Leseadresse vom PCF8574(1)
Dim Dat_1 As Byte                                           'Datenwerte vom PCF8574(1)
Dim W_adr_2 As Byte                                         'Schreibadresse vom PCF8574(2)
Dim R_adr_2 As Byte                                         'Leseadresse vom PCF8574(2)
Dim W_adr_3 As Byte                                         'Schreibadresse vom PCF8591(1)
Dim R_adr_3 As Byte                                         'Leseadresse vom PCF8591(1)
Dim T_boiler As Byte                                        'Temperatur vom Boiler
Dim T_puffer As Byte                                        'Temperatur vom Puffer


'******************** LCD initialisieren 
___lcdno = 0                                                'auf Chip 1 schalten
Initlcd                                                     'die beiden oberen Zeilen initialisieren
Cls
Locate 1 , 1
Lcd "Ausen Vorlauf Boiler Puffer"                           'Beschriftung der ersten Zeile
Cursor Off





Do

   ___lcdno = 0                                             'auf Chip 1 schalten
   Locate 2 , 1
      Lcd "Test Test Test"

   Debounce Pind.4 , 0 , Programm , Sub

Loop



'******************** Programm 
Sub Programm

Portd.0 = Not Portd.0

   ___lcdno = 0                                                'auf Chip 1 schalten
Initlcd                                                     'die beiden oberen Zeilen initialisieren
Cls
Locate 1 , 1
Lcd "Programm"                                              'Beschriftung der ersten Zeile
Waitms 200

End Sub

End

Wäre super, wenn mir da jemand einen Tip geben kann.

Grüße
Enrico

[Vitis]

Da hab ich zu später Stunde aber nen Quatsch getippt ... sorry.
Also ich hab mal gespielt, hier mein im Simulator laufender Code:

$regfile = "m8def.dat"
$crystal = 3686400                                          'Quarz: 3,6864 MHz

Ddrc = &B00000000
Ddrd = &B00000001                                           'Int0 als Eingang konfiguriert - Programmiertaste
Portc = &B00001111
Portd.4 = 1                                                 'Pull-Up von Int0 an
Portd.3 = 1                                                 'Pull-Up von PD3 an

Config Scl = Portc.5                                        'SCL-Port auf Port C.5
Config Sda = Portc.4                                        'SDA-Port auf Port C.4


Config Lcd = 40 * 4                                         'Anzeigemodus 40 x 4 Zeichen
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portb.0 , E = Portb.1 , E2 = Portb.2 , Rs = Portb.3
Initlcd

Declare Sub Sub_programm


Dim ___lcdno As Bit                                         'Umschaltbyte für Anzeige 0=Chip 1; 1=Chip 2
Dim W_adr_1 As Byte                                         'Schreibadresse vom PCF8574(1)
Dim R_adr_1 As Byte                                         'Leseadresse vom PCF8574(1)
Dim Dat_1 As Byte                                           'Datenwerte vom PCF8574(1)
Dim W_adr_2 As Byte                                         'Schreibadresse vom PCF8574(2)
Dim R_adr_2 As Byte                                         'Leseadresse vom PCF8574(2)
Dim W_adr_3 As Byte                                         'Schreibadresse vom PCF8591(1)
Dim R_adr_3 As Byte                                         'Leseadresse vom PCF8591(1)
Dim T_boiler As Byte                                        'Temperatur vom Boiler
Dim T_puffer As Byte                                        'Temperatur vom Puffer


'******************** LCD initialisieren
                                                     'die beiden oberen Zeilen initialisieren
Cls
Locate 1 , 1
Lcd "Ausen Vorlauf Boiler Puffer"                           'Beschriftung der ersten Zeile
Cursor Off





Do

   Locate 2 , 1
      Lcd "Test Test Test"

   Debounce Pind.4 , 0 , Sub_programm , Sub

Loop



'******************** Programm
Sub Sub_programm

Toggle Portd.0

Cls
Locate 1 , 1
Lcd "Programm"                                              'Beschriftung der ersten Zeile
Waitms 200

End Sub

End

[Enrico3]

Hallo,

danke für deine Antwort, aber das ist doch fast der selbe Code wie meiner, nur das du die Initialisierung vom LCD weggelassen hast. Aber das funktioniert leider auch nicht.
Im Simulator läuft mein Programm auch, nur wenn ich es brenne läuft es halt nicht ganz so wie es soll.

wie gesagt, das LCD zeigt mir die ersten zwei zeilen an, aber wenn ich in die Sub springe tut sich nichts mehr, nur das sich der Zustand vom Portd.0 ändert. Mehr nicht???

Grüße
Enrico

[Zapo.]

ich bin mir jetzt nicht ganz sicher, aber
sollte bei "declare sub xxx" nicht mindestens xxx() stehen? ich meine die Klammern?
versuchs doch mal ob das Programm läuft wenn du

programm:
'hier steht dann deine Anweisung
return

schreibst.....dann schließt du die Klammerfunktion mal aus....
(nur so ne idee...)

Zapo.

[Enrico3]

Also auch da tut sich nichts im LCD. Das komische ist ja, das er in die Sub geht, das sehe ich ja an der Pegeländerung vom Port, aber die Anweisung für das LCD führt er nicht aus.
Wenn ich das ganze als Interrupt programmiere funktioniert es, aber das will ich nicht.
Hat denn sonst keiner eine Idee?
Danke

Enrico

[Zapo.]

erhöhe mal die waitms zeit! wahrscheinlich wird der wert auf dem Display direkt wieder überschrieben, 200ms sollten zwar zu sehen sein aber setze es einfach mal auf 2 sek (wait 2) oder so.... das muß gehen!

[Enrico3]

Hallo,

danke für deine Hilfe, aber da wird ja hinterher nichts mehr in der selben Zeile überschrieben, Wenn ich im Hauptprogramm bin und von dort in die Sub springe wird einfach die zweite Zeile des Displays überschrieben, zurück im Hauptprogramm wird nichts neues mehr an die zweite Zeile geschickt.
Es flackert ja noch nicht einmal, wenn ich in die Sub springe. Ich weiß einfach nicht warum. Zur besseren Übersicht habe ich hier noch mal den Code in abgespeckter Form geschrieben:

$regfile = "m8def.dat"
$crystal = 3686400

Ddrd = &B00000001
Portd = &B00010000

Config Lcd = 40 * 4
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portb.0 , E = Portb.1 , E2 = Portb.2 , Rs = Portb.3
Declare Sub Programm
Dim ___lcdno As Bit


___lcdno = 0
Initlcd
Cls
Locate 1 , 1
Lcd "Das ist ein Test"
Cursor Off


Do

   Debounce Pind.4 , 0 , Programm , Sub

Loop



Sub Programm

Toggle Portd.0

___lcdno = 0
Locate 1 , 1
Lcd "Programm"

Wait 2

End Sub

End

Also auch mit mehr Wartezeit funktioniert es nicht. Vielen Dank.

Grüße
Enrico

[Zapo.]

so sollte es funktionieren... mir ist mal nichts aufgefallen...

vielleicht blendest du den Cursor mal ein damit du siehst wo der steht!

nicht das du doch ins Nirwana schreibst!

[Enrico3]

leider sehe ich auch mit dem Cursor nicht mehr als vorher, er steht am Ende von "Das ist ein Test", wenn ich in die Sub springe tut sich aber auch da nichts. Defekt ist das Display auch nicht, da das ganze ja mit einer Interrupt-Routine funktioniert, nur wie gesagt, ich möchte das ganze in einer Sub haben.
Danke.

Grüße
Enrico

[CR-Racing]

Also, ich würde das mal so probieren:

$regfile = "m8def.dat"
$crystal = 3686400

Ddrd = &B00000001
Portd = &B00010000

Config Lcd = 40 * 4
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portb.0 , E = Portb.1 , E2 = Portb.2 , Rs = Portb.3

Dim ___lcdno As Bit


___lcdno = 0
Initlcd
Cls
Locate 1 , 1
Lcd "Das ist ein Test"
Cursor Off


Do

Debounce Pind.4 , 0 , Programm , Sub

Loop



Programm:

Toggle Portd.0

___lcdno = 0
Locate 1 , 1
Lcd "Programm"

Wait 2

return

End

Der DEBOUNCE befehl ist eine Art GOSUB, die sollte dann vor dem END-Programm stehen.
Eine SUB-Routine steht normalerweise nach dem END und wir mit Declare Sub IRGENDWAS(), declariert und mit CALL IRGENDWAS() aufgerufen.

Gruß CR