[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Вывод переменной "ADC" LCD Nokia 1202
qewinДата: Воскресенье, 08.09.2013, 12:36 | Сообщение # 1
Группа: Пользователи
Сообщений: 51

Статус: Offline
Доброе время суток.Я только учусь wacko .Подскажите как вывести переменную  "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 подсуетились )))


 
  • Страница 1 из 1
  • 1
Поиск: