Seltsamer Fehler mit Atmega8 und Bascom

[Philippe B. (philippe27)]

Hallo

Ich hab mit Bascom und ein paar neuen Lcds aus China gebastelt und mir 
ein kleines Pseudo Programm geschrieben.

Folgendes passiert.

LC- Display:

________________
|starting...  Ein|
|000   oder   255|
------------------

Oben Links steht ein normaler Text "starting..." und Oben Rechts wird 
ein Pin abgefragt und "Ein" oder "Aus" angezeigt.
Unten Links wird in 5er Schritten von 0 bis 255 hochgezählt und Unten 
Rechts von 255 bis 0 in 1er Schritten.

Alles funktioniert eigentlich bis auf Unten Rechts. Für diese Zählung 
wird die Variabel "B" im Code gebraucht. (Als Byte konfiguriert)

Es zählt von 255 auf 0 runter und anstelle dann wieder auf 255 gesetzt 
zu werden, fängt es zuerst von 990 in 10er Schritten an auf 0 zu gehen. 
Danach springt es auf 900 zurück und geht in 100er Schritten auf 0 
runter.
Erst jetzt funktioniert es von 255 in 1er Schritten wieder, bis es bei 0 
angekommen ist und das Spiel von vorne los geht.

Wo liegt hier der Fehler?
Ich komm einfach auf keine Lösung

Code:

$regfile = "m88def.dat"
$crystal = 1000000

Config Portd = Output
Config Pinb.0 = Input

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4

Dim A As Byte
Dim B As Byte
Dim C As Bit

Cls
Locate 1 , 1
Lcd "Hallo Welt"
Cursor Blink

Waitms 1000
Cls
Cursor Noblink
Cursor Off


Do

If Pinb.0 = 1 Then
 C = 1
End If

If Pinb.0 = 0 Then
C = 0
End If

If C = 1 Then
Locate 1 , 14
Lcd "Ein"
Else
Locate 1 , 14
Lcd "Aus"
End If

Locate 1 , 1
Lcd "starting..."

Locate 2 , 1
Lcd A

Locate 2 , 6
Lcd "oder"

Locate 2 , 14
Lcd B

Waitms 500


If A = 255 Then
Locate 2 , 1
Lcd "   "
A = 0
End If

A = A + 5

If B = 0 Then
Locate 2 , 14
Lcd "   "
B = 255
End If

B = B - 1

Loop


End

Danke
Gruss Philippe

[Sven (Gast)]

Lcd B
ERgibt eine verschiebung. Wenn du 10 hast er zu 9 zählt bleibt die 0 von 
der 10 stehen weil sie nicht gelöscht wird

Wenn du lcd b;" " machst sollte es passen

[Magnus M. (magnetus)]

Philippe B. schrieb:
> Es zählt von 255 auf 0 runter und anstelle dann wieder auf 255 gesetzt
> zu werden, fängt es zuerst von 990 in 10er Schritten an auf 0 zu gehen.
> Danach springt es auf 900 zurück und geht in 100er Schritten auf 0
> runter.
> Erst jetzt funktioniert es von 255 in 1er Schritten wieder, bis es bei 0
> angekommen ist und das Spiel von vorne los geht.

Die Subtraktion wird schon funktionieren. Dein Problem wird die Ausgabe 
des Wertes sein.

Aber mal Schritt für Schritt:

> Es zählt von 255 auf 0 runter und anstelle dann wieder auf 255 gesetzt
> zu werden,

Wenn du aufmerksam auf das Display siehst, wirst du feststellen, dass 
die Werte sich folgendermaßen ändern:

255-254-253-...-102-101-100-990-980-970-...-120-110-100-900-800-...-200- 
100-000-254-253-...

> fängt es zuerst von 990 in 10er Schritten an auf 0 zu gehen.
> Danach springt es auf 900 zurück und geht in 100er Schritten auf 0
> runter.

Sieh dir die Zahlen oben noch mal an.

> Erst jetzt funktioniert es von 255 in 1er Schritten wieder, bis es bei 0
> angekommen ist und das Spiel von vorne los geht.

1. fängt es nicht wieder bei 255 sondern bei 254 an

2. wird jeder weitere Durchlauf das selbe Verhalten zeigen.


> Wo liegt hier der Fehler?

Ganz einfach: Bascom schreibt

- bei einem dreistelligen Wert (999...100) drei Zeichen auf das Display
- bei einem zweistelligen Wert (99...10) nur zwei Zeichen auf das
  Display
- bei einem einstelligen Wert (9...0) nur ein Zeichen auf das Display

Den Rest überlasse ich nun deiner Kombinationsgabe.

[seltsamer (Gast)]

Philippe B. schrieb:
> Ich hab mit Bascom und ein paar neuen Lcds aus China gebastelt und mir
> ein kleines Pseudo Programm geschrieben.

Du hast eine genial erfolgreiche Kombination gewählt. Alles was du noch 
brauchst ist ne App für den Pseudo-Compiler.