Форум
Приветствую Вас, Гость · RSS Суббота, 24.06.2017, 21:57

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Форум по статьям сайта » Все темы » Начинающему. Помощь с Bascom-AVR порты ADC
Начинающему. Помощь с Bascom-AVR порты ADC
tomas111Дата: Понедельник, 25.02.2013, 12:27 | Сообщение # 1
Группа: Front-rank users
Сообщений: 5
Доброго дня, начал изучение программирования, начал с bascom. Написал маленькую программу с использованием АЦП. Но в протеусе почему то не работает прога. Хотя от компилировался правильно и код вроде рабочий. Помогите понять почему не отоброжаеться. В архиве иходник прошивка и сам протеус.
Спасибо!

Код
Цитата
$regfile = "m8def.dat"                                      ' используем ATmega8
$crystal = 8000000
$lib "lcd4.lbx"                                             'используем 4-х битное подключение дисплея с помощью альтернативной библиотеки
'Библиотека lcd4.lbx использует следующее подключение -
'указываем конфигурацию подключения дисплея к портам МК
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 16 * 2                                         'используем дисплей на 2 строчки по 16 знакомест в каждой

Config Adc = Single , Prescaler = Auto , Reference = Avcc   'конфигурация АЦП
'объявляем переменные
Dim W As Word

Start Adc                                                   'запускаем аналого-цифровое преобразование

'--------------выводим заставку-------------------------------
Wait 1                                                      'задержка 1 секунда
Cursor Off                                                  'отключаем отображение курсора на ЖК
Cls                                                         'очитка дисплея
Locate 1 , 4                                                'позиция курсора
Lcd "RoboZone.SU"                                           'выводим надпись
Locate 2 , 5                                                ' позиция курсора
Lcd "ADC test"                                              'выводим надпись
Wait 2                                                      'задержка 2 секунды
'-------------------------------------------------------------
'главный цикл программы

Do

W = Getadc(0)                                              'считываем результат с пина 0 порта А.

Locate 1 , 4                                              ' позиция курсора
Lcd "ADC(0):" ; W ; "   "                                 'выводим результат преобразования на ЖК

Waitms 100                                                ' зедержка 0,1 секунды
Loop
End
Прикрепления: ADC0.rar(41Kb)


Сообщение отредактировал tomas111 - Понедельник, 25.02.2013, 12:28
 
RSSДата: Понедельник, 25.02.2013, 13:53 | Сообщение # 2
Omakaitse
Группа: Пользователи
tomas111,  с bascom ничего не подскажу, а вот в протеусе 20 ногу надо на + 5 вольт, и с 21 тоже надоть что-то делать.....
 
tomas111Дата: Вторник, 26.02.2013, 08:18 | Сообщение # 3
Группа: Front-rank users
Сообщений: 5
Все разобрались, помогли :)) оказывается что в протеусе нужно было просто подкинуть к напряжению 5 вольт :)) Как все бонально и просто :))
 
qewinДата: Воскресенье, 08.09.2013, 09:58 | Сообщение # 4
Группа: Пользователи
Сообщений: 1
Доброе время суток. Подскажите как вывести переменную  "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)       '  вывод  "*" буквы,цифры, переменной.
 
Форум » Форум по статьям сайта » Все темы » Начинающему. Помощь с Bascom-AVR порты ADC
Страница 1 из 11
Поиск:

Конструктор сайтов - uCoz
Copyright MyCorp © 2017