58
EFT/ Burst Generator PEFT Junior
Example 2: Controlling HP9000 series 300 BASIC interface using IEEE
This program contains , voltage ramp error checking and a check for EUT failed.
10 DIM Name$ [30]
!
20
!
30
! Remote control and identification
40
!
50 OUTPUT 712;"REN"
! Remote enable
60 OUTPUT 712;"ID?"
! Identification
70 WAIT 0.5
! delay for communication
80 ENTER 712;Name$
! enter identification's name
90
!
100
! Prepare computer's display
110
!
120 PRINT TABXY(20,2)"HELLO USER ! MY NAME IS ";A$
130 PRINT TABXY(20,4)"DEMO PROGRAM FOR IEEE/PEFT CONTROL"
140 PRINT TABXY(35,8)"PARAMETERS"
!
150 PRINT TABXY(70,8)"ERRORS"
!
160
!
170
! Input parameters in PEFT/P90
180
!
190 CHVset=4
! Test voltage = 4kV
200 OUTPUT 712;"CHV ";CHVset
! Setting test voltage
210 OUTPUT 712;"CHV?"
! Control test voltage real
220 WAIT 0.5
! Delay for communication
230 ENTER 712;CHVreal
!
140 IF CHVreal<CHVset THEN ErrChv$="LIMIT VOLTAGE MAX"
! Test overlimit
150 IF CHVreal>chvset THEN ErrChv$="LIMIT VOLTAGE MIN"
! Test underlimit
160 ErrChv$="ok"
!
170 PRINT TABXY(35,10);"TEST VOLTAGE:";Chv,ErrChv$
! Display
180
!
190
!
200 OUTPUT 712;"POL NEG"
! Setting Polarity
210 OUTPUT 712;"POL?"
! Control Polarity
220 WAIT 0.5
! Delay for communication
230 ENTER 712;POL$
!
240 OUTPUT 712;"ERR?"
! Error test
250 WAIT 0.5
!
260 IF ERR=0 THEN ErrPOL$="OK" Else ErrPOL$=ERR;" see table"
270 PRINT TABXY(35,11);"POLARITY :";POL$,ErrPOL$
! Display
280
!
290
!
300 TTMEset=500
! Test time = 500s
310 OUTPUT 712;"TTME ";TTMEset
! Setting test time
320 OUTPUT 712;"TTME?"
! Control test time real
330 WAIT 0.5
! Delay for communication
340 ENTER 712;TTMEreal
!
350 IF TTMEreal<TTMEset THEN ErrTTME$="LIMIT Test Time MAX"
! Test overlimit
360 IF TTMEreal>TTMEset THEN ErrTTME$="LIMIT Test Time MIN"
! Test unterlimit
370 ErrTTME$="ok"
!
380 PRINT TABXY(35,12);"Test Time :";TTMEreal,ErrTTME$! Display
390
!
400
!