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

Proteus 7 Professional + сом

AlekS — Sun, 02 Oct 2016 18:38:33 GMT

Форум: Общение с ПК
Описание темы: Как подружить Proteus 7 Professional с сом портом
Автор темы: AlekS
Автор последнего сообщения: exersizze
Количество ответов: 8

Проблема с UARTом

UR5WDI — Sun, 02 Oct 2016 13:42:33 GMT

Здравствуйте Уважаемые Гуру!

Я новичек в работе с АВР, написана прога на BASCOM для общения с териналом. Контроллер - Meg328p, внешний квац 8 мгц , на Протеусе всё работает на Ура! Собрал всё в железе, - ЛЦД всё выводит как и положено, но UART молчит. Нет ни ввода ни вывода.>( MAX232 проверен , Loop работает, скорости выставлены (на Протеусе терм. работает). Микруха новая , какие премудрости еще могут быть ? Или UART в микрухе всё же битый ???

Пишем программы в Visual Basic .NET

Scorpushka — Sun, 02 Oct 2016 13:39:01 GMT

набросал по англоязычным примерам программу для приемы данных от МК с СОМ порта (или эмулированному USB)

во вложении сама программа, исходники и инсталяшка (у кого не установлен NET framework)

давайте общаться!

после приема данных, обработки на стороне компа, возможности открываются достаточно обширные (архивация данных от МК, USB термометры, вольтметры и прочее) также возможно управление микроконтроллером от ПК.

PureBasic. Работа с COM портом

exersizze — Tue, 03 May 2016 19:07:26 GMT

Cейчас вплотную подошел к общению микроконтроллера с ПК, колдую над своей программой. Задача стоит в том чтобы по нажатию кнопки в программе (на ПК) отослать контроллеру некую команду по rs232, и в обратку получить данные которые контроллер нам отошлет и показать их. Пока остановился на том что попробую сделать это на PureBasic. Поэтому сразу вопросы новичка: как прикрутить в свою программу функцию работы с СОМ-портом, и далее по ТЗ - отправлять и принимать данные?

Установка драйвера FT232RL

arduboy — Mon, 21 Dec 2015 14:27:01 GMT

Процесс установки драйвера ft232
http://m.youtube.com/watch?v=74JkDmw6K3g

логический анализатор Saleae LOGIC

Scorpushka — Tue, 09 Sep 2014 17:58:18 GMT

после прочтения статьи http://bascom.at.ua/publ....1-0-103
заказал себе сей приборчик. обошелся в 450руб. Занятная штука.
на скриншоте однопроводная шина с датчиков температуры 18b20

Клавиатура ps/2 для ПК на ATMEL за 5000 Руб

exbit — Thu, 05 Jun 2014 05:44:18 GMT

Доброго времени суток форумчане! Появилась задача сделать урезанную версию клавиатуры для ПК с разъёмом PS/2
Описание:
Есть некая программа и в этой программе существуют горячие клавиши всего их 15, и встала необходимость в отдельной клавиатуре 3х5 с реализацией на ней этих клавиш. По сути это та же клавиатура но только с определёнными кнопками. В конечном виде необходима лишь плата с прошитым контроллером и выводами для подключения механических кнопок можно обычных тактовых. Другми словами берём это устройство и к нему цепляем плату на которой напаяны кнопки и проводочками всё это соединяем. А кнопочки подписываем. На фотке даю пример, но на ней собрано всё в одну плату. Обязательно развязка оптронами!!!!!!! Если кто сможет помогите с реализацией или на правьте на путь истинный, ну или кто хочет заработать то пишите.

Win7/64 и добрый ЛУТ на Xerox DocuPrint P8ex

AlekS — Fri, 18 Apr 2014 18:08:44 GMT

С переходом на винду 7/64 стал пылится Xerox DocuPrint P8ex так как дров нет. Но решение нашлось и ЛУТ снова ожил по старому )))
Решение http://forum.ugoo.ru/thread-522.html
Кому то пригодиться))) Проверил все работает, печать из дип трейс ставить 300dpi !!!!!!!! печать векторная!!!!!!

Режим OpenScreen и Таймеры

MACTEPok — Wed, 05 Feb 2014 04:36:48 GMT

Есть такой пример

Код

path$="d:\Video\AVI\"           ; change to your own path + file
file$="001.avi"
#Screenwidth = 1600
#Screenheight = 900

