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

[Magicanin]

' Пример часов которые отображают часы и минуты на семисегментном
' четырехсимвольном светодиодном индикаторе
' прога для ознакомления, работает 100%
' выставленные фюзы (в понипроге стоят галки на):CKOPT,BOOTSZ1,BOOTSZ0,SUT1,SUT0,CKSEL3,CKSEL1,CKSEL0
' Кварц выдрал из маленького тетриса с часами, думаю также подойдет из любых кварцевых наручных/настенных часов

[Grafstein]

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

[dimon-790]

Может кто сталкивался с расчётом котрольной суммы?, например вот такой набор чисел имеем :11H;00H;02H;0BH;00H;контр.сумма= 3EH по каким алгоритмам считать чтобы получить это число ?
P.S. Grafstein обучалок по баскому , как грязи , и уж тем более для начинающих , не ленись читай , пробуй за тебя это делать никто не будет.

[edm2007]

Как оставить после комы только один знак, а все остальное убрать? Это надо сделать до вывода на экран.

Можно поступить очень просто:

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

Dim U As Single
Config Single = Scientific , Digits = 1     ' в переменных оставляем одну цифру после запятой (1 - 7)

...

U = 1.2345
Lcd U                                                   ' на индикацию будет выведено 1.2

Главное, что подобный формат будет применен для всех переменных типа Single в коде. И ничего переводить / расчитывать не нужно.

[edm2007]

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

Можно сделать так: Один таймер настроить на подсчет внешних импульсов, а на втором таймере сделать отсчет 1 секунды. И пускай молотят. Как только второй таймер отщелкает 1 секунду, заглядываем в счетный регистр первого таймера и забираем результат. Далее обнуляем все что нужно, и все начинается снова.

[Tom91]

Можно ли заставить общаться контроллеры через I2C интерфейс...?
Если да, то как? есть ли пример кода?

[vanyap1]

А rs232 ?

И да, действительно, зачем в даташитах для мк atmegaXX пишут о присутствии I2C? А в tiny нет такой функции, но есть возможность сконфигурировать ноги для работы с этими устройствами.

Собственно в чем разница между этими мк, что касается I2C? Если в програмной части все одинаково.

[Tom91]

А rs232 ?

И да, действительно, зачем в даташитах для мк atmegaXX пишут о присутствии I2C? А в tiny нет такой функции, но есть возможность сконфигурировать ноги для работы с этими устройствами.

Собственно в чем разница между этими мк, что касается I2C? Если в програмной части все одинаково.

Ну раз Вам так всё просто, то привидите пример программы общения двух МК на Bascom AVR... я бы сам давно написал, но не понимаю можно ли программно присвоить адреса контроллерам чтобы они понимали к кому из них идёт обращение?

[vanyap1]

Нет, я не говорю что для меня это просто. Я пока что новичок в этом деле.
Просто это про rs232.

Вот просто заинтересовал такой нюанс.

[Tom91]

Просто это про rs232.

Если вы про UART то он занять для связи с ПК... а связать два мк по нему конечно реально.

И да, действительно, зачем в даташитах для мк atmegaXX пишут о присутствии I2C? А в tiny нет такой функции, но есть возможность сконфигурировать ноги для работы с этими устройствами.
Вот просто заинтересовал такой нюанс.

Просто Bascom AVR реализует если не ошибаюсь только программый I2C, без возможности аппаратного.

[mr4ester]

подскажите как можно реализовать такую функцию, вот что нужно пример

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

If A= B или С then

как реализовать это ИЛИ пробовал команду or но она для других переменных, а у меня строковые?

[Moto_v3x]

А так

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

If A= B or  A= С then

[mr4ester]

спасибо помогло!

[vanyap1]

Как можно регистрировать последовательность фаз в 3-х фазной сети?
Думал так - одну фазу на прерывание остальные на порты. По прерыванию определять если на второй фазе 1, то действие. Если 0 то второе действие.

Или есть еще идеи по поводу этого?

[Magicanin]

Как можно регистрировать последовательность фаз в 3-х фазной сети?
Думал так - одну фазу на прерывание остальные на порты. По прерыванию определять если на второй фазе 1, то действие. Если 0 то второе действие.

Или есть еще идеи по поводу этого?

Можно подать на входы АЦП (заодно и амплитуду померить) и регистрировать последовательность по амплитуде.

[Gordon Shumway]

Всем доброго времени суток !

