バイナリデータをテキストボックスに表示するには？

解決

オヤジの湖 2005-02-02 08:02:59 No: 88143

パソコンのCOMポートに接続した装置からバイナリデータを受信して、
そのデータをテキストボックスに表示する処理をしたいのですが．．．
たとえば、"00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F"
といったデータを受信した場合、"0000000000000000"と表示されて
しまいます。（0A，0B などそのまま表示したいのですが）
ご助力何卒お願いいたします。

Private Sub MScomm1_OnComm()
Dim bytDat()    As Byte
Dim RDat        As Variant
bytDat() = MSComm1.Input
y = y + 1
RDat = Val(bytDat())                   'テキストボックスで受信データ表示
Text1.Text = Text1.Text & RDat
End Sub

ガッ 2005-02-02 16:24:47 No: 88144

Private Sub MScomm1_OnComm()
Dim bytDat()    As Byte
Dim RDat        As Variant
Dim St          as string
bytDat() = MSComm1.Input
y = y + 1 '???
'RDat = Val(bytDat())                     'テキストボックスで受信データ表示
'Text1.Text = Text1.Text & RDat
st=""
for each RDat in bytDat
  st=st & right$("00" & Hex$(RDat),2)
next
Text1.Text=Text1.Text & RDat
End Sub

もっと型に気をつければよかったかもしれない。
※誤爆予感…

ガッ 2005-02-02 16:25:42 No: 88145

やっぱり誤爆してた(orz

Text1.Text=Text1.Text & RDat
↓
Text1.Text=Text1.Text & st

※多分もう大丈夫。

オヤジの湖 2005-02-03 15:14:53 No: 88146

うまくいきました。
本当にありがとうございました。