![Tektronix 2714 Скачать руководство пользователя страница 234](http://html1.mh-extra.com/html/tektronix/2714/2714_programmers-manual_1077901234.webp)
Programming
6–36
2714 & 2715 Programmer Manual
'
semiĆcolon and cr/lf
RD$ = RIGHT$(RD$, LEN(RD$) - 9)
'strip off header and byte
'
count
'
F OR x% = 0 TO 511
wfm%(x%) = ASC(MID$(RD$, x% + 1, 1))
'convert each binary value to
'
ascii
NEXT
END IF
'
EXIT SUB
'
'****************************************************************
' This routine will display the error message if RS232
*
' communication cannot be established.
*
'****************************************************************
'
ERROR.DISPLAY:
'
'
save cursor coordinates
'
hold.x% = POS(0)
hold.y% = CSRLIN
'==================
' save screen image
'==================
REDIM before$(7, 41), colr%(7, 41)
F OR p% = 0 TO 7
F OR q% = 0 TO 41
colr%(p%, q%) = SCREEN(p% + 18, q% + 20, 1)
before$(p%, q%) = CHR$(SCREEN(p% + 18, q% + 20))
NEXT q%
NEXT p%
'============================================
' next print the window and the error message
'============================================
COLOR 14, 6
'
F OR z% = 18 TO 25
LOCATE z%, 20, 0
PRINT STRING$(42, CHR$(32));
NEXT
'
LOCATE 18, 30, 0
PRINT "COM(1) PORT PROBLEM";
Содержание 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: ......