Wavelength Electronics LFI-3751, Руководство пользователя, Страница: 126 / 132

126
1063 ‘ The following loop sums the COM port buffer to create a response packet.
1064 ‘ If 21 characters are detected in the COM port buffer, then the response packet is
1065 ‘ printed to the screen.
1066 ‘
1067 RDATA:
1068 RECV$ = RECV$ + INPUT$(LOC(1),#1)
1069 IF LEN(RECV$) = 21 THEN REND
1070 ELSE RCNT=0: GOTO RLOOP
1071 ‘
1072 ‘ No response packet received.
1073 ‘
1074 RERROR:
1075 RECV$ = “No Response!”
1076 ‘
1077 ‘ Print the response packet.
1078 ‘
1079 PRINT “Instrument’s response packet is:”; RECV$
1080 ‘
1081 ‘ Send another packet or end program
1082 ‘
1083 PRINT “Continue [ Y or N]?”:;
1084 INPUT C$
1085 IF C$ = “Y” THEN RS232LOOP
1086 CLOSE #1
1087 END
Chapter 4 - Remote Interface Reference
Example BASIC Control Program for IBM PC Compatible Machines