Balkendarstellung auf LCD

[meldano]

Hi,

ich möchte gerne einen Messwert als Balken auf einem LCD anzeigen.
Bei einem 16 stelligen LCD habe ich ja 16 Zeichen. Jetzt habe ich mir ein Sonderzeichen erstellt, welches ein Zeichenfeld komplett ausfüllt.
Dazu folgender Code:

For Z=1 to Messwert
Locate 1,Z
LCD Chr (0)
Next

So wird der Balken auch sauber ausgegeben =D>

Doch würde ich die Auflösung gerne Verdoppeln. D.h. zwei Sonderzeichen bilden. Eins den linken und den rechten Teil schwarz. Und ein Sonderzeichen nur den rechten Teil schwarz.
Ich habe eine absolute Denksperre wie ich die Anforderung in einen sinnvollen Code umsetze.

Hat jemand einen Tip?

Danke
Daniel

[darwin.nuernberg]

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

[darwin.nuernberg]

Ich hab nochmal ein anderes Beispiel geschrieben, diesmal auch mit halben Segment:


Ich gehe mal davon aus dass Du die ADC-Werte ausgeben möchtest, also eine 10-Bit Auflösung, ansonsten musst Du eben anpassen.


Die Zeichen müssen allerdings anders definiert werden als im vorherigen Beispiel:
Zeichen 7 = volles Segment
Zeichen 6 = halbes Segment
da der String-Befehl mit dem Zeichen 0 nichts macht.

Meine Funktion Bargraph wird aufgerufen, welche einen String erzeugt (eben mit den chr(7) und/oder dem chr(6))
1. Parameter ist der Messwert (ohne Prüfung des Maximalwertes)
2. Parameter 0 oder 1 gibt als Print zusätzliche infos iber RS232 aus oder eben nicht (debugging).


Sicherlich könnte man das ganze noch optimierter schreiben,
aber es erfüllt seinen Zweck.

Hier das Teil:

'-----------------------------------------------------------------------------------------
'name                     : LCD-Interface Messwert Darstellung.bas
'purpose                  : TEST: LCD 16 Chars, 2 Lines  Bargraph Output
'micro                    : Mega32
'suited for demo          : yes
'commercial addon needed  : no
'programmer               : darwin.nuernberg (www.roboternetz.de)
'-----------------------------------------------------------------------------------------

$regfile = "m32def.dat"                                     ' specify the used micro
$crystal = 8000000                                          ' used crystal frequency
$baud = 9600                                                ' use baud rate
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space




' Die folgende Zeile entfernen wenn das Programm NICHT im Simulator laufen soll
$sim                                                        ' entfernen wenn keine Bascom Simulation
' ==============================================================================




Definitionen:
Declare Function Bargraph(byval Messwert As Word , Byval Verbose As Byte) As String       ' Messwert = eine ADC-Variable


' LCD einrichten
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6                                                            ' $sim is used for faster simulation
Deflcdchar 7 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31        ' Volles Segment
Deflcdchar 6 , 24 , 24 , 24 , 24 , 28 , 28 , 28 , 28        ' halbes Segment
Config Lcd = 16 * 2
Initlcd

' ==============================================================================


Hauptprogramm:

Dim Mw As Word                                              ' Messert (0-255)
Dim X As Word

Cls                                                         ' LCD Löschen

For X = 0 To 1024
   Locate 1 , 1
   Lcd "Testwert = " ; X
   Locate 2 , 1
   Lcd Bargraph(x , 0)
Next X
Waitms 500

Do

   Input "Messwert = " , Mw                                 ' Zum Testen Eingabe erfordelich
   Cls                                                      ' LCD Löschen
   Locate 1 , 1                                             ' Pos. in 1. Zeile an 1. Stelle
   Lcd "BARGRAPH"                                           ' Text auf das LCD Schreiben

   Locate 2 , 1
   Lcd Bargraph(mw , 0)                                     ' 2. Parameter = 0 keine Printausgaben

Loop
End                                                         'end program

' ==============================================================================

