VB6のデータ文字列をBluetooth経由でアンドロイドから受信する方法

Question

私はいくつかのデータをリストしたアンドロイド上にアプリケーションを作成します。私はそのリストデータをブルートゥース経由でVB6に送りたいと思っています。しかし、私はどのようにVBでのbluetooth接続のためのコーディングを作るのか分からない。この問題の例を教えてください。 私はブルートゥースからのデータを受信する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 

動作しないと私は仮定すると、受信機

Answer 1

のために私のラップトップに内蔵Bluetooth使いたいですMSComm Controlを置いたFormに質問に記載されているポートを正しく設定した後、Timerに入力をポーリングします。

は、その後、タイマーコールバック内のコードのこの部分を追加し、このタイマは、タイマ1と呼ばれているとしましょう：

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 

ちょうど最後の注意：両方のデバイスがまったく同じシリアルプロトコルを使用するように設定されており、が9600 bpsで試行を開始します。