掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイナリデータをテキストボックスに表示するには? (ID:88144)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
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 もっと型に気をつければよかったかもしれない。 ※誤爆予感…
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.