1000 OPEN"COM1:N81N"AS #1
1010 PRINT #1, "WA1500"
1020 INPUT #1, ANS$
1030 GOSUB *MOTOR.CHK
1040 FOR SW=1500 TO 1580 STEP .1
1050 PRINT #1, "WA"+STR$(SW)
1060 INPUT #1, ANS$
1070 GOSUB *MOTOR.CHK
1080 PRINT #1, "LP"
1090 INPUT #1, ANS$
1100 PRINT #1, "DI"
1110 INPUT #1, POW$
1120 NEXT
1130 *MOTOR.CHK
1140 PRINT #1, "SU"
1150 PRINT #1, "DI"
1160 INPUT #1, ANS$
1170 IF(RIGHT$(ANS$,1)="0") THEN RETURN
1180 GOTO *MOTOR.CHK
1190 CLOSE #1
1200 STOP
RS232-C line le open, communication type setting
Sets wavelength to "1500nm".
Waits for echo back.
Checks whether wavelength tuning is ON or not.
Varies from 1500nm to 1580nm by 0.1nm, and reads optical
output power.
Sets wavelength.
Waits for echo back.
Checks whether wavelength tuning is ON or not.
Sets output variable to optical output power (mW).
Waits for echo back.
Sets reading output variable without echo back.
Reads data of optical output power (mW).
< Routine to check whether wavelength tuning is ON or not >
Sets output variable to status.
Sets reading output variable without echo back.
Reads status.
Sees 1st digit to check whether it is busy or not.
Closes line of RS-232C.
This sample program is written in N88BASIC on NEC-9800 series. This program steps wave-
length from 1500 nm up to 1580 nm, in unit of 0.1 nm, and reads the optical output power at
each wavelength. This program assumes that all the required communication conditions such
as delimiter are set.
10-4-A. RS-232C Sample Program
[ Description ]
10-4 Sample Program
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
To Next Page
Loading...
