プロが教える店舗&オフィスのセキュリティ対策術

VB6.0でバイト型変換を行ってからバッファに送信する
プログラムを使用しているのですが、これを.Netにて
同様に行う記述方法が分りません。お分かりになる方
よろしくお願い致します。抜粋しておりますのでヘンテコ
なソースかとは思いますがよろしくお願い致します。主にChrBが使用出来なくなった事が困っております。
(VB6.0と同様にAxMSCommを使用しております。)

Private Sub Rs232c_Com()

Dim bytOutByte() As Byte
Dim strCmdData as String

  strCmdData="83"

'コマンド送信
bytOutByte() = ChrB(Val("&h" & strCmdData))
MSComm1.Output = bytOutByte()

End Sub

A 回答 (1件)

strCmdDataが2桁の16進文字列なら



Dim bytOutByte(1) As Byte

bytOutByte(0) = CByte(Val("&h" & strCmdData))
でいいと思います。
複数桁でも、2文字ずつ切り出せば同じことかと思います。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!