HI,

kann man dieses Problem nicht auch mit dem "SELECT CASE" befehl verwirklichen.

Ich meine, wenn du eine variable für deinen Füllstand hast und zum Beispiel deine Anzeige aus acht Balken bestehen soll, kann man doch acht bereiche festlegen. Dann liesst man die Variable aus und spring einfach in den Bereich und zeigt dementsprechend was an.

Aus der Bascomhilfe habe ich mal das Musterprogramm kopiert und geändert. Mit dem LCD disigner oder dem Datenblatt der Anzeige, kann man dann bestimmt anstatt der Rautezeichen einen kasten anzeigen lassen.
Code:
Dim X As Byte

Do
  Input "X ? " , X
  Select Case X
    Case 1 To 3 : Lcd "##'
    Case 4 ti 6 : Lcd "'###"
    Case Is > 10 : Lcd "####"
    Case Else : Print "no"
  End Select
Loop

End