usbasp прекраный програматор для ардуино и прочих авр конролеров. под WIN 7

LABA 120 - Mit App inventor 2 * Bluetooth PDU

Управление устройствами на ATTINY 2313a через Bluetooth

и обратной связью с датчиками

Омск, начало 20-10-2017

Побочным продуктом адаптера ттл уровней на к1533ла3
стала система дистанционного управления на контролере
AVR ATtiny2313 подключенного через блютуз адаптер
BlueTooth HC-05 к телефону или планшету под управлением андроид

Введение

AVR
App Inventor 2
Скачать

софт для авр написан на Bascom AVR
и подойдет для многих других контролеров данного семейства.
Даже для Ардуино. Для скачивания доступен исходник для баском,
Bascom-avr если быть точным. и готовый бинарный файл, для непосредственной
прошивки в контролер, если кому лень возиться с исходником.
Для прошивки под WIN 7, я использую Программатор AVR USBASP.

usbasp прекраный програматор для ардуино и прочих авр конролеров. под WIN 7

Самый важный момент, когда вроде все правильно
но все равно не работает,

Установка фьюзов управляющих тактовым генератором контролера авр AMEL attiny 2313

Установка фьюзов управляющих тактовым генератором контролера авр AMEL attiny 2313

посмотрите какие FUSE — фьюзы,
установлены в контролере. Есть там одно место где частота
тактового генератора делится на 8

это сильно влияет на связь по
ком порту — RS232. Если с вашего АVR данные отправляются
нормально, а обратно ни чего не принимается, это тот случай.
С остальными fuse по аккуратнее, Контролер вы не убьете
но и работать может перестать

для Андроид девайса программа написана на
Mit App Inventor 2. И также доступна в виде исходника
и готового APK файла для непосредственной установки.
Я оправляю APK на Андроид из Total Commander
через ADB плагин. Вам повезло если при включении
отладки по USB, компьютер нашел подходящий драйвер.
Если такой фокус не прокатил, можно использовать
WiFi ADB. Который легко скачивается
с Гугль Плей - Google play. Настройка не сложная.

В Тотале обычно этот плагин установлен, если нет, то скачиваете
его здесь, или где захотите , хоть с 4PDA,
замечательный сайт, там много вкусностей.
Установка простая, достаточно открыть архив.

Установка плагина ADB в Total Commander

В последствии будет еще доступна программа для ПК
для управления контролером, ну и команды применяемые в
данном устройстве, сможете увидеть в исходниках.

А еще далее, если тема будет интересна читателям,
вся эта хрень будет управляться по интернету.
Через сайт на PHP, А также будет предпринята попытка
заменить Bluetooth на WiFi

Идея такого девайса бала задумана давно, но из за некоторых
трудностей с БТ адаптерами, не была реализована

На данный момент на пульте имеется 12 кнопок для непосредственной
отправки команд. Предусмотрено отключение контролера при потере
соединения. А та же имеется возможность получить сигнал с контролера
о состоянии четырех датчиков рассчитанных на замыкание

Радиоуправляемый танк с установленной камерой Sony as20

Радиоуправляемый танк с установленной камерой Sony as20

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

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

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

Распиновка ATTINY 2313

Помеченые красным выводы обязательно занятые
Обведенные синим, заняты иногда, точнее сюда подключается программатор
работающий по SPI протоколу, В последствии датчики столновения 4 штуки

На более продвинутом AVR
или ARDUINO может быть значительно увеличена. А также увеличено и количество
датчиков установленных на «марсоходе» вплоть до анализаторов газов, давления
атмосферы, температуры, влажности..

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

Ладно погнали

вот эта макетная плата

макетная плата с attiny 2313 и bluetooth hc-05

LCD дисплей тут не применяется, остался от другого проекта
а вот Андроид с софтом

Рабочее окно программы Remoote BT на андроиде

Дизайн не супер но другого пока нет

Слева три кнопки с залипанием нажал включил — нажал выключил
типа как на машине фары-печка-дворники

Справа три кнопки переключают, как коробка передач 1-2-3
и отдельная отключающая кнопка

по середине классическая схема вперед назад
влево вправо, стоп

в верхней строке -

кнопка подключение к последнему удачному соединению
кнопка разрыва связи
кнопка выбора БТ устройств из списка
индикатор что связь установлена
четыре индикатора датчиков препятствий
чекбокс звукового сигнала срабатывания датчиков
последняя нажатая кнопка в правом ряду

средний блок

тут все просто
при нажатии вперед назад сбрасывается лево право
средняя кнопка сбрасывает все

Название последней нажатой кнопки.
Чекбокс разрешающий установку и отключение связи
с блютуз, защита от случайного отключения