Function Bargraph(byval Messwert As Word , Byval Verbose As Byte) As String       ' Messwert = eine 10-Bit-Variable

   Local W_zeichenlaenge As Word
   Local W_maxmesswert As Word
   Local W_valueganzessegment As Word
   Local W_valuehalbessegment As Word
   Local W_anzahlzeichen As Word
   Local W_anzahlhalbzeichen As Word
   Local W_habzeichenvorhanden As Word

   Bargraph = ""

   If Messwert >= 1 Then
      W_zeichenlaenge = 16                                  ' Zeichenlänge des Bargraph
      W_maxmesswert = 1024                                     ' Maximaler Wert  (10 Bit)
      W_valueganzessegment = W_maxmesswert / W_zeichenlaenge
      W_valuehalbessegment = W_valueganzessegment / 2

      W_anzahlhalbzeichen = Messwert / W_valuehalbessegment
      W_anzahlzeichen = W_anzahlhalbzeichen / 2
      W_habzeichenvorhanden = W_anzahlhalbzeichen Mod W_anzahlzeichen

      If Verbose > 0 Then                                   ' Nur Ausgabe wenn > 0
         Print "Zeichen für Bargraph  = " ; W_zeichenlaenge
         Print "Maximaler Wert        = " ; W_maxmesswert
         Print "Angezeigter Messwert  = " ; Messwert
         Print "Wert pro Segment      = " ; W_valueganzessegment
         Print "Wert pro halb Segment = " ; W_valuehalbessegment
         Print "Anzahl Bargraph       = " ; W_anzahlzeichen
         Print "Halbes Zeichen        = " ; W_habzeichenvorhanden
      End If


      If W_anzahlzeichen > 0 Then                           ' Nur wenn ganze Zeichen ausgegeben werden sollen
         Bargraph = String(w_anzahlzeichen , 7)
      Else
         Bargraph = ""
      End If

      If W_habzeichenvorhanden > 0 Then
       Bargraph = Bargraph + Chr(6)
      End If

   End If

End Function
End

[darwin.nuernberg]

Hier ein Beispiel mit noch feinerer Auflösung:

Es werden 5 Benutzerdefinierte Zeichen benötigt,

Die Auflösung von einer Pixelspalte ist nun möglich (Zeichen = 5 Pixel Breit)

Bei Wert = 0 wird kein Balken angezeigt,
ab Wert = 1 wird bereits ein Balken angezeigt.

'-----------------------------------------------------------------------------------------
'name                     : LCD-Interface Messwert Darstellung.bas
'purpose                  : TEST: LCD 16 Chars, 2 Lines  / Bargraph Output
'micro                    : Mega32
'suited for demo          : yes
'commercial addon needed  : no
'programmer               : darwin.nuernberg (www.roboternetz.de)
'-----------------------------------------------------------------------------------------

$regfile = "m32def.dat"                                     ' specify the used micro
$crystal = 8000000                                          ' used crystal frequency
$baud = 9600                                                ' use baud rate
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space




' Die folgende Zeile entfernen wenn das Programm NICHT im Simulator laufen soll
$sim                                                        ' entfernen wenn keine Bascom Simulation
' ==============================================================================




Definitionen:
Declare Function Finebargraph(byval Messwert As Word , Byval Verbose As Byte) As String       ' Messwert = eine 10-Bit-Variable


' LCD einrichten
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6                                                            ' $sim is used for faster simulation
Deflcdchar 7 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31                            ' Volles Segment
Deflcdchar 6 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30                            ' 4 Spalten
Deflcdchar 5 , 28 , 28 , 28 , 28 , 28 , 28 , 28 , 28                            ' 3 Spalten
Deflcdchar 4 , 24 , 24 , 24 , 24 , 24 , 24 , 24 , 24                            ' 2 Spalten
Deflcdchar 3 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16                            ' 1 Spalte

Config Lcd = 16 * 2
Initlcd

' ==============================================================================


Hauptprogramm:

Dim Mw As Word                                                                  ' Messwert
Dim X As Word

Cls                                                                             ' LCD löschen

   For X = 0 To 1024 Step 12
      Locate 1 , 1
      Lcd " WERT " ; X
      Locate 2 , 1
      Lcd Finebargraph(x , 0)
      Lcd "<"

   Next X
   Waitms 500

Do

   Input " Messwert eingeben : " , Mw                                           ' Eingabe zum Testen
   Cls                                                                          ' LCD löschen
   Locate 1 , 1                                                                 ' Pos. in 1. Zeile an 1. Stelle
   Lcd "BARGRAPH"                                                               ' Text auf das LCD Schreiben

   Locate 2 , 1
   Lcd Finebargraph(mw , 1)                                                     ' 2. Parameter = 0 keine Printausgaben
     Lcd "<"

Loop
End                                                                             'end program

' ==============================================================================

