如何通过蓝牙从android 6接收VB 6中的数据字符串

时间:2017-05-31 02:24:20

标签: android bluetooth vb6

我在android上创建了一个列出一些数据的应用程序。我想通过蓝牙将该列表数据发送到我的VB 6。但我不知道如何在VB上进行蓝牙连接编码。请给我一些这个问题的例子。 我在vb中使用mscomm从蓝牙接收数据,但它没有工作

Private Sub Command1_Click()
MSComm1.CommPort = Val(Combo1.Text)
MSComm1.Settings = "38400,n,8,1"
MSComm1.PortOpen = True
MsgBox "connected !", vbInformation, "success"
Combo1.Enabled = False
Command1.Enabled = False
End Sub


Private Sub MSComm1_OnComm()
accept.Text = MSComm1.Input
End Sub

我用我的Android程序的app发明者,我想在我的笔记本电脑中使用蓝牙内置接收器

1 个答案:

答案 0 :(得分:0)

假设您已正确配置问题中提及的端口,请在放置Form的{​​{1}}中放置MSComm Control以轮询输入。

假设这个Timer被称为Timer1,然后在Timer回调中添加这段代码:

Timer

或者,您可能还需要一些额外的防御性检查:

Private Sub Timer1_Timer()
    If (MSComm1.InBufferCount > 0) Then
        accept.Text = MSComm1.Input
    End If
End Sub

...和一些清理代码,只是为了展示一个例子:

Private Sub Command1_Click()
    MSComm1.CommPort = Val(Combo1.Text)
    MSComm1.Settings = "38400,n,8,1"
    If MSComm1.PortOpen = False Then
         MSComm1.PortOpen = True
    End If
    ' don't open a msgbox, toggle visibility of a small icon
    Combo1.Enabled = Not MSComm1.PortOpen
    Command1.Enabled = Not MSComm1.PortOpen
    Timer1.Enabled = MSComm1.PortOpen
End Sub

最后一点:确保两台设备都配置为使用完全相同的串行协议,开始尝试使用9600 bps