| 投稿日 | ： 2002/10/06(Sun) 17:09 |
| 投稿者 | ： Syokka- |
| ＵＲＬ | ： |
| タイトル | ： Re^2: バイナリデータの受信（MSComm) |
こんにちは。
K.J.K.さんありがとうございました。
ReDim rbuf(2) As Byte
Dim strbuf As String
MSComm.RThreshold = 0
Select Case MSComm.CommEvent
Case comEvReceive
ReadData:
MSComm.InputLen = 1
rbuf = MSComm.Input
strbuf = StrConv(rbuf, vbUnicode)
If strbuf = "" Then MSComm.RThreshold = 1: Exit Sub
Select Case gintNumber
Case 1
If rbuf(0) = &HAA Then gintNumber = 2
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
このようにしてうまく受信する事が出来ました。
また、ご指摘いただいたStrConv()関数を適切に適用する事が出来ました。
ありがとうございました。