Нарастающий счетчик, показывает, что программа еще не зависла.

Бывает и сообщение

по середине экрана, на работу не влияет,
но тихо бесит. Издержки телефонного програмирования

Рабочее окно программы Remoote BT на андроиде

и вот эта хрень в работе

рис 3

BasCom - AVR замечательная IDE

для написания программ для контролеров AVR Пользоваться ей гораздо проще чем Arduino Software (IDE) Кстати может кто не в курсе Arduino это жирный контролер AVR Установленный на плате с USB преобразователем и программатором

Рабочее окно программы Remoote BT на андроиде

Здесь исходник для BasCom - AVR Развернуть...

Кому влом вникать можно просто скачать и прошить

 

$regfile = "ATtiny2313.DAT"                                 ' Модель  конторолера
$crystal = 8000000                                          ' Частота  генератора

$baud = 9600                                                ' Скорость связи


Led_stop Alias Portd.6
Config Portd.6 = Output


Led_up Alias Portb.0
Led_right Alias Portb.1
Led_down Alias Portb.2
Led_left Alias Portb.3

Config Portb.3 = Output
Config Portb.2 = Output
Config Portb.1 = Output
Config Portb.0 = Output

P1 Alias Porta.1
P2 Alias Porta.0
P3 Alias Portd.2
Config Porta.0 = Output
Config Porta.1 = Output
Config Portd.2 = Output

L1 Alias Portd.3
L2 Alias Portd.4
L3 Alias Portd.5
Config Portd.3 = Output
Config Portd.4 = Output
Config Portd.5 = Output


Cb1 Alias Pinb.7
Cb2 Alias Pinb.6
Cb3 Alias Pinb.5
Cb4 Alias Pinb.4

 Dim Cnt As Word
Dim S As Byte
Dim L As Byte


Dim D As Byte
Dim M As Byte
Dim S1 As Word
Dim S2 As Word

S1 = 100
S2 = 200

Dim I As String * 1
Dim Stt As String * 20

Declare Sub Nocont
Declare Sub Imp
Declare Sub Ind
Declare Sub Num
Declare Sub Test
Declare Sub Stope
Declare Sub Fire
Declare Sub Leftt
Declare Sub Rightt


                         ' после  включение все по нолям   светодиоды  отключены
D = 0 : M = 0

 P1 = 1 : P2 = 1 : P3 = 1
 L1 = 1 : L2 = 1 : L3 = 1
 Led_up = 1 : Led_down = 1 : Led_left = 1 : Led_right = 1 : Led_stop = 1

Wait 1
Stope
Wait 1
Print "*AT REMOTE BT"


 '*************************************
'                        Цикл программы
Do
I = ""
I = Inkey()
 S = Asc(i)
                       ' Опрос  датчиков   и  отправка  их  состояния
 If Cb1 = 0 Then Print "1" ;
  If Cb2 = 0 Then Print "2" ;
 If Cb3 = 0 Then Print "3" ;
  If Cb4 = 0 Then Print "4" ;

  '*************************************
Call Imp
'*************************************

 Incr Cnt
If Cnt > 10000 Then Ind
 Loop

 '*************************************
'   проверка  не  оборвались  ли  связь
Sub Ind
Print "A"
Cnt = 0

' Если  долго  не приходило с пульта  М

If D = 0 Then Incr M
If D = 1 Then : D = 0 : End If
If M > 3 Then Nocont
'  Переходим   к  отключению
End Sub
 '*************************************

Sub Nocont
    Led_stop = 1
Stope
End Sub

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

'   Тут  на разные  команды  с  пульта   производятся   нужные  действия
Sub Imp
If I = "M" Then : Print "Y" : D = 1 : End If

 If I = "1" Then : L1 = 0 : L2 = 1 : L3 = 1 : End If
If I = "2" Then : L1 = 1 : L2 = 0 : L3 = 1 : End If
If I = "3" Then : L1 = 1 : L2 = 1 : L3 = 0 : End If
If I = "0" Then : L1 = 1 : L2 = 1 : L3 = 1 : End If

'---------------------------------------

If I = "7" Then P1 = 1
If I = "4" Then P1 = 0

If I = "8" Then P2 = 1
If I = "5" Then P2 = 0

If I = "9" Then P3 = 1
If I = "6" Then P3 = 0

'---------------------------------------
 If I = "U" Then : Led_up = 0 : Led_down = 1 : Led_left = 1 : Led_right = 1 : Led_stop = 1 : End If
