Kikusui PAX35-10, Руководство по эксплуатации

Страница: 142 / 204

4-38
Chapter 4. REMOTE PROGRAMMING
[5] Examples of register settings/recalling and SRQ operation
Sub example005()
'Sample program 5
[Valid only in GPIB communication]
'[5]
Example of register settings/recalling and SRQ operation
'
This sample program activates the current limit and generates SRQ at the Delayed Limit bit of FAU register bit 1 [DLIM].
'
This sample program checks the operation of SRQ by means of serial polling.
'
Related registers:
'
STS? (Status register): Read-only register
'
FUNMASK (Fault unmask register): Read/write register
'
FUN? (Fault register): Read-only register (which is cleared after being read.)
'
UNMASK (Unmask register): Read/write register
' STB? (Status byte register): Read-only register (which is cleared after being read.)
'
Serial poll register (Status byte register): Read-only register
'
The RQS bit is cleared after readout. If the SRQ factor remains in the cause register, the factor is not cleared.
'
With OVP, alarm is generated after OVP detection. This alarm is reset by sending the RESET command.
'
After resetting the alarm, it is required to read and then clear the FAU and serial poll registers.
'
Service requests
'<<SRQ>>
Dim vset As Double
vset = 15
On Error Resume Next
Call Tx("UNMASK 1;FUNMASK 1") '
Sets unmask register and fault unmask register.
Call Tx("OVPSET 17.5;ISET 1.50") '
Sets OVP to 17.5 V and current limit to 1.5 A.
Call Tx("OVPACTN 1") '
Action 1 when limited: OUT OFF, Delay time 0.05 sec.
Call Tx("VSET" + Str$(vset)) '
Sets voltage to 15.0 V.
Call Tx("OUT ON") '
Turns output ON.
Call Tx("CLR") '
Clears registers.
Dim retVal As Integer
Do
DoEvents
Call Tx("VSET" + Str$(vset))
retVal = io.ReadSTB '
Serial polling
'Debug.Print retVal
Sleep (200) '
Delay
vset = vset + 0.1
Loop Until retVal > 64 '
Loops until SRQ rises.
Dim spoll_result As String
spoll_result = SRQ_analyze(retVal) '
Calls service request analysis.
MsgBox spoll_ "generated." '
Displays analysis result.
'------------------------------------------------------------------------------------------------------------
Call Tx("RESET") '
Resets alarm.
Call Tx("SETINI") '
Restores settings to factory-shipped settings.
Call Tx("FAU?") '
Clears fault register after alarm reset.
retVal = io.ReadSTB '
Clears serial poll register after alarm reset.
End Sub
'------------------------------------------------------------------------------------------------------------
Function SRQ_analyze(spoll_data As Integer) As String
'
Service request analysis
'
After serial polling, the contents of the status byte register are analyzed.
'
If summary bit is ON, the contents of the register corresponding to the summary bit is queried and analyzed.
Dim i As Integer
Dim STBreg(7) As Integer