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