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

[vem566]

Пришлось лезть в файл attiny13.dat(самому слабО?). В векторах прерываний описан вообще только INT0.
Дальше даташит + attiny13.dat. Можно самому.

[xorkrus]

Да, я тоже залез туда. Там INT0 и PCINT0.
даташит+дат = вы имеете в виду самому добавить ещё один вектор?

Upd: Хотя судя по даташиту, вектора прерывания кроме PCINT0 и нет. Т.е. срабатывает при любом PCINTx, а я там уж типа сам должон выявить оно или нет...
Upd2: Но в случае если нужно одно прерывание, то можно PCMSK и всё...
Спасибо за пинок в нужном направлении

[edm2007]

Есть прерывание группы выводов PCINT5...PCINT0. И при изменении уровня на любом разрешенном выводе (в регистре PCMSK можно настроить, на какие выводы реагировать), возникает одно прерывание PCINT0. А там уже по маске запросто можно вычислить, кто виновен. Это довольно удобно, на самом деле.

[vanyap1]

Поделитесь пожалуйста библиотекой Rainbow.lib
Если есть разные версии, то по возможности..

Добавлено after 1 hour 37 minutes 17 seconds:
Короче, попробовал зарегиться на сайте с предыдущей страницы, но там кроме того бабки надо. Это не наш вариант.
если кому надо. Светодиоды WS2812B, проверил с 10 штуками. Если больше то тайминги не уползают, должно работать.
Мне надо было включить только один пиксел из массива. Потом будет возможность проверить с 1000 светиками.
Если будете пользовать этот код, то кварц следует брать только на 16 мгц, с кварцом 12 мгц еще можно заставить работать, меньше - нет. Но надо тайминги подбирать.
Я подбирал с логическим анализатором.
Записывается значение так:
Call Write_color(R , G , B , Pixel_num)

Спойлер

$regfile = "m328pdef.dat"
$crystal = 16000000


Declare Sub Write_color(byval Green As Byte , Byval Red As Byte , Byval Blue As Byte , Byval Led_num As Word )


Config Portb.3 = Output 'Config output for pixel data
Const Pixels = 10 'total number of pixels


Dim Nn As Byte

Do
Waitms 100
'-----Pixel number(Max-65325)---|
'-----Blue chanel-----------| |(Max-255)
'-----Red chanel-------| | |(Max-255)
'---Green chanel--| | | |(Max-255)
Call Write_color(0 , 255 , 0 , Nn)


Incr Nn
If Nn > Pixels Then : Nn = 1 : End If
Loop





Sub Write_color(byval Green As Byte , Byval Red As Byte , Byval Blue As Byte , Byval Led_num As Word )
Local Pix_num As Word
For Pix_num = 1 To Pixels
If Pix_num = Led_num Then

If Green.7 = 0 Then Rcall Zero Else Rcall One
If Green.6 = 0 Then Rcall Zero Else Rcall One
If Green.5 = 0 Then Rcall Zero Else Rcall One
If Green.4 = 0 Then Rcall Zero Else Rcall One
If Green.3 = 0 Then Rcall Zero Else Rcall One
If Green.2 = 0 Then Rcall Zero Else Rcall One
If Green.1 = 0 Then Rcall Zero Else Rcall One
If Green.0 = 0 Then Rcall Zero Else Rcall One

If Red.7 = 0 Then Rcall Zero Else Rcall One
If Red.6 = 0 Then Rcall Zero Else Rcall One
If Red.5 = 0 Then Rcall Zero Else Rcall One
If Red.4 = 0 Then Rcall Zero Else Rcall One
If Red.3 = 0 Then Rcall Zero Else Rcall One
If Red.2 = 0 Then Rcall Zero Else Rcall One
If Red.1 = 0 Then Rcall Zero Else Rcall One
If Red.0 = 0 Then Rcall Zero Else Rcall One

If Blue.7 = 0 Then Rcall Zero Else Rcall One
If Blue.6 = 0 Then Rcall Zero Else Rcall One
If Blue.5 = 0 Then Rcall Zero Else Rcall One
If Blue.4 = 0 Then Rcall Zero Else Rcall One
If Blue.3 = 0 Then Rcall Zero Else Rcall One
If Blue.2 = 0 Then Rcall Zero Else Rcall One
If Blue.1 = 0 Then Rcall Zero Else Rcall One
If Blue.0 = 0 Then Rcall Zero Else Rcall One
Else
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
Rcall Zero
End If
Next
End Sub



End

Zero:
sbi PORTb,3
Nop
nop
nop
nop
cbi PORTb,3
Ret

One:
sbi portb,3
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
cbi portb,3
Ret

[max50]

Поделитесь пожалуйста библиотекой Rainbow.lib

Поиском не пробовали пользоваться?
http://radiokot.ru/forum/viewtopic.php? ... 5#p2721085
http://radiokot.ru/forum/viewtopic.php? ... 0#p2721270
http://radiokot.ru/forum/viewtopic.php? ... 4#p2922234
http://radiokot.ru/forum/viewtopic.php? ... 9#p2922709

[vanyap1]

Спасибо, но уже не надо.
Вот как мне получилось-

[xorkrus]

Прерывания это было интересно, но проблема нарисовалась в другом:

Спойлер

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

$regfile = "attiny13a.dat"
$crystal = 9600000
$hwstack = 8
$swstack = 16
$framesize = 16

Dim S1 As Byte
S1 = 0