If InitSprite() And InitKeyboard() And OpenScreen(#Screenwidth,#Screenheight,32,"Movie Screen")
Else
   End
EndIf

FlipBuffers()
ClearScreen(RGB(0,0,0))
FlipBuffers()

If InitMovie()
   If LoadMovie(0, path$ + file$)
     ResizeMovie(0,0,0,#Screenwidth,#Screenheight)
     ClearScreen(RGB(0,0,0))
     Delay(1000)
     PlayMovie(0, ScreenID())
     Repeat
       ExamineKeyboard()
       Delay(1)
     Until (MovieStatus(0)=MovieLength(0) - 2) Or KeyboardPushed(#PB_Key_Escape)
     FreeMovie(0)
     ClearScreen(RGB(0,0,0))
   EndIf
EndIf

Как в режиме полного экрана организовать таймер, чтобы, например, раз в секунду вызывалась процедура? В справке и примерах есть таймеры только для окна : SetTimer() и AddWindowTimer()

Программирование ATmega8A-PU через FT232RL из BASCOM-AVR

T1nK — Wed, 22 Jan 2014 19:12:13 GMT

Здравствуйте!

Перед Новым Годом случайно увидел тему про Arduino на Хабре, которая меня заинтересовала. Начал копать.
Концепция разработки устройств на МК дома, почти из подручных средств, меня очень заинтересовала. Тем более что перед сборкой "в железе" устройства вполне успешно можно проэмулировать в ISIS, по заявлениям авторов статей и видео.

Начал вникать, искать материал, софт. В процессе натыкался на этот сайт не один раз - много интересных статей, хорошие примеры. Купил макетную плату ATmega8A-PU в местном магазине, на eBay заказал программатор FT232RL и мелочевку не доступную по месту.

На прошлой неделе попытался воплотить в железе первые схемы. Подумав что достаточно уже знаю начал со своего мини-проекта - электронного термометра. Схему собрать я собрал, а вот с прошивкой возник затык - неожиданного оказалось, что я не знаю как залить её из BASCOM через FT232RL. Спалив кучку 3х вольтовых светодиодом в ходе попыток прошивки, а возможно и не только их (пока не обзавелся вольтметром и осциллографом). Тогда я разобрал схему и собрал самую простую которая мне встречалась (в ISIS сделал максимально похожую на реальную схему чипа, так проще разбираться в контактах при сборке схемы):

Программу использовал следующею (надеюсь написал верно):

Код

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

Config Portb.0 = Input
Config Portb.1 = Output

Do
    If Pinb.0 = 0 Then
       Portb.1 = 0
    Else
       Portb.1 = 1
    End If
Loop

End

И её вариантом (в котором при нажатии на кнопку не включается, а наоборот - выключается светодиод).
Оказалось, что FT232RL, как мне подсказал exersizze, не является программатором, но может играть его роль (комментарий #45 к статье http://avrproject.ru/publ....-0-89).

Статьи http://easyelectronics.ru/skorost....ra.html и http://avrproject.ru/publ....1-0-109 мне как-то не особо помогли. Видимо моего уровня для их понимания как-то маловато - на мой взгляд там вообще некоторые моменты опущены, да и в последовательности действий есть пробелы.

FT232RL я подключил к ATmega8A-PU двумя проводами (в конечном итоге схему запитал от CR2032, иначе светодиоды перегорают):

TXD -> RXD
RXD -> TXD

Вроде бы нужно ещё как-то соединить DRT -> RESET, но я не понял как, поэтому оставил без соединения - надеюсь что двух проводов будет достаточно.

Из софта у меня установлено:

MProg 3.5
Khazama AVR Programmer 1.6.2
PonyProg 1.17h
BASCOM-AVR 2.0.7.5
Proteus 7

Нужно из bascom залить прошивку в чип atmega (или hex через другую софтину - не принципиально) через FT232RL.
Прошу помощи у тех кто уже сталкивался с подобной ситуацией и разрешил её.

Uart через HiAsm

MC_Zver — Tue, 12 Nov 2013 18:28:27 GMT

Всем доброго времени суток Случилось так что решился я на апдейт своего усилителя и решил связать это дело с ПК. Полистав данный сайт, поглазев на Pure Basic подумал была - не была... Как оказалось не была Стандартный способ написания кода в ручную не очень нравиться, а визуальный редактор работает прекрасно НО почему-то так и не получилось закрепить окно на экране надолго... позор мне Думаю пусть полежит, может чего потом додумаю...
Пару дней назад на просторах интернета случайно проглядел что Hiasm (с которым уже был малость знаком но естественно уже все забыл) умеет таки работать с COM портом, оставалось как-то проверить но как?
Возможности сейчас что-то собирать нет, а руки чешутся. Не пруха подумал я Мои мольбы гуглу были вскоре услышаны и он выдал ссылку с такими словами "HiAsm + виртуальный COM порт + Proteus" После беглого осмотра оказалось что это как раз то что я искал:
Внутри архива программа которая создает два связанных между собою порта и позволяет разным программам общаться между собою как-бы через кабель - счастье!
Для проверки Hiasm-а была взята программа со статьи Управляем микроконтроллером с ПК и сложен мини аналог программы для ПК со статьи. Все заработало хотя я даже не дотронулся до паяльника.
Вечер прошел не зря.
Надеюсь я кому-то дал пищу для размышлений. Про HiAsm не буду писать - интернет пестрит ссылками по нему. Всем удачи и новых проектов.
P/s. В архиве проект протеуса Hiasm, Proteus и Bascom
Программа СОМ портов: http://www.ex.ua/4272156

uart

Lelik54 — Tue, 19 Feb 2013 16:19:44 GMT

Учу purebasic для общего развития и всяких полезностей дома и в гараже.взял за основу статью Управляем микроконтроллером с ПК по UART,и начал мудрить.на контроллер прикрутил ацп,а принять данные могу только в EditorGadget,там всё правильно отображается,а вот в StringGadget и ProgressBarGadget показания неправильные.

Код

#COM_Port = 2 ;Идентификатор COM порта.
;Процедура открытия порта. выбранного из списка
Procedure Select_ComPort()
  Protected Port.s, Text.s, Color

If IsSerialPort(#COM_Port) ;С таким ИД уже открыт порт.
  CloseSerialPort(#COM_Port)  ;Закрываем его.
EndIf

Port = GetGadgetText(3) ;Тут открываем порт с необходимыми настройками
If OpenSerialPort(#COM_Port,Port,19200,#PB_SerialPort_NoParity,8,1,#PB_SerialPort_NoHandshake,255,255)
Text="Порт "+Port+" открыт" : Color=RGB(46, 137, 36)
Else
  Text="Не удалось открыть порт "+Port : Color=RGB(255,0,0)
EndIf
  SetGadgetText(5, Text)
  SetGadgetColor(5, #PB_Gadget_FrontColor, Color)
EndProcedure
;Процедура приема данных
Procedure InData()
  Protected InBytes


  If IsSerialPort(#COM_Port)  ;С таким ИД порт открыт.
  InBytes = AvailableSerialPortInput(#COM_Port)
  If InBytes>0  ;Получены данные.
  Protected Dim InBuffer.a(InBytes), RealInBytes

  RealInBytes = ReadSerialPortData(#COM_Port, @InBuffer(), InBytes)
  If RealInBytes>0
    AddGadgetItem(4, -1, PeekS(@InBuffer(), InBytes,#PB_Ascii ))

    SetGadgetState   (70,(InBytes) )
   SetGadgetText(40,Str(InBytes))
  EndIf
  EndIf
  EndIf
EndProcedure

;Процедура передачи данных
Procedure ComOut(Send_data.s)

  If IsSerialPort(#COM_Port) ;если порт открыт
  ComWrite(SerialPortID(#COM_Port),@send_data,1) ;Шлем данные из переменной Send_data
  Else
  ;Выводим сообщение об ошибке.
  MessageRequester("Ошибка","Текущий порт не доступен!",16)
  EndIf

EndProcedure

If OpenWindow(0, 200, 200, 500, 590, "Не понятно что это???",#PB_Window_MinimizeGadget | #PB_Window_SizeGadget) ;Создаем окно программы
   ButtonGadget(1, 90, 380, 110, 35, "Зажечь", #PB_Button_Default) ;Кнопка "Зажечь"
   ButtonGadget(10, 90, 420, 110, 35, "Зажечь 2", #PB_Button_Default) ;Кнопка "Зажечь 2"
  TextGadget(2,10,310,25,15,"Порт") ;Выводим в окно надпись "Порт".
  ComboBoxGadget(3, 10, 325, 70, 21, #PB_ComboBox_Editable) ;гаджет выпадающего списка
  For i=1 To 3 ;создаем список от 1 до 3 с возможными портами для открытия
  AddGadgetItem(3,-1,"COM"+Str(i))
  Next i
  AddWindowTimer(0, 123, 250)
  StringGadget(40, 330, 40, 100, 100, "",  #PB_String_ReadOnly)

;SetGadgetFont(40,FontID(1))

  SetGadgetState(3,0) ;Делаем активным нулевой пункт выпадающего списка.
  EditorGadget(4, 8, 10, 305, 280,#PB_Editor_ReadOnly)
  TextGadget(5,10,350,200,15,"")  ;Здесь будет отображаться результат открытия порта.
  StringGadget(12, 70,  480, 200, 20, "")
  ButtonGadget(6, 200, 380, 110, 35, "Погасить", #PB_Button_Default) ;Кнопка "Погасить"
  ButtonGadget(11, 200, 420, 110, 35, "Погасить 2", #PB_Button_Default) ;Кнопка "Погасить"
  Select_ComPort()
   ProgressBarGadget(70, 330, 230,  150, 30, 0, 1000)

  ; ProgressBarGadget(23,  10, 480, 250,  30, 0, 100)
  ;   SetGadgetState   (0, 20 )   ;  set 1st progressbar (ID = 0) to 50 of 100
  Repeat

  Event = WaitWindowEvent()
  If Event = #PB_Event_Timer And EventTimer() = 123
       InData()

     EndIf

  ;InData()  ;принимаем данные из UART все время пока работает программа
   If Event=#PB_Event_Gadget  ;если произошло срабатывание гаджета
  Gadget = EventGadget ( )  ;узнаем какой гаджет был активирован
  If Gadget=1  ;если нажата кнопка "Зажечь"
    ComOut("A")  ;Переходим на процедуру передачи байта.
    :InData()
  ElseIf Gadget=10  ;если нажата кнопка "Зажечь2"
    ComOut("K")  ;Переходим на процедуру передачи байта.
    ;InData()
  ElseIf Gadget=3  ;если был активирован выпадающий список
  ComboBox.s=GetGadgetText(3)  ;Считываем текст из текущего пункта выпадающего списка.
  ; Переходим на процедуру, закрывающую текущий порт и открывающую выбранный.
  Select_ComPort()
  EndIf
  ;InData()
  If Gadget=6  ;нажата кнопка "Погасить"
    ComOut("B")  ;Переходим на процедуру передачи байта.
    ;InData()
   ElseIf Gadget=11  ;нажата кнопка "Погасить2"
     ComOut("L")  ;Переходим на процедуру передачи байта.
     ;InData()
  EndIf
EndIf
;EndIf

;EndIf
  Until Event=#PB_Event_CloseWindow

EndIf
End

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

PureBasic и терморегулятор

seny — Mon, 17 Dec 2012 07:36:02 GMT

Я не программист но для своих проектов пытаюсь что то писать на Пурике.
Для затравки темы выложу свой вариант работы через COM порт с
нашими любимыми контроллерами.Если будет интересно можно сделать OpenProject.
итак atmega16, max232, LCD16*2 как я с ними общаюсь.

P.S PureBasic 4.50, Bascom 1.11.9.8

Проблемы с UART. Frame error.

top — Sun, 25 Nov 2012 12:59:21 GMT

Уважаемые, выручайте. Это просто какой-то бич
Передаю из МК в ПК данные (текст и числа). МК тактируется от внутренних 8 Мгц, скорость 9600 Бод. Прошиваю через USB ASP, выставляю фьюзы как положено. Модуль на FT232RL. На компьютере получаю каракули, а не то что надо. В Terminal by Bray каракули и frame error, а в баскомовском терминале просто каракули. Терминалы тоже настроены на 9600 Бод, дата 8 бит, без четности, один стоповый бит, без хэндшейка.
Где искать косяк не знаю.

visual basic

tenevikus — Sun, 20 May 2012 13:56:08 GMT

я в прошлом году для общения МК с компом писал прогу на visual basic. прога общается через com порт, а мк через uart на ft232. если данная тема интересна могу как выкрою время сбацать материальчик.