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

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Программирование ATMEL в BASCOM. » Связь проводная и бесп-ная, интерфейсы, протоколы » FT232 + Atmega8+гальваническая развязка


FT232 + Atmega8+гальваническая развязка

Сообщений 1 страница 10 из 10

1

Всех приветствую!
Есть схемка уже реализованная в макетке FT232 + Atmega8+гальваническая развязка, основные ее функции сбор и передача значений АЦП по UART в ПК.
Трудность в том, что не получается связать Атмегу с портом, зашивалась простейшая програмка приема передачи текстового сообщения в МК, а в терминале были попытки (но нудачные) установить связь.
Канал FT232 - USB в рабочем состоянии , молчит сама Атмега
Вот пример кода

Код:
$regfile = "m8def.dat"
$crystal = 1200000                                          ' тактовая частота
'Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
$baud = 9600               ' use baud rate тут несколько строк по настройке UART
$hwstack = 32              ' default use 32 for the hardware stack
$swstack = 10              ' default use 10 for the SW stack
$framesize = 40            ' default use 40 for the frame space


Dim Firstnumber As Integer                                  'объявление переменных
dim Secondnumber as Integer
dim Sum as Integer


do
                                                'включить PD6
  Firstnumber = 0
  Secondnumber = 0
  Input "Enter first number:" , Firstnumber                 ' чтение из RS-232 первого числа
  Input "Enter second number:" , Secondnumber               'чтение из RS-232 второго числа
  Sum = Firstnumber + Secondnumber                          'определение суммы двух чисел
  Print "Sum:" ; Sum                                                          ' запись суммы  в  терминал  компьютера
  Reset PORTD.6                                             'выключение PD6
Loop
End

Может вопрос и не по теме форума, но приведу еще схему
http://s47.radikal.ru/i117/1111/17/d7da6061903b.jpg

Кто поможет советом, буду очень признателен, а то второй бубен дорываю!

Отредактировано Alex-xxxx (2011-11-22 23:28:52)

0

2

1 Команда INPUT подразумевает еще и ввод символа <CR>
2. Вероятнее всего Ваша проблема связана с неподключенным выводом 7 6N137

http://uploads.ru/t/E/i/W/EiWJ0.gif

Отредактировано Skull (2011-11-23 05:00:11)

0

3

должно работать. скорее всего, тебе нужен осциллограф

0

4

Skull написал(а):

1 Команда INPUT подразумевает еще и ввод символа <CR>
2. Вероятнее всего Ваша проблема связана с неподключенным выводом 7 6N137

В схеме моей есть ошибка: в оптроне ВД2 непраленно подключен светодиод на передачуот МК. Исключил опто\гальваноразвязку, включил напрямую, результат без изменений...

0

5

Может так?

Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin = Buffered , Size = 20
Dim N As String * 1
Enable Interrupts
Print "Начали"
Do
   If Ischarwaiting() = 1 Then                             
      N = Waitkey()
      Print N                                             
   End If
   Wait 1                                                 
Loop

0

6

$regfile = "m8def.dat"
$crystal = 8000000 '?????
Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
'  Config Serialin = Buffered , Size = 20 никаких буферов!
Dim N As byte
Dim M As byte
' Enable Interrupts
Print "Begin"
Do
   incr N: print N 'проверка прередатчика
   M = Ischarwaiting() 'проверка передатчика
   If M <> 0 Then
      M  = Waitkey()
      Print "Inputcode="  ; M
   End If
   Waitms 100                                                 
Loop

0

7

Alex-xxxx написал(а):

оптроне ВД2 непраленно подключен светодиод на передачуот МК

Прием тоже неправильно подключен

0

8

Skull написал(а):

Прием тоже неправильно подключен

Что именно не так, вроде теперь все работает

0

9

У Вашей оптопары вывод 7- выход ОК, а 5,6 должны быть подключены к + ИП. На схеме он не задействован.

0

10

Skull написал(а):

У Вашей оптопары вывод 7- выход ОК, а 5,6 должны быть подключены к + ИП. На схеме он не задействован.

В ваших словах есть доля правды, но если посматреть даташит на оптопару,
http://uploads.ru/i/p/u/m/pumNS.jpg
то становится понятно назначение выводов.
Исходя из структурной схемы и таблицы истинности, 7 вывод (который производитель назвал Ve) - это один из входов логического элемента 2И-НЕ, который встроен в оптопару.
В моем случаи неиспользование этого входа не является критической ошибкой(схема работает, что не противоречит даташиту), но оставляя "болтаться в воздухе" логический вход, я создаю предпосылки к появлению ошибок в приемопередачи. 
Спасибо за конструктивное замечание!

0


Вы здесь » Программирование ATMEL в BASCOM. » Связь проводная и бесп-ная, интерфейсы, протоколы » FT232 + Atmega8+гальваническая развязка