Table of Contents
Advertisement
10.4 Sample Program
10.4.3
Initialization/Error/Execution Function
10-40
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMillseconds As Long)
Option Explicit
Dim StartFlag As Integer
Dim Timeout As Integer
Dim Dev As Long
Dim CtsFlag As Integer
Dim term As String
Dim Query(100) As String
Dim Dummy As Integer
Private Function InitEthernet() As Integer
Dim ret As Long
ret = TmInitialize(4, "10.0.229.37,anonymous,", Dev)
If (ret <> 0) Then
Call DisplayError(Dev, "TmInitialize")
InitEthernet = 1
Exit Function
End If
ret = TmSetTerm(Dev, 2, 1)
If (ret <> 0) Then
Call DisplayError(Dev, "TmSetTerm")
InitEthernet = 1
Exit Function
End If
ret = TmSetTimeout(Dev, 100)
If (ret <> 0) Then
Call DisplayError(Dev, "TmSetTimeout")
InitEthernet = 1
Exit Function
End If
InitEthernet = 0
End Function
'---------------------------------------------------------------------
Private Function InitGpib() As Integer
Dim ret As Long
ret = TmInitialize(1, "1", Dev)
If (ret <> 0) Then
Call DisplayError(Dev, "TmInitialize")
InitGpib = 1
Exit Function
End If
ret = TmSetTerm(Dev, 2, 1)
If (ret <> 0) Then
Call DisplayError(Dev, "TmSetTerm")
InitGpib = 1
Exit Function
End If
ret = TmSetTimeout(Dev, 100)
If (ret <> 0) Then
Call DisplayError(Dev, "TmSetTimeout")
InitGpib = 1
Exit Function
End If
InitGpib = 0
End Function
'---------------------------------------------------------------------
Private Sub DisplayError(ByVal sts As Integer, ByVal msg As String)
Dim wrn As String
Dim ers As String
Dim ern As Integer
'Start Flag
'Timeout
'Device ID
'CTS Flag
'Terminator
'Query String
'EOI
'Ethernet
'EOI
'Address = 1
IM 704610-01E
Advertisement
Table of Contents
