|
Kinoさん、お返事ありがとうございます。
EasyGPIBはイベント非対応ですが、イベント型プログラムに組み込んで使えるのでしょうか？そのへんがよくわかりませんでした〜
とりあえず、マニュアルを参考に以下のように作ってみたのですが
'計測開始
Private Sub Command13_Click()
Dim i As Integer '行数
Dim j As Integer '桁数
Dim fnc As String '指示
Dim value As String '移動量
Dim rcv As String '受信用バッファ
Timer1.Enabled = True '現在位置表示用タイマー
For j = 1 To 5 '１〜５桁
MSHFlexGrid1.Col = j
For i = 1 To 3 '１〜３行
DoEvents
MSHFlexGrid1.Row = i
fnc = Left(MSHFlexGrid1.Text, 1) '先頭一文字を取り出す
value = Mid(MSHFlexGrid1.Text, 2) '残りの文字を取り出す
If i = 1 Or i = 2 Then
If StrComp(UCase(fnc), "H") = 0 Then '原点復帰指示
Call SGCtlX1.Axes(AxesNo).ReturnLogicalOrigin '原点復帰
ElseIf StrComp(UCase(fnc), "M") = 0 Then '移動指示(M)
Call SGCtlX1.Axes(AxesNo).Move(CLng(value)) '移動
End If
Else '計測器への指示
If StrComp(UCase(fnc), "S") = 0 Then '計測指示(S)
SGCtlX1.GP_Address = DEVICE '通信対象アドレスつEVICEに設定
Call SGCtlX1.NIibwrt(SGCtlX1.GP_fd(DEVICE), "MEAS?") '計測指示送信
MSHFlexGrid1.Row = 4
rcv1 = ""
rcv2 = ""
Do
DoEvents
Call SGCtlX1.NIibrd(SGCtlX1.GP_fd(DEVICE), rcv1) '計測結果受信
rcv2 = rcv2 + rcv1
Loop While InStr(1, rcv2, vbCrLf) = 0 'デリミタ漆・泙
MSHFlexGrid1.Text = rcv2 '結果表示
End If
End If
Next i
Next j
Timer1.Enabled = False '現在位置表示用タイマーOFF
End Sub
指示テーブルを表示して、移動命令と、計測命令を入力して実行するプログラムなのですが、
これはあくまで移動した後に、計測器で計測する形になってしまっているのですが、移動しながら測定を行うには、どこを変えれば良いでしょうか？
長くなって申し訳ありません；；
|