旧ＧＰＩＢ技術ラウンジログ #77-LAST(暫定移行)

42 名前： Copy代行 投稿日：2003/06/25(水) 22:41 ID:X2qCfubo

■ GPIBでオシロと通信する
No. ： 118 [返信]　
Name ：カワカワ　
Date ： 2003/06/25(Wed) 13:19　

GPIBでオシロスコープのデータ収集プログラムを作っているのですが、どなたか私の質問に答えていただけるでしょうか？
VB.NETと菊水電子のKI-VISAを使ってiwatsuのデジタルオシロスコープのプログラムを作っております。

Private Sub Button1_Click(
ByVal sender As System.Object,
Byval e As System.EventArgs ) Handles Button1.Click

Dim rm As VisaComLib.ResourceManager
Dim o As VisaComLib.IMessage
Dim strRd As String

Try

rm = New VisaComLib.ResourceManager()
o= rm.Open("GPIB0::3::INSTR")
　　　　　　　 o.WriteString("DTFORM ASCII")
o.WriteString("DTSTP 1")
o.WriteString("DTSTAERT 1")
o.WriteString("DTPOINTS 1024")
o.WriteString("WAVESRC CH1")
o.WriteString("DTWAVE?")
ch1 = o.ReadString(10000)
c1array = Split(ch1, ",")
'データを電圧値に変換する
If RadioButton12.Checked Then
For i = 1 To UBound(c1array)
c1volt(i) = (CDbl(c1array(i)) / 25) / 256 * 0.02 - (c1offset / 1000)
Next i
End If
Catch exp As Runtime.InteropServices.ComException

MsgBox(exp.Message, MsgBoxStyle.Exclamation, "Error Occurred")

Finally

session.Close()

End Try

End Sub

このようなコードでデータを集めているのですが、２回に一回程度の割合で、「timeout occuerd」というエラーがでてしまいます。
どのようにしたらこのようなエラーを防げるでしょうか？
どなたかご助言をお願いします。