Проекты на микроконтроллерах AVR

AVR web-сервер

implex — Tue, 17 Mar 2020 19:22:26 GMT

Всем привет! Может кто сталкивался с таким проектом на bascom? Суть в следующем: контроллер связан по spi с ethernet модулем и в браузер может выдавать простенькие странички. Можно было б связать эту тему с охранным устройством и смотреть состояние нагрузок и датчиков, состояние счета на симке (а возможно и управлять нагрузкой, только опасно ). Есть даже проект в стандартных примерах баскома, но мне не все там понятно.

Дисплеи от мобильников

ya-zp — Fri, 22 Nov 2019 11:26:33 GMT

Бродя по просторам интернета в поисках электронных "вкусняшек" нахожу все больше интересных конструкций с использованием различных дисплеев от мобильных телефонов. Посему вполне логично заинтересовало желание осилить какой-нить цветной дисплей. Но так опыта в подобных делах не особо много - хотелось бы поинтересоваться, может у кого есть примеры использования каких-либо дисплеев. Наибольшей популярностью (как я понял) пользуются (из цветных дисплеев)- это Siemens CX(S)65 на контроллере LS020
( как пример : http://bascomavr.3bb.ru/viewtopic.php?id=72
http://robozone.su/2009....0.html)
и L2F50 Siemens (http://bascomavr.3bb.ru/viewtopic.php?id=72)
И вот еще интересный проэктик, правда не С баскомом, но ведь идея есть! :
http://phreakerclub.com/464

Автоматическая подсветка лестницы

Robinzon — Mon, 04 Mar 2019 12:51:25 GMT

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

Проекты на Attiny13

Skyline — Sat, 16 Feb 2019 20:40:18 GMT

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

Шахматы.

Dmitriy — Sun, 17 Dec 2017 18:32:38 GMT

Доброго времени суток, господа хорошие. Посетила меня необычная мысль, можно ли написать на Баскоме программу игры в шахматы, выводом ходов на 1602 индикатор например. Поиск в русскоязычном сегменте тырнета к успеху не привел, у буржуев есть проект на PIC контроллере, есть и на AVR, только все делается на Си. Не возникнет ли у кого желание заняться такой игрушкой. Ресурсов например мега 2560 должно вполне хватить для того, чтобы сражаться с новичками.

Схемы переключения устройства на резервный источник

exersizze — Thu, 18 May 2017 12:24:09 GMT

Сейчас выбираю подходящую схему для организации резервного питания, которая будет гарантированно работать со схемой охранного устройства http://avrproject.ru/publ....1-0-112

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

Первая самая простая схема подключения резервной акб к устройству состоит из двух диодов шоттки.

но у схемы есть недостаток: напряжение резервного источника должно быть всегда меньше напряжения основного источника, что для нашего случая не подходит. Напряжение основного питания 3,5-3,8 вольт, тогда как с литий-ионного акка идет 4,2-3,3 вольта. Тоесть пока аккумулятор не разрядится до значения основного напряжения питания, вся схема будет питаться от него.

Следующая схема выполнена на биполярном транзисторе

и аналогичная схема с использованием полевика

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

следующая схема взята с какого то патента

Пока подключен источник основного питания Еа через светодиод-индикатор питание берется от него. В этом случае транзистор VT1 открыт, транзистор VT2 закрыт, резервная батарея питания Еь отключена. Как только произойдет отключение основного источника питания, светодиод HL1 погаснет, закроется транзистор VT1 и, соответственно, откроется транзистор VT2. Батарея Еь подключится к нагрузке. Тут вроде все гуд, остается заменить светодиод на простой диод, чтобы увеличить допустимый ток.

Проверил проводимость транзистора bc557 с коллектора на эмитер падение напряжения составляет 1,6 вольт, ну прально - 2 pn перехода... кто знает как заменить в этой схеме VT2 на полевой транзистор?

Расходомер

301992 — Wed, 05 Apr 2017 13:57:00 GMT

Форум: Интересные идеи и схемы
Описание темы: Подсчет количества импульсов за единицу времени
Автор темы: 301992
Автор последнего сообщения: Bebero
Количество ответов: 13

В помощь консьержу

Limonad — Wed, 24 Aug 2016 19:12:30 GMT

Форум: Интересные идеи и схемы
Описание темы: UART, EEPROM, Прерывания
Автор темы: Limonad
Автор последнего сообщения: Limonad
Количество ответов: 0

Часы на attiny13a

Antonkozirev — Sat, 13 Aug 2016 13:51:59 GMT

Форум: Интересные идеи и схемы
Описание темы: Точные часы с внешним генератором с отображением даты.
Автор темы: Antonkozirev
Автор последнего сообщения: Antonkozirev
Количество ответов: 1

Приборная панель

space — Mon, 08 Aug 2016 19:58:06 GMT

Всем привет=) Может и справлюсь сам, но как обычно сидеть несколько дней в поисках решения проблемы я не очень щас хочу. Ну к сути вообщем.
Сделал для приборной панели светодиодную подсветку. На плате имеется схема на мощных мосфетах и мк ATtiny13(пока заменой служит мега 16 подсоединенная проводками к плате) плавного включения подсветки состоящая из двух каналов(стрелки шкалы). Так вот плавное включение через шим в баскоме организовать достаточно просто, что я для начала и сделал. Сначала разгораются стрелки, затем шкалы. Но цели поставил иные.
1. Регулировка яркости обоих каналов за счет одной кнопки.
2. Запись данных о последней настроенной яркости в eeprom мк.
3. Последовательное включение каналов, разделенное задержкой. То есть, когда первый канал разгорелся до половины, должен начать разгораться второй канал и в результате, оба дойти до настроенной яркости. На данный момент сначала разгорается первый канал, затем начинает разгораться второй канал.

Любой помощи буду рад)) Результаты того что уже готово выкладываю ниже.

