LCD Bargraph with different styles

Aus ProjectWiki
Version vom 31. Mai 2011, 02:11 Uhr von Mat (Diskussion | Beiträge) (Created page with "== How to use it == In the top of your main program, just add these lines: Const Lcd_bar_style = 1 $include "..\inc\lcd_bar.bas" To draw the Bargraph on the LCD: Locat...")
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Wechseln zu:Navigation, Suche

How to use it

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

  Const Lcd_bar_style = 1
  $include "..\inc\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 , 1
     Lcd_bar Value , 5
     Value = Value + 2
     If Value = 102 Then Value = 0
     'Waitms 50
  Loop

This simply draws a bar at the position 1, 1 and sweeps from 0-100%.

What it looks like