'------Тест программы Меню BAS  --------

$regfile = "m88def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 16

'--------------------------- Параметры дисплея ---------------------------------
'--------------------------  NOKIA-1202 display  -------------------------------
'*******************************  96х68 рх *************************************
$lib "glcd-Nokia1100.lib"                    'Подключаем библиотеку lcd

'--------------------------  Настраиваем LCD  ----------------------------------
Config Graphlcd = 128x64sed , Cs1 = Portb.0 , Si = Portb.2 , Sclk = Portb.1 , Rst = Portb.7       'подключяем дисплей к портам МК
Config Portb.6 = Output : Led Alias Portb.6 : Led = 1
Const Negative_lcd = 0                    'Для негативного вывода информации, установить "Negative_lcd = 1"
Const Mirror_y = 1                    'Для переворота по Y установить "1/0"
Const Mirror_x = 1                    'Для переворота по X установить "1/0"
Initlcd                    'Инициализируем LCD
Cls                    'Очищаем LCD

'******************************* Переменные ************************************
Dim Dv As String * 4 , Di As String * 4 , Dt As String * 4 , U1 As Word , I1 As Word , T1 As Byte

'--------------------------- переменные меню -----------------------------------
Dim I As Word
Dim U As Word
Dim T As Byte

Dim I_epr As Eram Word
Dim U_epr As Eram Word
Dim T_epr As Eram Byte

'-------------------------------------------------------------------------------
$include "menu_start.bas"
'-------------------------------------------------------------------------------

Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input

Do

U1 = U_epr
I1 = I_epr
T1 = T_epr

Setfont Font6x8

Dv = Str(u1)
Di = Str(i1)
Dt = Str(t1)
Lcdat 5 , 10 , "Set U="
Lcdat 5 , 76 , "V"
Lcdat 5 , 50 , Dv ;

Lcdat 5 , 10 , "Set I="
Lcdat 5 , 76 , "A"
Lcdat 5 , 50 , Di ;

Lcdat 5 , 10 , "Set t="
Lcdat 5 , 76 , "s"
Lcdat 5 , 50 , Dt ;

'-------------------------------- Меню -----------------------------------------
Menu:
Knopka = 0                    'Сброс кнопки
M_exit = 0                    'Флаг выхода из меню
Flag = Reload                    'Флаг загрузки меню

Setfont Font6x8                    'устанавливаем шрифт
Lcdat 1 , 1 , "  *** menu ***  " , 0                        'Шапка меню опционально, учитывать настройки вывода меню

Do
If Pinc.0 = 0 Then Knopka = 1                    'Кнопка=1 ( back / - )
If Pinc.1 = 0 Then Knopka = 2                    'Кнопка=2 ( Next / + )
If Pinc.2 = 0 Then Knopka = 3                    'Кнопка=3 ( ОК )
Call Menu_load_value_data()

Loop Until M_exit = 1

'Сохраняем данные в память
I_epr = I
U_epr = U
T_epr = T

Return                    'или Goto
'===============================================================================

'===============================================================================
' End не ставить
$include "menu_end.bas"
'-------------------------------------------------------------------------------
$include "Шрифты\font6x8.font"
$include "Шрифты\font12x16dig.font"