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

jumbo

Большое спасибо. Если чесно то понятно не все (я баском только в суботу поставил)
но есть Ваш рабочий пример то есть от чего отталкиватся, за что вам очень признателен.

edm2007 писал(а):
jumbo писал(а):
Вы мне вопрос, и я Вам тоже: с какой частотой (хотя бы примерно) мигает светодиод в данном примере?

частота мигания 0.45 сек.

а в пустом цыкле Do можно дописать чтобы что-то другое паралельно исполнялось ?
например звук запустить ?

Реклама

Novice user

в DO...LOOP пишите что хотите,хоть музыку,на таймере моргаете,и то и то будет работать и не мешать друг другу
сначала напишите только моргание-нажал кнопку,отпустил-моргает в течении минуты-делаем на таймере
в даташите описано про таймеры,еще была тема "таймер на баском"-там все про таймер разжевано

нашел ту тему http://radiokot.ru/forum/viewtopic.php? ... lit=bascom

Реклама

edm2007

jumbo писал(а): Если чесно то понятно не все

Ну это вполне нормально. Тут однозначно можно сказать: если при обучении у Вас не идет из ушей пар, значит Вы что-то делаете не так. Все только начинается.

jumbo

ув. edm2007 подскажите пожалуйста как в вашем примере сделать так чтобы светодиод мигнул например только 10 раз или 10 сек (то есть по циклам или по времени)

Реклама

edm2007

Здравствуйте.

Ну заведите второй таймер, который будет отмерять время работы первого. Кто же Вам запретит-то.

А если серьезно, то Вы сами и ответили. Можете считать, сколько раз он мигнул, и если достаточно, то останавливаете таймер и гасите светодиод.

Спойлер

Таймер останавливается командой

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

Stop Timer0

Вообще это установка прескалера таймера в 0, но пишущим на бейсике это не нужно знать. Стоп, и все.

Реклама

jumbo

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

Реклама

Tankor

jumbo писал(а):ув. edm2007, понимаете, остановку таймера я нашел, просто не могу понять как программно задать количество миганий, чтобы после определленного количества миганий цикл останавливался.

Ответил вам тут: http://bascomavr.3bb.ru/viewtopic.php?id=1572
программулину наваял за 5 мин., не проверял. На Ваше сообщение в этом форуме не обратил внимания.

edm2007

Если речь идет о attiny13, то у нее нет частоты 8 МГц для внутреннего генератора. Только 4,8 МГц, 9,6 МГц и 128 кГц. Ну и подача внешнего сигнала тактирования.

Tankor писал(а): При prescale 256 на таймере (это максимум)

Максимальный предделитель таймера, это все же 1024.

Tankor

edm2007 писал(а):Если речь идет о attiny13, то у нее нет частоты 8 МГц для внутреннего генератора. Только 4,8 МГц, 9,6 МГц и 128 кГц. Ну и подача внешнего сигнала тактирования.

Tankor писал(а): При prescale 256 на таймере (это максимум)
Максимальный предделитель таймера, это все же 1024.

Да-да, уже поправили на соседнем. Не доглядел. Прошу прощения.

ВасилийВикторович

Привет всем! Подскажите кто знает, на радиокоте есть такая статья SPI модуль для управления мощностью сетевой нагрузки
Автор пишет что:

Взаимодействие простое - переданный на модуль байт информации это установка уровня мощности управляемой модулем нагрузки в диапазоне от 0 до 255.

Помогите с примером в баском.

https://www.yandex.ru/yandsearch?clid=9 ... 57966484.1
Первая же ссылка - http://avrproject.ru/publ/poleznaja_inf ... r/4-1-0-66

Неужели это трудно ?

ВасилийВикторович

Аlex писал(а):https://www.yandex.ru/yandsearch?clid=9582&text=BASCOM%20AVR%20SPI&redircnt=1457966484.1

Неужели это трудно ?

Это не трудно, я был по этой ссылке, и не только по этой. Как сконфигурировать spi я знаю, я не знаю как передать число от 0 до 255.

edm2007

Не сильно сложнее перейти в справку баскома, найти там работу со SPI, и поглядеть на пример:

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

Example

Config SPI = SOFT, DIN = PINB.0 , DOUT = PORTB.1, SS = PORTB.2, CLOCK = PORTB.3

Dim var As Byte

SPIINIT  'Init SPI state and pins.

SPIOUT var , 1 'send 1 byte

При желании можно поглядеть подробнее про SPIOUT:

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

Syntax

SPIOUT var , bytes

Remarks

var
 The variable whose content must be send to the SPI-bus.
 
bytes
 The number of bytes to send. Maximum value is 255.
 
Example

Dim A(10) As Byte

Config Spi = Soft , Din =Pinb.0 , Dout =Portb.1 , Ss =Portb.2 , Clock =Portb.3

Spiinit

Spiout A(1), 4 'write 4 bytes a(1), a(2) , a(3) and a(4)

End

Опередили...
А я уже хотел качать мануал на баском и смотреть что там есть по SPI

edm2007

А там как обычно, есть абсолютно все. Для тех, кому лень даташиты читать, аппноуты изучать, и всякое такое. Но это они все равно без должной ответственности подошли к вопросу справки. Я не говорю про уловитель мыслей, но хоть голосовой поиск сделали бы. Судя по всему, пользовалось бы популярностью.

ВасилийВикторович

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

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

$regfile = "m16def.dat"
$crystal = 8000000

Config Spi = Soft , Din =Pinb.6 , Dout =Portb.5 , Ss =Portb.4 , Clock =Portb.7

dim m as byte
m =100

do
Spiinit

Spiout m,1 'write
 wait 1
loop
end

Опишу ситуацию точнее, пишу в переменную четное число, на выходе ноль, если любое нечетное, работает примерно 90% мощности.

edm2007

Есть чем обмен посмотреть? Анализатор, или на худой случай, осциллограф... Монтаж, фьюзы, точно все верно?

ВасилийВикторович

edm2007 писал(а):Есть чем обмен посмотреть? Анализатор, или на худой случай, осциллограф... Монтаж, фьюзы, точно все верно?

В протеусе ведет себя аналогично.

edm2007

В протеусе байты улетают как и положено. Я так понимаю, в железе Вы не проверяли?

ВасилийВикторович

Вот я и призадумался, стоит ли повторять в железе...