銆€銆€绶氭潗鍦ㄧ敓鐢�(ch菐n)鍒堕€犻亷(gu貌)绋嬩腑闇€瑕佹寜瑕�(gu墨)鑼冪殑椤忚壊渚�(l谩i)閫�(j矛n)琛屾帓搴�锛屼互寰€鐢ㄥ偝绲�(t菕ng)浜哄伐鍘绘娓�(c猫)鏄撳嚭鐝�(xi脿n)婕忔銆侀尟(cu貌)妾㈢殑鎯呮硜锛岄€氶亷(gu貌)姝ｉ亱(y霉n)鍕�(d貌ng)鎶€琛�(sh霉)姗�(j墨)鍣ㄨ瑕�(ju茅)閬�(y霉n)鍕�(d貌ng)鎺у埗涓€楂旀(j墨)绶氭潫椤忚壊鎺掑簭璀�(sh铆)鍒ョ郴绲�(t菕ng)锛屽彲鑷嫊(d貌ng)璀�(sh铆)鍒ョ窔鏉熼鑹插強鎺掑垪闋嗗簭鏄惁鏈夎鎴栨彃閷�(cu貌)绌轰綅绛夋儏娉�銆�

銆€銆€瀹冭兘澶�24灏忔檪(sh铆)涓嶅仠姝㈤亱(y霉n)琛岋紝宸ヤ綔鏁堢巼楂�锛屾彁楂樼敘(ch菐n)鑳姐€備互鍙婂畠鐨勬娓�(c猫)绲�(ji茅)鏋滃拰浜哄伐妾㈡脯(c猫)鐩告瘮涓€鑷存€ц純楂�銆佸彲闈犳€у挤(qi谩ng)銆�

銆€銆€涓婃湡瑾茬▼锛屾垜鍊戣瑳杩颁簡姗�(j墨)鍣ㄨ瑕�(ju茅)鏂规涓浂浠跺垎鎻€鐨勬噳(y墨ng)鐢ㄤ緥绋�锛屾湰鏈熻绋嬫垜鍊戝皣鍜屽ぇ瀹朵竴璧峰垎浜浣曞(sh铆)鐝�(xi脿n)绶氭潫椤忚壊鎺掑簭璀�(sh铆)鍒ョ殑鍔熻兘銆�

銆€銆€鏁欏(xu茅)瑕栭牷

銆€銆€涓€妾㈡脯(c猫)鍘熺悊姊舰鍦栦粙绱�

銆€銆€(涓€)妾㈡脯(c猫)闇€姹�

銆€銆€璀�(sh铆)鍒ュ嚭绶氭潫鐨勭窔鏉愰鑹叉帓搴忔槸鍚﹁(gu墨)鑼冿紝骞堕’绀虹暥(d膩ng)鍓嶇殑绶氭潗璀�(sh铆)鍒ョ殑椤忚壊鍜屾娓�(c猫)绲�(ji茅)鏋�銆�

銆€銆€(浜�)杌熶欢绠楁硶

銆€銆€鍏堢敤褰╄壊鐩告(j墨)鎷嶆敐鍦栫墖鍚庝緷娆℃埅鍙栫窔鏉熶笂涓嶅悓椤忚壊鍗€(q奴)鍩熼€�(j矛n)琛岄鑹叉ǎ鏈(xu茅)缈�(x铆)锛屽皣椤忚壊妯ｆ湰绲�(ji茅)鏋滃瓨鏀惧埌鍒楄〃涓€�

銆€銆€鍏舵灏嘡GB鍦栧儚杞�(zhu菐n)鐐虹伆搴﹀湒鍚庣敤褰㈢媭鍖归厤宸ュ叿瀛�(xu茅)缈�(x铆)妯℃澘锛屽皣妯℃澘浣嶇疆绲�(ji茅)鏋滀綔鐐哄熀婧�(zh菙n)浣嶇疆銆�

銆€銆€鐣�(d膩ng)鍓嶅尮閰嶅埌鐨勭洰妯�(bi膩o)绲�(ji茅)鏋滃拰鍩烘簴(zh菙n)浣嶇疆绲�(ji茅)鏋滈€�(j矛n)琛岃▓(j矛)绠楄几鍑轰綅缃畩鎻涚煩闄ｏ紝3鍊�(g猫)椤忚壊璀�(sh铆)鍒ョ殑ROI鍗€(q奴)鍩熷拰鍓�(chu脿ng)寤烘ā鏉挎檪(sh铆)瑷�(sh猫)缃殑ROI鍗€(q奴)鍩熶綅缃娇鐢ㄥ悓涓€鍊�(g猫)璁婃彌鐭╅櫍閫�(j矛n)琛屼豢灏勮畩鎻�锛屽嵆浣跨敤褰㈢媭鍖归厤浣滅偤璀�(sh铆)鍒ラ鑹插崁(q奴)鍩熺殑瑁�(b菙)姝ｆ簮銆�

銆€銆€鏈€鍚庡皣璀�(sh铆)鍒ョ殑绶氭潫椤忚壊鐨勯鑹叉帓搴�?y脿n)妞ょ殙ed鈥濃€渂lack鈥濃€測ellow鈥濇墠鏈�(hu矛)杓稿嚭鈥淥K鈥濈殑鐙€鎱�(t脿i)绲�(ji茅)鏋�锛屽惁鍓囪几鍑衡€淣G鈥濈殑鐙€鎱�(t脿i)绲�(ji茅)鏋溿€�

銆€銆€浜岃粺浠跺(sh铆)鐝�(xi脿n)姊舰鍦栦粙绱�

銆€銆€(涓€)杌熶欢瀵�(sh铆)鐝�(xi脿n)

銆€銆€1.鎵撻枊(k膩i)ZDevelop杌熶欢锛氭柊寤洪爡(xi脿ng)鐩啋鏂板缓鈥淗MI鈥濇枃浠垛啋鏂板缓鈥渕ain.bas鈥濇枃浠�锛岀敤浜庣法瀵�(xi臎)鐣岄潰闊挎噳(y墨ng)鍑芥暩(sh霉)鈫掓柊寤衡€済lobal_variable.bas鈥濇枃浠剁敤浜庡瓨鏀惧叏灞€璁婇噺骞堕枊(k膩i)鍟烪MI鑷嫊(d貌ng)閬�(y霉n)琛屼换鍕�(w霉)鈫掓柊寤衡€淚nitLocator.bas鈥濇枃浠剁敤浜庡垵濮嬪寲娓�(c猫)閲忓弮鏁�(sh霉)鈫掓柊寤衡€渃amera.bas鈥濇枃浠剁敤浜庡(sh铆)鐝�(xi脿n)鐩告(j墨)閲囬泦鍔熻兘鈫掓柊寤篸raw.bas鏂囦欢鐢ㄤ簬鏇存柊绻埗鍦栧舰鍒锋柊鐣岄潰鈫掓枃浠舵坊鍔犲埌闋�(xi脿ng)鐩�銆�

銆€銆€2.瑷�(sh猫)瑷�(j矛)HMI鐣岄潰銆�

銆€銆€3.鍦ㄢ€済lobal_variable.bas鈥濇枃浠朵腑瀹氱京鍏ㄥ眬璁婇噺锛屽畾缇╁畬鎴愬悗閬�(y霉n)琛屸€淗mi.hmi鈥濇枃浠躲€�

銆€銆€'''''鍏ㄥ眬璁婇噺澶ч儴鍒嗕娇鐢ㄦ暩(sh霉)绲勭祼(ji茅)妲�(g貌u)'''''''娉細basic绶ㄧ▼涓緢澶氬嚱鏁�(sh霉)鏈�(hu矛)浠ABLE(绯荤当(t菕ng)鐨勬暩(sh霉)鎿�(j霉)绲�(ji茅)妲�(g貌u))鍋氱偤鍙冩暩(sh霉)''table 瑾�(shu艒)鏄� table 瑾�(shu艒)鏄�''0~1 鐛插彇鍒扮殑鍦栧儚瀵珮 15~18 瀹氫綅鍣╮oi鍦栧儚鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉)''0~1 鍖归厤绲�(ji茅)鏋滅煩闄ｇ殑琛屽垪鏁�(sh霉) 25~28 瀹氫綅鍣╮oi鎺т欢鍜屽湒鍍忔暩(sh霉)鎿�(j霉)''3~7 鍖归厤绲�(ji茅)鏋� 30~31 姗＄毊鎿oi鍧愭(bi膩o)''11~12 榧犳(bi膩o)鎿嶄綔鏅�(sh铆)鐛插彇鐨勫潗妯�(bi膩o) 50~81 绶�1璀�(sh铆)鍒ラ鑹茬祼(ji茅)鏋�''82~113 绶�2璀�(sh铆)鍒ラ鑹茬祼(ji茅)鏋� 114~145 绶�3璀�(sh铆)鍒ラ鑹茬祼(ji茅)鏋�''160 璀�(sh铆)鍒ュ垎?j菒n)?sh霉) 150 绶�1璀�(sh铆)鍒D''151 绶�2璀�(sh铆)鍒D 152 绶�3璀�(sh铆)鍒D''170~172 绶�1ROI鍗€(q奴)鍩熸暩(sh霉)鎿�(j霉) 173~175 绶�2ROI鍗€(q奴)鍩熸暩(sh霉)鎿�(j霉)''176~178 绶�3ROI鍗€(q奴)鍩熸暩(sh霉)鎿�(j霉) ''225~228 瑷�(x霉n)绶存ǎ鏈琑OI鎺т欢鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉) 231~235 绶�1ROI鎺т欢鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉)''331~335 绶�2ROI鎺т欢鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉) 431~435 绶�3ROI鎺т欢鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉)''VR(0) 妯℃澘淇濆瓨妯�(bi膩o)蹇�锛�1-宸蹭繚瀛� VR(1) 鍙冩暩(sh霉)淇濆瓨妯�(bi膩o)蹇�锛�1-宸蹭繚瀛�''VR(10)~(18)妯℃澘鍙冩暩(sh霉)鏂烽浕淇濆瓨鍦板潃 VR(20)~(26)鍖归厤鍙冩暩(sh霉)鏂烽浕淇濆瓨鍦板潃''VR(30)~(34)绶�1ROI鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉) VR(40)~(44)绶�2ROI鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉)''VR(50)~(54)绶�3ROI鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉) VR(60)~(63)瑷�(x霉n)绶村(xu茅)缈�(x铆)ROI鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉)''VR(70)~(74)鍖归厤鍩烘簴(zh菙n)鏁�(sh霉)鎿�(j霉) VR(76) 璀�(sh铆)鍒ュ垎?j菒n)?sh霉)'***********瀹氱京绋嬪簭浠诲嫏(w霉)鐩搁棞(gu膩n)璁婇噺**********************

銆€銆€'涓讳换鍕�(w霉)鐙€鎱�(t脿i)'0 - 鏈垵濮嬪寲'1 - 鍋滄'2 - 閬�(y霉n)琛屼腑'3 - 姝ｅ湪鍋滄GLOBAL DIM main_task_statemain_task_state = 1

銆€銆€'閬�(y霉n)琛屼换鍕�(w霉)闁�(k膩i)闂�(gu膩n)GLOBAL DIM run_switchrun_switch = 0

銆€銆€'閲囬泦浠诲嫏(w霉)闁�(k膩i)闂�(gu膩n)'0 - 鍋滄閲囬泦'1 - 璜�(q菒ng)姹傞噰闆咷LOBAL DIM grab_switchgrab_switch = 0

銆€銆€'瀹氫綅妾㈡脯(c猫)涓讳换鍕�(w霉)id - 10GLOBAL DIM main_task_idmain_task_id = 10

銆€銆€'鐩告(j墨)閫ｇ簩(x霉)閲囬泦绶氱▼id - 7GLOBAL DIM grab_task_idgrab_task_id = 7

銆€銆€'***********绲�(ji茅)鏉熷畾缇╃▼搴忎换鍕�(w霉)鐩搁棞(gu膩n)璁婇噺******************

銆€銆€'***********瀹氱京鐩告(j墨)閲囬泦鐩搁棞(gu膩n)璁婇噺**********************

銆€銆€'鐩告(j墨)绋,姝よ檿浣跨敤娴峰悍鐩告(j墨)-"mvision"GLOBAL DIM CAMERA_TYPE(100)'CAMERA_TYPE = "mindvision;basler;mvision;huaray;zmotion"CAMERA_TYPE = "mvision"

銆€銆€'鐩告(j墨)鍊�(g猫)鏁�(sh霉)GLOBAL cam_numcam_num = 0

銆€銆€'鐩告(j墨)妯″紡锛�-1 閫ｇ簩(x霉)閲囬泦锛�0-杌熶欢瑙哥櫦(f膩)閲囬泦GLOBAL cam_modecam_mode = 0

銆€銆€'***********绲�(ji茅)鏉熷畾缇╃浉姗�(j墨)閲囬泦鐩搁棞(gu膩n)璁婇噺******************

銆€銆€'瀹氱京杩斿洖涓荤晫闈㈡(bi膩o)蹇�,1-宸茶繑鍥�锛�0-鏈繑鍥濭LOBAL DIM d_is_rtn_loc d_is_rtn_loc = 1

銆€銆€'***********瀹氱京妯℃澘鐩搁棞(gu膩n)璁婇噺*************************'瀹氱京榧犳(bi膩o)鎸変笅妯�(bi膩o)蹇椾綅,1-宸叉寜涓嬶紝0-鏈寜涓婫LOBAL DIM is_set_roi_m_downis_set_roi_m_down = 0

銆€銆€'瀹氱京鍓�(chu脿ng)寤烘ā鏉挎(bi膩o)蹇椾綅,1-宸插壍(chu脿ng)寤烘ā鏉�锛�0-鏈壍(chu脿ng)寤烘ā鏉縂LOBAL DIM d_is_creModeld_is_creModel = 0

銆€銆€'瀛�(xu茅)缈�(x铆)妯℃澘鍙冩暩(sh霉),starAngle銆乪ndAngle銆乵inScale銆乵axScale銆乼hresh銆乶umlevel銆乺educe銆乤ngleStep銆乻caleStepGLOBAL DIM d_mod_param(9)

銆€銆€'***********绲�(ji茅)鏉熷畾缇╂ā鏉跨浉闂�(gu膩n)璁婇噺**********************

銆€銆€'***********瀹氱京绶ㄨ集妯℃澘鐩搁棞(gu膩n)璁婇噺*********************

銆€銆€'瀹氱京绶ㄨ集妯℃澘妯�(bi膩o)蹇�,0-琛ㄧず涓嶇法杓ā鏉�锛�1-琛ㄧず绶ㄨ集妯℃澘GLOBAL DIM d_edit_md_edit_m = 0

銆€銆€'瀹氱京浣跨敤姗＄毊鎿﹀姛鑳芥(bi膩o)蹇�,0-琛ㄧず鎭㈠京(f霉)鎿﹂櫎鐨勫崁(q奴)鍩�锛�1-琛ㄧず鎿﹂櫎鍗€(q奴)鍩烥LOBAL DIM d_isMask_md_isMask_m = 1

銆€銆€'瀹氱京姗＄毊鎿︾殑roi鍙冩暩(sh霉)锛屼緷娆℃槸鐭╁舰宸︿笂瑙掑拰鍙充笅瑙掑湒鍍忓潗妯�(bi膩o)x銆亂銆亁銆亂GLOBAL DIM d_locator_roi(4),d_eraser_roi(4)

銆€銆€'瀹氱京姝ｆ柟褰㈡鐨摝灏哄瀵害GLOBAL DIM d_eraser_sized_eraser_size = 5

銆€銆€'瀹氱京鐣岄潰鎺т欢涓婃鐨摝鐨勭煩褰㈠崁(q奴)鍩� GLOBAL DIM c_rect(4) '瀹氱京榧犳(bi膩o)鐙€鎱�(t脿i)妯�(bi膩o)蹇�,0-琛ㄧず榧犳(bi膩o)铏曚簬鏉鹃枊(k膩i)鐙€鎱�(t脿i)锛�1-琛ㄧず榧犳(bi膩o)铏曚簬鎸変笅?t墨ng)椤烞(t脿i)GLOBAL DIM d_mouse_sd_mouse_s = 0

銆€銆€'***********绲�(ji茅)鏉熷畾缇╃法杓ā鏉跨浉闂�(gu膩n)璁婇噺******************

銆€銆€'***********瀹氱京鍖归厤妾㈡脯(c猫)鐩搁棞(gu膩n)璁婇噺*********************

銆€銆€'鍖归厤妾㈡脯(c猫)鍙冩暩(sh霉),minScore銆乵atchNum銆乵inDist銆乼hresh銆乤ccuracy銆乻peed銆乸olorGLOBAL DIM d_match_param(7)

銆€銆€'瀹氱京瀛�(xu茅)缈�(x铆)妯℃澘鐨剅oi鍙冩暩(sh霉)鍜屾鐨摝鐨剅oi鍙冩暩(sh霉)锛屼緷娆℃槸鐭╁舰宸︿笂瑙掑拰鍙充笅瑙掑湒鍍忓潗妯�(bi膩o)x銆亂銆亁銆亂GLOBAL DIM d_locator_roi(4),d_eraser_roi(4)

銆€銆€'鍖归厤绲�(ji茅)鏋�锛宻core銆亁銆亂銆乤ngle銆乻cale, 鐩墠灏�(du矛)浜庡鐩(bi膩o)鍖归厤涔熷彧瀛樼涓€鍊�(g猫)鐩(bi膩o)GLOBAL DIM d_match_rst(5)

銆€銆€GLOBAL DIM d_match_time '瀹氱京鍖归厤瀹氫綅娑堣€楃殑鏅�(sh铆)闁撹畩閲廳_match_time = 0

銆€銆€'***********绲�(ji茅)鏉熷畾缇╁尮閰嶆娓�(c猫)鐩搁棞(gu膩n)璁婇噺******************

銆€銆€'瀹氱京绋嬪簭鍩�(zh铆)琛岄亷(gu貌)绋嬩腑绶╁瓨涓枔鍦栫墖鍜岀祼(ji茅)鏋滃湒鐗囩殑璁婇噺GLOBAL ZVOBJECT grabImg,colorImgGLOBAL ZVOBJECT subImg,copy_subImg,colorSubImg, s_modGLOBAL ZVOBJECT modRe

銆€銆€'瀹氱京绋嬪簭鍩�(zh铆)琛岄亷(gu貌)绋嬩腑椤忚壊妯ｆ湰妯℃澘璁婇噺鍜岄鑹叉ā鏉垮垪琛ㄨ畩閲廏LOBAL ZVOBJECT grabImg,ColorMod,Clrmod_list

銆€銆€'瑷�(sh猫)缃壍(chu脿ng)寤烘ā鏉跨殑鍩烘簴(zh菙n)鍧愭(bi膩o)GLOBAL DIM d_match_base_rst(5)

銆€銆€'瀹氱京妾㈡脯(c猫)璀�(sh铆)鍒ラ鑹茬殑ROI鍗€(q奴)鍩烥LOBAL DIM d_reg_roi1(5),d_reg_roi2(5),d_reg_roi3(5)

銆€銆€'瀹氱京瑷�(x霉n)绶村(xu茅)缈�(x铆)椤忚壊妯ｆ湰鐨凴OI鍗€(q奴)鍩烥LOBAL DIM d_learn_roi(4)

銆€銆€'瀹氱京閬告搰椤忚壊璀�(sh铆)鍒OI鐨勯鍨婫LOBAL DIM d_select_regROId_select_regROI=0

銆€銆€'瀹氱京鎺掔窔椤忚壊闋嗗簭妾㈡脯(c猫)绲�(ji茅)鏋滅媭鎱�(t脿i)GLOBAL DIM d_rst_status d_rst_status=0

銆€銆€'甯哥敤椤忚壊璁婇噺GLOBAL C_RED, C_GREEN, C_BLUE, C_YELLOW,C_WHITEC_RED = RGB(255, 0, 0)C_GREEN = RGB( 0,255, 0)C_BLUE = RGB( 0, 0,255)C_YELLOW= RGB(255,255, 0)C_WHITE = RGB(255,255, 255)

銆€銆€'瀹氱京杓稿叆闇€瑕侀€�(j矛n)琛屽(xu茅)缈�(x铆)鐨勯鑹叉ǎ鏈悕绋盙LOBAL DIM d_sample_name(128)d_sample_name=""

銆€銆€'瀹氱京妾㈡脯(c猫)鍒扮殑椤忚壊绲�(ji茅)鏋淕LOBAL DIM d_color_rst1(32),d_color_rst2(32),d_color_rst3(32)

銆€銆€GLOBAL DIM d_detect_time '瀹氱京娑堣€楃殑鏅�(sh铆)闁撹畩閲廳_detect_time = 0

銆€銆€'***********瀹氱京璁€鍙栨湰鍦版枃浠跺姛鑳界浉闂�(gu膩n)璁婇噺**************''娉ㄦ剰锛岃┎鍔熻兘鍙湪浣跨敤浠跨湡鍣ㄦ檪(sh铆)鏈夋晥'瀹氱京鏄惁浣跨敤鏈湴鍦栫墖妯�(bi膩o)蹇桮LOBAL DIM d_use_imgfile

銆€銆€'瀹氱京鏈湴鍦栫墖绱㈠紩GLOBAL DIM d_index

銆€銆€'瀹氱京璁€鍙栧湒鐗囩殑璺緫GLOBAL DIM File_Name(100)

銆€銆€'***********绲�(ji茅)鏉熷畾缇╄畝鍙栨湰鍦版枃浠跺姛鑳界浉闂�(gu膩n)璁婇噺**********

銆€銆€'鍒濆鍖栧叏灞€璁婇噺瀹屾垚鍚庨枊(k膩i)鍟烪MI鏂囦欢RUN"Hmi1.hmi",1

銆€銆€4.鍦ㄢ€淚nitLocator.bas鈥濇枃浠朵腑鍒濆鍖栨脯(c猫)閲忓弮鏁�(sh霉)銆�

銆€銆€路

銆€銆€end

銆€銆€GLOBAL SUB init_meas_param() '鍒濆鍖栨脯(c猫)閲忓弮鏁�(sh霉) '鍒濆鍖栧畾浣嶅櫒roi鍙冩暩(sh霉) d_locator_roi(0) = 240 '宸︿笂瑙抶 d_locator_roi(1) = 180 '宸︿笂瑙抷 d_locator_roi(2) = 400 '鍙充笅瑙抶 d_locator_roi(3) = 300 '鍙充笅瑙抷 '鍒濆鍖栨ā鏉垮弮鏁�(sh霉) d_mod_param(0) = -180 '璧峰瑙掑害 d_mod_param(1) = 180 '绲傛瑙掑害 d_mod_param(2) = 1 '鏈€灏忕府鏀� d_mod_param(3) = 1 '鏈€澶х府鏀� d_mod_param(4) = 80 '闁惧€� d_mod_param(5) = 0 '榛樿獚(r猫n)閲戝瓧濉斿堡鏁�(sh霉) d_mod_param(6) = 0 '榛樿獚(r猫n)绱勭啊(ji菐n)鐗瑰緛榛�(di菐n) d_mod_param(7) = 0 '榛樿獚(r猫n)瑙掑害姝ラ暦(zh菐ng) d_mod_param(8) = 0 '榛樿獚(r猫n)绺斁姝ラ暦(zh菐ng) '鍒濆鍖栧尮閰嶆脯(c猫)閲忓弮鏁�(sh霉) d_match_param(0) = 50 '鏈€灏忓垎?j菒n)?sh霉) d_match_param(1) = 1 '鍖归厤鍊�(g猫)鏁�(sh霉) d_match_param(2) = 10 '榛樿獚(r猫n)鏈€灏忛枔璺� d_match_param(3) = 40 '鏈€灏忛柧鍊� d_match_param(4) = 0 '绮惧害 d_match_param(5) = 9 '閫熷害 d_match_param(6) = 0 '妤垫€� '鍒濆鍖栧尮閰嶅畾浣嶇祼(ji茅)鏋� d_match_rst(0) = 0 '鍒�?j菒n)?sh霉) d_match_rst(1) = 0 '浣嶇疆X d_match_rst(2) = 0 '浣嶇疆Y d_match_rst(3) = 0 '瑙掑害 d_match_rst(4) = 0 '姣斾緥 d_reg_roi1(0)=160 '璀�(sh铆)鍒ラ鑹睷OI1 d_reg_roi1(1)=110 d_reg_roi1(2)=40 d_reg_roi1(3)=40 d_reg_roi1(4)=0 d_reg_roi2(0)=260 '璀�(sh铆)鍒ラ鑹睷OI1 d_reg_roi2(1)=110 d_reg_roi2(2)=40 d_reg_roi2(3)=40 d_reg_roi2(4)=0 d_reg_roi3(0)=360 '璀�(sh铆)鍒ラ鑹睷OI1 d_reg_roi3(1)=110 d_reg_roi3(2)=40 d_reg_roi3(3)=40 d_reg_roi3(4)=0 d_learn_roi(0)=360 d_learn_roi(1)=190 d_learn_roi(2)=400 d_learn_roi(3)=230 TABLE(160) = 60 '鍒濆鍖栧尮閰嶅畾浣嶆秷鑰楁檪(sh铆)闁� d_match_time = 0 d_use_imgfile = 1 '榛樿獚(r猫n)浣跨敤鏈湴鍦栫墖 d_index = 0

銆€銆€END SUB

銆€銆€5.闂�(gu膩n)鑱�(li谩n)HMI鐣岄潰鎺т欢璁婇噺銆�

銆€銆€6.鍦ㄢ€渕ain.bas鈥濇枃浠朵腑娣诲姞HMI鐣岄潰鍒濆鍖栧嚱鏁�(sh霉)骞跺湪Hmi绯荤当(t菕ng)瑷�(sh猫)缃腑闂�(gu膩n)鑱�(li谩n)鍒濆鍖栧嚱鏁�(sh霉)銆�

銆€銆€end

銆€銆€'HMI鐣岄潰鍒濆鍖栧嚱鏁�(sh霉)锛屼笂闆诲煼(zh铆)琛屼竴娆LOBAL SUB hmi_init() ZV_ENVINIT() DMSET table(50,96,0) ZV_SETSYSSTR("DataDir","") '瑷�(sh猫)缃粯瑾�(r猫n)鏁�(sh霉)鎿�(j霉)鐩寗 ZV_SETSYSINT("LineWidth",6) '瑷�(sh猫)缃窔瀵偤 10 ZV_RESETCLIPSIZE(1280, 1024) '鏍规摎(j霉)鍦栧儚鍒嗚鲸鐜囪ō(sh猫)缃湒鍍忓崁(q奴)鍩熺殑瑁佸壀灏哄锛屾铏曞湒鍍忓垎杈ㄧ巼鐐�1280x1024 ZV_LATCHSETSIZE(0, HMI_CONTROLSIZEX(10, 2), HMI_CONTROLSIZEY(10, 2)) '瑷�(sh猫)缃帠瀛樼殑澶у皬 init_meas_param() '鍒濆鍖栨脯(c猫)閲忓弮鏁�(sh霉) ZV_IMGGENCONST(subImg,40,30,1,0,0) '鍒濆鍖栨ā鏉垮瓙鍦栧儚 '鍒濆鍖栧尮閰嶄娇鐢ㄥ埌鐨勪腑闁撹畩閲� ZVOBJECT contlist1, tsContlist1, mat_rigid1 ZVOBJECT contlist2, tsContlist2, mat_rigid2 ZV_IMGREAD(colorImg,"椤忚壊鎺掑簭/0.bmp",0) ZV_LATCH(colorImg, 0) if VR(0)=1 then '濡傛灉宸茬稉(j墨ng)淇濆瓨閬�(gu貌)妯℃澘 ZV_READSHAPEMOD(s_mod,"椤忚壊鎺掑簭/shape.zvb") '璁€鍙栫暥(d膩ng)鍓嶈矾寰戜笅鐨勫舰鐙€妯℃澘 ?"璁€鍙栨ā鏉挎垚鍔�!" d_is_creModel = 1 ZV_READIMAGE(subImg,"椤忚壊鎺掑簭/subimg.bmp",0) '璁€鍙栨ā鏉垮瓙鍦栧儚 ZV_SHAPECONTOURS(s_mod, contlist1, 0) '灏囨ā鏉胯吉寤撶躬鍒跺湪瀛愬湒鍍忎笂骞堕’绀哄湪閹栧瓨閫氶亾2涓� ZV_GRAYTORGB(subImg, colorSubImg) ZV_IMGINFO(colorSubImg, 0) ZV_GETRIGIDVECTOR(mat_rigid1, 0, 0, 0, TABLE(0)/2, TABLE(1)/2, 0) ZV_CONTAFFINE(contlist1, mat_rigid1, tsContlist1) ZV_CONTLIST(colorSubImg, tsContlist1, ZV_COLOR(0, 255, 0), 0) ZV_LATCHCLEAR(2) ZV_LATCH(colorSubImg, 2) endif if VR(1)=1 then '濡傛灉宸茬稉(j墨ng)淇濆瓨閬�(gu貌)妯℃澘鍖归厤鍙冩暩(sh霉) for i=0 to 8 d_mod_param(i)=VR(10+i) next for i=0 to 6 d_match_param(i)=VR(20+i) next for i=0 to 4 d_reg_roi1(i)=VR(30+i) d_reg_roi2(i)=VR(40+i) d_reg_roi3(i)=VR(50+i) d_match_base_rst(i)=VR(70+i) next for i=0 to 3 d_learn_roi(i)=VR(60+i) next TABLE(160)=VR(76) endif '灏嘡OI1鐨勪腑蹇冨潗妯�(bi膩o)x,y锛屽锛岄珮锛岃搴︾瓑鍦栧儚鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉)杞�(zhu菐n)鎻涘埌鎺т欢鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉) TABLE(231,d_reg_roi1(0),d_reg_roi1(1)) ZV_POSFROMIMG(0, 1, 231, 231) TABLE(233) = ZV_LENFROMIMG(0, d_reg_roi1(2)) TABLE(234) = ZV_LENFROMIMG(0, d_reg_roi1(3)) TABLE(235) = d_reg_roi1(4) '灏嘡OI2鐨勪腑蹇冨潗妯�(bi膩o)x,y锛屽锛岄珮锛岃搴︾瓑鍦栧儚鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉)杞�(zhu菐n)鎻涘埌鎺т欢鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉) TABLE(331,d_reg_roi2(0),d_reg_roi2(1)) ZV_POSFROMIMG(0, 1, 331, 331) TABLE(333) = ZV_LENFROMIMG(0, d_reg_roi2(2)) TABLE(334) = ZV_LENFROMIMG(0, d_reg_roi2(3)) TABLE(335) = d_reg_roi2(4) '灏嘡OI3鐨勪腑蹇冨潗妯�(bi膩o)x,y锛屽锛岄珮锛岃搴︾瓑鍦栧儚鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉)杞�(zhu菐n)鎻涘埌鎺т欢鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉) TABLE(431,d_reg_roi3(0),d_reg_roi3(1)) ZV_POSFROMIMG(0, 1, 431, 431) TABLE(433) = ZV_LENFROMIMG(0, d_reg_roi3(2)) TABLE(434) = ZV_LENFROMIMG(0, d_reg_roi3(3)) TABLE(435) = d_reg_roi3(4) ZV_LATCHCLEAR(0) '娓呯┖閹栧瓨閫氶亾 END SUB

銆€銆€7.鍦ㄢ€渃amera.bas鈥濇枃浠朵腑娣诲姞HMI鐣岄潰涓噰闆嗙浉闂�(gu膩n)鎸夐垥闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�(瑾�(shu艒)鏄庯細鍏烽珨瀵�(sh铆)鐝�(xi脿n)鍑芥暩(sh霉)鍓嶉潰鍏╃瘒瑾茬▼鍏�(n猫i)瀹瑰凡缍�(j墨ng)鏈夋搷浣滄紨绀猴紝姝よ檿涓嶅仛璐呰堪銆�)

銆€銆€8.榛�(di菐n)鎿奫鍏冧欢]鈫抂鏂板缓绐楀彛]锛屾柊寤哄(xu茅)缈�(x铆)椤忚壊妯ｆ湰绐楀彛锛岃ō(sh猫)瑷�(j矛)绐楀彛甯冨眬锛屽苟闂�(gu膩n)鑱�(li谩n)璁婇噺鍜岃ō(sh猫)缃粺閸电洡(p谩n)绐楀彛铏�(h脿o)銆�

銆€   9.鍦ㄢ€渕ain.bas鈥濇枃浠朵腑娣诲姞涓荤晫闈€€愯〒(x霉n)绶存ǎ鏈€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€'HMI鐣岄潰鎸変笅瑷�(x霉n)绶存ǎ鏈寜閳曟檪(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_OpenLearning()

銆€銆€ZV_LATCHCLEAR(0) ZV_LATCHSETSIZE(0, HMI_CONTROLSIZEX(13, 1), HMI_CONTROLSIZEY(13, 1)) '瑷�(sh猫)缃壍(chu脿ng)寤烘ā鏉跨獥鍙ｉ帠瀛橀€氶亾0鐨勯帠瀛樺ぇ灏� ZV_LATCH(colorImg,0) '灏囪〒(x霉n)绶村(xu茅)缈�(x铆)ROI鐨勪腑蹇冨潗妯�(bi膩o)x,y锛屽锛岄珮锛岃搴︾瓑鍦栧儚鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉)杞�(zhu菐n)鎻涘埌鎺т欢鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉) TABLE(225,d_learn_roi(0),d_learn_roi(1),d_learn_roi(2),d_learn_roi(3)) ZV_POSFROMIMG(0,2, 225, 225) HMI_SHOWWINDOW(13)

銆€銆€END SUB

銆€銆€10.鍦ㄢ€渕ain.bas鈥濇枃浠朵腑娣诲姞瀛�(xu茅)缈�(x铆)椤忚壊妯ｆ湰鐣岄潰銆愬(xu茅)缈�(x铆)妯ｆ湰銆戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'瀹氱京瑷�(x霉n)绶撮鑹叉ǎ鏈晫闈㈡寜涓嬪(xu茅)缈�(x铆)妯ｆ湰鎸夐垥鏅�(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_Learning()

銆€銆€ZVOBJECT region ZV_REGENRECT(region,d_learn_roi(0),d_learn_roi(1),d_learn_roi(2)-d_learn_roi(0)+1,d_learn_roi(3)-d_learn_roi(1)+1) '鐢熸垚鐭╁舰鍗€(q奴)鍩� if (STRCOMP(d_sample_name, "")=0) then ?"璜�(q菒ng)鍏堣几鍏ラ渶瑕佸(xu茅)缈�(x铆)鐨勯鑹叉ǎ鏈悕绋�!" return else ZV_CLRGENMODELRE(colorImg,region,ColorMod,d_sample_name,0)'鍦� RGB 椤忚壊绌洪枔鐢熸垚椤忚壊妯″瀷 ZV_LISTINSERT(ColorMod,Clrmod_list,-1) '灏囬鑹叉ā鍨嬫彃鍏ュ埌鍒楄〃 ?"瀛�(xu茅)缈�(x铆)"d_sample_name"妯ｆ湰鎴愬姛!" endif

銆€銆€END SUB

銆€銆€11.鍦ㄢ€渕ain.bas鈥濇枃浠朵腑娣诲姞瀛�(xu茅)缈�(x铆)椤忚壊妯ｆ湰鐣岄潰銆愭竻绌烘ǎ鏈€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'瀹氱京瑷�(x霉n)绶撮鑹叉ǎ鏈晫闈㈡寜涓嬫竻绌烘ǎ鏈寜閳曟檪(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_Clear() if(ZV_ISEMPTY(Clrmod_list)=0) then '濡傛灉瑷�(x霉n)绶存ǎ鏈韩(k霉)涓嶇偤绌� ZV_CLEAR(Clrmod_list) ?"宸叉竻绌烘ǎ鏈垪琛�!" endif

銆€銆€END SUB

銆€銆€12.鍦ㄢ€渕ain.bas鈥濇枃浠朵腑娣诲姞瀛�(xu茅)缈�(x铆)椤忚壊妯ｆ湰鐣岄潰銆愮⒑瀹氥€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'瀹氱京瑷�(x霉n)绶撮鑹叉ǎ鏈晫闈㈡寜涓嬬⒑瀹氭寜閳曟檪(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_Confirm()

銆€銆€HMI_CLOSEWINDOW(13) ZV_LATCHCLEAR(0) ZV_LATCHSETSIZE(0, HMI_CONTROLSIZEX(10, 2), HMI_CONTROLSIZEY(10, 2)) ZV_LATCH(colorImg,0)

銆€銆€END SUB

銆€銆€13.鍦ㄢ€渄raw.bas鈥濇枃浠朵腑娣诲姞瀛�(xu茅)缈�(x铆)妯ｆ湰鍗€(q奴)鍩熸洿鏂扮躬鍒跺嚱鏁�(sh霉)锛屽苟鍦ㄥ(xu茅)缈�(x铆)椤忚壊妯ｆ湰鐣岄潰鐨勮嚜瀹氱京鎺т欢涓婇棞(gu膩n)鑱�(li谩n)鍒锋柊鍑芥暩(sh霉)鍚嶅拰绻湒鍑芥暩(sh霉)鍚�銆�

銆€銆€'鏍规摎(j霉)榧犳(bi膩o)鎿嶄綔鏇存柊瑷�(x霉n)绶撮鑹叉ǎ鏈殑鏈夋晥鍗€(q奴)鍩烥LOBAL SUB update_learnroi()

銆€銆€if mouse_scan(11) = 1 then '鎺冩弿榧犳(bi膩o)鎸変笅鎿嶄綔 is_set_roi_m_down = 1 '榧犳(bi膩o)鎸変笅妯�(bi膩o)蹇楃疆1 sr_mpos_x = table(11) '灏囩暥(d膩ng)鍓嶉紶妯�(bi膩o)鎸変笅浣嶇疆鐨勫潗妯�(bi膩o)璩﹀€肩郸璁婇噺 sr_mpos_y = table(12) '鍙湁鎸変笅鏅�(sh铆)鍙互鏀硅畩鎿婁腑浣嶇疆锛岀嵅鍙栭紶妯�(bi膩o)榛�(di菐n)鎿婁綅缃皪(du矛)鎳�(y墨ng)鐨勬搳涓崁(q奴)鍩熺法铏�(h脿o) hit_pos = ZV_HMIADJRECT(sr_mpos_x, sr_mpos_y, 225, -1) is_redraw = 1 '绻湒妯�(bi膩o)蹇楃疆1 endif if mouse_scan(11) = -1 then '鎺冩弿榧犳(bi膩o)鏉鹃枊(k膩i)鎿嶄綔 is_set_roi_m_down = 0 '榧犳(bi膩o)鎸変笅妯�(bi膩o)蹇楃疆0 sr_mpos_x = table(11) '灏囩暥(d膩ng)鍓嶉紶妯�(bi膩o)鏉鹃枊(k膩i)浣嶇疆鐨勫潗妯�(bi膩o)璩﹀€肩郸璁婇噺 sr_mpos_y = table(12) '鏍规摎(j霉)鍗€(q奴)鍩熺法铏�(h脿o)瑾�(di脿o)鏁村畾浣嶅櫒鍗€(q奴)鍩熶綅缃� ZV_HMIADJRECT(sr_mpos_x, sr_mpos_y, 225, hit_pos) is_redraw = 1 '绻湒妯�(bi膩o)蹇楃疆1 endif '濡傛灉榧犳(bi膩o)鎸変笅鏅�(sh铆) if (is_set_roi_m_down and MOUSE_state(11)) then sr_mpos_x = table(11) '灏囩暥(d膩ng)鍓嶉紶妯�(bi膩o)鎸変笅浣嶇疆鐨勫潗妯�(bi膩o)璩﹀€肩郸璁婇噺 sr_mpos_y = table(12) '鏍规摎(j霉)鍗€(q奴)鍩熺法铏�(h脿o)瑾�(di脿o)鏁村畾浣嶅櫒鍗€(q奴)鍩熶綅缃� ZV_HMIADJRECT(sr_mpos_x, sr_mpos_y, 225, hit_pos) is_redraw = 1 '绻湒妯�(bi膩o)蹇楃疆1 endif if (1 = is_redraw) then '濡傛灉绻埗妯�(bi膩o)蹇�=1 is_redraw = 0 '灏囩躬鍒舵(bi膩o)蹇楃疆0 '鎺т欢roi鍧愭(bi膩o)杞�(zhu菐n)鍦栧儚roi鍧愭(bi膩o)锛屾帶浠跺潗妯�(bi膩o)瀛樻斁鍦ㄨ捣濮嬪湴鍧€鐐�25鐨勬暩(sh霉)绲�锛屽湒鍍忓潗妯�(bi膩o)瀛樻斁鍦ㄨ捣濮嬪湴鍧€鐐�15鐨勬暩(sh霉)绲� ZV_POSTOIMG(0, 2, 225, 15) '灏囧湒鍍忓潗妯�(bi膩o)鐨勬暩(sh霉)鎿�(j霉)璩﹀€肩郸ROI璁婇噺涓� d_learn_roi(0) = TABLE(15) d_learn_roi(1) = TABLE(16) d_learn_roi(2) = TABLE(17) d_learn_roi(3) = TABLE(18) SET_REDRAW '閲嶆柊绻埗鍏ㄩ儴鍗€(q奴)鍩� endif END SUB

銆€銆€'鏍规摎(j霉)鏇存柊鐨勯紶妯�(bi膩o)浣嶇疆鍧愭(bi膩o)绻埗瑷�(x霉n)绶撮鑹叉ǎ鏈崁(q奴)鍩烥LOBAL SUB draw_learnroi() '鏍规摎(j霉)鎺т欢鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉)绻埗鐭╁舰 DRAWRECT(TABLE(225), TABLE(226), TABLE(227), TABLE(228)) local cx,cy '瀹氱京灞€閮ㄨ畩閲� cx = (TABLE(225) + TABLE(227)) / 2 '瑷�(j矛)绠楃煩褰㈢殑涓績鍧愭(bi膩o)x銆亂 cy = (TABLE(226) + TABLE(228)) / 2 DRAWLINE(cx-5, cy, cx+5, cy) '绻埗涓績鍗佸瓧绶� DRAWLINE(cx, cy-5, cx, cy+5) END SUB

銆€銆€14.榛�(di菐n)鎿奫鍏冧欢]鈫抂鏂板缓绐楀彛]锛屾柊寤哄(xu茅)缈�(x铆)妯℃澘绐楀彛锛岃ō(sh猫)瑷�(j矛)绐楀彛甯冨眬锛岄棞(gu膩n)鑱�(li谩n)璁婇噺銆�

銆€銆€15.鍦ㄢ€渄raw.bas鈥濇枃浠朵腑娣诲姞涓荤晫闈㈡寜涓嬨€愬(xu茅)缈�(x铆)妯℃澘銆戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'涓荤晫闈㈡寜涓嬪(xu茅)缈�(x铆)妯℃澘鎸夐垥鏅�(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_sel_loc()

銆€銆€ZV_LATCHSETSIZE(0, HMI_CONTROLSIZEX(11, 60), HMI_CONTROLSIZEY(11, 60)) '瑷�(sh猫)缃壍(chu脿ng)寤烘ā鏉跨獥鍙ｉ帠瀛橀€氶亾0鐨勯帠瀛樺ぇ灏� SET_COLOR(RGB(0,255,0)) '鎸囧畾draw鎸囦护浣跨敤鐨勯鑹� ZV_LATCHCLEAR(0) '灏囬帠瀛橀€氶亾0娓呯┖ ZV_LATCH(grabImg, 0) '灏囬噰闆嗗湒鍍忛’绀哄埌閹栧瓨閫氶亾0涓� ZV_LATCH(colorSubImg, 1) '灏囨ā鏉垮湒鍍忛’绀哄埌閹栧瓨閫氶亾1涓� is_redraw = 0 '灏囩躬鍦栨(bi膩o)蹇楃疆0 d_is_rtn_loc = 0 '灏囪繑鍥炵晫闈㈡(bi膩o)蹇楃疆0 '灏囨ā鏉垮崁(q奴)鍩熺殑鍦栧儚鍧愭(bi膩o)瀛樻斁鍒拌捣濮嬪湴鍧€鐐�25鐨則able鏁�(sh霉)绲勪腑 TABLE(25, d_locator_roi(0), d_locator_roi(1),d_locator_roi(2),d_locator_roi(3)) ZV_POSFROMIMG(0, 2, 25, 25) '灏囧湒鍍忓潗妯�(bi膩o)杞�(zhu菐n)鎻涘埌HMI鎺т欢鍧愭(bi膩o) HMI_SHOWWINDOW(11) '褰堝嚭绐楀彛铏�(h脿o)鐐�11鐨勫壍(chu脿ng)寤烘ā鏉跨獥鍙� END SUB

銆€銆€16.鍦ㄢ€渄raw.bas鈥濇枃浠朵腑娣诲姞妯℃澘鍗€(q奴)鍩熸洿鏂扮躬鍒跺嚱鏁�(sh霉)锛屽苟鍦ㄥ(xu茅)缈�(x铆)妯℃澘鐣岄潰鐨勮嚜瀹氱京鎺т欢涓婇棞(gu膩n)鑱�(li谩n)鍒锋柊鍑芥暩(sh霉)鍚嶅拰绻湒鍑芥暩(sh霉)鍚�銆�

銆€銆€'鏍规摎(j霉)榧犳(bi膩o)鎿嶄綔鏇存柊瀹氫綅鍣ㄧ殑鍗€(q奴)鍩熷嵆瀛�(xu茅)缈�(x铆)妯℃澘鐨勬湁鏁堝崁(q奴)鍩烥LOBAL SUB update_locator()

銆€銆€if mouse_scan(11) = 1 then '鎺冩弿榧犳(bi膩o)鎸変笅鎿嶄綔 is_set_roi_m_down = 1 '榧犳(bi膩o)鎸変笅妯�(bi膩o)蹇楃疆1 sr_mpos_x = table(11) '灏囩暥(d膩ng)鍓嶉紶妯�(bi膩o)鎸変笅浣嶇疆鐨勫潗妯�(bi膩o)璩﹀€肩郸璁婇噺 sr_mpos_y = table(12) '鍙湁鎸変笅鏅�(sh铆)鍙互鏀硅畩鎿婁腑浣嶇疆锛岀嵅鍙栭紶妯�(bi膩o)榛�(di菐n)鎿婁綅缃皪(du矛)鎳�(y墨ng)鐨勬搳涓崁(q奴)鍩熺法铏�(h脿o) hit_pos = ZV_HMIADJRECT(sr_mpos_x, sr_mpos_y, 25, -1) is_redraw = 1 '绻湒妯�(bi膩o)蹇楃疆1 endif if mouse_scan(11) = -1 then '鎺冩弿榧犳(bi膩o)鏉鹃枊(k膩i)鎿嶄綔 is_set_roi_m_down = 0 '榧犳(bi膩o)鎸変笅妯�(bi膩o)蹇楃疆0 sr_mpos_x = table(11) '灏囩暥(d膩ng)鍓嶉紶妯�(bi膩o)鏉鹃枊(k膩i)浣嶇疆鐨勫潗妯�(bi膩o)璩﹀€肩郸璁婇噺 sr_mpos_y = table(12) '鏍规摎(j霉)鍗€(q奴)鍩熺法铏�(h脿o)瑾�(di脿o)鏁村畾浣嶅櫒鍗€(q奴)鍩熶綅缃� ZV_HMIADJRECT(sr_mpos_x, sr_mpos_y, 25, hit_pos) is_redraw = 1 '绻湒妯�(bi膩o)蹇楃疆1 endif '濡傛灉榧犳(bi膩o)鎸変笅鏅�(sh铆) if (is_set_roi_m_down and MOUSE_state(11)) then sr_mpos_x = table(11) '灏囩暥(d膩ng)鍓嶉紶妯�(bi膩o)鎸変笅浣嶇疆鐨勫潗妯�(bi膩o)璩﹀€肩郸璁婇噺 sr_mpos_y = table(12) '鏍规摎(j霉)鍗€(q奴)鍩熺法铏�(h脿o)瑾�(di脿o)鏁村畾浣嶅櫒鍗€(q奴)鍩熶綅缃� ZV_HMIADJRECT(sr_mpos_x, sr_mpos_y, 25, hit_pos) is_redraw = 1 '绻湒妯�(bi膩o)蹇楃疆1 endif if (1 = is_redraw) then '濡傛灉绻埗妯�(bi膩o)蹇�=1 is_redraw = 0 '灏囩躬鍒舵(bi膩o)蹇楃疆0 '鎺т欢roi鍧愭(bi膩o)杞�(zhu菐n)鍦栧儚roi鍧愭(bi膩o)锛屾帶浠跺潗妯�(bi膩o)瀛樻斁鍦ㄨ捣濮嬪湴鍧€鐐�25鐨勬暩(sh霉)绲�锛屽湒鍍忓潗妯�(bi膩o)瀛樻斁鍦ㄨ捣濮嬪湴鍧€鐐�15鐨勬暩(sh霉)绲� ZV_POSTOIMG(0, 2, 25, 15) '灏囧湒鍍忓潗妯�(bi膩o)鐨勬暩(sh霉)鎿�(j霉)璩﹀€肩郸ROI璁婇噺涓� d_locator_roi(0) = TABLE(15) d_locator_roi(1) = TABLE(16) d_locator_roi(2) = TABLE(17) d_locator_roi(3) = TABLE(18) SET_REDRAW '閲嶆柊绻埗鍏ㄩ儴鍗€(q奴)鍩� endif END SUB

銆€銆€'鏍规摎(j霉)鏇存柊鐨勯紶妯�(bi膩o)浣嶇疆鍧愭(bi膩o)绻埗瀹氫綅鍣╮oiGLOBAL SUB draw_locator()

銆€銆€'鏍规摎(j霉)鎺т欢鍧愭(bi膩o)鏁�(sh霉)鎿�(j霉)绻埗鐭╁舰 DRAWRECT(TABLE(25), TABLE(26), TABLE(27), TABLE(28)) local cx,cy '瀹氱京灞€閮ㄨ畩閲� cx = (TABLE(25) + TABLE(27)) / 2 '瑷�(j矛)绠楃煩褰㈢殑涓績鍧愭(bi膩o)x銆亂 cy = (TABLE(26) + TABLE(28)) / 2 DRAWLINE(cx-5, cy, cx+5, cy) '绻埗涓績鍗佸瓧绶� DRAWLINE(cx, cy-5, cx, cy+5) END SUB

銆€銆€17.鍦ㄢ€渕ain.bas鈥濇枃浠朵腑娣诲姞銆愭埅鍙栨ā鏉裤€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'鍓�(chu脿ng)寤烘ā鏉跨晫闈㈡寜涓嬫埅鍙栨ā鏉挎寜閳曞悗闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_getSubImg()

銆€銆€LOCAL mod_w,mod_h '鏍规摎(j霉)ROI鏁�(sh霉)鎿�(j霉)鐢熸垚妯℃澘瀛愬湒鍍� ZV_IMGGETSUB(grabImg, subImg, d_locator_roi(0), d_locator_roi(1), d_locator_roi(2)-d_locator_roi(0)+1, d_locator_roi(3)-d_locator_roi(1)+1) '鐛插彇鍦栧儚淇℃伅锛屽瓨鏀惧埌璧峰鍦板潃鐐�0鐨則able鏁�(sh霉)绲勪腑 ZV_IMGINFO(subImg,0) mod_w = TABLE(0) mod_h = TABLE(1) '鏍规摎(j霉)鍦栧儚淇℃伅鐢熸垚妯℃澘鍗€(q奴)鍩� ZV_REGENRECT(modRe,0,0,mod_w, mod_h) '娓呯┖閹栧瓨閫氶亾1 ZV_LATCHCLEAR(1) '灏囨ā鏉垮瓙鍦栧儚椤ず鍒伴帠瀛橀€氶亾1涓� ZV_LATCH(subImg, 1) END SUB

銆€銆€18.榛�(di菐n)鎿奫鍏冧欢]鈫抂鏂板缓绐楀彛]锛屾柊寤虹法杓ā鏉跨獥鍙�锛岃ō(sh猫)瑷�(j矛)绐楀彛甯冨眬锛屽苟闂�(gu膩n)鑱�(li谩n)璁婇噺銆�

銆€銆€19.鍦ㄢ€渄raw.bas鈥濇枃浠朵腑娣诲姞鍓�(chu脿ng)寤烘ā鏉跨晫闈€€愭鐨摝銆戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'鍓�(chu脿ng)寤烘ā鏉跨晫闈㈡寜涓嬫鐨摝鎸夐垥鏅�(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_sel_erase()

銆€銆€ZV_LATCHSETSIZE(1, HMI_CONTROLSIZEX(12, 1), HMI_CONTROLSIZEY(12, 1)) '瑷�(sh猫)缃帠瀛橀€氶亾1鐨勫ぇ灏� SET_COLOR(RGB(0,255,0)) '瑷�(sh猫)缃躬鍒舵檪(sh铆)鐣�(hu脿)绛嗕娇鐢ㄧ殑椤忚壊 ZV_LATCHCLEAR(1) '娓呯┖閹栧瓨閫氶亾1 ZV_IMGCOPY(subImg, copy_subImg) '寰�(f霉)鍒舵ā鏉垮瓙鍦栧儚鍒癱opy_subImg鍦栧儚璁婇噺涓� ZV_REGION(copy_subImg, modRe, 1, 0) '鍦ㄦā鏉垮湒鍍忎笂绻埗modRe鍦栧儚鐨勯潪鏈夋晥鍗€(q奴)鍩燂紝绻埗椤忚壊鐐洪粦鑹�锛岀敤浜庢帺妯� ZV_LATCH(copy_subImg, 1) '椤ず寰�(f霉)鍒剁殑妯℃澘鍦� HMI_SHOWWINDOW(12) '鎵撻枊(k膩i)绶ㄨ集妯℃澘绐楀彛 END SUB

銆€銆€20.鍦ㄢ€渄raw.bas鈥濇枃浠朵腑娣诲姞姗＄毊鎿︽洿鏂扮躬鍒跺嚱鏁�(sh霉)锛屽苟鍦ㄧ法杓ā鏉跨晫闈㈢殑鑷畾缇╂帶浠朵笂闂�(gu膩n)鑱�(li谩n)鍒锋柊鍑芥暩(sh霉)鍚嶅拰绻湒鍑芥暩(sh霉)鍚�銆�

銆€銆€'鏍规摎(j霉)榧犳(bi膩o)鎿嶄綔鏇存柊姗＄毊鎿︽摝闄�/鎭㈠京(f霉)鍗€(q奴)鍩熺殑浣嶇疆GLOBAL SUB update_eraser() DIM c_size_eraser '姗＄毊鎿﹀湪鎺т欢涓婂皪(du矛)鎳�(y墨ng)鐨勫昂瀵� DIM eraser_pos_x,eraser_pos_y d_mouse_s = MOUSE_STATE(11) '榧犳(bi膩o)铏曚簬鎸変笅?t墨ng)椤烞(t脿i)鏅�(sh铆) eraser_pos_x = TABLE(11) '灏囩暥(d膩ng)鍓嶉紶妯�(bi膩o)鎸変笅浣嶇疆鐨勫潗妯�(bi膩o)璩﹀€肩郸姗＄毊鎿︽帶浠跺潗妯�(bi膩o)璁婇噺 eraser_pos_y = TABLE(12) c_size_eraser = ZV_LENFROMIMG(0, d_eraser_size) '灏囨鐨摝鐨勫湒鍍忓昂瀵歌綁(zhu菐n)鎻涙垚鎺т欢灏哄 '鐢熸垚浠�(eraser_pos_x锛宔raser_pos_y)鐐轰腑蹇�锛�2*c_size_eraser鐐洪倞闀�(zh菐ng)鐨勬鏂瑰舰姗＄毊鎿﹀崁(q奴)鍩� c_rect(0, eraser_pos_x - c_size_eraser, eraser_pos_y - c_size_eraser, eraser_pos_x + c_size_eraser, eraser_pos_y + c_size_eraser) DIM hmi_w,hmi_h '闄愬埗姗＄毊鎿﹀潗妯�(bi膩o)鍦ㄥ湒鐗囧厓浠跺崁(q奴)鍩熷収(n猫i) if (eraser_pos_x >= c_size_eraser) and (eraser_pos_y >= c_size_eraser) and (eraser_pos_x <= HMI_CONTROLSIZEX(12, 1) - c_size_eraser)and (eraser_pos_y <= HMI_CONTROLSIZEy(12, 1) - c_size_eraser) THEN '閲嶆柊绻埗绶ㄨ集妯℃澘绐楀彛涓婄殑閹栧瓨閫氶亾0鍗€(q奴)鍩� SET_REDRAW(0,0, HMI_CONTROLSIZEX(12, 1), HMI_CONTROLSIZEY(12, 1)) endif if d_mouse_s = 1 and d_edit_m = 1 then '濡傛灉榧犳(bi膩o)铏曚簬鎸変笅?t墨ng)椤烞(t脿i)涓旂法杓ā鏉挎(bi膩o)蹇�=1鏅�(sh铆) btn_pro_eraser() '鍩�(zh铆)琛岃檿鐞嗘鐨摝鍑芥暩(sh霉) endif END SUB

銆€銆€'铏曠悊姗＄毊鎿﹀嚱鏁�(sh霉)GLOBAL SUB btn_pro_eraser() ZVOBJECT tmp_re '灏囨鐨摝鍗€(q奴)鍩熺殑宸︿笂瑙掑潗妯�(bi膩o)x锛寉瀛樻斁鍒拌捣濮嬪湴鍧€鐐�30鐨勬暩(sh霉)绲勪腑 TABLE(30, c_rect(0), c_rect(1)) '灏囨帶浠跺潗妯�(bi膩o)杞�(zhu菐n)鎻涘埌鍦栧儚鍧愭(bi膩o)涓� ZV_POSTOIMG(1, 1, 30, 30) '鏍规摎(j霉)鍦栧儚鍧愭(bi膩o)绯讳笅鐨勬暩(sh霉)鎿�(j霉)鐢熸垚姝ｆ柟褰㈡鐨摝鍗€(q奴)鍩�锛屽苟瀛樻斁鍒皌mp_re璁婇噺涓� ZV_REGENRECT(tmp_re, TABLE(30), TABLE(31), 2 * d_eraser_size + 1, 2 * d_eraser_size + 1) if (d_isMask_m = 1) then '濡傛灉閬告搰灞忚斀鍔熻兘 ZV_REDIFF(modRe, tmp_re, modRe) '瑷�(j矛)绠梞odRe鍜宼mp_re鐨勫樊闆嗗苟瀛樻斁鍒癿odRe涓�锛屽嵆鍙栨鐨摝鍗€(q奴)鍩熶互澶栫殑妯℃澘瀛愬湒鍍忓崁(q奴)鍩� else '濡傛灉閬告搰鎭㈠京(f霉)鍔熻兘 ZV_REUNION(modRe, tmp_re, modRe) '瑷�(j矛)绠梞odRe鍜宼mp_re鐨勫苟闆嗗苟瀛樻斁鍒癿odRe涓�锛屽嵆鍙栫暥(d膩ng)鍓嶆ā鏉垮瓙鍦栧儚鍗€(q奴)鍩� endif ZV_IMGCOPY(subImg, copy_subImg) '寰�(f霉)鍒舵ā鏉垮瓙鍦栧儚鍒癱opy_subImg鍦栧儚璁婇噺涓� ZV_REGION(copy_subImg, modRe, 1, 0) '鍦ㄦā鏉垮湒鍍忎笂绻埗modRe鍦栧儚鐨勯潪鏈夋晥鍗€(q奴)鍩�锛岀躬鍒堕鑹茬偤榛戣壊锛岀敤浜庢帺妯� ZV_LATCH(copy_subImg, 1) '椤ず寰�(f霉)鍒剁殑妯℃澘鍦� END SUB

銆€銆€'鏇存柊绻埗姗＄毊鎿﹀崁(q奴)鍩烥LOBAL SUB draw_eraser()

銆€銆€if d_edit_m = 0 then '濡傛灉绶ㄨ集妯℃澘妯�(bi膩o)蹇楃偤0 return '杩斿洖瀛愬嚱鏁�(sh霉)锛屼笉绻肩簩(x霉)寰€涓嬪煼(zh铆)琛� endif '绻埗姝ｆ柟褰㈡鐨摝鍗€(q奴)鍩� DRAWRECT(c_rect(0), c_rect(1), c_rect(2), c_rect(3)) END SUB

銆€銆€21.鍦ㄢ€渕ain.bas鈥濇枃浠朵腑娣诲姞绶ㄨ集妯℃澘鐣岄潰銆愬壍(chu脿ng)寤烘ā鏉裤€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'绶ㄨ集妯℃澘鐣岄潰鎸変笅鍓�(chu脿ng)寤烘ā鏉挎寜閳曟檪(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_loc_creModel()

銆€銆€d_is_creModel = 1 '鍓�(chu脿ng)寤烘ā鏉挎(bi膩o)蹇楃疆1 '鏍规摎(j霉)妯℃澘鍙冩暩(sh霉)鍜屾ā鏉垮瓙鍦栧儚鍓�(chu脿ng)寤烘ā鏉�锛屽苟灏囨ā鏉跨祼(ji茅)鏋滃瓨鏀惧埌s_mod璁婇噺涓� ZV_SHAPECREATERE(subImg, modRe,s_mod, d_mod_param(0), d_mod_param(1), d_mod_param(2), d_mod_param(3), d_mod_param(4), d_mod_param(5), d_mod_param(6), d_mod_param(7), d_mod_param(8)) ZV_SHAPECONTOURS(s_mod, contlist1, 0) '鐛插彇绗�0灞ら噾瀛楀涓婄殑妯℃澘杓粨 ZV_GRAYTORGB(subImg, colorSubImg) '鐏板害鍦栬綁(zhu菐n)鎻涙垚RGB鍦� ZV_IMGINFO(colorSubImg, 0) '鐛插彇colorSubImg鍦栧儚淇℃伅锛屽苟瀛樻斁鍒皌able0涓� ZV_GETRIGIDVECTOR(mat_rigid1, 0, 0, 0, TABLE(0)/2, TABLE(1)/2, 0)'瑷�(j矛)绠楀墰鎬ц畩鎻涚煩闄� ZV_CONTAFFINE(contlist1, mat_rigid1, tsContlist1)'灏�(du矛)杓粨鎴栬吉寤撳簭鍒楅€�(j矛n)琛屼豢灏勮畩鎻� ZV_CONTLIST(colorSubImg, tsContlist1, ZV_COLOR(0, 255, 0), 0)'鍦╟olorSubImg鍦栧儚涓婄躬鍒剁稜鑹茬殑杓粨搴忓垪 ZV_LATCHCLEAR(2) '娓呯┖閹栧瓨閫氶亾2 ZV_LATCH(colorSubImg, 2) '椤ず鍦栧儚绲�(ji茅)鏋滃埌閹栧瓨閫氶亾2涓� btn_loc_test() d_match_base_rst(0) = d_match_rst(0) d_match_base_rst(1) = d_match_rst(1) d_match_base_rst(2) = d_match_rst(2) d_match_base_rst(3) = d_match_rst(3) d_match_base_rst(4) = d_match_rst(4) END SUB

銆€銆€22.鍦ㄢ€渕ain.bas鈥濇枃浠朵腑娣诲姞绶ㄨ集妯℃澘鐣岄潰銆愪繚瀛樻ā鏉裤€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'绶ㄨ集妯℃澘鐣岄潰鎸変笅淇濆瓨妯℃澘鎸夐垥鏅�(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_loc_savModel() if d_is_creModel = 1 then ZV_WRITESHAPEMOD(s_mod,"椤忚壊鎺掑簭/shape.zvb") ZV_WRITEIMAGE(subImg,"椤忚壊鎺掑簭/subimg.bmp",0) VR(0)=1 ?"淇濆瓨妯℃澘鎴愬姛!" else ?"璜�(q菒ng)鍏堝壍(chu脿ng)寤烘ā鏉�!" return endifEND SUB

銆€銆€23.鍦ㄢ€渕ain.bas鈥濇枃浠朵腑娣诲姞绶ㄨ集妯℃澘鐣岄潰銆愯畝鍙栨ā鏉裤€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'绶ㄨ集妯℃澘鐣岄潰鎸変笅璁€鍙栨ā鏉挎寜閳曟檪(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_loc_redModel() if VR(0)=1 then ZV_READSHAPEMOD(s_mod,"椤忚壊鎺掑簭/shape.zvb") ?"璁€鍙栨ā鏉挎垚鍔�!" else ?"璜�(q菒ng)鍏堜繚瀛樻ā鏉�!" return endifEND SUB

銆€銆€24.鍦ㄢ€渄raw.bas鈥� 鏂囦欢涓坊鍔犵法杓ā鏉跨晫闈€€愮⒑瀹氥€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'鍓�(chu脿ng)寤烘ā鏉跨晫闈㈡寜涓嬬⒑瀹氭寜閳曟檪(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_loc_cfm()

銆€銆€grab_switch = 0 '闂�(gu膩n)闁夎(b菙)姝ｆ簮鐨勯€ｇ簩(x霉)閲囬泦 d_is_rtn_loc = 1 '杩斿洖涓荤晫闈㈡(bi膩o)蹇楃疆鐐�1 '瑷�(sh猫)缃帠瀛橀€氶亾0鐨勫ぇ灏� ZV_LATCHSETSIZE(0, HMI_CONTROLSIZEX(10, 2), HMI_CONTROLSIZEY(10, 2)) ZV_LATCHCLEAR(0) '娓呯┖閹栧瓨閫氶亾0 ZV_LATCH(colorImg, 0) '椤ず鍦栧儚鍦ㄩ帠瀛橀€氶亾0涓� HMI_CLOSEWINDOW(11) '闂�(gu膩n)闁夊壍(chu脿ng)寤烘ā鏉跨獥鍙� END SUB

銆€銆€25.鍦ㄢ€渕ain.bas鈥濇枃浠朵腑娣诲姞鍓�(chu脿ng)寤烘ā鏉跨晫闈€€愭脯(c猫)瑭︺€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'鍓�(chu脿ng)寤烘ā鏉跨晫闈㈡寜涓嬫脯(c猫)瑭︽寜閳曟檪(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_loc_test() if (d_is_creModel = 0) then '濡傛灉鍓�(chu脿ng)寤烘ā鏉挎(bi膩o)蹇�=0 ?"鏈壍(chu脿ng)寤烘ā鏉�!" '鎻愮ず鏈壍(chu脿ng)寤烘ā鏉挎瘺鐥呰繑鍥炲瓙鍑芥暩(sh霉)涓嶅線涓嬪煼(zh铆)琛� return endif '闁�(k膩i)濮嬪尮閰� TICKS = 0 '闁�(k膩i)濮嬭▓(j矛)鏅�(sh铆) ZVOBJECT match_rst, sImg, showImg '灏�(du矛)鍦栧儚閫�(j矛n)琛�3*3楂樻柉骞虫粦铏曠悊锛岃檿鐞嗗悗鐨勫湒鍍忚几鍑哄埌sImg璁婇噺涓� ZV_GAUSSBLUR(grabImg, sImg, 3) '鏍规摎(j霉)妯℃澘瀛愬湒鍍忓拰鎼滅储鍙冩暩(sh霉)閫�(j矛n)琛岀洰妯�(bi膩o)鍖归厤锛屽苟灏囧尮閰嶇祼(ji茅)鏋滃瓨鏀惧埌match_rst鐭╅櫍涓� ZV_SHAPEFIND(s_mod, sImg, match_rst, d_match_param(0), d_match_param(1), d_match_param(2), d_match_param(3), d_match_param(4), d_match_param(5), d_match_param(6)) ZV_MATINFO(match_rst, 0) '鐛插彇鐭╅櫍绲�(ji茅)鏋滀俊鎭�銆傚苟瀛樻斁鍒拌捣濮嬪湴鍧€鐐�0鐨則able鏁�(sh霉)绲勪腑 ' ZV_GRAYTORGB(sImg, showImg) '鐏板害鍦栬綁(zhu菐n)鎻涘埌RGB鍦�锛屼綔鐐哄尮閰嶇祼(ji茅)鏋滃湒鍍� if TABLE(0) > 0 then '濡傛灉鍖归厤鍒扮洰妯�(bi膩o) local rowr for rowr = 0 to TABLE(0)-1 '鐛插彇match_rst鐭╅櫍涓rowr琛岀殑鏁�(sh霉)鎿�(j霉)瀛樻斁鍒拌捣濮嬪湴鍧€鐐�3鐨則able鏁�(sh霉)绲勪腑,table鏈€澶ч暦(zh菐ng)搴�5 ZV_MATGETROW(match_rst, rowr, 5, 3) if(rowr = 0) then '鍙栫涓€琛岀殑鍖归厤绲�(ji茅)鏋滀俊鎭嵆绗竴鍊�(g猫)鍖归厤鐩(bi膩o)鐨勭祼(ji茅)鏋� d_match_rst(0) = TABLE(3) '灏囧尮閰嶇祼(ji茅)鏋滆肠鍊肩郸瀹氱京鐨勭祼(ji茅)鏋滆畩閲�锛岄’绀哄埌鐣岄潰 d_match_rst(1) = TABLE(4) d_match_rst(2) = TABLE(5) d_match_rst(3) = TABLE(6) d_match_rst(4) = TABLE(7) '瑷�(j矛)绠楀墰鎬ц畩鎻涚煩闄� ZV_GETRIGIDVECTOR(mat_rigid1, 0, 0, 0, TABLE(4), TABLE(5), TABLE(6)) '灏�(du矛)杓粨鎴栬吉寤撳簭鍒楅€�(j矛n)琛屼豢灏勮畩鎻� ZV_CONTAFFINE(contlist1, mat_rigid1, tsContlist1) '鍦╟olorSubImg鍦栧儚涓婄躬鍒剁稜鑹茬殑杓粨搴忓垪 ZV_CONTLIST(colorImg, tsContlist1, ZV_COLOR(0, 255, 0), 0) endif next else '鏈尮閰嶅埌鐩(bi膩o)鏅�(sh铆)锛屽皣绲�(ji茅)鏋滆肠鍊肩偤-1 d_match_rst(0) = -1 d_match_rst(1) = -1 d_match_rst(2) = -1 d_match_rst(3) = -1 d_match_rst(4) = -1 endif d_match_time = abs(TICKS) '瑷�(j矛)绠楀尮閰嶆秷鑰楁檪(sh铆)闁� ZV_LATCH(colorImg, 0) '椤ず鍖归厤绲�(ji茅)鏋滃湒鍍� END SUB

銆€銆€26.鍦ㄢ€渄raw.bas鈥濇枃浠朵腑娣诲姞鍓�(chu脿ng)寤烘ā鏉跨晫闈€€愮⒑瀹氥€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'鍓�(chu脿ng)寤烘ā鏉跨晫闈㈡寜涓嬬⒑瀹氭寜閳曟檪(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_loc_cfm()

銆€銆€grab_switch = 0 '闂�(gu膩n)闁夎(b菙)姝ｆ簮鐨勯€ｇ簩(x霉)閲囬泦 d_is_rtn_loc = 1 '杩斿洖涓荤晫闈㈡(bi膩o)蹇楃疆鐐�1 '瑷�(sh猫)缃帠瀛橀€氶亾0鐨勫ぇ灏� ZV_LATCHSETSIZE(0, HMI_CONTROLSIZEX(10, 2), HMI_CONTROLSIZEY(10, 2)) ZV_LATCHCLEAR(0) '娓呯┖閹栧瓨閫氶亾0 ZV_LATCH(colorImg, 0) '椤ず鍦栧儚鍦ㄩ帠瀛橀€氶亾0涓� HMI_CLOSEWINDOW(11) '闂�(gu膩n)闁夊壍(chu脿ng)寤烘ā鏉跨獥鍙� END SUB

銆€銆€27.鍦╩ain.bas鏂囦欢涓坊鍔犱富鐣岄潰銆愭脯(c猫)瑭︺€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'涓荤晫闈㈡寜涓嬫脯(c猫)瑭︽寜閳曟檪(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_test() TICKS=0 DMSET d_color_rst1(0,4,0) DMSET d_color_rst2(0,4,0) DMSET d_color_rst3(0,4,0) d_rst_status=0 ZVOBJECT regionMask1,regionMask2,regionMask3 '鍏堥€�(j矛n)琛屽尮閰嶅畾浣�锛岃(b菙)姝OI浣嶇疆 if (d_is_creModel = 0) then '濡傛灉鍓�(chu脿ng)寤烘ā鏉挎(bi膩o)蹇�=0 ?"鏈壍(chu脿ng)寤烘ā鏉�!" '鎻愮ず鏈壍(chu脿ng)寤烘ā鏉挎瘺鐥呰繑鍥炲瓙鍑芥暩(sh霉)涓嶅線涓嬪煼(zh铆)琛� return endif ZVOBJECT match_rst, sImg, showImg '灏�(du矛)鍦栧儚閫�(j矛n)琛�3*3楂樻柉骞虫粦铏曠悊锛岃檿鐞嗗悗鐨勫湒鍍忚几鍑哄埌sImg璁婇噺涓� ZV_GAUSSBLUR(grabImg, sImg, 3) '鏍规摎(j霉)妯℃澘瀛愬湒鍍忓拰鎼滅储鍙冩暩(sh霉)閫�(j矛n)琛岀洰妯�(bi膩o)鍖归厤锛屽苟灏囧尮閰嶇祼(ji茅)鏋滃瓨鏀惧埌match_rst鐭╅櫍涓� ZV_SHAPEFIND(s_mod, sImg, match_rst, d_match_param(0), d_match_param(1), d_match_param(2), d_match_param(3), d_match_param(4), d_match_param(5), d_match_param(6)) ZV_MATINFO(match_rst, 0) '鐛插彇鐭╅櫍绲�(ji茅)鏋滀俊鎭�銆傚苟瀛樻斁鍒拌捣濮嬪湴鍧€鐐�0鐨則able鏁�(sh霉)绲勪腑 ZV_IMGCOPY(colorImg,showImg) if TABLE(0) > 0 then '濡傛灉鍖归厤鍒扮洰妯�(bi膩o) local rowr for rowr = 0 to TABLE(0)-1 '鐛插彇match_rst鐭╅櫍涓rowr琛岀殑鏁�(sh霉)鎿�(j霉)瀛樻斁鍒拌捣濮嬪湴鍧€鐐�3鐨則able鏁�(sh霉)绲勪腑,table鏈€澶ч暦(zh菐ng)搴�5 ZV_MATGETROW(match_rst, rowr, 5, 3)

銆€銆€if(rowr = 0) then '鍙栫涓€琛岀殑鍖归厤绲�(ji茅)鏋滀俊鎭嵆绗竴鍊�(g猫)鍖归厤鐩(bi膩o)鐨勭祼(ji茅)鏋� d_match_rst(0) = TABLE(3) '灏囧尮閰嶇祼(ji茅)鏋滆肠鍊肩郸瀹氱京鐨勭祼(ji茅)鏋滆畩閲�锛岄’绀哄埌鐣岄潰 d_match_rst(1) = TABLE(4) d_match_rst(2) = TABLE(5) d_match_rst(3) = TABLE(6) d_match_rst(4) = TABLE(7) '瑷�(j矛)绠楀墰鎬ц畩鎻涚煩闄� ZV_GETRIGIDVECTOR(mat_rigid1, 0, 0, 0, TABLE(4), TABLE(5), TABLE(6)) '灏�(du矛)杓粨鎴栬吉寤撳簭鍒楅€�(j矛n)琛屼豢灏勮畩鎻� ZV_CONTAFFINE(contlist1, mat_rigid1, tsContlist1) '鍦╟olorSubImg鍦栧儚涓婄躬鍒剁稜鑹茬殑杓粨搴忓垪 ZV_CONTLIST(showImg, tsContlist1, ZV_COLOR(0, 255, 0), 0) endif next else '鏈尮閰嶅埌鐩(bi膩o)鏅�(sh铆)锛屽皣绲�(ji茅)鏋滆肠鍊肩偤-1 d_match_rst(0) = -1 d_match_rst(1) = -1 d_match_rst(2) = -1 d_match_rst(3) = -1 d_match_rst(4) = -1 endif '瑷�(j矛)绠楄畩鎻涚煩闄� ZV_GETRIGIDVECTOR(mat_rigid2, d_match_base_rst(1), d_match_base_rst(2), d_match_base_rst(3),TABLE(4),TABLE(5), d_match_rst(3)) '鍒濆鍖栭鑹茶瓨(sh铆)鍒ュ崁(q奴)鍩� ZV_REGENRECT2(regionMask1, d_reg_roi1(0), d_reg_roi1(1), d_reg_roi1(2), d_reg_roi1(3), d_reg_roi1(4)) ZV_REGENRECT2(regionMask2, d_reg_roi2(0), d_reg_roi2(1), d_reg_roi2(2), d_reg_roi2(3), d_reg_roi2(4)) ZV_REGENRECT2(regionMask3, d_reg_roi3(0), d_reg_roi3(1), d_reg_roi3(2), d_reg_roi3(3), d_reg_roi3(4)) '璁婃彌璀�(sh铆)鍒ュ崁(q奴)鍩� ZV_REAFFINE(regionMask1,mat_rigid2,regionMask1) ZV_REAFFINE(regionMask2,mat_rigid2,regionMask2) ZV_REAFFINE(regionMask3,mat_rigid2,regionMask3) if(ZV_ISEMPTY(Clrmod_list)=1) then '濡傛灉瑷�(x霉n)绶存ǎ鏈韩(k霉)鐐虹┖ ?"椤忚壊妯″瀷搴�(k霉)鐐虹┖!" return else DMSET table(50,96,0) ZV_CLRMODELCLASSIFY(Clrmod_list,colorImg,regionMask1,32,50,150,table(160))'椤忚壊璀�(sh铆)鍒� ZV_CLRMODELCLASSIFY(Clrmod_list,colorImg,regionMask2,32,82,151,table(160))'椤忚壊璀�(sh铆)鍒� ZV_CLRMODELCLASSIFY(Clrmod_list,colorImg,regionMask3,32,114,152,table(160))'椤忚壊璀�(sh铆)鍒� DMCPY d_color_rst1(0), TABLE(50), 32'灏囪瓨(sh铆)鍒ョ殑椤忚壊绲�(ji茅)鏋滃京(f霉)鍒跺埌鏁�(sh霉)绲勮畩閲忎腑 DMCPY d_color_rst2(0), TABLE(82), 32 DMCPY d_color_rst3(0), TABLE(114), 32 if STRCOMP(d_color_rst1, "red")=0 AND STRCOMP(d_color_rst2, "black")=0 AND STRCOMP(d_color_rst3, "yellow")=0 then d_rst_status=1 endif ZV_REAREACENTER(regionMask1,170)'瑷�(j矛)绠楄瓨(sh铆)鍒ュ崁(q奴)鍩熺殑闈㈢⿳鍜岄噸蹇冧綅缃甔Y ZV_REAREACENTER(regionMask2,173) ZV_REAREACENTER(regionMask3,176) ZV_TEXT(showImg,d_color_rst1,TABLE(171),TABLE(172),50,ZV_COLOR(0,255,0))'椤ず璀�(sh铆)鍒ユǎ鏈悕绋� ZV_TEXT(showImg,d_color_rst2,TABLE(174),TABLE(175),50,ZV_COLOR(0,255,0)) ZV_TEXT(showImg,d_color_rst3,TABLE(177),TABLE(178),50,ZV_COLOR(0,255,0))

銆€銆€endif ZV_LATCH(showImg,0) d_detect_time=abs(TICKS) END SUB

銆€銆€28.鍦ㄢ€渕ain.bas鈥濇枃浠朵腑娣诲姞涓荤晫闈€€愰€ｇ簩(x霉)閬�(y霉n)琛屻€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'涓荤晫闈㈤粸(di菐n)鎿婇€ｇ簩(x霉)閬�(y霉n)琛屾寜閳曟檪(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_run()

銆€銆€if(run_switch = 1) then '濡傛灉宸茬稉(j墨ng)闁�(k膩i)鍟熼€ｇ簩(x霉)閬�(y霉n)琛� ?"宸查枊(k膩i)鍟熼€ｇ簩(x霉)閬�(y霉n)琛�锛岃珛(q菒ng)鍕块噸寰�(f霉)鎿嶄綔!" '鎻愮ず淇℃伅骞堕€€鍑哄瓙鍑芥暩(sh霉)锛屼笉寰€涓嬪煼(zh铆)琛� return endif run_switch = 1 '涓讳换鍕�(w霉)闁�(k膩i)闂�(gu膩n)缃�1 if (1 = run_switch) then '濡傛灉涓讳换鍕�(w霉)闁�(k膩i)闂�(gu膩n)=1 if (0 = PROC_STATUS(main_task_id)) then '濡傛灉main_task_id浠诲嫏(w霉)鏈枊(k膩i)鍟� RUNTASK main_task_id, main_task '闁�(k膩i)鍟焟ain_task浠诲嫏(w霉) endif endifEND SUB

銆€銆€'涓讳换鍕�(w霉)鍩�(zh铆)琛岀殑鍏�(n猫i)瀹筸ain_task: while(1) if (0 = run_switch) then '濡傛灉涓讳换鍕�(w霉)闁�(k膩i)闂�(gu膩n)=0鍗冲仠姝㈤亱(y霉n)琛屾寜閳曟寜涓嬫檪(sh铆) exit while '閫€鍑哄惊鐠�(hu谩n) endif '鍚﹀墖閲嶅京(f霉)鍩�(zh铆)琛屼互涓嬫搷浣� if (d_use_imgfile=1) then '濡傛灉d_use_imgfile=1鏅�(sh铆)浣跨敤璁€鍙栨湰鍦板湒鐗囧姛鑳� if(d_index=3) then d_index=0 endif File_Name="椤忚壊鎺掑簭/"+TOSTR(d_index,1,0)+".bmp" '璁€鍙栨湰鍦板湒鐗囨檪(sh铆)鍦栫墖鎵€鍦ㄧ殑璺緫鍚嶇ū ZV_IMGREAD(grabImg,File_Name,1) ZV_IMGREAD(colorImg,File_Name,0) d_index=d_index+1 else '濡傛灉鐩告(j墨)鏁�(sh霉)閲忕偤0锛屾彁绀哄厛鎺冩弿鐩告(j墨)锛屽苟閫€鍑哄瓙鍑芥暩(sh霉)涓嶅線涓嬪煼(zh铆)琛� if cam_num = 0 then ?"璜�(q菒ng)鍏堟巸鎻忕浉姗�(j墨)!" return endif CAM_SETPARAM("TriggerSoftware", 0) '鐧�(f膩)閫佽Ц鐧�(f膩)鎸囦护 CAM_GET(grabImg, 0) endif

銆€銆€'鍩�(zh铆)琛屾脯(c猫)瑭︽寜閳曢熆鎳�(y墨ng)鍑芥暩(sh霉)閫�(j矛n)琛屽尮閰嶅畾浣嶆娓�(c猫) btn_test() wend END

銆€銆€29.鍦ㄢ€渕ain.bas鈥濇枃浠朵腑娣诲姞涓荤晫闈€€愬仠姝㈤亱(y霉n)琛屻€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'涓荤晫闈㈤粸(di菐n)鎿婂仠姝㈠煼(zh铆)琛屾寜閳曟檪(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_stop()

銆€銆€if(run_switch = 0) then '濡傛灉涓讳换鍕�(w霉)闁�(k膩i)闂�(gu膩n)=0 ?"鏈枊(k膩i)鍟熼€ｇ簩(x霉)閬�(y霉n)琛�!" '鎻愮ず鏈枊(k膩i)鍟熷惊鐠�(hu谩n)浠诲嫏(w霉)锛屽苟閫€鍑哄瓙鍑芥暩(sh霉)涓嶅線涓嬪煼(zh铆)琛� return endif run_switch = 0 '涓讳换鍕�(w霉)闁�(k膩i)闂�(gu膩n)缃�0锛岄€€鍑哄惊鐠�(hu谩n) END SUB

銆€銆€30.鍦ㄢ€渕ain.bas鈥濇枃浠舵坊鍔犱富鐣岄潰鎸変笅銆愪繚瀛樺弮鏁�(sh霉)銆戞寜閳曟檪(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)锛屽苟闂�(gu膩n)鑱�(li谩n)鍕�(d貌ng)浣滃嚱鏁�(sh霉)銆�

銆€銆€'涓荤晫闈㈡寜涓嬩繚瀛樺尮閰嶅弮鏁�(sh霉)鎸夐垥鏅�(sh铆)闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)GLOBAL SUB btn_loc_saveParam()

銆€銆€VR(1)=1 '鍖归厤鍙冩暩(sh霉)淇濆瓨妯�(bi膩o)蹇楃疆1 for i=0 to 8 VR(10+i)=d_mod_param(i) next for i=0 to 6 VR(20+i)=d_match_param(i) next for i=0 to 4 VR(30+i)=d_reg_roi1(i) VR(40+i)=d_reg_roi2(i) VR(50+i)=d_reg_roi3(i) VR(70+i)=d_match_base_rst(i) next for i=0 to 3 VR(60+i)=d_learn_roi(i) next VR(76)=TABLE(160) ?"宸蹭繚瀛樻娓�(c猫)鍙冩暩(sh霉)!" END SUB

銆€銆€31.鍦ㄢ€渄raw.bas鈥濇枃浠朵腑ROI鍗€(q奴)鍩熸洿鏂扮躬鍒跺嚱鏁�(sh霉)锛屽苟鍦ㄤ富鐣岄潰鐨勮嚜瀹氱京鎺т欢涓婇棞(gu膩n)鑱�(li谩n)鍒锋柊鍑芥暩(sh霉)鍚嶅拰绻湒鍑芥暩(sh霉)鍚�銆�

銆€銆€'鏍规摎(j霉)榧犳(bi膩o)鎿嶄綔鏇存柊ROI浣嶇疆鍗€(q奴)鍩熷嚱鏁�(sh霉)GLOBAL SUB update_roi()

銆€銆€if d_select_regROI=1 then SET_REDRAW if mouse_scan(11) = 1 then '鎺冩弿榧犳(bi膩o)鎸変笅鎿嶄綔 '鍙湁鎸変笅鏅�(sh铆)鍙互鏀硅畩鎿婁腑浣嶇疆锛岀嵅鍙栬(di脿o)鏁村崁(q奴)鍩熸(bi膩o)蹇� hit_pos = ZV_HMIADJRECT2(table(11), table(12), 231, -1) is_redraw = 1 '灏囩躬鍦栨(bi膩o)蹇楃疆1 endif if mouse_scan(11) = -1 then '鎺冩弿榧犳(bi膩o)鏉鹃枊(k膩i)鎿嶄綔 '瑾�(di脿o)鏁碦OI鐨勪綅缃� ZV_HMIADJRECT2(table(11), table(12), 231, hit_pos) is_redraw = 1 '灏囩躬鍦栨(bi膩o)蹇楃疆1 endif if (MOUSE_state(11)) then '瑾�(di脿o)鏁碦OI鐨勪綅缃� ZV_HMIADJRECT2(table(11), table(12), 231, hit_pos) is_redraw = 1 '灏囩躬鍦栨(bi膩o)蹇楃疆1 endif if (1 = is_redraw) then '绻埗 is_redraw = 0 '灏囩躬鍦栨(bi膩o)蹇楃疆0 ZV_POSTOIMG(0, 1, 231, 241)'灏嘡OI鐨勬帶浠跺潗妯�(bi膩o)鏁�(sh霉)鎿�(j霉)杞�(zhu菐n)鍒板湒鍍忓潗妯�(bi膩o)鏁�(sh霉)鎿�(j霉) d_reg_roi1(0) = TABLE(241)'灏嘡OI鐨勫湒鍍忓潗妯�(bi膩o)鏁�(sh霉)鎿�(j霉)璩﹀€肩郸瀹氱京鐨勮畩閲� d_reg_roi1(1) = TABLE(242) '灏嘡OI鍦ㄦ帶浠跺潗妯�(bi膩o)绯讳笅鐨勫搴�銆侀珮搴﹁綁(zhu菐n)鍒板儚绱犲搴�锛屽苟璩﹀€肩郸瀹氱京鐨勮畩閲� d_reg_roi1(2) = ZV_LENTOIMG(0, TABLE(233)) d_reg_roi1(3) = ZV_LENTOIMG(0, TABLE(234)) d_reg_roi1(4) = TABLE(235) SET_REDRAW '鍏ㄥ眬绻埗 endif endif if d_select_regROI=2 then SET_REDRAW if mouse_scan(11) = 1 then '鎺冩弿榧犳(bi膩o)鎸変笅鎿嶄綔 '鍙湁鎸変笅鏅�(sh铆)鍙互鏀硅畩鎿婁腑浣嶇疆锛岀嵅鍙栬(di脿o)鏁村崁(q奴)鍩熸(bi膩o)蹇� hit_pos = ZV_HMIADJRECT2(table(11), table(12), 331, -1) is_redraw = 1 '灏囩躬鍦栨(bi膩o)蹇楃疆1 endif if mouse_scan(11) = -1 then '鎺冩弿榧犳(bi膩o)鏉鹃枊(k膩i)鎿嶄綔 '瑾�(di脿o)鏁碦OI鐨勪綅缃� ZV_HMIADJRECT2(table(11), table(12), 331, hit_pos) is_redraw = 1 '灏囩躬鍦栨(bi膩o)蹇楃疆1 endif if (MOUSE_state(11)) then '瑾�(di脿o)鏁碦OI鐨勪綅缃� ZV_HMIADJRECT2(table(11), table(12), 331, hit_pos) is_redraw = 1 '灏囩躬鍦栨(bi膩o)蹇楃疆1 endif if (1 = is_redraw) then '绻埗 is_redraw = 0 '灏囩躬鍦栨(bi膩o)蹇楃疆0 ZV_POSTOIMG(0, 1, 331, 241)'灏嘡OI鐨勬帶浠跺潗妯�(bi膩o)鏁�(sh霉)鎿�(j霉)杞�(zhu菐n)鍒板湒鍍忓潗妯�(bi膩o)鏁�(sh霉)鎿�(j霉) d_reg_roi2(0) = TABLE(241)'灏嘡OI鐨勫湒鍍忓潗妯�(bi膩o)鏁�(sh霉)鎿�(j霉)璩﹀€肩郸瀹氱京鐨勮畩閲� d_reg_roi2(1) = TABLE(242) '灏嘡OI鍦ㄦ帶浠跺潗妯�(bi膩o)绯讳笅鐨勫搴�銆侀珮搴﹁綁(zhu菐n)鍒板儚绱犲搴�锛屽苟璩﹀€肩郸瀹氱京鐨勮畩閲� d_reg_roi2(2) = ZV_LENTOIMG(0, TABLE(233)) d_reg_roi2(3) = ZV_LENTOIMG(0, TABLE(234)) d_reg_roi2(4) = TABLE(235) SET_REDRAW '鍏ㄥ眬绻埗 endif endif if d_select_regROI=3 then SET_REDRAW if mouse_scan(11) = 1 then '鎺冩弿榧犳(bi膩o)鎸変笅鎿嶄綔 '鍙湁鎸変笅鏅�(sh铆)鍙互鏀硅畩鎿婁腑浣嶇疆锛岀嵅鍙栬(di脿o)鏁村崁(q奴)鍩熸(bi膩o)蹇� hit_pos = ZV_HMIADJRECT2(table(11), table(12), 431, -1) is_redraw = 1 '灏囩躬鍦栨(bi膩o)蹇楃疆1 endif if mouse_scan(11) = -1 then '鎺冩弿榧犳(bi膩o)鏉鹃枊(k膩i)鎿嶄綔 '瑾�(di脿o)鏁碦OI鐨勪綅缃� ZV_HMIADJRECT2(table(11), table(12), 431, hit_pos) is_redraw = 1 '灏囩躬鍦栨(bi膩o)蹇楃疆1 endif if (MOUSE_state(11)) then '瑾�(di脿o)鏁碦OI鐨勪綅缃� ZV_HMIADJRECT2(table(11), table(12), 431, hit_pos) is_redraw = 1 '灏囩躬鍦栨(bi膩o)蹇楃疆1 endif if (1 = is_redraw) then '绻埗 is_redraw = 0 '灏囩躬鍦栨(bi膩o)蹇楃疆0 ZV_POSTOIMG(0, 1, 431, 241)'灏嘡OI鐨勬帶浠跺潗妯�(bi膩o)鏁�(sh霉)鎿�(j霉)杞�(zhu菐n)鍒板湒鍍忓潗妯�(bi膩o)鏁�(sh霉)鎿�(j霉) d_reg_roi3(0) = TABLE(241)'灏嘡OI鐨勫湒鍍忓潗妯�(bi膩o)鏁�(sh霉)鎿�(j霉)璩﹀€肩郸瀹氱京鐨勮畩閲� d_reg_roi3(1) = TABLE(242) '灏嘡OI鍦ㄦ帶浠跺潗妯�(bi膩o)绯讳笅鐨勫搴︺€侀珮搴﹁綁(zhu菐n)鍒板儚绱犲搴�锛屽苟璩﹀€肩郸瀹氱京鐨勮畩閲� d_reg_roi3(2) = ZV_LENTOIMG(0, TABLE(233)) d_reg_roi3(3) = ZV_LENTOIMG(0, TABLE(234)) d_reg_roi3(4) = TABLE(235) SET_REDRAW '鍏ㄥ眬绻埗 endif endif SET_REDRAW '鍏ㄥ眬绻埗 END SUB

銆€銆€'ROI鍗€(q奴)鍩熸洿鏂板悗瀵�(sh铆)鏅�(sh铆)绻埗ROI鍗€(q奴)鍩烥LOBAL SUB draw_roi() SET_COLOR(C_GREEN) '瑷�(sh猫)缃躬鍒舵檪(sh铆)鐣�(hu脿)绛嗙殑椤忚壊鐐鸿棈(l谩n)鑹� if d_select_regROI=1 then ZV_HMIRECT2(231, 70) '灏囨棆杞�(zhu菐n)鐭╁舰roi鍒嗚В鐐篐MI鏀寔鐨勭躬鍦栧湒鍏冨苟娣诲姞鎺у埗鍙冩暩(sh霉)锛屼究浜嶩MI绻湒椤ず DRAWLINE(TABLE(70), TABLE(71), TABLE(72), TABLE(73)) '绻埗澶栫煩褰� DRAWLINE(TABLE(72), TABLE(73), TABLE(74), TABLE(75)) DRAWLINE(TABLE(74), TABLE(75), TABLE(76), TABLE(77)) DRAWLINE(TABLE(76), TABLE(77), TABLE(70), TABLE(71)) '绻埗鐭╁舰涓績鍒板彸閭婄窔涓績鐨勭闋� DRAWLINE(TABLE(78), TABLE(79), TABLE(80), TABLE(81)) DRAWLINE(TABLE(82), TABLE(83), TABLE(80), TABLE(81)) DRAWLINE(TABLE(84), TABLE(85), TABLE(80), TABLE(81)) endif if d_select_regROI=2 then ZV_HMIRECT2(331, 70) '灏囨棆杞�(zhu菐n)鐭╁舰roi鍒嗚В鐐篐MI鏀寔鐨勭躬鍦栧湒鍏冨苟娣诲姞鎺у埗鍙冩暩(sh霉)锛屼究浜嶩MI绻湒椤ず DRAWLINE(TABLE(70), TABLE(71), TABLE(72), TABLE(73)) '绻埗澶栫煩褰� DRAWLINE(TABLE(72), TABLE(73), TABLE(74), TABLE(75)) DRAWLINE(TABLE(74), TABLE(75), TABLE(76), TABLE(77)) DRAWLINE(TABLE(76), TABLE(77), TABLE(70), TABLE(71)) '绻埗鐭╁舰涓績鍒板彸閭婄窔涓績鐨勭闋� DRAWLINE(TABLE(78), TABLE(79), TABLE(80), TABLE(81)) DRAWLINE(TABLE(82), TABLE(83), TABLE(80), TABLE(81)) DRAWLINE(TABLE(84), TABLE(85), TABLE(80), TABLE(81)) endif if d_select_regROI=3 then ZV_HMIRECT2(431, 70) '灏囨棆杞�(zhu菐n)鐭╁舰roi鍒嗚В鐐篐MI鏀寔鐨勭躬鍦栧湒鍏冨苟娣诲姞鎺у埗鍙冩暩(sh霉)锛屼究浜嶩MI绻湒椤ず DRAWLINE(TABLE(70), TABLE(71), TABLE(72), TABLE(73)) '绻埗澶栫煩褰� DRAWLINE(TABLE(72), TABLE(73), TABLE(74), TABLE(75)) DRAWLINE(TABLE(74), TABLE(75), TABLE(76), TABLE(77)) DRAWLINE(TABLE(76), TABLE(77), TABLE(70), TABLE(71)) '绻埗鐭╁舰涓績鍒板彸閭婄窔涓績鐨勭闋� DRAWLINE(TABLE(78), TABLE(79), TABLE(80), TABLE(81)) DRAWLINE(TABLE(82), TABLE(83), TABLE(80), TABLE(81)) DRAWLINE(TABLE(84), TABLE(85), TABLE(80), TABLE(81)) endif END SUB

銆€銆€涓夋搷浣滄紨绀烘褰㈠湒浠嬬垂

銆€銆€(涓€)鎿嶄綔姝ラ

銆€銆€鏌ョ湅閬�(y霉n)琛屾晥鏋滐細灏囬爡(xi脿ng)鐩笅杓夊埌浠跨湡鍣ㄤ腑鈫掍娇鐢ㄦ湰鍦板湒鐗団啋鍠閲囬泦鈫掕〒(x霉n)绶存ǎ鏈紝渚濇瀛�(xu茅)缈�(x铆)鈥渞ed鈥濃€渂lack鈥濃€測ellow鈥濈殑椤忚壊妯℃澘鈫掑(xu茅)缈�(x铆)妯℃澘锛屼綔鐐鸿瓨(sh铆)鍒ラ鑹插崁(q奴)鍩熺殑瑁�(b菙)姝ｆ簮鈫掍緷娆℃嫋鎷�3鍊�(g猫)椤忚壊璀�(sh铆)鍒OI鍗€(q奴)鍩熲啋榛�(di菐n)鎿婃脯(c猫)瑭︽煡鐪嬫晥鏋滃湒鈫掗粸(di菐n)鎿婇€ｇ簩(x霉)閬�(y霉n)琛岋紝鏌ョ湅閬�(y霉n)琛屾晥鏋溾啋绲�(ji茅)鏉�銆�

銆€銆€(浜�)鏁堟灉婕旂ず

銆€銆€鏈锛屾閬�(y霉n)鍕�(d貌ng)鎶€琛�(sh霉)姗�(j墨)鍣ㄨ瑕�(ju茅)閬�(y霉n)鍕�(d貌ng)鎺у埗涓€楂旀(j墨)鎳�(y墨ng)鐢ㄤ緥绋�(涔�)绶氭潫椤忚壊鎺掑簭璀�(sh铆)鍒�锛屽氨鍒嗕韩鍒伴€欓噷銆�

銆€銆€鏈枃鐢辨閬�(y霉n)鍕�(d貌ng)鎶€琛�(sh霉)鍘熷壍(chu脿ng)锛屾杩庡ぇ瀹惰綁(zhu菐n)杓�锛屽叡鍚屽(xu茅)缈�(x铆)锛屼竴璧锋彁楂樹腑鍦�(gu贸)鏅鸿兘鍒堕€犳按骞炽€傛枃绔犵増娆�(qu谩n)姝告閬�(y霉n)鍕�(d貌ng)鎶€琛�(sh霉)鎵€鏈�锛屽鏈夎綁(zhu菐n)杓夎珛(q菒ng)娉ㄦ槑鏂囩珷渚�(l谩i)婧�銆