If I = "D" Then : Led_down = 0 : Led_up = 1 : Led_left = 1 : Led_right = 1 : Led_stop = 1 : End If
If I = "R" Then : Led_right = 0 : Led_left = 1 : Led_stop = 1 : End If
If I = "L" Then : Led_left = 0 : Led_right = 1 : Led_stop = 1 : End If
If I = "F" Then Fire
'---------------------------------------

If I = "T" Then Test
   I = ""

End Sub

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



                                      '/ Кнопка   Огонь   -     на  самом   деле   стоп
Sub Fire
 Led_stop = 0

 Led_up = 1 : Led_right = 1 : Set Led_down : Led_left = 1   ' Гасит  сигналы  направления
'Set P1 : Set P2 : Set P3 :

End Sub
 '*************************************

 Sub Stope
 Led_stop = 0

   M = 0

Led_up = 1 : Led_down = 1 : Led_left = 1 : Led_right = 1
  P1 = 1 : P2 = 1 : P3 = 1
 L1 = 1 : L2 = 1 : L3 = 1


End Sub

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

'    Команда   ТЕСТ   с  Андроида   не  включается
 Sub Test
 M = 0
 Led_stop = 0
 Reset L1
  Waitms S1
 Set L1

  Reset L2
 Waitms S1
   Set L2
  Reset L3
   Waitms S1
 Set L3
  Waitms S2

 Reset P1
  Waitms S1
     Set P1
  Reset P2
 Waitms S1
     Set P2
  Reset P3
 Waitms S1
Set P3


Led_up = 0
  Waitms S1
Led_up = 1
Led_down = 0
 Waitms S1
Led_down = 1
Led_left = 0
 Waitms S1
Led_left = 1
Led_right = 0
 Waitms S1

Led_right = 1

End Sub
'*************************************

End

Если вы будете использовать именно BlueTooth HC-05
то програмно в коде для АВР можно не заморачиваться
проверкой обрыва связи, на этом адаптере, имеется вывод
сигнализирующий о коннекте

Исходник для Mit App Inventor 2

Mit App Inventor 2 , вещь замечательная, колоссальная, великолепная, потрясающая.
кодить на ней быстро, легко, и просто. И есть одно значительное НО
так как система полностью ON-LINE, может настать одно прекрасное утро
когда ее не станет, уже сейчас, собираешься применить некоторые компоненты, а их нет.
Но если моментально накодить и вывести результат, Лучше не придумаешь

все блоки Mit App Inventor 2

Переменные

BT - Имя Bluetooth Модуля , с последнего подключения
CL1- хранит, была ли нажата кнока левого блока
CL2- итп
CL3-

Блок инициализация приложения при запуске

Интервал тамера 300, почти 3 раза в секунду
Таймер остановлен

Mit App Inventor 2 - Component
Screen1.Inialize
ListPicker1.Enable= Fulse
Clock1.TimerEnable= Fulse
Clock1.TimerInterval=300

Mit App Inventor 2 - Component
Screen1.Inialize
ListPicker1.Enable= Fulse
Clock1.TimerEnable= Fulse
Clock1.TimerInterval=300

Обработчик кнопки разрыва соединени

Mit App Inventor 2 - Component
Button1.Click
BluetoothClient1.Disconnect
ListPicker1.Text="reconnect"

Адреса БлюТуз устройств

адреса сопряженых с планшетом , Bluetooth устройств, загружаются в список when ListPicker1.BeforePicking
ListPicker1.Elements=BluetoothClient1.AddressesAndName

when ListPicker1.BeforePicking
ListPicker1.Elements=BluetoothClient1.AddressesAndName

Обработчик нажатий среднего блока кнопок

меняются картинки на кнопках

события нажатия кнопок Mit App Inventor 2

запускается таймер
на контролер отправляется команда

Button2.Click
Clock1.TimerEnable= True
Button2.Image = "FW.png"
BluetoothClient1.SendText "R"
Label2.Text="Right"

Button2.Click
Clock1.TimerEnable= True
Button2.Image = "FW.png"
BluetoothClient1.SendText "R"
Label2.Text="Right"

Цвет индикаторов датчиков

индикаторы это элемент LABEL их цвет управляется
свойством BackGroundColor , и по вызову функции
все индикаторы окрашиваются в зеленый

LABEL цвет управляется свойством BackGroundColor Mit App Inventor 2

LABEL цвет управляется свойством BackGroundColor Mit App Inventor 2

Обработчик событий таймера

Функция сброса цвета индикаторов датчиков
Нарастающий счетчик в Label L_cnt
Логические блоки -
Если Блютуз коннект установлен
и Если содержимое входного буфера больше ноля
То в метку Label1 считываются данные из буфера блютуз клиента