Автомат подачи звонка

Toddy123 — Sat, 16 Apr 2016 13:22:24 GMT

Доброй ночи уважаемые форумчане! Я еще не сильно освоил азы "баскома", устройство Автомата подачи звонка делаю уже его несколько месяцев. Чтобы было нагляднее выкладываю код который не доделан но есть важные вопросы по коду а именно по условиям в подпрограмме меню. на сколько он практичен? стоит ли такое меню использовать? помогите прошу не судите за код строго

regfile = "m16def.dat"
$crystal = 12000000
$hwstack = 40
$swstack = 16
$framesize = 32
$baud = 9600
'***********************************************************************
Config Lcdpin = Pin , Rs = Porta.6 , E = Porta.4 , Db4 = Porta.3 , Db5 = Porta.2 , Db6 = Porta.1 , Db7 = Porta.0 'ioeaai?iue noaia
Cursor Off
Cls

Config Int1 = Falling
On Int1 Button
Enable Interrupts
Enable Int1

Config Portb.0 = Input
Config Portb.1 = Input
Config Portb.2 = Input
Config Portb.3 = Input
Config Portd.5 = Input
Config Portb.4 = Input
Config Portd.6 = Output
'************************************************************************
Dim W As Byte
Dim Z As Word
Dim A(52) As Byte
'************************************************************************

Dim Nazv1 As Byte
Dim Sur2 As Byte
Dim Nazv3 As Byte
Dim Sur4 As Byte

Dim Minestr As String * 2
Dim Hourstr As String * 2
Dim Mine As Byte
Dim Hour As Byte

' Z = 0

Do

If Z > 0 Then
Gosub Menu
End If
Loop

Menu:
Do
Wait 1
If Z > 0 Then
Locate 1 , 1
Lcd "SETUP PROGRAMM"
End If
Wait 2
Do

If Z = 1 Then
Cls
Locate 1 , 1
Lcd "M"
Locate 1 , 4
Lcd ">" ; Minestr ; ":" ; Hourstr 'Ustanovka uslovii menu
End If

'************************************************************
If Z = 2 Then
Cls
Locate 1 , 1
Lcd "H"
Locate 1 , 4
Lcd ; Minestr ; ":>" ; Hourstr
End If

If Z = 3 Then

