
10-40
IM 704610-01E
10.4.3
Initialization/Error/Execution Function
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMillseconds As Long)
Option Explicit
Dim StartFlag As Integer 'Start Flag
Dim Timeout As Integer 'Timeout
Dim Dev As Long 'Device ID
Dim CtsFlag As Integer 'CTS Flag
Dim term As String 'Terminator
Dim Query(100) As String 'Query String
Dim Dummy As Integer
Private Function InitEthernet() As Integer
Dim ret As Long 'EOI
ret = TmInitialize(4, "10.0.229.37,anonymous,", Dev) 'Ethernet
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 'EOI
ret = TmInitialize(1, "1", Dev) 'Address = 1
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
10.4 Sample Program