
13-20
IM 760401-01E
ElseIf (ern = ETAB) Then
ers = "ETAB:The return buffer is full"
ElseIf (ern = ELCK) Then
ers = "ELCK:Address or board is locked"
Else
ers = ""
End If
Else
ers = ""
End If
MsgBox ("Status No. " + Str(sts) + Chr(13) + wrn + "Error No. " + Str(ern) + Chr(13) + ers +
Chr(13) + msg), vbExclamation, "Error!"
Call ibonl(Dev, 0)
Dev = -1
End Sub
---------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
Dummy = DoEvents()
sts = GpibNormal 'Run Sample1(GPIB) Get Normal Data
If (sts = 0) Then
Text1.Text = "END"
Else
Text1.Text = "ERROR"
End If
StartFlag = 0
End Sub
---------------------------------------------------------------------------------------------------
Private Sub Command2_Click()
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
Dummy = DoEvents()
sts = GpibHarmonics 'Run Sample2(GPIB) Get Harmonics Data
If (sts = 0) Then
Text1.Text = "END"
Else
Text1.Text = "ERROR"
End If
StartFlag = 0
End Sub
---------------------------------------------------------------------------------------------------
Private Sub Command3_Click()
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
List1.AddItem "NOT MAKE"
Text1.Text = "END"
StartFlag = 0
End Sub
---------------------------------------------------------------------------------------------------
Private Sub Command4_Click()
Dim sts As Integer
If (StartFlag = 1) Then
Exit Sub
End If
StartFlag = 1
Text1.Text = "START"
List1.Clear
List1.AddItem "NOT MAKE"
Text1.Text = "END"
StartFlag = 0
End Sub
---------------------------------------------------------------------------------------------------
13.4 Sample Program (Initialization, Error, and Execution Functions)
Содержание WT210
Страница 1: ...Digital Power Meter IM 760401 01E 3rd Edition ...
Страница 208: ...13 18 IM 760401 01E 13 3 Sample Program Image ...
Страница 214: ...13 24 IM 760401 01E 13 5 Sample Program Output of Normal Measurement Data ...
Страница 266: ...14 50 IM 760401 01E 14 6 Sample Program Image ...
Страница 272: ...14 56 IM 760401 01E 14 8 Sample Program Output of Normal Measurement Data ...