Question

我在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发明者，我想在我的笔记本电脑中使用蓝牙内置接收器

Answer 1

假设您已正确配置问题中提及的端口，请在放置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 。

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

1 个答案: