ZverXz писал(а):Здрасьте. Собрал программатор по этой ссылке http://radioded.ru/content/view/100/1 но никак не получается прошить контроллер(атмега32). Пишет ошибку
avrdude.exe: can't open device "LPT1"
avrdude.exe: failed to open parallel port "LPT1"
что надо проверить? Спаял как и там все по схме, но только на макетке.
А другие контроллеры шьёт? Хотя, сомневаюсь... Программатор не опознает порт LPT1. Это бывает по причине того, что Windows XP (если у вас именно он установлен?) работает с портами через API, а не напрямую, как, например Windows 98. Чтобы это победить, надо кое-чего установить дополнительно. Программу p95NT, например. Она поставит нужные драйвера и передаст управление портами COM и LPT вашей программе.
И позволю себе дать вам совет: собирайте программатор для USB от Prottossa и будет вам счастье. Правда в нем нужен МК ATMega8 с прошивкой, но, думаю, что уж один раз контроллер готовой прошивкой - найдете где залить...
Igor_67, спасибо. щас попробую скачать программу(еще у меня windows 7 может из-за этого) нашел где в соседнем городе прошить можно. Но только выбраться не получается, учеба. А по воскресеньям не работают.
Slawakuzmich писал(а):Все, сделал устройство, работает.
Я тут на досуге почитал ваши предыдущие посты. У меня возникает такой вопрос, вернее два:
1) Как вы калибруете свой прибор, если не знаете, какой терморезистор в нем стоит, т.е отношение R/t - неизвестно!
2) Вытекающий из предыдущего вопроса...
О точности прибора, ИМХО, остается только догадываться. Так как, судя по вашему описанию калибровки
-"...греем терморезистор до нужной температуры..."
До какой нужной??? Как и чем вы определили, что она та самая "нужная"???
Вот такие непонятки, разъясните, пжалста!
Как реализовать чтоб светодиод светился и после отпускания кнопки?
(код пожалуйста)
Как реализовать 1 минутный таймер с запуском от 1-й кнопки, и возможностью прерывания и перехода к другой процедуре от 4-х других кнопок?
(код пожалуйста)
Проще описать настройку на примере бензомера. Цепляем устройство к стандартному поплавково-реостатному датчику, бак соответственно пустой. Нажимаем кнопку "калибровка(или настройка, кому как нравится)". заливаем в бак количество бензина, которое будет определять первый светодиод, например 3 литра. Нажимаем вторую кнопку - значение запомнилось. Заливаем следующую порцию, к примеру литра 2, чтоб второй диод зажигался при 5 литрах. Нажимаем кнопку- второе значение запомнилось. И так для всех значений(8 светодиодов - 8 значений). выходим из режима калибровки. Теперь светодиоды будут загораться в соответствии с записанными значениями , при 3 литрах - первый, при 5 - второй и так далее.
С датчиком температуры - аналогично, только температуру при настройке нужно будет измерять каким либо градусником.
По-поводу написанного выше про 4 датчика DS18B20:
Выкладываю полный текст программы и схему.
Устройство предусматривалось, как контроллер предохранения водопроводных труб от замерзания в сильные морозы. Если температура на любом из датчиков, расположенных в разных местах трубы становится ниже +1 градуса, то выдается сигнал на PORTB.5. В моем случае, этот сигнал управляет включением ПЛЭН (пленочного электронагревателя), который обмотан вокруг трубы по всей ее длине. Сейчас весна и это уже, возможно, не актуально, но на следующую зиму - кто знает...? Особенно касается частных домов. Если у кого-то есть предложения по улучшению-усовершенствованию, милости прошу - пишите!
To Redrik Shuhart: У меня компилятор на твой код не просто ругается, а аж матом орет, что раз в программе есть оператор DO, то должен быть и LOOP, а у тя ни одного ЛУПа нету...
Redrik Shuhart писал(а):нее, крепятся конечно, но так быстрее будет, скопировал- вставил, нажал компилЪ, а так скачай. разарживируй, открой, запусти....
Плиз, Игорь, сделай...
Еще раз поподробнее, у мну кнопки <компилЪ>нету...
Ну скомпилил я тебе твой код, правда весь править пришлось. А толку-то??? Отправить не могу, файлы к мессаджу не крепятся. Что за фигня???
не спорю. Но я всего 3 недели, как познакомился с мк. Во первых взял что было в магазине, а во вторых, как говорится запас ХХХ не ХХХ. Еще неделки три посижу, может всю панель на одной меге соберу. Вместо 4 микросхем и кучи подстроечников. Думаю реализовать сразу два индикатора на одном мк - на топливо и на температуру, в общем 2 линейки по 8 светодиодов - не составит особой сложности.
$regfile = "m8def.dat"
$crystal = 10000000
Config Portc = Output
Config Portd.0 = Input
Config Portd.1 = Input
Config Portd.2 = Input
Config Portd.3 = Input
Config Portb.0 = Input
Config Portb.1 = Input
Config Portb.2 = Output
Config Portb.3 = Output
Portc = 0
Portb.2 = 0
Portb.3 = 0
Enable Interrupts
On Int0 Stopbutton
Dim A As Byte
A = 0
Do
If Portb.0 = 1 Then A = A + 1
If A = 1 Then Do
If Portd.0 = 1 Then Do
Portc.0 = 1
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Portd.3 = 0
Portd.2 = 0
Portd.1 = 0
Loop
End
If Portd.1 = 1 Then Do
Portc.1 = 1
Config Portd.0 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Portd.3 = 0
Portd.2 = 0
Portd.0 = 0
Loop
End
If Portd.2 = 1 Then Do
Portc.2 = 1
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.3 = Output
Portd.3 = 0
Portd.0 = 0
Portd.1 = 0
Loop
End
If Portd.3 = 1 Then Do
Portc.3 = 1
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.0 = Output
Portd.0 = 0
Portd.2 = 0
Portd.1 = 0
Loop
Loop
End
If A = 0 Then Do
If Portd.0 = 1 Then Do
Portc.4 = 1
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Portd.3 = 0
Portd.2 = 0
Portd.1 = 0
Loop
End
If Portd.1 = 1 Then Do
Portc.5 = 1
Config Portd.0 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Portd.3 = 0
Portd.2 = 0
Portd.0 = 0
Loop
End
If Portd.2 = 1 Then Do
Portb.4 = 1
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.3 = Output
Portd.3 = 0
Portd.0 = 0
Portd.1 = 0
Loop
End
If Portd.3 = 1 Then Do
Portb.5 = 1
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.0 = Output
Portd.0 = 0
Portd.2 = 0
Portd.1 = 0
Loop
Loop
Loop
End
Stopbutton:
Return
Давай проанализируем твой код. Зачем столько End-ов в программе? И зачем каждый раз при выполнении того или иного условия, ты конфигурируешь порты? И зачем, блин, для простой мигалки кварц аж на 10 МГц??? Хватит внутреннего генератора на 1МГц. И вместо PORTD.X=0 целесообразнее писать: Reset PORTD.X, а вместо PORTD.X=1 -- Set PORTD.X И еще одно замечание: если собираешься использовать прерывание (в твоем случае INT0), то надо его разрешить Enable INT0, а в твоем листинге такой строчки нет...
