Gut dann kommt das Finale.
Wir haben die Zahl der Balken die wir anzeigen wollen.
Damit bauen wir die Zeile auf die wir dann ans Display schicken.
Da wir einen fetten schwarzen Balken haben wollen (Die Lücken zwischen den Zeichen im Display bleiben aber) müssen wir ein Zeichen haben das alle Pixel ausfüllt.
Jetzt bin ich echt überfragt ob im Standardzeichensatz des LCD's ein passendes Zeichen ist.
Macht nix,im Zweifelsfalle kann man sich ja bis zu 8 Zeichen selber definieren (zb. Mit dem in Bascom eingebauten LCD-Designer.Für weitere Informationen Siehe Handbuch oder Hilfe).
Ja und der Rest ist eigentlich nur ne Schleife.
Wir zählen von 20 bis 20-x herunter um eben die Anzahl von Zeichen zu setzen.
In unserem Beispile war das die 12.
Also würde der Ausschnitt so aussehen können:
Code:
Y=21-X '21-12=9 Erklärung eins weiter runter.
For Z=20 to y Step -1 'Von 20 bis 9 wird gezählt ,das sind 12 Stellen.
Locate 2,Z 'Die entsprechende Position im Display anwählen.
Lcd Chr(0) 'Zeichen Darstellen.Chr(0-7) wären zb.die Selbstdefinierten Zeichen
Next.
Y=Y-1 'Eins runter für die nächste Schleife.
for Z=Y to 1 Step 'Damit fahren wir den Rest der Zeile ab
Locate2.Z
Lcd Chr(32) 'Leerzeichen setzen
Next
Fertig.(Sofern ich keine groben flüchtigkeitsfehler gemacht habe)
Naja,zugegeben ,das war jetzt ultraprimitiv und ohne Komfort aber leichter zu verstehen.
Das ganze geht auch in einer Schleife mit If-Thenabfrage für das Zeichen.
Auch kann man das Pferd auch ganz anders Reiten indem man erst einen String erstellt und dann ausgibt.
Ich hab nur eine Möglichkeit von vielen gezeigt.
Kannste damit den was anfangen ?
Lesezeichen