Tegam 3550 - Programming Examples

5-33
3550 LCR Meter Instruction Manual Programming and Interfacing
The GPIB Interface
Programming Examples
Below is a sample program for remotely controlling the 3550 using the GPIB controller. In this
program, measurement is carried out while changing the frequency.
The example here is based on the commonly used PC-9801(NEC).
TO Trigger (without SRQ)
110 ON HELP GOSUB *TESTEND
120 CLS
130 HELP ON
140 ISET IFC
150 FOR I=0 TO 100000! : NEXT I
160 ISET REN
170 CMD DELIM = 0
180 PRINT @5;"ren"@
190 PRINT @5;"s0 e3 o2"@
200 FOR J=100 TO 10000! STEP 100
210 K = LEN(STR$(J))
220 A$ = MID$(STR$(J),2,K-1)
230 PRINT @5;"fre"+A$+" T0"@
240 LINE INPUT @5;A$
250 LOCATE 0,10 : PRINT A$
260 NEXT J
270 GOTO 200
280 *TESTEND
290 END
TO Trigger (with SRQ)
110 ON HELP GOSUB *TESTEND
120 CLS
130 HELP ON
160 ISET IFC
170 FOR I=0 TO 100000! : NEXT I
180 ISET REN
190 CMD DELIM = 0
200 PRINT @5;"ren"@
210 PRINT @5;"s1 e3 o2"@
220 FOR J=100 TO 10000! STEP 100
230 K = LEN(STR$(J))
240 A$ = MID$(STR$(J),2,K-1)
250 PRINT @5;"fre"+A$+" T0"@
260 FOR I = 0 TO 30 : NEXT I
270 POLL 5,SB
280 IF SB < 64 THEN GOTO 260
290 LINE INPUT @5;A$
300 LOCATE 0,10 : PRINT A$
310 NEXT J
320 GOTO 220
330 *TESTEND
340 END