13-20
IM 253421-01E
' +5V output on selected channel
WRT$ = "CH" + CH$
CALL IBWRT(DEV%, WRT$)
IF (IBSTA% AND EERR) THEN CALL gpiberr("Ibwrt error")
WRT$ = "DO0"
CALL IBWRT(DEV%, WRT$)
IF (IBSTA% AND EERR) THEN CALL gpiberr("Ibwrt error")
PRINT ""
PRINT "+5V output on channel"; CH$
PRINT "Please measure voltage of channel"; CH$
PRINT "measurement data = "; : LINE INPUT D$
WRT$ = "CD" + CH$ + "," + D$
CALL IBWRT(DEV%, WRT$)
IF (IBSTA% AND EERR) THEN CALL gpiberr("Ibwrt error")
FOR I = 0 TO 2000: NEXT I
WRT$ = "ENT"
CALL IBWRT(DEV%, WRT$)
IF (IBSTA% AND EERR) THEN CALL gpiberr("Ibwrt error")
' -5V output on selected channel
WRT$ = "DO1"
CALL IBWRT(DEV%, WRT$)
IF (IBSTA% AND EERR) THEN CALL gpiberr("Ibwrt error")
PRINT ""
PRINT "-5V output is doing on channel"; CH$
PRINT "Please measure voltage of channel"; CH$
PRINT "measurement data = "; : LINE INPUT D$
WRT$ = "CD" + CH$ + "," + D$
CALL IBWRT(DEV%, WRT$)
IF (IBSTA% AND EERR) THEN CALL gpiberr("Ibwrt error")
FOR I = 0 TO 2000: NEXT I
WRT$ = "ENT"
CALL IBWRT(DEV%, WRT$)
IF (IBSTA% AND EERR) THEN CALL gpiberr("Ibwrt error")
GOTO RESTART
ENDDACAL:
RETURN
13.2 Sample Program