KEYENCE LS-3100/3100W Series User Manual
Page 67
61
CHAPTER 4 Functions and Controls
Program 3
The following settings are specified through the computer: simultaneous
measurement of DIA and EDGE1, 100 samplings for each of DIA and EDG1,
and display of maximum, minimum and average values of these measure-
ments.
Performs arithmetic
operation to obtain
maximum, minimum, and
average values
Processors or discards
data received after
continuous output has
been stopped
100
DIM D$ (100), E$ (100)
110
OPEN "COM1:4800,N,8,1,RS,CS,DS,CD" FOR RANDOM AS #1
120
PRINT #1, "X1D"
Sets segment selector X, measurement part 1, and DIA
130
PRINT #1, "Y1E"
Sets segment selector Y, measurement part 1, and EDGE1
140
PRINT #1, "VC0"
Sets output channel CH1 and arithmetic operation "X"
150
PRINT #1, "VMN"
Sets output channel CH1 and NORMAL mode
160
PRINT #1, "WC1"
Sets output channel CH2 and arithmetic operation "Y"
170
PRINT #1, "WMN"
Sets output channel CH2 and NORMAL mode
180
PRINT "START or END ? (Press [S] or [E] key)"
190
200
A$=INPUT$ (1)
210
IF A$="E" OR A$="e" THEN END
220
IF A$<> "S" AND A$<> "S" THEN 200
230
PRINT #1, "X5"
Sets continuous output of CH1 and then CH2 data
240
FOR I=1 TO 100
250
INPUT #1, D$ (I)
Inputs data
260
INPUT #1, E$ (I)
270
NEXT I
280
PRINT #1, "X6"
Stops continuous output
290
FOR I=1 TO 500 :NEXT I
300
IF EOF (1) = 0 THEN INPUT #1, DAMMY$ : GOTO 300
310
DMAX=-10000 :DMIN=10000 :DSUM=0
320
EMAX=-10000 "EMIN=10000 :ESUM=0
330
FOR I=1 TO 100
340
D=VAL (D$ (I))
350
IF D>DMAX THEN DAMX=D
360
IF D<DMIN THEN DMIN=D
370
DSUM=DSUM+D
380
E=VAL (E$ (I))
390
IF E>EMAX THEN EMAX=E
400
IF E<EMIN THEN EMIN=E
410
ESUM=ESUM+E
420
NEXT I
430
DAVE=DUSM/100
440
EAVE=ESUM/100
450
"[DIA]
[EDGE]"
460
PRINT USING "MAX = ####,#### mm ####, #### mm" ; DMAX, EMAX
470
PRINT USING "MIN = ####, #### mm ####, #### mm" ; DMIN, EMIN
480
PRINT USING "AVE = ####, #### mm ####, #### mm" ;DAVE, EAVE
490
500
GOTO 180
Note: The baud rate is set to 4800 bps in these 3 examples. Set the baud rate according to your requirements.
Displays
maximum,
minimum and
average
values
Displays prompt for
starting or ending
measurement
08.10.1, 10:56 AM
61