Интересная библиотека для создания барграфов (это типо линейки с ползунком) в своем проекте. С помощью него упрощается визуальная настройка параметров, да и выглядит приятней и по взрослому.
На данный момент можно сделать такие шкалы:
Для подключения библиотеки в начале программы прописываем следующие строки:
Const Lcd_bar_style = [Style]
$include “lcd_bar.bas”
А в месте где нужно вывести барграф, вставляем вот это:
Locate [x] , [y]
Lcd_bar [value] , [x-size]
Небольшой пример использования в программе:
$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
В этом примере на дисплей выводится бар размером 14 знакомест с возможностью подстройки 0-100%.
В строчке выбирается стиль бара
Const Lcd_bar_style = [Style]
вместо параметра [style] вставляется цифра от 0 до 4, в данный момент возможно применение 5 стилей. Они обозначены цифрами на картинке в начале статьи.
Подключение библиотеки прописывается в строчке $include
Взято с: