Visual Basic 2005でRS-232Cを用いて機器を制御する際のエラーについて
現在,ディジタルマルチメータをPCで制御するため,PCとディジタルマルチメータをRS-232Cケーブルで接続し,Visual Basic 2005を用いて制御しようとプログラムを作成しています.
以前は,Visual Basic 6.0で制御していたのですが,今後の為を考え,2005へ移行することにしました.
そこで,VB6のプログラムと同様の設定を用いて,同じ命令をマルチメータ側に送信しようとするのですが,マルチメータ側で命令を受信した後に,マルチメータがエラーを出してしまいます.
全ての命令に対してエラーを出すのではなく,マルチメータ側から返信を伴う命令に対してのみエラーが出るようです.
環境は,PC:Windows XP (Home),マルチメータ:Agilent 34401Aです.
以下がソースの一部です.
[VB6]
With SerialPort
.CommPort = 4
.Settings = "9600,n,8,1"
.Handshaking = comNone
.RThreshold = 1
.SThreshold = 1
.InputLen = 0
.PortOpen = True
End With
SerialPort.Output = ":SYST:REM" & vbCrLf 'マルチメータをリモートにする
SerialPort.Output = "MEAS:VOLT:DC? 10V,0.003V" & vbCrLf '直流電圧を測定
[VB2005]
With SerialPort
.PortName = "COM4"
.BaudRate = 9600
.DataBits = 8
.Parity = IO.Ports.Parity.None
.Handshake = IO.Ports.Handshake.None
.Open()
End With
SerialPort.WriteLine("SYST:REM" & vbCrLf) 'マルチメータをリモートにする(エラーは出ない)
SerialPort.WriteLine("MEAS:VOLT:DC? 10V, 0.003V" & vbCrLf) '直流電圧を測定(エラーが出る)
原因などが分かれば,教えてください.
よろしくお願いします.
お礼
USBシリアル変換器は外してある状態です。 アプリだけを動作させた時の話です。 フリーズとの表現は不適切でした。 アプリのフリーズと思っていましたが待機中だったのですね。 ありがとうございました。