![Tektronix 2714 Скачать руководство пользователя страница 260](http://html1.mh-extra.com/html/tektronix/2714/2714_programmers-manual_1077901260.webp)
Programming
6–62
2714 & 2715 Programmer Manual
'
' obtain bus device unit descriptor (BD%).
' BDNAME$ must match name
' established for the 2714 or 2715 with the IBCONF program
BDNAME$ = "TEK_SA"
CALL IBFIND(BDNAME$, bd%)
'
' establish link to abnormal event handler; enable interrupt line
ON PEN GOSUB ABNORM.EVE
PEN ON
'
' enables SRQ generation in case of abnormal event
CALL ibwrt(bd%, "RQS ON")
' trap DOS errors
ON ERROR GOTO ERR.TRAP
'
' generate the menu
MENU:
CLS
PRINT "F1
SEND COMMAND OR QUERY"
PRINT "F2
SAVE CURRENT SETTINGS TO FILE"
PRINT "F3
RESTORE SETTINGS"
PRINT "F4
SAVE AN INSTRUMENT FILE"
PRINT "F5
RESTORE AN INSTRUMENT FILE"
PRINT "F6
ACQUIRE CURVE DATA"
PRINT "F10
EXIT"
PRINT "PRESS F1ĆF6 OR F10 TO MAKE SELECTION"
'
' chk keyboard for keypress, decode,
' and branch to correct subroutine
KYBD.CHK:
IN$ = INKEY$
IF IN$ = "" GOTO KYBD.CHK
IF LEN(IN$) = 1 THEN BEEP: GOTO KYBD.CHK
IN.KEY = ASC(MID$(IN$, LEN(IN$), 1))
' decoding complete
SELECT CASE IN.KEY
'branch to subroutine
CASE 59
'F1 pressed
GOSUB SEND.RCV
Содержание 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: ......