tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： MSComm通信
投稿日： 2009/12/01(Tue) 16:16
投稿者： まな
お世話になります。
MSComm通信を用いたシリアル通信での質問です。
HEXで下のようなデータをマイコンへ送信し、受信したデータをHEXで表示
しようとしています。
下記ですと、当然の如くERRORとなります。
この辺りの情報は色々とあるのですが、よく理解出来ておりません。
御教授お願いいたします。

Private Sub Command1_Click()
    Dim BytArrayRequestDat(6) As Byte

    If MSComm1.PortOpen = False Then
            MSComm1.PortOpen = True
    End If

    BytArrayRequestDat(0) = &H10    'HEXデータをセット
    BytArrayRequestDat(1) = &H2
    BytArrayRequestDat(2) = &H30
    BytArrayRequestDat(3) = &H77
    BytArrayRequestDat(4) = &H32
    BytArrayRequestDat(5) = &H31
    BytArrayRequestDat(6) = &HE4
    
    Debug.Print Hex(BytArrayRequestDat) & ":送信"
    
    MSComm1.Output = Chr(BytArrayRequestDat)    'マイコンへ送信
    Do
        DoEvents
    Loop Until MSComm1.OutBufferCount = 0
End Sub


Private Sub MSComm1_OnComm()
    Dim Buffer1 As Variant
    Dim Buffer2 As Variant
    
    Buffer1 = ""

    Select Case MSComm1.CommEvent
        Case comEvReceive
            Buffer1 = MSComm1.Input
        Case Else
    End Select

    Debug.Print Hex(Buffer1) & ":受信"
End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。