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

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

Answer 1

假设您已经正确配置了问题中提到的端口，在放置MSComm Control 的Form 中，放置一个Timer轮询输入。

假设这个 Timer 叫做 Timer1，那么在 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

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

Private Sub Form_Unload(Cancel As Integer)
    If MSComm1.PortOpen = True Then
        MSComm1.PortOpen = False
    End If
    Timer1.Enabled = False
End Sub

最后一点:确保两个设备都配置为使用完全相同的串行协议(protocol)，并开始尝试使用 9600 bps。