'***********************************************************
Cls
Locate 1 , 1
Lcd "P1"
Locate 1 , 4
Lcd ">" ; A(1) ; ":" ; A(2) ; " " ; A(3) ; ":" ; A(4)
End If
'***********************************************************
If Z = 4 Then
Cls
Locate 1 , 1
Lcd "P1"
Locate 1 , 4
Lcd A(1) ; ":" ; ">" ; A(2) ; " " ; A(3) ; ":" ; A(4)
End If
'**********************************************************
If Z = 5 Then
'***********************************************************
Cls
Locate 1 , 1
Lcd "P1"
Locate 1 , 4
Lcd A(1) ; ":" ; A(2) ; " " ; ">" ; A(3) ; ":" ; A(4)
End If
'***********************************************************
If Z = 6 Then
Cls
Locate 1 , 1
Lcd "P1"
Locate 1 , 4
Lcd A(1) ; ":" ; A(2) ; "" ; A(3) ; ":" ; ">" ; A(4)
End If
'***********************************************************
If Z = 7 Then
Cls
Locate 1 , 1
Lcd "P2"
Locate 1 , 4
Lcd ">" ; A(5) ; ":" ; A(6) ; " " ; A(7) ; ":" ; A(8)
End If
'***********************************************************
If Z = 8 Then
Cls
Locate 1 , 1
Lcd "P2"
Locate 1 , 4
Lcd A(5) ; ":" ; ">" ; A(6) ; "" ; A(7) ; ":" ; A(8)
End If

If Z = 9 Then
Cls
Locate 1 , 1
Lcd "P2"
Locate 1 , 4
Lcd A(5) ; ":" ; A(6) ; " >" ; A(7) ; ":" ; A(8)
End If
'***********************************************************
If Z = 10 Then
Cls
Locate 1 , 1
Lcd "P2"
Locate 1 , 4
Lcd A(5) ; ":" ; A(6) ; "" ; A(7) ; ":" ; ">" ; A(8)
End If
' * * * * * * * * * * * * * * * * * * * * * * Ia?aei Aoi?ie I?ia?aiiu * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

If Z = 11 Then

'***********************************************************
Cls
Locate 1 , 1
Lcd "P3"
Locate 1 , 4
Lcd ">" ; A(9) ; ":" ; A(10) ; " " ; A(11) ; ":" ; A(12)
End If
'***********************************************************
If Z = 12 Then
Cls
Locate 1 , 1
Lcd "P3"
Locate 1 , 4
Lcd A(9) ; ":>" ; A(10) ; " " ; A(11) ; ":" ; A(12)
End If
'**********************************************************
If Z = 13 Then
'***********************************************************
Cls
Locate 1 , 1
Lcd "P3"
Locate 1 , 4
Lcd A(9) ; ":" ; A(10) ; "> " ; A(11) ; ":" ; A(12)
End If
'***********************************************************
If Z = 14 Then
Cls
Locate 1 , 1
Lcd "P3"
Locate 1 , 4
Lcd A(9) ; ":" ; A(10) ; "" ; A(11) ; ":" ; ">" ; A(12)
End If
'***********************************************************
If Z = 15 Then
Cls
Locate 1 , 1
Lcd "P4"
Locate 1 , 4
Lcd ">" ; A(13) ; ":" ; A(14) ; " " ; A(15) ; ":" ; A(16)
End If
'***********************************************************
If Z = 16 Then
Cls
Locate 1 , 1
Lcd "P4"
Locate 1 , 4
Lcd A(13) ; ":" ; ">" ; A(14) ; "" ; A(15) ; ":" ; A(16)
End If

If Z = 17 Then
Cls
Locate 1 , 1
Lcd "P4"
Locate 1 , 4
Lcd A(13) ; ":" ; A(14) ; " >" ; A(15) ; ":" ; A(16)
End If

If Z = 18 Then
Cls
Locate 1 , 1
Lcd "P4"
Locate 1 , 4
Lcd A(13) ; ":" ; A(14) ; "" ; A(15) ; ":" ; ">" ; A(16)
End If

'***********************************************************

If Z = 19 Then
Cls
Locate 1 , 1
Lcd "P5"
Locate 1 , 4
Lcd ">" ; A(17) ; ":" ; A(18) ; " " ; A(19) ; ":" ; A(20)
End If
'***********************************************************
If Z = 20 Then
Cls
Locate 1 , 1
Lcd "P5"
Locate 1 , 4
Lcd A(17) ; ":" ; ">" ; A(18) ; "" ; A(19) ; ":" ; A(20)
End If

