xuepeng
/
VisionPlus_V3.0


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990
							<?xml version="1.0" encoding="UTF-8"?>
<hdevelop file_version="1.2" halcon_version="18.11.0.1">
	<procedure name="main">
		<interface />
		<body>
			<l>read_image(Image, 'F:/temp/1/1.bmp')</l>
			<l>read_image(Image2, 'F:/temp/1/2.bmp')</l>
			<l>dev_get_window(WindowHandle)</l>
			<l>Execute (Image, Image2, obj,WindowHandle, Result)</l>
		</body>
		<docu id="main">
			<short lang="en_US">main</short>
			<parameters />
		</docu>
	</procedure>
	<procedure name="Execute">
		<interface>
			<io>
				<par name="Image" base_type="iconic" dimension="0" />
				<par name="Image2" base_type="iconic" dimension="0" />
			</io>
			<oo>
				<par name="obj" base_type="iconic" dimension="0" />
			</oo>
			<ic>
				<par name="WindowHandle" base_type="ctrl" dimension="0" />
			</ic>
			<oc>
				<par name="Result" base_type="ctrl" dimension="0" />
			</oc>
		</interface>
		<body>
			<l>*No0( 1 == ok  2== ng) No[1]== 123456789  No3[2] == abcdefg  </l>
			<l>Result[0] := 0</l>
			<l>Result[1] := 123456</l>
			<l>get_image_size (Image, Width, Height)</l>
			<l>set_part(WindowHandle, 0, 0, Height, Width)</l>
			<l>gen_empty_obj(obj)</l>
			<l>gen_rectangle1(ROI, 1, 1, 100, 100)</l>
			<l>reduce_domain(Image, ROI, ImageReduced)</l>
			<l>threshold (ImageReduced, Regions, 0,240)</l>
			<l>connection(Regions, ConnectedRegions)</l>
			<l>select_shape (ConnectedRegions, SelectedRegions, ['width','height'], 'and', [1000,200], [2000,1000])</l>
			<l>area_center(SelectedRegions, Area, Row, Column)</l>
			<l>*</l>
			<l>if(Area &lt; 100)</l>
			<l>    Result[0] := 2</l>
			<l>    Result[1] :=78</l>
			<l>else</l>
			<l> *</l>
			<l>endif</l>
			<l>*</l>
			<l>*</l>
			<l>reduce_domain(Image2, ROI, ImageReduced_2)</l>
			<l>*</l>
			<l>disp_obj(Image2, WindowHandle)</l>
			<l></l>
			<l>set_tposition(WindowHandle, 20, 10)</l>
			<l>set_color(WindowHandle, 'green')</l>
			<l>write_string(WindowHandle, 'LED: ok')</l>
			<l></l>
			<l></l>
			<l>return ()</l>
			<l></l>
			<l></l>
			<l></l>
			<l></l>
			<l></l>
		</body>
		<docu id="Execute">
			<short lang="en_US">Execute</short>
			<parameters>
				<parameter id="Image">
					<sem_type>image</sem_type>
				</parameter>
				<parameter id="Image2">
					<sem_type>image</sem_type>
				</parameter>
				<parameter id="obj">
					<sem_type>object</sem_type>
				</parameter>
				<parameter id="WindowHandle" />
				<parameter id="Result">
					<sem_type>integer</sem_type>
				</parameter>
			</parameters>
		</docu>
	</procedure>
</hdevelop>