Учебный курс по Bascom AVR Basic для ЧАЙНИКОВ

nest

Zeus писал(а):

внутреннюю структуру микроконтроллера все равно надо знать?

я бы советовал писать сразу на асм.
тем более, что внутреннюю структуру микроконтроллера все равно знать надо, а с асм это получится быстрее всего.

blindman

Советы даны, на этом и остановимся. Даже не пытайтесь здесь устроить очередную свару C vs ASM vs Basic

Отвечать на мой пост тоже не надо

Yuraskas

Тема вроде про баском, надеюсь, начинающему можно задавать здесь вопросы...
Немного непонятен момент с включением внутренней подтяжки на ноге сконфигурированной на вход, т.е. пишу Config PINC.0 = Input, смотрю в протеусе - пин находится в состоянии Z. Посмортрел код в АВР-студии, включения подтяжки вроде не нашел... Т.е. подтяжка не включается?

galex1981

Подтяжка не включается...

EdGull

PINC.0 = Input просто включает ногу на вход, без подтяжки

avr123.nm.ru

Yuraskas писал(а):

Т.е. подтяжка не включается?

Посмотрите устройство ножки AVR , его вцелом и его портов

Yuraskas

2 avr123: Смотрел, и не единожды, то что подтяжка включается установкой бита в регистре PORT - знаю, просто я по наивности своей думал что баском сам подтяжку включает, когда конфигурируешь ногу на вход, :oops:

оказалось - был не прав, что и подтвердил EdGull, спасибо ему за это. Значит для подтяжки нужно сделать еще Set PORTC.0

pashteet

Yuraskas писал(а):

Тема вроде про баском, надеюсь, начинающему можно задавать здесь вопросы...
Немного непонятен момент с включением внутренней подтяжки на ноге сконфигурированной на вход, т.е. пишу Config PINC.0 = Input, смотрю в протеусе - пин находится в состоянии Z. Посмортрел код в АВР-студии, включения подтяжки вроде не нашел... Т.е. подтяжка не включается?

Меня когда-то тоже интересовал вопрос подтяжки на баскоме viewtopic.php?f=16&t=6714 советую прочитать в ознакомительных целях

Cut

встретил в такую строчку - $prog &HFF , &HE4 , &HD9 , &H00 'указываем какие фусибиты надо прошить
Что аткое фусибиты? , что такое "$prog"? Что такое &HFF , &HE4 , &HD9 , &H00???

space

Есть ли в баском, что-то типо игнорирования условия в программе? Суть проблемы в том, что у меня в программе сделано одно действие, которое исполняется при разных условиях. Вообщем вот:

Код:

Sub Вов

Tem1 = A
Tem2 = B

If Temp => Tem1 Then : Реле = 1 : End If

If Temp <= Tem2 Then : Реле = 0 : End If

Вклвыкл_Реле:

Toggle Реле                                                 'Инверсия логического уровня на ножке PORTD.4

Return                                                      'Возврат из подпрограммы в точку где произошло прерывание

End Sub

Реле включается при определённой температуре и также отключается. Но включается и отключается оно также и при нажатие на клавишу. Так вот когда нажимаю на клавишу реле включается и тут же отключается из-за условия:

Код:

If Temp <= Tem2 Then : Реле = 0 : End If

Как бы сделать так чтобы это условие игнорировалось при нажатие клавиши?

galex1981

А так не получается?

Код:

If Temp <= Tem2 And Кнопка <> нажата Then : Реле = 0 : End If

Где "Кнопка <> нажата" условие ненажатой кнопки

space

дело в том, что клавиша без Фиксации. Нажал реле включилось, снова нажал, реле выключилось. То есть сделал за счёт прерываний

Код:

Set Portd.2 : Вкл_выкл Alias Pind.2                         'Клавиша для принудительного вкл. и выкл. реле 
Config Portd.4 = Output : Реле Alias Portd.4   

Config Int0 = Falling                                       'Разрешаем прерывания по спаду напряжения On Int0
On Int0 Вклвыкл_Реле                                        'Задаём метку перехода по прерыванию
Enable Interrupts                                           'Разрешаем прерывания
Enable Int0                                                 'Разрешаем прерывания на ножке int0


Sub Вов

Tem1 = A
Tem2 = B

If Temp => Tem1 Then : Реле = 1 : End If

If Temp <= Tem2 Then : Реле = 0 : End If

Вклвыкл_Реле:

Toggle Реле                                                 'Инверсия логического уровня на ножке PORTD.4

Return                                                      'Возврат из подпрограммы в точку где произошло прерывание

End Sub

вот так более полно выглядит код

galex1981

Что то основной цикл программы не вижу. А вообще в основном цикле можно просматривать нажатие/отпускание клавиши по пину pind.2

space

не стал его просто выкладывать, а так вот:

Код:

Do
Call Температура : Call Вов
Locate 1 , 1
Lcd Time$ ; "**" ; Celsium ; "**"
Locate 2 , 1
Lcd Date$ ; "**" ; Fahrenhei ; "**"
If Меню = 0 Then : Gosub МенюП : End If
Loop

это можно, только что мне это даст не совсем понимаю?

space

galex1981, спасиб :Yahoo!:

Вообщем подумал, как можно использовать то что ты предложил и нашёл решение. Только в цикле фиксировал лишь нажатие клавиши за счёт команды:

Код:

Debounce

При удержание клавиши просто осущевствляю переход в другой цикл, котором убрал процеду по вкл. и выкл. реле за счёт температуры, и за счёт нажатие клавиши могу вкл. и выкл. реле. Может громоздка, но ведь работает

Код:

'*****************************Оcновной_цикл_программы***************************

Вкл._от_перемены_температуры:
Disable Int0                                                'Запрещаем прерывания на Int0
Sound Пищалка , 110 , 213

'*******************************************************************************

Do

Call Температура                                            'Вызвать подпрограмму(процедуру) "Температура"
Call Вов                                                    'Вызвать подпрограмму(процедуру) "Вов"
Locate 1 , 1
Lcd Time$ ; "**" ; Celsium ; "***"
Locate 2 , 1
Lcd Date$ ; "**" ; Fahrenhei ; "**"
If Меню = 0 Then : Gosub МенюП : End If                     'При нажатие клавиши меню, переходим на метку МенюП
Debounce Вкл_выкл , 0 , Вкл._от_клавиши
Loop

'*******************************************************************************

Вкл._от_клавиши:
Enable Int0                                                 'Разрешаем прерывания на Int0
Sound Пищалка , 140 , 299

'*******************************************************************************

Do
Call Температура                                            'Вызвать подпрограмму(процедуру) "Температура"
Locate 1 , 1
Lcd Time$ ; "**" ; Celsium ; "***"
Locate 2 , 1
Lcd Date$ ; "**" ; Fahrenhei ; "**"
If Меню = 0 Then : Gosub МенюП : End If                     'При нажатие клавиши меню, переходим на метку МенюП
Debounce Вкл_выкл , 0 , Вкл._от_перемены_температуры
Loop

'*******************************************************************************

roboforum.ru

Учебный курс по Bascom AVR Basic для ЧАЙНИКОВ

Кто сейчас на конференции