![Tektronix 2714 Скачать руководство пользователя страница 261](http://html1.mh-extra.com/html/tektronix/2714/2714_programmers-manual_1077901261.webp)
Programming
2714 & 2715 Programmer Manual
6–63
GOTO MENU
CASE 60
'F2 pressed
GOSUB SAVE.SET
GOTO MENU
CASE 61
'F3 pressed
GOSUB RES.SET
GOTO MENU
CASE 62
'F4 pressed
GOSUB SAVE.FILE
GOTO MENU
CASE 63
'F5 pressed
GOSUB RES.FILE
GOTO MENU
CASE 64
'F6 pressed
GOSUB INT.CUR
GOTO MENU
CASE 68
'F10 pressed
SYSTEM
'returns to dos
END SELECT
GOTO MENU
'regenerates the menu
'
' subroutine to send a command or query
' and receive the response
SEND.RCV:
CLS
PRINT : PRINT "ENTER MESSAGE TO SEND"
INPUT wrt$
CALL ibwrt(bd%, wrt$)
GOSUB GPIB.ERR
hold.time = TIMER
'slight delay; srq check
DO WHILE TIMER < hold.time + 1
LOOP
QUES = INSTR(1, wrt$, "?")
' if ques=0,there is no response;
IF QUES = 0 THEN GOTO SEND.RCV
'
' if message contains "?" get response and print it
CALL IBRD(bd%, RD$)
GOSUB GPIB.ERR
PRINT : PRINT "THE RESPONSE IS:"
PRINT : PRINT MID$(RD$, 1, IBCNT%)
PRINT : PRINT
INPUT "SEND MORE (ENTER Y OR N)?"; Y$
IF Y$ = "Y" THEN GOTO SEND.RCV
RETURN
'
Содержание 2714
Страница 4: ......
Страница 11: ...Introduction ...
Страница 12: ......
Страница 38: ...Introduction to Programming 1 26 2714 2715 Programmer Manual ...
Страница 39: ...Message Structure ...
Страница 40: ......
Страница 54: ...Instrument Specific Message Structure 2 14 2714 2715 Programmer Manual ...
Страница 55: ...Functional Groups ...
Страница 56: ......
Страница 85: ...Command Query ...
Страница 86: ......
Страница 179: ...Status Reporting ...
Страница 180: ......
Страница 197: ...Programming ...
Страница 198: ......
Страница 266: ...Programming 6 68 2714 2715 Programmer Manual ...
Страница 267: ...Appendices ...
Страница 268: ......
Страница 276: ...Appendix A RS 232 Concepts A 8 2714 2715 Programmer Manual ...
Страница 296: ...Appendix B GPIB System Concepts B 20 2714 2715 Programmer Manual ...
Страница 297: ...Index ...
Страница 298: ......
Страница 307: ......
Страница 308: ......