If Z = 21 Then
Cls
Locate 1 , 1
Lcd "P5"
Locate 1 , 4
Lcd A(17) ; ":" ; A(18) ; " >" ; A(19) ; ":" ; A(20)
End If
'***********************************************************
If Z = 22 Then
Cls
Locate 1 , 1
Lcd "P5"
Locate 1 , 4
Lcd A(17) ; ":" ; A(18) ; "" ; A(19) ; ":" ; ">" ; A(20)
End If

'***********************************************************

If Z = 23 Then
Cls
Locate 1 , 1
Lcd "P6"
Locate 1 , 4
Lcd ">" ; A(21) ; ":" ; A(22) ; " " ; A(23) ; ":" ; A(24)
End If
'***********************************************************
If Z = 24 Then
Cls
Locate 1 , 1
Lcd "P6"
Locate 1 , 4
Lcd A(21) ; ":" ; ">" ; A(22) ; "" ; A(23) ; ":" ; A(24)
End If

If Z = 25 Then
Cls
Locate 1 , 1
Lcd "P6"
Locate 1 , 4
Lcd A(21) ; ":" ; A(22) ; " >" ; A(23) ; ":" ; A(24)
End If
'***********************************************************
If Z = 26 Then
Cls
Locate 1 , 1
Lcd "P6"
Locate 1 , 4
Lcd A(21) ; ":" ; A(22) ; "" ; A(23) ; ":" ; ">" ; A(24)
End If
'***********************************************************

If Z = 27 Then
Cls
Locate 1 , 1
Lcd "P7"
Locate 1 , 4
Lcd ">" ; A(25) ; ":" ; A(26) ; " " ; A(27) ; ":" ; A(28)
End If
'***********************************************************
If Z = 28then
Cls
Locate 1 , 1
Lcd "P7"
Locate 1 , 4
Lcd A(25) ; ":" ; ">" ; A(26) ; "" ; A(27) ; ":" ; A(28)
End If

If Z = 29 Then
Cls
Locate 1 , 1
Lcd "P7"
Locate 1 , 4
Lcd A(25) ; ":" ; A(26) ; " >" ; A(27) ; ":" ; A(28)
End If
'***********************************************************
If Z = 30 Then
Cls
Locate 1 , 1
Lcd "P7"
Locate 1 , 4
Lcd A(25) ; ":" ; A(26) ; "" ; A(27) ; ":" ; ">" ; A(28)
End If

'*************************************************************

If Z = 31 Then
Cls
Locate 1 , 1
Lcd "P8"
Locate 1 , 4
Lcd ">" ; A(29) ; ":" ; A(30) ; " " ; A(31) ; ":" ; A(32)
End If
'***********************************************************
If Z = 32 Then
Cls
Locate 1 , 1
Lcd "P8"
Locate 1 , 4
Lcd A(29) ; ":" ; ">" ; A(30) ; "" ; A(31) ; ":" ; A(32)
End If

If Z = 33 Then
Cls
Locate 1 , 1
Lcd "P8"
Locate 1 , 4
Lcd A(29) ; ":" ; A(30) ; " >" ; A(31) ; ":" ; A(32)
End If
'***********************************************************
If Z = 34 Then
Cls
Locate 1 , 1
Lcd "P8"
Locate 1 , 4
Lcd A(29) ; ":" ; A(30) ; "" ; A(31) ; ":" ; ">" ; A(32)
End If

If Z = 35 Then
Cls
Locate 1 , 1
Lcd "P9"
Locate 1 , 4
Lcd ">" ; A(33) ; ":" ; A(34) ; " " ; A(35) ; ":" ; A(36)
End If
'***********************************************************
If Z = 36 Then
Cls
Locate 1 , 1
Lcd "P9"
Locate 1 , 4
Lcd A(33) ; ":" ; ">" ; A(34) ; "" ; A(35) ; ":" ; A(36)
End If

If Z = 37 Then
Cls
Locate 1 , 1
Lcd "P9"
Locate 1 , 4
Lcd A(33) ; ":" ; A(34) ; " >" ; A(35) ; ":" ; A(36)
End If
'***********************************************************
If Z = 38 Then
Cls
Locate 1 , 1
Lcd "P9"
Locate 1 , 4
Lcd A(33) ; ":" ; A(34) ; "" ; A(35) ; ":" ; ">" ; A(36)
End If

