投稿日	： 2005/04/27(Wed) 01:10
投稿者	： Starfish
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^3: MSCommについて

　&HE0は、シフトＪＩＳでは、全角文字の1バイト目のコードですので、テキスト
モードだと、2バイト目がくるのをしばらく待っているのでしょう。

　バイナリーモードの場合は、バイト配列を使います。

　ＳＴＸからＥＴＸまでの間のデータを、取り出して文字列に変換するコードを
書いてみました。コンパイルエラーは落としてありますが、デバッグはしていません、
こんな感じでやればできるということで参考にしてください。ＳＴＸとＥＴＸが
分かれて受信するところまでは考慮はしています。

Private Sub MSComm1_OnComm()
Dim bytBuffer() As Byte
Dim strData As String
Static bytData() As Byte
Static blnRecieve As Boolean ' 受信中

    Select Case MSComm1.CommEvent
    Case comEvReceive
        bytBuffer = MSComm1.Input
        If blnRecieve = False Then  ' STXを受信していない
            If InStrB(bytBuffer, ChrB(2)) > 0 Then  ' STX受信？
                blnRecieve = True
                bytData = ""
                bytBuffer = MidB(bytBuffer, InStrB(bytBuffer, ChrB(2)) + 1)
            End If
        End If
        If blnRecieve Then  ' STX受信済
            If InStrB(bytBuffer, ChrB(3)) > 0 Then  ' ETX受信？
                If InStrB(bytBuffer, ChrB(3)) > 1 Then
                    bytData = CStr(bytData) & LeftB(bytBuffer, InStrB(bytBuffer, ChrB(3)) -
1)
                End If
                blnRecieve = False
                strData = StrConv(bytData, vbUnicode)
                ' strData に、文字列に変換したデータが入ります。ここに受信処理を入れてください
            Else
                bytData = CStr(bytData) & CStr(bytBuffer)
            End If
        End If
    End Select

End Sub

★ - MSCommについて - なまごん 04/26-15:48No.3041
• Re: MSCommについて - 岡田 之仁 04/26-21:08 No.3048
  • Re^2: MSCommについて - なまごん 04/26-22:10 No.3052
    • Re^3: MSCommについて - Starfish 04/27-01:10 No.3054
      • Re^4: MSCommについて - なまごん 04/27-14:35 No.3063
• Re: MSCommについて - わたしき 04/26-22:36 No.3053
  • Re^2: MSCommについて - なまごん 04/27-14:12 No.3062