' Konfiguration des LCD

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.0 , Rs = Portb.1

Config Lcd = 20 * 4



' Analog-Digital-Converter (ADC) konfigurieren und starten.

Config Adc = Single , Prescaler = Auto

'Now give power to the chip

Start Adc



'Variablen für den ADC

Dim W As Word

Dim Channel As Byte



' Weitere Variablen

Dim Balken As Byte

Dim Zeile As Byte

Dim Block As Byte

Dim Lastchar As Byte

Dim I As Byte



' LCD initialisieren und löschen und kurz melden

Cls

Cursor Off Noblink                  ' Cursor aus

Lcd "Jetzt gehts los "              ' kurze Meldung auf Display

Wait 1                              ' ne Sekunde warten



' Eigene Zeichen für den Zeichengerrator definieren

Deflcdchar 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

Deflcdchar 1 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16       ' |

Deflcdchar 2 , 24 , 24 , 24 , 24 , 24 , 24 , 24 , 24       ' ||

Deflcdchar 3 , 28 , 28 , 28 , 28 , 28 , 28 , 28 , 28       ' |||

Deflcdchar 4 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30       ' ||||

Deflcdchar 5 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31       ' |||||



Cls



' Wir beginnen mit Kanal 1

Channel = 1



Do                                  ' jetzt die ewige Schleife

 W = Getadc(channel)               'Kanal 1 auslesen

 W = W / 10                        ' Wert durch 10 teilen

 Balken = W                        ' Wert in die Balkenvariable

 If Balken > 100 Then Balken = 100 ' auf max 100 begrenzen, mehr hat eine Zeile nicht

 Zeile = Channel                   ' jeder Kanal auf die jeweilige Zeile

 Gosub Bargraph                    ' und Balken ausgeben

 Incr Channel                      ' jetzt noch zum nächsten Kanal weiter zählen

 If Channel > 4 Then Channel = 1   ' wenn über 4 dann wieder zurück nach 1

 Waitms 100                        ' bisschen Pause, sonst flackert. etwa 100ms

Loop



End



' Routine malt den Balken

Bargraph:



 Block = Balken / 5                ' Ausrechen, wieviele volle Zeiche es gibt

 Lastchar = Balken Mod 5           ' und noch den Rest



 Locate Zeile , 1                  ' Zeile setzen



 I = 0

 While I < Block                   ' dicke Blöcke malen

   Lcd Chr(5)

   Incr I

 Wend



 If Lastchar > 0 Then Lcd Chr(lastchar)       ' restliche Striche als Zeichen malen



 While I < 19                      ' Rest der Zeile mit Leerzeichen auffüllen

   Lcd " "

   Incr I

 Wend



Return                              ' Fertig! Zrück zur Hauptschleife