If Z = 39 Then
Cls
Locate 1 , 1
Lcd "P10"
Locate 1 , 4
Lcd ">" ; A(37) ; ":" ; A(38) ; " " ; A(39) ; ":" ; A(40)
End If
'***********************************************************
If Z = 40 Then
Cls
Locate 1 , 1
Lcd "P10"
Locate 1 , 4
Lcd A(37) ; ":" ; ">" ; A(38) ; "" ; A(39) ; ":" ; A(40)
End If

If Z = 41 Then
Cls
Locate 1 , 1
Lcd "P10"
Locate 1 , 4
Lcd A(37) ; ":" ; A(38) ; " >" ; A(39) ; ":" ; A(40)
End If
'***********************************************************
If Z = 42 Then
Cls
Locate 1 , 1
Lcd "P10"
Locate 1 , 4
Lcd A(37) ; ":" ; A(38) ; "" ; A(39) ; ":" ; ">" ; A(40)
End If

If Z = 43 Then
Cls
Locate 1 , 1
Lcd "P11"
Locate 1 , 4
Lcd ">" ; A(41) ; ":" ; A(42) ; " " ; A(43) ; ":" ; A(44)
End If
'***********************************************************
If Z = 44 Then
Cls
Locate 1 , 1
Lcd "P11"
Locate 1 , 4
Lcd A(41) ; ":" ; ">" ; A(42) ; "" ; A(43) ; ":" ; A(44)
End If

If Z = 45 Then
Cls
Locate 1 , 1
Lcd "P11"
Locate 1 , 4
Lcd A(41) ; ":" ; A(42) ; " >" ; A(43) ; ":" ; A(44)
End If
'***********************************************************
If Z = 46 Then
Cls
Locate 1 , 1
Lcd "P11"
Locate 1 , 4
Lcd A(41) ; ":" ; A(42) ; "" ; A(43) ; ":" ; ">" ; A(44)
End If

If Z = 47 Then
Cls
Locate 1 , 1
Lcd "P12"
Locate 1 , 4
Lcd ">" ; A(45) ; ":" ; A(46) ; " " ; A(47) ; ":" ; A(48)
End If
'***********************************************************
If Z = 48 Then
Cls
Locate 1 , 1
Lcd "P12"
Locate 1 , 4
Lcd A(45) ; ":" ; ">" ; A(46) ; "" ; A(47) ; ":" ; A(48)
End If

If Z = 49 Then
Cls
Locate 1 , 1
Lcd "P12"
Locate 1 , 4
Lcd A(45) ; ":" ; A(46) ; " >" ; A(47) ; ":" ; A(48)
End If
'***********************************************************
If Z = 50 Then
Cls
Locate 1 , 1
Lcd "P12"
Locate 1 , 4
Lcd A(45) ; ":" ; A(46) ; "" ; A(47) ; ":" ; ">" ; A(48)
End If

If Z = 51 Then
Cls
Locate 1 , 1
Lcd "P12"
Locate 1 , 4
Lcd ">" ; A(49) ; ":" ; A(50) ; " " ; A(51) ; ":" ; A(52)
End If
'***********************************************************
If Z = 52 Then
Cls
Locate 1 , 1
Lcd "P12"
Locate 1 , 4
Lcd A(49) ; ":" ; ">" ; A(50) ; "" ; A(51) ; ":" ; A(52)
End If

If Z = 53 Then
Cls
Locate 1 , 1
Lcd "P12"
Locate 1 , 4
Lcd A(49) ; ":" ; A(50) ; " >" ; A(51) ; ":" ; A(52)
End If
'***********************************************************
If Z = 54 Then
Cls
Locate 1 , 1
Lcd "P12"
Locate 1 , 4
Lcd A(49) ; ":" ; A(50) ; "" ; A(51) ; ":" ; ">" ; A(52)
End If

If Z = 55 Then
Cls
Locate 1 , 1
Lcd "P13"
Locate 1 , 4
Lcd ">" ; A(49) ; ":" ; A(50) ; " " ; A(51) ; ":" ; A(52)
End If
'***********************************************************
Waitms 100
Loop
Return
Loop
End

Z = 0

Ok:
If Z = 55 Then
End If
Incr Z
Return

Esc:
Decr Z
If Z = 0 Then
Z = 1
End If
Waitms 30 'i?eaaiea ooeoaiey a?aaacaa
Gifr = 128 'na?in oeaaa i?a?uaaiey
Return

