edm2007 писал(а):jumbo писал(а):
Вы мне вопрос, и я Вам тоже: с какой частотой (хотя бы примерно) мигает светодиод в данном примере?
jumbo писал(а): Если чесно то понятно не все
А если серьезно, то Вы сами и ответили. Можете считать, сколько раз он мигнул, и если достаточно, то останавливаете таймер и гасите светодиод.Код: Выделить всё
Stop Timer0
jumbo писал(а):ув. edm2007, понимаете, остановку таймера я нашел, просто не могу понять как программно задать количество миганий, чтобы после определленного количества миганий цикл останавливался.
Tankor писал(а):При prescale 256 на таймере (это максимум)
edm2007 писал(а):Если речь идет о attiny13, то у нее нет частоты 8 МГц для внутреннего генератора. Только 4,8 МГц, 9,6 МГц и 128 кГц. Ну и подача внешнего сигнала тактирования.Tankor писал(а):При prescale 256 на таймере (это максимум)
Максимальный предделитель таймера, это все же 1024.
Взаимодействие простое - переданный на модуль байт информации это установка уровня мощности управляемой модулем нагрузки в диапазоне от 0 до 255.
Аlex писал(а):https://www.yandex.ru/yandsearch?clid=9582&text=BASCOM%20AVR%20SPI&redircnt=1457966484.1
Неужели это трудно ?
Код: Выделить всё
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
Код: Выделить всё
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
Код: Выделить всё
$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
endedm2007 писал(а):Есть чем обмен посмотреть? Анализатор, или на худой случай, осциллограф... Монтаж, фьюзы, точно все верно?