BASCOM AVR в вопросах и ответах

[Секретный кот]

А где можно посмотреть непосредственно о самом языке Баском: что справедливо для него, какой у него синтаксис, какие он использует операторы, список операторов?

Ну про хелп тут уже сказали, также можно рекомендовать PDF manual.

[осторожно! леоныч!!!]

А как же книги и самоучители? Ссылки не нужны?

[Gordon Shumway]

А как же книги и самоучители? Ссылки не нужны?

Я начинал с Декады, потом задавал глупые вопросы здесь. Имхо самый лучший самоучитель - макетная плата с микроконтроллером и программатор. И живой интернет. ПисАть своё, курочить чужое - нужно пробовать. И не стесняться задавать вопросы.

[осторожно! леоныч!!!]

Gordon Shumway! Золотые слова Я тоже начинал с декады и отсюда http://avr.ru/beginer/bascom. Только в железе копаться сразу посчитал не вариантом. Компилятор + протеус это то что мне было необходимо для начала и чем я пользуюсь сейчас. Я старался поменьше задавать глупых вопросов, читал форумы, разбирал чужие примеры , пробовал, экспериментировал. Начало есть а дальше само попрет))) Ну и конечно же необходимы исходники с подробными комментариями. Так можно быстрее разобраться.

[Секретный кот]

Пардон конечно за серость, но что такое "декада", с которой все начинали?

[осторожно! леоныч!!!]

decada.org.ru вот. Но она периодически не работает как и на данный момент. Попробуйте позже зайти. Там много примеров исходников. Хорошая обучалка.

[осторожно! леоныч!!!]

Кстати декада заработала.

Вот что написали админы - (цитирую)


Переезд на статику
В связи со сменой IP сервера с динамического на статический, сайт теперь доступен по адресу decada.org.ru (без www).
Также в связи с этими изменениями некоторое время был недоступен форум. Приносим извинения за неудобства.
Сейчас вроде всё работает, поэтому больше ничего не трогаем.

[TIP]

Подскажите как сделать перекрытие импульсов в 1 ms. Первый импульс имеет длительность допустим 10 ms, по истечении 9 ms должен включиться второй порт.
На этом примере импульсы следуют один за другим без перекрытия.
Set Gen
Waitms Dlit 10 ms
Reset Gen
Set Led
Waitms Dlitp 10 ms
Reset Led
Waitms Pausa

[осторожно! леоныч!!!]

А если NOP понаставить?

[Секретный кот]

Подскажите как сделать перекрытие импульсов в 1 ms. Первый импульс имеет длительность допустим 10 ms, по истечении 9 ms должен включиться второй порт.
На этом примере импульсы следуют один за другим без перекрытия.
Set Gen
Waitms Dlit 10 ms
Reset Gen
Set Led
Waitms Dlitp 10 ms
Reset Led
Waitms Pausa

Может так:

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

Set Gen                                                     
Waitms Dlit         9 ms
Set Led
Waitms Dlit1         1 ms
Reset Gen                                                   
Waitms Dlitp        9 ms                                        
Reset Led                                                   
Waitms Pausa

?

[ut1wpr]

Подскажите как сделать перекрытие импульсов в 1 ms.

Пользуйтесь задержкой, равной минимальному значению перекрытия. В Вашем случае 1 мсек.
Добавьте счетчик тиков. Считайте тики в цикле по отработке каждой задержки.
В нужные вам состояния этого счетчика включайте-выключайте что угодно, в каком угодно количестве.
Если значения тиков присвоить переменным, то меняя их "на лету" получите программный ШИМ. Или даже несколько ШИМов.

[BoRtO]

Всем привет.
Вот в попытке написать прошивку.

Спойлер

$regfile = "attiny13.dat"
$crystal = 4000000
Config Pinb.3 = Input
Config Portb = Output
Do
If Pinb.3 = 0 Then
Portb.1 = 0
Else
Portb.1 = 1
End If
Loop
End

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

[Gordon Shumway]

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

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

Спойлер

$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 32
$swstack = 8
$framesize = 16
Config Pinb.3 = Input
Config Portb.1 = Output
Do
If Pinb.3 = 0 Then
Toggle Portb.1
waitms 100
End If
Loop
End

Без 3-5 строк будет ругаться на ошибку памяти.
На выход для светодиода назначил portb.1
Частота 9.6 мгц - умолчательная частота внутреннего генератора Tiny13.

[edm2007]

Привет.

Обработка кнопки через Debonce (решаем проблему с дребезгом), и переключение состояния светодиода при помощи Toggle. Вы же не хотите, чтобы такую простую задачу написали за вас, так ведь? Вы же хотите сами разобраться?

P.S. Эх, поздно... Теперь уже все пропало...

[Gordon Shumway]

P.S. Эх, поздно... Теперь уже все пропало...

Да, не подумал я об этом...

[BoRtO]

Вы же хотите сами разобраться?

Угу. Спасибо и на этом.

[BoRtO]

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

[Gordon Shumway]

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

Toggle - меняет значение на противоположное, то есть 0 - 1 - 0 - 1 и т.д. Соответстенно вам нужно назначить еще один порт на выход и добавить еще один toggle. И перед циклом включить один из них.

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

[BoRtO]

Решил проверить все в железе (1 светодиод) - то получился стробоскоп. Нажал на кнопку - оно мигает потом засветиться, нажал - снова мигает потом тухнет. ресет и кнопку резисторами подтянул. В протеусе так само кстати. Только фьюзы не заводские...

[edm2007]

Если Вы про код Gordon Shumway, то так и должно быть. Пин кнопки опрашивается в замкнутом цикле, и пока кнопка нажата, состояние светодиода будет меняться каждые 100 мс.