roboforum.ru

Romeo писал(а):Стабилизатор у нас найти очень сложно.

В СD-приводе обычно стоит стабилизатор на 3,3V (LM1117)
Из старой материнки можно выковырить

а самое веселое это транзюк типа BD139 + подстроечник ) есть везде... у мну дома в количестве штук 10 мона найти )

2Romeo: Нет, там 1 порт рабочий, я до сих пор не пойму что за второй порт. Возможно какой-то служебный для общения с самим модулем я его не использую.

Добрый вечер.
Запускаю модуль OR-BTM111-9.6. Выводы RX и TX соединяю меж собой. Система выделила COM6 и СОМ7 для OR-BTM (на СОМ7 забиваю, лишний он). Запускаю прогу "Serial Port Terminal", открываю COM6 и посылаю произвольную строку. Ответа нет. Далее, запускаю виндовский "Hyper Terminal", подключаюсь к СОМ6 и посылаю символ с клавиатуры. Окно проги виснет секунды на две. И всё.
Чего я не того делаю?

Master писал(а):2 порта, у меня после включения их 15 становица. Правда это может быть БТ свисток кучу наделывает.

Количество виртуальных COM-портов получилось столько, сколько можно подключить к ВТ свистку других ВТ устройств.

Добавлено спустя 22 минуты 45 секунд:

Duhas писал(а):настройки порта проверь...

Вроде всё нормально.
А мог ли я чё спалить?
Или терминалами неправильно пользуюсь?

2Romeo: А какие именно выводы вы соединили между собой?

Короче я сдаюсь
Отложу модуль на недельку в сторону.
Разорвал перемычку RX-TX на RoboBUS и снова програл через Hyper Terminal (писал в файл и на экран).
Ответ есть. Но получается, что не от модуля от самого порта COM6.
До свидания. "Увидимся" через недельку.

Именно эхо от терминала и ввело меня в заблуждение.
Переподключил модуль.
Программа на VB:

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

Option Explicit

Private Sub Command1_Click()
 MSComm1.Output = Chr(10)
End Sub

Private Sub Form_Load()
 MSComm1.CommPort = 10
 MSComm1.Settings = "9600,N,8,1"
 MSComm1.InBufferSize = 1
 MSComm1.RThreshold = 1
 MSComm1.InputLen = 1
 MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
 Dim RS As String
 If MSComm1.CommEvent = 2 Then
  RS$ = MSComm1.Input
  MsgBox RS1$ End If
End Sub

При соединении выводов RX и TX модуля в строке с "RS$ = MSComm1.Input" вылетает ошибка RunTime Error 8020 (Error reading comm device). Если выводы не соединять, то ошибки не происходит (вполне логично).
Почему же не получается читать с порта?