Up:
Incr Hour
Incr Mine
Select Case Z 'oaaee?eaaai cia?aiea iaiie ec ia?aiaiiuo

Case 1 : Decr Hour
Case 2 : Decr Mine
Case 3 : Decr A(1)
Case 4 : Decr A(2)
Case 5 : Decr Nazv3
Case 6 : Decr Sur4

End Select

'If Dat > 31 Or Dat = 0 Then Dat = 1
'If Month = 0 Or Month > 12 Then Month = 1
'If Year > 99 Then Year = 0
If Hour > 23 Then Hour = 0
If Mine > 59 Then Mine = 0

Minestr = Str(mine)
Minestr = Format(minestr , "00")
Hourstr = Str(hour)
Hourstr = Format(hourstr , "00")
'Daystr = Str(day)
'Daystr = Format(daystr , "00")
'Datstr = Str(dat)
'Datstr = Format(datstr , "00")
'Monthstr = Str(month)
'Monthstr = Format(monthstr , "00")
'Yearstr = Str(year)
'Yearstr = Format(yearstr , "00")

Return
'4:
Down:
Select Case Z

Case 11 : Incr Hour
Case 12 : Incr Mine
'Case 13 : Incr Nazv1
'Case 14 : Incr Sur2
'Case 15 : Incr Nazv3
'Case 16 : Incr Sur4

End Select

'If Dat > 31 Or Dat = 0 Then Dat = 1
'If Month = 0 Or Month > 12 Then Month = 1
'If Year > 99 Then Year = 0
If Hour > 23 Then Hour = 0
If Mine > 59 Then Mine = 0

Minestr = Str(mine)
Minestr = Format(minestr , "00")
Hourstr = Str(hour)
Hourstr = Format(hourstr , "00")
'Daystr = Str(day)
'Daystr = Format(daystr , "00")
'Datstr = Str(dat)
'Datstr = Format(datstr , "00")
'Monthstr = Str(month)
'Monthstr = Format(monthstr , "00")
'Yearstr = Str(year)
'Yearstr = Format(yearstr , "00")

Return

Button:

If Pinb.0 = 0 Then
'Waitms 10
Gosub Ok
End If

If Pind.5 = 0 Then
'Waitms 10
Gosub Esc
End If

If Pinb.2 = 0 Then
'Waitms 10
Gosub Up
End If

If Pinb.3 = 0 Then
'Waitms 10
Gosub Down
End If
'Start Timer1
Waitms 500
Gifr = 128
Return
End

Часы - Вольтметр - Термометр

gres — Sun, 29 Nov 2015 03:40:25 GMT

Прошу помочь в разработке устройства "Часы - Вольтметр - Термометр" на базе микроконтроллера atmega8, термометр ds1307,термометр 18в20 - можно два внутренний и наружный, индикатор семисегментный светодиодный 6 разрядов.Сам в программировании контроллеров не разбираюсь.

Светодиодный куб.

Dmitriy — Tue, 20 Oct 2015 13:21:14 GMT

Однажды я собрал вот такой кубик https://www.youtube.com/watch?v=aZpKzbfzKWM Понятно, что исходника нет, в открытом доступе была только схема, описание сборки и готовая прошивка. Хочу спросить у вас, готов ли кто нибудь взяться за написание программы для такого кубика ? А еще лучше не для такого, а для RGB и не 8*8*8 , а 16*16*16 , да еще чтобы под музыку было Со своей стороны готов спаять 512 или 4096 светодиодов и проводить тестирование.

Подключение Siemens C35 к AVR

Scorpushka — Thu, 01 Oct 2015 11:06:48 GMT

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

подключил я пылившийся сименс с35 к меге256.
сначала набрел на эту статью
http://avrdevices.ru/podkluchaem-siemens-k-avr/
но! та распиновка, что там была приведена у меня не заработала, а заработала по той схеме, что прикладываю во вложении.

набор номера по команде
ATD89191234567;
(точка с запятой обязателен! я долго бился, не мог понять почему вызов начинается и срывается тут же)

всем успехов!

Подключение ВЧ модуля к микроконтроллеру

Leosix — Wed, 27 May 2015 09:18:44 GMT

