| qewin | Дата: Воскресенье, 08.09.2013, 12:36 | Сообщение # 1 |
|
Группа: Пользователи
Сообщений: 51
Статус: Offline
| Доброе время суток.Я только учусь  .Подскажите как вывести переменную "ADC" на lcd Nokia1202
$regfile = "m8def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 64
$framesize = 40
Config Adc = SINGLE , Prescaler = 128 , Reference = Avcc
Dim M As Single
Start ADC ' запускаем преобразование
M = GetADC(1) ' приравниваем переменную М результату преобразования
LCD M ' ( <<<<< вывод на Lcd но у меня библиотека по которой выводиться !!!!)
M = Getadc(1) ' <<<<< Но Bascom пишет ошибку 242
Text=Fusing(m, "#.##" )
Call Nokia_pos(1 , 2) ' позиция вывода
Call Nokia_text( text , 1 , 0 , 1) ' вывод "*" буквы,цифры, переменной.
|
| |
| |
| exersizze | Дата: Воскресенье, 08.09.2013, 18:55 | Сообщение # 2 |
Группа: Администраторы
Сообщений: 723
Статус: Offline
| Замените тип переменной М на word, (в single значения АЦП не кладут).
А для операции fusing заведите отдельную переменную типа single
|
| |
| |
| qewin | Дата: Воскресенье, 08.09.2013, 21:38 | Сообщение # 3 |
|
Группа: Пользователи
Сообщений: 51
Статус: Offline
| Спасибо exersizze . Все разобрался
Config Adc = SINGLE , Prescaler =Auto , Reference = Avcc
Dim Volt As Word
Dim M as Single
Start ADC ' запускаем преобразование
Volt= GetADC(1) ' приравниваем переменную Volt результату преобразования
M=Volt
Text=Fusing(m, "#.##" )
Call Nokia_pos(1 , 2) ' позиция вывода
Call Nokia_text( text , 1 , 0 , 1) ' вывод "1.23" переменной.
Сообщение отредактировал qewin - Воскресенье, 08.09.2013, 21:38 |
| |
| |
| selevo | Дата: Четверг, 10.09.2015, 17:28 | Сообщение # 4 |
Группа: Пользователи
Сообщений: 3
Статус: Offline
| что-то я не понял, Bascom знает экран 1202 ?
|
| |
| |
| kestrel | Дата: Четверг, 10.09.2015, 21:21 | Сообщение # 5 |
|
Группа: Проверенные
Сообщений: 52
Статус: Offline
| да, и не только:
http://bascom.at.ua/publ....-1-0-69
|
| |
| |
| selevo | Дата: Четверг, 10.09.2015, 22:44 | Сообщение # 6 |
|
Группа: Пользователи
Сообщений: 3
Статус: Offline
| ааа,понял там перепечатка с другого сайта,там и под AVRCodeVison есть вариант
а фал просто портация с AVRGCC
я то думал bascom подсуетились )))
|
| |
| |
