YOKOGAWA wt1600, Руководство пользователя

Страница: 144 / 162

Sample Program
7-15
IM 760101-11E
7
Sample3(GPIB) Get Wave Data (ASCII)
----------------------------------------------------------------------------------------
Private Function GpibWaveAscii() As Integer
Dim msg As String 'Command buffer
Dim qry As String 'Query buffer
Dim sts As Integer
Dim wait As Integer
Dim pntl As Integer
Dim num As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim comma As Integer
term = Chr$(10) 'terminator
msg = Space$(100)
qry = Space$(200)
sts = InitGpib 'Initialize GPIB
If (sts <> 0) Then
GpibWaveAscii = 1
Exit Function
End If
'Initialize the settings
msg = "*RST" + term 'Initialize the settings
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibWaveAscii = 1
Exit Function
End If
'Set the measurment condition
msg = "VOLTAGE:RANGE:ELEMENT1 100V" + term 'Voltage range = 100V
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibWaveAscii = 1
Exit Function
End If
msg = "WSETUP:TDIV 10MS" + term 'Time/div = 10ms
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibWaveAscii = 1
Exit Function
End If
msg = "WSETUP:SAMPLING ON" + term 'Wave sampling start
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibWaveAscii = 1
Exit Function
End If
'Set the transition filter used to detect the completion of the data updating
msg = "STATUS:FILTER1 FALL" + term 'Falling edge of bit0(UPD)
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibWaveAscii = 1
Exit Function
End If
'Wait until waveform measure is stable (2 samples in this program)
For wait = 1 To 2
'Clear the extended event register (Read and trash the response)
msg = "STATUS:EESR?" + term
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibWaveAscii = 1
Exit Function
End If
sts = ilrd(Dev, qry, Len(qry)) 'Receive Query
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibWaveAscii = 1
Exit Function
End If
'Wait for the completion of the data updating
msg = "COMMUNICATE:WAIT 1" + term
sts = ilwrt(Dev, msg, Len(msg)) 'Send Command
If (sts < 0) Then
Call DisplayGPIBError(sts, msg)
GpibWaveAscii = 1
Exit Function
End If
Next wait
7.6 Output of Waveform Data (ASCII Format)