Затем по Bluetooth соединению отправляется символ "М"
дабы контролер не подумал что пропала связь,
если долго не нажимать кнопок управления

when Clock1.Timer
Label2.Text=Label2.Text+1
if BluetoothClient1.IsConnexted
then
if BluetoothClient1.BytesAvailableToReceive > 0
then
Label1.Text=BluetoothClient1.ReceiveText

(BluetoothClient1.BytesAvailableToReceive)
BluetoothClient1.SendText "M"

when Clock1.Timer
Label2.Text=Label2.Text+1
if BluetoothClient1.IsConnexted
then
if BluetoothClient1.BytesAvailableToReceive > 0
then
Label1.Text=BluetoothClient1.ReceiveText

(BluetoothClient1.BytesAvailableToReceive)
BluetoothClient1.SendText "M"

Затем логические блок IF проверяет полученые от AVR данные
которые как мы помним находятся в элементе Label1
и Если в итих данных содержится символ "Y" который
отправляет контролер получив символ "М"
ТО первый квадратик окрашивается в красный цвет
показывая что связь еще не оборвалась

Следующий блок IF проверяет данные на содержания символа "1"
который передается при срабатывании датчика 1, при его наличии
Mit App Inventor 2

окрашивается соответствующий индикатор, и вызывается функция
BP, которая при установленом чекбоксе
SND проигрывает плеером звуковой сигнал

Проверка на остальные датчики аналогична

if contains text(Label1.Text,"Y")
then Label3.BackGroundColor="RED"
call beep

if contains text(Label1.Text,"Y")
then Label3.BackGroundColor="RED"
call beep

Звуковой сигнал

Функция BP при установленом чекбоксе
SND проигрывает плеером звуковой сигнал

Mit App Inventor 2

Кнопка Last

Устанавливает соединение с посленим устройством с которым связывались ранее
Mit App Inventor 2

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

Далее в переменную Global BT считывает из хранилища телефона
через элемент TinyDB1 ранее сохраненое значения адреса Блютуз устройства

Если связь успешно устанавливается ТО -
запускается таймер
цвет текста кнопки вызова устройств из списка становится синим
Mit App Inventor 2

на кнопку выводится имя BlueTooth устройства
и чекбокс разрешения установки связи сбрасывается

подключение к последнему удачному Bluetooth Mit App Inventor 2

подключение к последнему удачному Bluetooth Mit App Inventor 2

Подключение к БлюТуз модулю из списка

При нажати на нее откроется список с приконнектченными устройствами
тыкаете в нужное и ву аля.
Все тоже самое, только еще методом TinyDB1.StoreValue
сохраняется в базу устройства адрес Bluetooh адаптера

При неудачной попытке коннекта, на кнопку красными буквами выводится "reconnect"
должно красными, но на деле черными, Чтото пошло не так

when ListPicker1.AfterPicking
if BluetoothClient1.Connect (ListPicker1.Selection)
then
ListPicker1.TextColor="BLUE"
ListPicker1.Text=ListPicker1.Selection
BluetoothClient1.SendText "0"
Clock1.TimerEnable= True
CheckBox1.Checked= fulse
TinyDB1.StoreValue ("bta",ListPicker1.Text)

when ListPicker1.AfterPicking
if BluetoothClient1.Connect (ListPicker1.Selection)
then
ListPicker1.TextColor="BLUE"
ListPicker1.Text=ListPicker1.Selection
BluetoothClient1.SendText "0"
Clock1.TimerEnable= True
CheckBox1.Checked= fulse
TinyDB1.StoreValue ("bta",ListPicker1.Text)

Предохранитель от несанкционированного отключения

Обработчик события CheckBox1 Changed, в нем блок IF
проверяет включен он или нет, усли включен ТО -
открывает доступ к кнопкам LAST OFF и RECONNECT

Если отключен то наоборот, выполняется блок ELSE

Mit App Inventor 2

Правый блок кнопок

Посредством метода BluetoothClient1.SendText
Отправляет контролеру через БлюТуз номер кнопки, в данном случае "1"
в метку l_right записывает номер кнопки
выполняется Player4.Start - Плеер проигрывает звук
для остальных кнопок этого ряда, меняется только номер кнопки
Mit App Inventor 2

Левый блок кнопок

Тут децл по сложнее
при нажатии на кнопку проверяется одноименная переменная СВ1
если она не нажималась ранее, и в ней 0
посылается код кнопки контролеру на включение нагрузки
в переменную СВ1 заносится единица, сама кнопка меняет окрас
и плеер пиликает звук

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

и так для каждой кнопки

Mit App Inventor 2

СКАЧАТЬ

Вопросы можно задать

тут