Filter
Top Products
52
390 ′
400 PRINT “CH1 = ″;V1; ″ CH2 =″;V2
410 ′
420 X = X + .0025 ′INCREMENT X6 OUTPUT BY 2.5 MV
430 IF X>10 THEN X 0 ′RESET RAMP
440 X$ = X6$ + STR$(X) + ″′ 13″′MAKE X6 COMMAND STRING
450 CALL TRANSMIT (X$,STATUS%) ′SET NEW X6 VOLTAGE
460 GOSUB 600
470 ′
480 GOTO 300 ′LOOP FOREVER
490 ′
500 ′ GET AN ANSWER STRING FROM THE SR530
510 CALL TRANSMIT(LISN$,STATUS%) ′MAKE SR530 A TALKER
520 GOSUB 600
530 ANS$=SPACE$(10) ′INIT ANSWER STRING
540 CALL RECV(ANS$,LENGTH%STATUS%) ′READ RESULT INTO ANS$
550 GOSUB 600
560 RETURN
570 ′
580 ′
590 ′ CHECK STATUS OF LAST TRANSMISSION FOR ERRORS
600 IF STATUS%=0 THEN RETURN ′STATUS OKAY
610 PRINT ″STATUS CODE = ″;STATUS%;″ ON GPIB: ERROR″
620 STOP