LCD Bargraph with different styles: Unterschied zwischen den Versionen
Aus ProjectWiki
Mat (Diskussion | Beiträge) |
Mat (Diskussion | Beiträge) (→Sample) |
||
(4 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
Zeile 30: | Zeile 30: | ||
Cls | Cls | ||
Do | Do | ||
− | Locate 1 , | + | Locate 1 , 2 |
− | Lcd_bar Value , | + | Lcd_bar Value , 14 |
− | Value = Value + | + | Value = Value + 2 |
− | If Value = | + | 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, | + | 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 49: | Zeile 48: | ||
with one of the styles listed below: | with one of the styles listed below: | ||
− | [[File: | + | [[File:lcd_bar_styles.jpg|Bar styles]] |
+ | [[File:lcd_character_table.png|width|400px|Character Table]] | ||
+ | Style 4 only uses standard characters. | ||
== Download == | == Download == | ||
− | [http://www.braunecker.at/downloads/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
Inhaltsverzeichnis
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:
Style 4 only uses standard characters.