Поздравляю уважаемого Кота и всех посетителей сайта и форума с удачным переездом ! Ура !

А теперь вопрос:

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

Config Int0 = Rising
Config Int1 = Low Level
On Int0 Startds
On Int1 Backup

'int0 получает сигнал с ноги Sout DS1307

Do
If Pind.4 = 0 Then Gosub Settime
Loop

Startds:

'тут читаются данные из DS1307
' и выводятся на дисплей 16х2
return

Settime:

'тут установка времени - 
'Pind.5 - часы в плюс,
'Pind.6 - минуты в плюс,
'Pind.4 - ок, записать и выйти из подпрограммы.

Disable Interrupts
Disable Int0
Disable Int1

Beep = 1
Waitms 100
Beep = 0

Waitms 500

Locate 2 , 1
Lcd "Kop.«« MM       "

Do

'установка часов

If Pind.5 = 0 Then
Hour = Hour + 1
'If hour = 13 Then hour = 1
Ho = Str(hour)
Ho = Format(ho , "00")
Locate 1 , 5
Lcd Ho
Beep = 1
Waitms 60
Beep = 0
Waitms 150
End If

'установка минут

If Pind.6 = 0 Then
Mine = Mine + 1
If Mine > 59 Then mine = 0
Mi = Str(mine)
Mi = Format(mi , "00")
Locate 1 , 8
Lcd Mi
Beep = 1
Waitms 60
Beep = 0
Waitms 150
End If

'ОК

If Pind.4 = 0 Then

Hour = Makebcd(hour)
Mine = Makebcd(mine)

I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cwbyte 1
I2cwbyte Mine
I2cwbyte Hour
I2cstop

Beep = 1
Waitms 200
Beep = 0

Return

End If

Loop

После нажатия ОК не происходит выход из подпрограммы. Новые данные заносятся в DS1307 - это видно в протеусе.
А выхода обратно нет...

Beep - это буззер с генератором пикает.
INT1 - это при пропадании питания подпрограмма пишет нужные данные в ЕЕПРОМ.

Для проверки все лишние подпрограммы и прерывания отключал. Проверял в протеусе. В реальную железку пока не заливал.

[Gordon Shumway]

Всем доброго времени суток !

Поздравляю уважаемого Кота и всех посетителей сайта и форума с удачным переездом ! Ура !

А теперь вопрос:

Спойлер

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

Config Int0 = Rising
Config Int1 = Low Level
On Int0 Startds
On Int1 Backup

'int0 получает сигнал с ноги Sout DS1307

Do
If Pind.4 = 0 Then Gosub Settime
Loop

Startds:

'тут читаются данные из DS1307
' и выводятся на дисплей 16х2
return

Settime:

'тут установка времени - 
'Pind.5 - часы в плюс,
'Pind.6 - минуты в плюс,
'Pind.4 - ок, записать и выйти из подпрограммы.

Disable Interrupts
Disable Int0
Disable Int1

Beep = 1
Waitms 100
Beep = 0

Waitms 500

Locate 2 , 1
Lcd "Kop.«« MM       "

Do

'установка часов

If Pind.5 = 0 Then
Hour = Hour + 1
'If hour = 13 Then hour = 1
Ho = Str(hour)
Ho = Format(ho , "00")
Locate 1 , 5
Lcd Ho
Beep = 1
Waitms 60
Beep = 0
Waitms 150
End If

'установка минут

If Pind.6 = 0 Then
Mine = Mine + 1
If Mine > 59 Then mine = 0
Mi = Str(mine)
Mi = Format(mi , "00")
Locate 1 , 8
Lcd Mi
Beep = 1
Waitms 60
Beep = 0
Waitms 150
End If

'ОК

If Pind.4 = 0 Then

Hour = Makebcd(hour)
Mine = Makebcd(mine)

I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cwbyte 1
I2cwbyte Mine
I2cwbyte Hour
I2cstop

Beep = 1
Waitms 200
Beep = 0

Return

End If

Loop

После нажатия ОК не происходит выход из подпрограммы. Новые данные заносятся в DS1307 - это видно в протеусе.
А выхода обратно нет...

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

[edm2007]

Так вот оно обычно и бывает.

[vanyap1]

Можно как то подключить ЖКИ к тини 13?
К примеру, через hc595?

[hybroid]

Через сдвиговый регистр можно, но можете смело производительность поделить на.. на сколько там?