VBのシリアル通信でコマンドを送るには？ (ID:111424)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 RS-232Cシリアルケーブルで外部機器に コマンドを送りたいのですが、うまくいきません！ コマンドは数字です。 下のようなプログラムではうまくいきませんでした。 Private Sub Form_Load () Dim command As Integer MSComm1.CommPort = 1 MSComm1.Settings = "9600,N,8,1" MSComm1.InputLen = 0 MSComm1.PortOpen = True command = &H40 MSComm1.Output = command MSComm1.PortOpen = False End Sub