PROGRAMMING EXAMPLES | GPIB OPERATION |
Status This function demonstrates how to use the Status Registers to provide synchroni-
Register zation.
Control Uses the TR2 (trigger with settling) command to make a reading.
Function GetTR2Reading (channel) As Single
‘make space for the result Dim result As String result = String$(10, 0)
‘Send Status Register setup command + TR0 hold trigger mode
Call DLLsend(0, 13, “*SRE 16; TR2 1", 14, NLend, ibsta%, iberr%, ibcntl&)
‘Set loop flag Value =
Do
‘Loop until SRQ is asserted. Do
Call DLLTestSRQ(0, SRQ%, ibsta%, iberr%, ibcntl&) Loop Until SRQ%=0
‘SRQ asserted, read the ML2430As status register
Call DLLReadStatusByte(0, 13, status_byte%, ibsta%, iberr%, ibcntl&)
‘Check if it is the ML2430A which is requesting
‘service (SRQ bit + MAV bit)
If (status_byte% And 80) = 80 Then
'It is the ML2430A, read back value
Call DLLreceive(0, 13, result, 10, STOPend, ibsta%, iberr%, ibcntl&)
Value = Val(result)
End If
Loop Until Value <>
GetTR2Reading = Value
End Function
ML2430A OM | |
|
|
