roboforum.ru

да, это же Спарта! шина!

Объявления:

Код: Выделить всё • Развернуть

$prog &HFF , &HE4 , &HD9 , &H00
$regfile = "m32def.dat"
$crystal = 8000000                                          
$baud = 115200

$framesize = 16
$hwstack = 24
$swstack = 16
'Принимаемый символ
Dim Comchar As Byte

On Urxc Getchar                                             'переопределяем прерывание на передачу по usart
Enable Urxc
Enable Interrupts
'Основной цикл
Do
Loop

Getchar:
   Comchar = Inkey()
Return

хз как этот баском работает, но похоже, у тебя программа тупо не успевает. Ты при приеме каждого символа передаешь как минимум 4

Объясните пожалуйста, как эта программа работает? В прерывании по приему символа вы отправляете код символа- минимум 2 символа, потом \r\n. Итого 4 символа. А комп в это время еще символы шлет то есть они просто теряются?

WIKI писал(а):...Подключение Дальномеров

GP2D12, GP2D120, GP2Y0A02, GP2D15, GP2Y0D02, GP2Y0A21 оснащены одинаковым разъемом для подключения. Он называется Japan Solderless Terminal (JST). Разъем имеет 3 контакта: ground, vcc и output.

Так как дальномер излучает непрерывно,....

А главное не написана распиновка..где какой контакт у SHARPa....написано что имее три контакта, да это и так видно....

Вот для потомков ! Кстати в сети не нашел ни одного подобного кода на Bascom AVR, чтобы сообщения принимал.
Вот рабочий код:

Код: Выделить всё • Развернуть

'------------------------------------------------------------------
' flyroman by roboforum.ru ®2010
' Программа приема и отправки сообщений по UART/ Bascom AVR
'------------------------------------------------------------------
$regfile = "m32def.dat"
$crystal = 7372800
$baud = 115200

$framesize = 16
$hwstack = 24
$swstack = 16


Dim Comchar As Byte                                         'принимаемый символ
Dim Buff As String * 20                                     'переменная буфер
Dim Bcount As Byte                                          'счетчик принятых байтов
Dim Flagbuf As Bit                                          'переменная Флаг конца приема сообщения

On Urxc Getchar                                             'переопределяем прерывание на передачу по usart
Enable Urxc                                                 'включаем прерывание uart
Enable Interrupts

Reset Flagbuf

'Основной цикл
Do

If Flagbuf = 1 Then
 Disable Serial

 'If Mid(buff , 1 , 5) = "hello" Then     'проверка на приход определенного сообщения, в данном случае "hello"
 '
 '  .....
 '
 'End If

 Print Buff      'отправляем принятое сообщение
 Print Bcount      'тправляем количество принятых байт
 Buff = ""      'сбрасываем буфер

 Reset Flagbuf             'сбрасываем флаг приема сообщения
 Enable Serial
End If

Loop


Getchar:
   Comchar = Inkey()  'принимаем 1 символ

   If Comchar <> 13 Then 'проверяем является ли этот символ Enter'ом
   Buff = Buff + Chr(comchar) 'если нет, то добавляем его в буфер
   Incr Bcount   'увеличиваем на 1 счетчик байтов
   Else
      Flagbuf = 1  'если символ оказался "Enter", тогда флаг устанавливаем в 1. "Enter"- конец сообщения
   End If

Return

Добавлено спустя 2 часа 32 минуты 35 секунд:
Интересная штука:
http://shop.roboforum.ru/product/kontro ... vigatelej/
контроллер скорости.

У него есть 2 провода-силовой вход питания, 2 провода-выход на мотор, и 3-провода для сигнала (+,-,сигнал)....

Интересно так, подключаю силовой вход питания к батарее питания......И, и.... на шлейфе из трех проводов появляется напряжение, нормальное напряжение.....Подсоединяю шлейф к плате контроллера с отключенным питанием, плата включается....МК работает...

Это нормально, что на сигнальном шлейфе питание появляется?

Очень часто модельные контроллеры скорости имеют встроенный BEC (обычный, линейный) для питания приемника и нескольких серв.