MODDING-FAQ FORUM

int main(void)
{
lcd_init();
init_cg_ram();

lcd_clear();

bargraph(8); /* Diese Zeile stammt aus Spunkys Feder. Der Rest ist ein Beispielprogramm */
}

' 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