Задача:
Написать программу которая будет формировать PPM сигнал, этот же сигнал в свою очередь будет приниматься и декодироваться на борту БПЛА.
Микроконтроллер (предположим mega8) подключенный к ВЧ модулю (передатчику) должен управлять подвеской на БПЛА.
Цикл такой: Поворот на 15 градусов, спуск затвора, поворот на 15 градусов, спуск затвора....... (сфотографировали все 360 градусов) поднять объектив на 20 градусов , поворот на 15 градусов, спуск затвора и так далее. Всё это нужно для автоматического фотографирования сферических панорам. Этакий автоматический штатив в небе

Дано:
ВЧ модуль и приёмник http://hobbyking.com/hobbyki....RX.html
Подвеска http://www.dji.com/product/zenmuse-z15-gh4-hd

Начинаю AVR с проекта освещения на TLC5970

nordriver — Wed, 22 Apr 2015 13:24:40 GMT

Изначально проект задумывался на Arduino т.к. под нее существует приличная библиотека управлением данным драйвером.
Драйвер будет крутить через силовую обвязку 16 RGB зон.
Реализация 2х режимов управления, 1 - локальное 4 режима (волна, статический перелив цветов, постоянный цвет) гамма задается 3мя резисторами, + интенсивность + скорость волны/перелива).
2й режим управления по UART от внешнего источника управления

Чтение АЦП и передача по UART в Bascom с заталкиванием переменных относительно понятна.
Но не ясны детали работы по SPI с конкретным драйвером.
У кого есть соображения на данный счет, прошу поделиться.

таймер розетка

domrustika — Fri, 09 Jan 2015 09:24:06 GMT

ребята помогите!! очень нужна помощь. собрал розетку таймер! КОД не работает как надо, хотя в протеусе все ок!
посмотрите пожалуйста кто может мой код, и скажите что я не так сделал? вместо нормальных фраз выходит крякозябра!
так же есть видео косяка!
заранее благодарю!!
видео тут http://youtu.be/zNsS4Of3Orc

Музыкальный сундучок

mckalister — Fri, 12 Dec 2014 08:34:58 GMT

Всем,мастерам,привет!Не знаю написал в правильную ветку форума или нет.Прошу вашей помощи!Вообщем,хочу девушке сделать своими руками подарок-музыкальный сундучок,при этом не просто музыкальный,а ещё с подсветкой и возможностью зарядки батареек от USB. Вот вам пример - http://rc-aviation.ru/forum/topic?id=5453 , но как вы увидели на примере вместо одного RGB светодиода я хочу подключить вот такие диоды(начиная с 1:10 мин) - https://www.youtube.com/watch?v=1RsISxlNX-Y.При этом всём таких диодов я хочу подключить много(если такое вообще возможно) около 120 штук.Хочу,чтобы при открывании сундучка начинала сразу играть мелодия и загорались все диодики разноцветные,когда закрываешь его,то всё гаснет и мелодия прекращает играть.При повторном открытии начинала звучать следующая мелодия(Хотелось бы,чтобы их было бы около 100 штук),но не MP3,а 8 битные моно мелодии.При разрядке батареек можно было бы(с боку сундучка) подключить USB кабель и зарядить батарейки от компьютера Реально ли это всё сделать? Помогите воплотить эту задумку в реальность,ребята!Очень прошу!Расскажите поэтапно очень подробно что использовать надо,как всё подключить друг с другом.Паять умею,руки из правильного места растут если что.Выручите меня,все вы были когда-то новичками в этом деле.

TM1628 Кто смог подружить его с Bascom-AVR

Вольдемор — Fri, 07 Nov 2014 03:23:52 GMT

Кто смог подружить ТМ 1628 с баском, таких штук много со старых двд а как их использовать...
где то в инете видел библиотеку но как их подружить с баскомом?
У кого какие идеи?

Программа для шрифтов Баском

EDC — Wed, 05 Nov 2014 20:18:55 GMT

Привет. Я нашел эту страницу искали что-то в моем модуле WTV020 и нашел часы. Я буду использовать точно. Тем не менее, я хотел бы поделиться своим программу, которая генерирует шрифты для Bascom. Программа является бесплатной. Я заинтересован в справляться ли с кириллицей. Сайт представляет собой программу для просмотра изображений, закодированный BGF. Я посмотрел здесь и, если предложения, пожалуйста, не стесняйтесь писать на мой адрес электронной почты.

Я забыл, вот адрес сайта. http://bart-projects.cba.pl/font.html