Programm hängt

[peterfido]

Hallo Kalle,

welche Bascom Version nutzt Du? Bei mir gibt es dieses Problem nicht. Allerdings würde ich nicht ständig ein CLS vor LCD A setzen.

z.B. so:

Cls
Do
   If Taster_ms = 0 Then
      Incr A
   End If
   Locate 1 , 1
   Lcd A ; "  "

Loop
End

Einzelschritte werden da aber schwierig

Auffällig:
Die Baudfehlerrate ist recht hoch.
Der Stack ist großzügig gewählt. Kommt wohl noch bissel was 'vermaschtes' dazu? Eingang ist Standard bei PINs, kann man aber ruhig trotzdem konfigurieren, wenn der Platz reicht.
Mehrere Pullups kann man zusammenfassen. Für Pullups das Port nutzen setzen.

Statt

Pinb.0 = 1                                                  'Pull Up einschalten da taster gegen gnd
Pinb.1 = 1                                                  'Pull Up einschalten da taster gegen gnd
Pinb.2 = 1                                                  'Pull Up einschalten da taster gegen gnd
Pinb.3 = 1                                                  'Pull Up einschalten da taster gegen gnd

also besser so:

Portb = &B00001111                                          'Pullups

[fredred]

Hallo Kalle,

habe deine Anfrage nicht so richtig verstanden. Erste Zeile im Programm oder LCD. LCD währ normal, hast kein Locate festgelegt.
Nach Cls wird der komplette Puffer der LCD gelöscht.(sieht meistens auch hässlich aus wenn die Anzeige flackert)
Siehe Hinweis von Peterfido.
Zum Simulator. In der alten BASCOM- Testversion wird Zeile für Zeile abgefragt. Auch „End“.
Mit Terminal müsstest Du am besten mit (Print A) sehen ob sich A bei jedem Tastendruck um eins erhöht.

Gruß

[MrPower]

Hallo zusammen,
@peterfido ich benutze die Version 2.0.7.5 . Das mit dem Port ist eine gute Idee. Die Baud brauche ich eigentlich gar nicht da es keine Verbindung nach außen gibt. Ich hab mir nur mal so ein Grundgerüst erstellt damit ich es nicht dauernd tippen muss. Es soll dann auch ein Menue entstehen in dem ich dann verschiedene Werte einstellen kann. Das Cls brauche ich für das Menue wenn der nachfolgende Eintrag kürzer ist als der vorige damit keine Textfetzen zurückbleiben, oder?
@fredred Er springt zur ersten Zeile im Programm zurück also zu $regfile.
Gruß Kalle

[peterfido]

Bei meinem Beispiel oben werden die nächsten evtl. vorhandenen Zeichen hinter A geleert. Gibt natürlich noch bessere Methoden dafür.

Bei meinen Projekten schreibe ich nur aufs LCD wenn sich was geändert hat. Spart Programmlaufzeit, braucht aber mehr RAM. Das sind dann aber meist Grafik-LCDs.

[MrPower]

Hallo zusammen,
habe das Programm geändert und neu kompeliert, jetzt läuft es wie es soll. @peterfido du meintest sicher Pinb = &B00001111 nicht Portb = &B00001111.
Gruß Kalle

[Sauerbruch]

@peterfido du meintest sicherPinb = &B00001111 nicht Portb = &B00001111.

Nein, das stimmt schon so mit PORT! In die PIN-Register werden mit jeder Taktflanke die logischen Zustände übernommen, die in diesem Moment an den korrespondierenden Anschlüssen des Controllers anliegen. Es macht also wenig Sinn sie aktiv zu beschreiben, oder anders gesagt, sie sind reine "Auslese"-Register.

Die PullUp-Widerstände werden daher über das PORT-Register ein- und ausgeschaltet, wenn der I/O-Anschluss ein Eingang ist. In Deinem Code sind die PullUps im Moment also definitiv abgeschaltet.

Gruß,

Daniel

[fredred]

Hallo Kalle,

Variable A ist ein Byte. Mit Incr A wird diese mit Taster hochgezählt. Ist A>255 könnte es sein ein Fehler wird generiert und Do Loop wird unkontrolliert verlassen. Ein END nach Loop ist nicht zwingend aber wie Du erfahren hast hilfreich. Programmablauf wird ortendlich beendet. Sollten nach Loop weitere Programmteile stehen, und kein END eingefügt, geht es weiter und die Fehlersuche wird Aufwendig.

Kleiner Hinweis zum LCD- Menü:
Ich mache es mit einer Statusabfrage der verschiedenen Auslöser für Anzeige.

Dim Lcd_aktualisieren As Byte 'Zähler für LCD-Anzeigen
'Warte bis LCD bereit, falls gleichzeitig Spannung eingeschaltet wird
Waitms 250
Lcd_aktualisieren = 255 'ist Startanzeige

Nun lege ich mal mein bescheidenes Programm “Bus-Modul“ im Anhang. Dort findest Du bestimmt eine Anregung wie eine LCD-Anzeige „Schick“ aussieht.

Gruß

[MrPower]

Hallo fredred,
bis ich das gelesen geschweige kapiert hab vergeht ein halbes Jahr. Bin absoluter Programmieranfänger .Hab mir gedacht A wird hochgezählt (Anzahl der Menueeintrage max. 7). Mit select case springe ich in die Menue´s und verstelle dort die Werte.

Gruß Kalle