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