Как сохронить данные введёные с на LCD? - Страница 2

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 2 из 2 « 1 2
Модератор форума: demanik, ivan_fd

Как сохронить данные введёные с на LCD?

Alexej79

Дата: Сб, 17.05.2014, 14:30 | Сообщение # 16

Группа: Проверенные

Ранг: Понимаю

Сообщений: 71

Репутация: 0 ±

Замечания: ±
На сайте с 16.08.2010

Статус: Offline

Цитата Matrix252005 (

)

клавиатура какая

Клавиатура спаянна по такой вот схеме, но резисторы и расположение их другое, но принцип такой.

Вот фрагмент кода моей программы. Часть где обрабатывается нажатие кнопок
Код
Dim K As Byte 'переменная для опроса клавиатуры
Dim A As Bit 'переменная для опроса нажатия кнопок
Dim Z As Byte 'переменная для присвоения цифры с таблицы
Dim Zahl As Byte 'переменная фактически нажатой кнопки
Dim I As Byte 'переменная флаг для формулы после запятой
Dim R As Word 'переменная для целых чисел
Dim G As Float 'переменная для десятичных чисел
Dim X As Byte 'переменная позиции курсора для вывода запятой
A=0:R=0:I=0:X=1
........
Start:
K=ADIn 1 'опросить клавиатуру с вывода 3 AN1
DelayUS 1'пауза для разрядки кондёра
Z=LookDownL K,<=[35,42,50,55,57,68,74,80,86,92,94,96]' таблица присваивания
Zahl=LookUpL Z, [3, 6, 9,11, 0, 8, 5, 2, 1, 4, 7,10]' фактически нажатая цифра
Print $FE,$0F' мигающий курсор
If Zahl=10 And K<240 And A=0 Then A=1: I=1:Print At 1,X,"."'если нажата запятая
If Zahl=11 And K<240 And A=0 Then A=1: R=0:I=0:X=1:Cls' если нажат ENTER
If K<240 And A=0 And I=0 Then DelayMS 10:R=(R*10)+Zahl:Print At 1,1, Dec R: A=1:X=X+1' формула для целых чисел
If K<240 And A=0 And I=1 Then DelayMS 10:G=R+(Zahl/10):Print At 1,1, Dec1 G: A=1' формула для десятичных чисел
If K>240 Then DelayMS 10: A=0' когда отпущена кнопка
Goto Start
Вот как то так я реализовал эту часть программы. Если есть какие замечания пишите.

Сообщение отредактировал Alexej79 - Сб, 17.05.2014, 14:34

Matrix252005

Дата: Пн, 19.05.2014, 14:25 | Сообщение # 17

Группа: Проверенные

Ранг: Разобрался

Сообщений: 636

Репутация: 43 ±

Замечания: ±
На сайте с 12.10.2007

Статус: Offline

Приятного времени суток!!!

Цитата

If Zahl=10 And K<240 And A=0 Then A=1: I=1:Print At 1,X,"."'если нажата запятая
If Zahl=11 And K<240 And A=0 Then A=1: R=0:I=0:X=1:Cls' если нажат ENTER
If K<240 And A=0 And I=0 Then DelayMS 10:R=(R*10)+Zahl:Print At 1,1, Dec R: A=1:X=X+1' формула для целых чисел
If K<240 And A=0 And I=1 Then DelayMS 10:G=R+(Zahl/10):Print At 1,1, Dec1 G: A=1' формула для десятичных чисел
If K>240 Then DelayMS 10: A=0' когда отпущена кнопка

Alexej79, возьмите себе за правило, не пишите все в одну строчку!!!!!!!!
Это тяжело читать и не поймешь где ошибка...

If Zahl = 10 And K < 240 And A = 0 Then ' если нажата запятая
A = 1
I = 1
Print At 1, X, "."
EndIf

С уважением, Николай.

Добавлено (19.05.2014, 14:25)
---------------------------------------------
Alexej79, а где у Вас идет обнуление "Х"??? Присваивание 1 вижу.... Инкремент "Х" вижу... А обнуление не вижу....

sad Или я что то не так понял...

Если можно, выложите весь проект вместе с схемой в протеусе...

С уважением, Николай.

Сообщение отредактировал Matrix252005 - Пн, 19.05.2014, 14:14

ADMIN

Дата: Ср, 21.05.2014, 03:04 | Сообщение # 18

Администратор

Группа: Администраторы

Ранг: Специалист

Сообщений: 1086

Репутация: 32 ±

Замечания: ±
На сайте с 20.08.2007

Статус: Online

Alexej79, здесь, судя по всему, вам будет полезно почитать

Alexej79

Дата: Пт, 23.05.2014, 23:55 | Сообщение # 19

Группа: Проверенные

Ранг: Понимаю

Сообщений: 71

Репутация: 0 ±

Замечания: ±
На сайте с 16.08.2010

Статус: Offline

ADMIN, спасибо за ссылку, полезная для меня статья.

Цитата Matrix252005 (

)

Если можно, выложите весь проект вместе с схемой в протеусе...

Да, я выложу проект но позже сейчас я уже сам там запутался. Всё это время разбирался в Протеусе как запустить отладку программы.
Дело в том что окно с названием Variables - U1 остаётся всегда пустым хотя там должны показываться переменные которые присутствуют в моей программе. Вот так выглядит это.