MSComm и BlueTooth

[tavocer]

Необходимо написать приложение для распознования кто звонит.
Мобильный телефон подключен к компу при помощи BlueTooth. Можно ли это сделать при помощи MSComm ? Или нужно через WinApi ?

[BasiС]

Это можно сделать.
После инсталляции BlueTooth необходимо определить видимые устройства (среди которых и будет твой телефон). Затем у тебя появится (например):
Стандартный модем по соединению Bluetooth #7 (COM18)
Далее и работаешь с этим модемом АТ командами.
Для начала рекомендую потренироваться на HyperTerminal. Также рекомендую ознакомиться с АТ командами для используемого мобильного телефона.
Ну а написание кода для MSComm - это самая малая часть задачи =)

[tavocer]

А как получить отклик от телефона ?
Список АТ команд есть.
Порт открывается (СОМ12, как его видно в системе), но при попытке послать на телефон команду (пробовал разные) ничего не происходит.

Код: Выделить всё

Private Sub UserForm_Initialize()
   ' Buffer to hold input string
   Dim Buffer$
   Dim Instring As String
   MSComm1.CommPort = 12
   MSComm1.Settings = "9600,N,8,1"
   MSComm1.InputLen = 0
   MSComm1.PortOpen = True
   MSComm1.Output = "ATV1Q0" & Chr$(13)
   
End Sub

при звонке на телефон событие MSComm1_OnComm() тоже не происходит.

Где-то на форуме читал, что MSComm с BlueTooth "не дружит".
Так ли это? И тогда как можно решить задачу?

[BasiС]

После

Код: Выделить всё

MSComm1.PortOpen = True

нужно немного подождать - порт не открывается мгновенно
По чтению отклика тоже долго мучался, реализовал на таймере, читающем буфер:

Код: Выделить всё

Public Declare Sub sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Dim str  As String 'Строка в буфере СОМ-порта
Dim strsnd  As String 'Строка отправляемая в СОМ-порт

Private Sub Timer1_Timer()

If MSComm1.InBufferCount Then
       
    sleep 10 'Усыпляем программу на 10мс
       
    str = MSComm1.Input
    str = Replace(Replace(str, Chr(10), ""), Chr(13), "") 'Убираем перевод строки
    str = Replace(str, strsnd, "") 'Убирает отправленную строку
    If Len(str) > 2 And Right(str, 2) = "OK" Then str = Left(str, Len(str) - 2) 'убираем ОК в конце
   
End If

End Sub

На изящность реализации не претендую =)

[tavocer]

после
MSComm1.Output = "ATV1Q0" & Chr$(13)

MSComm1.Input остается равным ""

Это значит, что модем(телефон) не реагирует ? Почему ?

[alibek]

Подключись каким-нибудь терминалом и отправь "ATV1Q0", будет ли ответ. Если нет, значит дело в команде или телефоне.

[tavocer]

Все работает.

[tavocer]

Есть способ подключить через один и тот же BlueTooth два телефона?
Я пробовал на форме разместить еще один MSComm, но порт-то один, а он уже занят.

[alibek]

Через один BT-адаптер одновременно?
Ну это от адаптера зависит.
Скорее всего нет.

[tavocer]

Значит, нужен адаптер, который поддерживает работу одновременно с несколькими устройствами? А то натыкать в ноут несколько адаптеров как-то неэстетично.

[alibek]

Навряд-ли такой для компов будет.
По идее, это должен быть не BT-адаптер, а BT-хаб. Уж не знаю, производятся ли такие.

[tavocer]

http://forum.microstar.ru/viewtopic.php?t=3130&sid=7498c1c77fc77a720c3893a0c9a6ff9e

а почему нельзя подключить к обычному BT адаптеру? На нем написано, что поддерживает присоединение одновременно до 7 устройств.

[NashRus]

ну вот у тебя сколько виртуальных COM-портов получилось при установке BT ? примерно столько видимо и можно...

[tavocer]

Все получилось.
Можно и несколько телефонов на один адаптер.
Всем спасибо.

[Romeo]

Поднимаю тему.
Приобрёл модуль BlueTooth-USART (подключается к микроконтроллеру) и обычный BlueTooth для ПК. Настроил последовательный COM6 порт (9600,8,NO,1,NO). Решил "состряпать" программулину на VB. Поскольку опыт в осуществлении связи между ПК и контроллерами через COM-порты есть, использовал свои старые коды. Порт COM10 определился, но данные "летят" быстро (определил это по BEEP между посылками данных) и ответа от модуля нет, вылетает ошибка "RunTime Error 8020".
Может я чего напортачил с прогой на VB ???
Помогите, я уже в отчаянии!

Код: Выделить всё

Option Explicit

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
MSComm1.Output = Chr(10)
End Sub

Private Sub MSComm1_OnComm()
Dim RS As String
If MSComm1.CommEvent = 2 Then
  RS$ = MSComm1.Input 'ОШИБКА ЗДЕСЬ!!!
  MsgBox "!"
End If
End Sub