Chapter 21 Vision Control (Option)
21-69
Example
VISSCREEN 1,0,1 'Instantaneously draws on drawing screen 0.
VISCLS 0 '
WINDMAKE R,1,512,480,0,2 'Sets window 1 to rectangle.
CAMIN 1 'Obtains a camera image to storage memory 0.
VISPLNOUT 0 '
VISWORKPLN 0 'Designates the object to storage memory 0.
BLOB 1,0,0,0,128 'Executes labeling.
I1 = VISSTATUS(0) '
IF I1 = 0 THEN '
I2 = VISSTATUS(1) '
VISDEFCHAR 1,1,2 '
VISLOC 10,10 '
VISPRINT I1,I2 '
IF I2 <> 0 THEN '
FORI1=0TOI2-1 '
VISLOC 10,11 '
VISPRINT VISGETNUM(I1,1), VISGETNUM(I1,2)
'
VISCROSS VISGETNUM(I1,1), VISGETNUM(I1,2)
'
NEXT I1
END IF '
END IF '
VISCAMOUT 1 '
Comments to this Manuals