Function Finebargraph(byval Messwert As Word , Byval Verbose As Byte) As String * 17       ' Messwert = eine 10-Bit-Variable

   Const Rows_in_bargraphline = 16                                              ' Zeichenlänge des Ausgabe - Strings (Chars)
   Const Rows_per_bargraphchar = 5                                              ' Pixelspalten pro Zeichen (Sonderzeichen)
   Const Bargraphmaxvalue = 1024                                                ' Maximaler Wert

   Local Finebargraphresolution As Word                                         ' feinste Auflösung
   Local Roughbargraphresolution As Word                                        ' Auflösung 1 Volles Zeichen
   Local Countbargraphfullchar As Word                                          ' Anzahl Vollzeichen
   Local Bargraphrest As Word                                                   ' Rest welcher nicht als Vollzeichen dargestellt wird
   Local Bargraphfinechar As String * 1                                         ' Char -  für feinauflösung
   Finebargraphresolution = Rows_in_bargraphline * Rows_per_bargraphchar
   Finebargraphresolution = Bargraphmaxvalue / Finebargraphresolution

   Roughbargraphresolution = Bargraphmaxvalue / Rows_in_bargraphline


   Countbargraphfullchar = Messwert / Roughbargraphresolution                   ' Anzahl ganzer Segmente
   Bargraphrest = Messwert Mod Roughbargraphresolution                          ' Restwert



   Select Case Bargraphrest
      Case 0 : Bargraphfinechar = Chr(32)                                       ' Zur Darstellung des Restwertes
      Case Is <= 12 : Bargraphfinechar = Chr(3)
      Case Is <= 24 : Bargraphfinechar = Chr(4)
      Case Is <= 36 : Bargraphfinechar = Chr(5)
      Case Is <= 48 : Bargraphfinechar = Chr(6)
      Case Is <= 60 : Bargraphfinechar = Chr(7)
      Case Else : Bargraphfinechar = ""                                         ' nichts weiter
   End Select


   If Verbose > 0 Then
      Print " Maximalwert        = " ; Bargraphmaxvalue                         ' Maximal darstellbarer Wert
      Print " grobe Aufloesung   = " ; Roughbargraphresolution                  ' grobe Auflösung (1-Zeichen)
      Print " feinste Aufloesung = " ; Finebargraphresolution                   ' feine Auflösung (1 Pixelspalte)
      Print " Anzahl ganzer Seg. = " ; Countbargraphfullchar                    ' Anzahl der "Vollzeichen"
      Print " Rest des Wertes    = " ; Bargraphrest                             ' verbleibender Wert für Feindarstellung
      Print
   End If


   If Countbargraphfullchar > 0 Then
    Finebargraph = String(countbargraphfullchar , 7) + Bargraphfinechar
   Else
    Finebargraph = Bargraphfinechar
   End If
   Finebargraph = Trim(finebargraph)

End Function

End                                                                             'end program

[meldano]

Hi,

danke für die Infos!

Muss mich mal reinlesen.

Daniel

[darwin.nuernberg]

Nimm aus dem letzten Beispiel die beiden Zeilen

      Lcd "<"

raus, dann funktioniert (in der Simulation) die Darstellung besser.

PS: Die Funktion kann auch einfach an breitere/schmälere Displays angepasst werden, nur 2 Paramter sind zu ändern:

Function Finebargraph(byval Messwert As Word , Byval Verbose As Byte) As String * 17       ' Messwert = eine 10-Bit-Variable
Const Rows_in_bargraphline = 16

[darwin.nuernberg]

Hallo meldano,
was ist jetzt mit dem Proggi für den LCD-Bargraph????

Funktioniert es so wie Du es Dir vorgestellt hast,
ist etwas brauchbares für Dich dabei gewesen,
oder hast Du keinen gefallen mehr an Deiner Idee?

Poste doch mal was...
Wnn ich mir schon die mühe gemacht habe, will ich auch wissen ob sie sich gelohnt hat.
https://www.roboternetz.de/phpBB2/ze...=298727#298727

[meldano]

Hi,

die Idee wird schon noch umgesetzt. Da aber die letzten Tage zu kurz waren um mich anständig damit auseinander zu setzen, ist leider noch nicht viel geschehen.

Mein Messwert ist ein 7-Bit breites Signal an einem Pin Register. D.h. 0...127.
Der Controller ist ein Tiny2313. Die ganze Sache muss mit möglichst wenig Code auskommen da der Tiny nur 2k Flash hat.

Da ich noch Anfänger bin, kann ich im Moment aber noch nichts mit deinen Beispielen anfangen.
Z.B.

Function Finebargraph(byval Messwert As Word , Byval Verbose As Byte) As String * 17

und

Local Bargraphfinechar As String * 1

sagt mir noch gar nichts da ich noch nicht mit diesen Funktionen gearbeitet habe.

Ein Ergebnis poste ich auf jeden Fall, da ich ja selber immer die Suche nutze um evt. auftretetene Probleme zu lösen.

Guß
Daniel

P.S. Vielleicht erklärst du mir ja mal die "Funktionsgeschichte".

[darwin.nuernberg]

Sind ja auch keine fertigen sondern eben selbst programmiert.

Eine Funktion ist ein Unterprogramm oder auch Sub genannt, welches ein Ergebniss zurückliefert. In meinem Falle eben einen String (Zeichenfolge)

Der Funktion wird ein Wert übermittelt und gibt einen String zurück.
In diesem Fall eben die Sonderzeichen, welche im LCD definiert wurden.

String = Funktion(Variable1,Variable2)
wobei Variable1Dein Messwert ist und Variable2 einfach eine Zusatzinfoausgabe anregt oder nicht.

Und Local ist genau sowas wie ein DIM allerdings nur in Unterprogrammen oder Functions zu verwenden und auch nur dort gültig (vom Rest nicht sichtbare Variablen)

In diesem Fall ein String mit der Länge von 1 Zeichen


Aber ich merk schon, Du bist noch nicht so Fit mit Basic, macht aber nix, ich denke das ist genau die richige Herausforderung zum lernen.

Viel spass noch

[whynot]

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.

' 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