Hallo zusammen!
Interessiert verfolge ich dieses Thema und habe nun selbst versucht, einen Wert "Speed" aufzulösen und 3-stellig darzustellen. Sinn und zweck ist es, auf einem 4-zeilen Display "große Zahlen" für die Darstellung von "Speed" zu verwenden.
Nun gibt es für "BIGLCD" einen Sub, der mir die notwendigen Sonderzeichen für die großen Zahlen bereit stellt.
Will ich nun BIGLCD : Speed verwenden, wird mir immer nur die erste Stelle von Speed angezeigt. Also dachte ich mir, zerlege ich wie o.g. den Wert Speed und lasse mit jede einzelne Stelle anzeigen. Leider kommt gar nichts auf dem Display!?! Kann mir da jemand weiterhelfen?
Für Eure Hilfe wäre ich wirklich sehr dankbar!
Stefan
Code:
Dim Speed As Word
...
Declare Sub Lcdbig ' Funktion zum Schreiben der großen Zahlen deklarieren
Dim Lcdbigspalte As Byte , Lcdbigzahl As Byte
...
...
Lcdbigspalte = 12 : Lcdbigzahl = Speed : Lcdbig
...
...
'################
Sub Lcdbig
' Zeile 1
Locate 1 , Lcdbigspalte
Select Case Lcdbigzahl
Case 0 : Lcd Chr(0) ; Chr(1) ; Chr(2)
Case 1 : Lcd Chr(0) ; Chr(1) ; Chr(32)
Case 2 : Lcd Chr(0) ; Chr(1) ; Chr(2)
Case 3 : Lcd Chr(0) ; Chr(1) ; Chr(2)
Case 4 : Lcd Chr(1) ; Chr(32) ; Chr(32)
Case 5 : Lcd Chr(1) ; Chr(1) ; Chr(1)
Case 6 : Lcd Chr(0) ; Chr(1) ; Chr(2)
Case 7 : Lcd Chr(1) ; Chr(1) ; Chr(1)
Case 8 : Lcd Chr(0) ; Chr(1) ; Chr(2)
Case 9 : Lcd Chr(0) ; Chr(1) ; Chr(2)
End Select
' Zeile 2
Locate 2 , Lcdbigspalte
Select Case Lcdbigzahl
Case 0 : Lcd Chr(31) ; Chr(32) ; Chr(31)
Case 1 : Lcd Chr(32) ; Chr(31) ; Chr(32)
Case 2 : Lcd Chr(0) ; Chr(1) ; Chr(3)
Case 3 : Lcd Chr(32) ; Chr(0) ; Chr(3)
Case 4 : Lcd Chr(31) ; Chr(1) ; Chr(31)
Case 5 : Lcd Chr(31) ; Chr(1) ; Chr(2)
Case 6 : Lcd Chr(31) ; Chr(1) ; Chr(2)
Case 7 : Lcd Chr(32) ; Chr(0) ; Chr(3)
Case 8 : Lcd Chr(31) ; Chr(1) ; Chr(31)
Case 9 : Lcd Chr(31) ; Chr(1) ; Chr(31)
End Select
...usw...
Lesezeichen