roboforum.ru

Zeus писал(а):внутреннюю структуру микроконтроллера все равно надо знать?

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

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

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

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

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

Yuraskas писал(а):Т.е. подтяжка не включается?

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

2 avr123: Смотрел, и не единожды, то что подтяжка включается установкой бита в регистре PORT - знаю, просто я по наивности своей думал что баском сам подтяжку включает, когда конфигурируешь ногу на вход, оказалось - был не прав, что и подтвердил EdGull, спасибо ему за это. Значит для подтяжки нужно сделать еще Set PORTC.0

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

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

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

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

Код: Выделить всё

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

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

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

Код: Выделить всё

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


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

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

Код: Выделить всё

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

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

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

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

Код: Выделить всё

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

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

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

Код: Выделить всё

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

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