Hallo,
hat mich auch interesiert, trotz null Erfahrung (2 Tage) habe ich da mal was gebastelt.
Im Simulator geht es ziemlich gut, muss mein LCD noch umbauen. Hängt an PortC alle ADCs wech.

Vieleicht hilft das ja.

Code:
' Nur im Simulator getestet,ADC Port 5.
' Die Ungleichmäsige Balkenverteilung sollte am Simulator liegen.
' Wenn die Variabelen nicht perfekt Dimensioniert sind,
' mögen man mir vergeben. Mein erster Atmel läuft seit 2 Tagen.
' Für 20 Zeichen Display gemacht sollte mit anpassung auch für andere gehen.
' Werte halt anpassen
' Vereinfachung und verbesserung werden immer gern angenommen.

' whynot '


$regfile = "M8def.dat"
$crystal = 8000000
$baud = 9200
$hwstack = 32
$swstack = 10
$framesize = 40

$sim                                                        '!!! vor dem Programmieren rausnehmen !!!

Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5

Config Lcd = 20 * 4
Deflcdchar 1 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16
Deflcdchar 2 , 20 , 20 , 20 , 20 , 20 , 20 , 20 , 20
Deflcdchar 3 , 21 , 21 , 21 , 21 , 21 , 21 , 21 , 21

Dim C As Integer
Dim B As Integer
Dim A As Integer
Dim W As Integer
Dim B1 As Integer
Dim H As Integer

Cls

Do
   A = Getadc(5) / 17                                       ' dieser wert soll 1/3 von dem darunter sein.
   W = Getadc(5) / 52                                       ' der wert mus aufgerundet werden von der rechnung max messwert/zeichenzahl
   B = 3 * W
   C = A - B
   H = 19 - W                                                ' der Wert = zeichenzahl-1
   If W > 0 Then Lcd String(w , 3) ;
   Lcd String(1 , C ) ;                                     
   If W < 19 Then Lcd String(h , 32)                ' der Wert = zeichenzahl-1
   Home Upperline
Loop

End
Gruss Achim