Code:
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6                                                 
Config Lcd = 16 * 2

Deflcdchar 0 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31        ' Volles Segment definieren als chr(0)
Deflcdchar 1 , 24 , 24 , 24 , 24 , 28 , 28 , 28 , 28        ' halbes Segment definieren als chr(1)

Initlcd

'Hauptprogramm

Dim X As Byte

Cls
Locate 1 , 1                                                ' Pos. in 1. Zeile an 1. Stelle
Lcd "Bargraph"                                              ' Text auf das LCD Schreiben

For X = 1 To 16                                             ' von 1 bis 16 zählen
   Locate 2 , X                                             ' Pos. Cursor in Zeile 2 an Spalte X
   Lcd Chr(1)                                               ' Schreibe halbe Segment
   Waitms 200                                               ' ein bisschen warten
   Locate 2 , X                                             ' Pos. Cursor in Zeile 2 an Spalte X
   Lcd Chr(0)                                               ' Schreibe ganzes Segment (über das halbe)
   Waitms 200                                               ' ein bisschen warten
Next X                                                      ' Weiter


End                                                         'end program