Доброго дня, начал изучение программирования, начал с 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
