LCD Bargraph with different styles: Unterschied zwischen den Versionen

Aus ProjectWiki
Wechseln zu:Navigation, Suche
(Download)
(Sample)
 
(Eine dazwischenliegende Version desselben Benutzers wird nicht angezeigt)
Zeile 30: Zeile 30:
 
Cls
 
Cls
 
Do
 
Do
   Locate 1 , 1
+
   Locate 1 , 2
   Lcd_bar Value , 5
+
   Lcd_bar Value , 14
  
   Value = Value + 1
+
   Value = Value + 2
   If Value = 101 Then Value = 0
+
   If Value = 102 Then Value = 0
  
 
   'Waitms 50
 
   'Waitms 50
Zeile 41: Zeile 41:
 
</pre>
 
</pre>
  
This simply draws a bar at the position [1, 1] and sweeps from 0-100%.
+
This simply draws a bar with a size of 14 characters at the position [1, 2] and sweeps from 0-100%.
 
 
  
 
== What it looks like ==
 
== What it looks like ==
Zeile 56: Zeile 55:
 
== Download ==
 
== Download ==
  
[http://www.braunecker.at/downloads/lcd_bar_1_0.zip Download LCD Bar 1.0 (.zip)]
+
[http://www.braunecker.at/downloads/lcd_bar_1_0.zip LCD Bar 1.0 (.zip)]

Aktuelle Version vom 15. Juni 2011, 01:24 Uhr

How to use it

In the top of your main program, just add these lines:

  Const Lcd_bar_style = [Style]
  $include "lcd_bar.bas"

To draw the Bargraph on the LCD:

  Locate [x] , [y]
  Lcd_bar [value] , [x-size]


Sample

Main File:

$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 16
$framesize = 32

$sim

Config Lcd = 16 * 2
Const Lcd_bar_style = 1
$include "..\inc\lcd_bar.bas"

Dim Value As Byte

Cls
Do
   Locate 1 , 2
   Lcd_bar Value , 14

   Value = Value + 2
   If Value = 102 Then Value = 0

   'Waitms 50
Loop
End

This simply draws a bar with a size of 14 characters at the position [1, 2] and sweeps from 0-100%.

What it looks like

Use

Const Lcd_bar_style = [Style]

with one of the styles listed below:

Bar styles

Character Table Style 4 only uses standard characters.

Download

LCD Bar 1.0 (.zip)