хз как этот баском работает, но похоже, у тебя программа тупо не успевает. Ты при приеме каждого символа передаешь как минимум 4
Проект [[Open Robotics]] - универсальные модули для построения роботов Модули Open Robotics можно приобрести в магазине shop.roboforum.ru Day OFF? You must be pulling my leg! Stop making humor before someone sees you, fool!
Объясните пожалуйста, как эта программа работает? В прерывании по приему символа вы отправляете код символа- минимум 2 символа, потом \r\n. Итого 4 символа. А комп в это время еще символы шлет то есть они просто теряются?
Проект [[Open Robotics]] - универсальные модули для построения роботов Модули Open Robotics можно приобрести в магазине shop.roboforum.ru Day OFF? You must be pulling my leg! Stop making humor before someone sees you, fool!
GP2D12, GP2D120, GP2Y0A02, GP2D15, GP2Y0D02, GP2Y0A21 оснащены одинаковым разъемом для подключения. Он называется Japan Solderless Terminal (JST). Разъем имеет 3 контакта: ground, vcc и output.
Так как дальномер излучает непрерывно,....
А главное не написана распиновка..где какой контакт у SHARPa....написано что имее три контакта, да это и так видно....
'------------------------------------------------------------------ ' 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
У него есть 2 провода-силовой вход питания, 2 провода-выход на мотор, и 3-провода для сигнала (+,-,сигнал)....
Интересно так, подключаю силовой вход питания к батарее питания......И, и.... на шлейфе из трех проводов появляется напряжение, нормальное напряжение.....Подсоединяю шлейф к плате контроллера с отключенным питанием, плата включается....МК работает...
Это нормально, что на сигнальном шлейфе питание появляется?