Config Portb.2 = Output
Config Portb.1 = Output
Portb.2 = 1
Portb.1 = 1

Config Pinb.3 = Input

Do
   Wait 10
   If Pinb.3 = 0 Then
      Incr S1
   End If
   If S1 = 0 Then
      Portb.2 = 1
      Portb.3 = 1
   End If
   If S1 = 1 Then
      Portb.2 = 1
      Portb.3 = 0
   End If
   If S1 = 2 Then
      Portb.2 = 0
      Portb.3 = 1
   End If
   If S1 = 3 Then
      S1 = 0
   End If

Loop

На ногах B1 B2 - p-канальные ключи, за которыми светодиоды. При включении оба светодиода часто моргают (примерно в районе 3 герц) и на кнопку не реагируют. Проблема в коде?

[Microtech]

Резистор к плюсу от Portb. есть? Если его нет, запаяйте или поставьте после Config Pinb.3 = Input
Set Portb.3
Это включит внутренний подтягивающий резистор. Кнопка проверяется 1 раз в 10 секунд, это так задумано?

[xorkrus]

Резистор 7кОм есть. 1 в 10... Разве это не 10мс? Пусть так будет задумано В любом случае моргания-то есть...

[edm2007]

Разве это не 10мс?

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

Waitms 10

[Microtech]

Какой смысл конфигурить входной регистр на вход? он и так вход.
Config Pinb.3 = Input

нужно писать Config Portb.3 = Input
p.s. в верхнем сообщении пропустил этот косяк с pin = input.

[pavel123]

Доброго времени.
Тираню UART. С программами разобрался, заработало как и ожидалось.
Возник вопрос технического воплощения.
Сейчас линия связи это просто 3-х метровый 4-х жильный телефонный провод подключенный непосредственно на ноги МК рх-тх. Правильно ли это? Или нужна какая-то буферная схема?
Питание общее. В проекте предполагается линия связи около 10 метров.
Еще заметил, что при отключении линии связи на принимающей стороне прерывание UART на прием срабатывает постоянно... Правильно ли это? Как можно проверить наличие линии, и если обнаружится обрыв линии, то запретить прерывание?
Спасибо.

[Bear2011]

при отключении линии связи на принимающей стороне прерывание UART на прием срабатывает постоянно...

Да так и должно быть. Это конструктивная особенность порта - он таким образом целостность линии связи проверяет. Тут программно нужно обработать - обрыв линии воспринимается как стартовый бит. Если он не меняется - значит обрыв

[Аlex]

Bear2011, извини конечно, но ты написал бред.
Любая уважающая себя фирма, не сделает такой ляп в модуле UART своего продукта. Старт бит определяется по фронту, а если "что-то пойдёт не так", модуль должен вывалиться в ошибку, с дальнейшим запретом прерывания и установкой флага ошибки.

[Bear2011]

Аlex

Для начала посмотри на диаграмму протокола RS-232


Так что я все правильно написал. Человек явно не заморачивался с преобразователем уровня

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

Модуль я уверен и выдает ошибку. А вот как обрабатывается эта ошибка вопрос к тому кто программу писал

[Аlex]

Причём тут диаграммы, преобразователи, обработка ошибок, ... ? Ты о чём ?
Речь шла о постоянных вызовах прерывания. И твоё мнение, что "так и должно быть, так устроен модуль" - ошибочное, вводящее людей в заблуждение.
Ещё раз повторю - это не так ! Не будет модуль, при постоянном нуле не линии, детектировать его как чередующие старт биты. Модуль, вероятнее всего, вылетит в ошибку и поднимет флаг.

[uk8amk]

линия связи это просто 3-х метровый 4-х жильный телефонный провод подключенный непосредственно на ноги МК рх-тх. Правильно ли это? Или нужна какая-то буферная схема?
Питание общее. В проекте предполагается линия связи около 10 метров.

Нет, не правильно. MAX232, ADUM485 и т.д.

при отключении линии связи на принимающей стороне прерывание UART на прием срабатывает постоянно... Правильно ли это? Как можно проверить наличие линии, и если обнаружится обрыв линии, то запретить прерывание?

Нет, не правильно. Как минимум подтянуть вход к устойчивому уровню, лучше поставить преобразователь уровней(см. выше).
Определять соединение лучше на уровне протокола. Если устройство долго не отвечает, выключаем связь.

[Bear2011]

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

Все верно. Вот только флаг ошибки нужно еще обработать. А если обработки нет то опять будет детектировать как стартовый бит.

Речь шла о постоянных вызовах прерывания. И твоё мнение, что "так и должно быть, так устроен модуль" - ошибочное, вводящее людей в заблуждение.

Это ты видимо недопонял. UART воспринял обрыв линии как стартовый бит - вызвал прерывание. При обработке прерывания возникла ошибка. А вот обработка этой ошибки НЕ АППАРАТНАЯ а софтовая. И есть ли вообще эта обработка?
Судя вот по этому

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

Обработки ошибки НЕТ Поэтому и бесконечно вызываться прерывание.

[akl]

uk8amk А что такое ADUM485?

Тираню UART.

Сейчас линия связи это просто 3-х метровый 4-х жильный телефонный провод подключенный непосредственно на ноги МК рх-тх. Правильно ли это? Или нужна какая-то буферная схема?

Да, нужны шинные формирователи, что-то типа 2 шт. ADM485. Одна на передачу, другая на приём, причем на каждой плате.

[pavel123]

Благодарю за помощь.