銆€銆€瑕栭牷鏁欑▼锛氥€�瑕栭牷鏁欑▼锛歏PLC绯诲垪姗�(j墨)鍣ㄨ瑕洪亱(y霉n)鍕曟帶鍒朵竴楂旀(j墨)蹇€熷叆闁€锛堜笁锛�銆�

銆€銆€浠婂ぉ锛屾閬�(y霉n)鍕曟妧琛�(sh霉)鐐哄ぇ瀹跺垎浜竴涓媀PLC绯诲垪姗�(j墨)鍣ㄨ瑕洪亱(y霉n)鍕曟帶鍒朵竴楂旀(j墨)蹇€熷叆闁€(涓�)鈥斺€斿熀浜庡舰鐙€鍖归厤鐨勮瑕哄畾浣�銆�

銆€銆€

銆€銆€

銆€銆€

銆€銆€涓婃湡瑾茬▼锛屾垜鍊戣瑳杩颁簡姗�(j墨)鍣ㄨ瑕烘柟妗堝鏂界殑鍩虹(ch菙)鍗崇浉姗�(j墨)鐨勫熀鏈娇鐢ㄥ収(n猫i)瀹�锛屾垜鍊戦€氶亷涓婃湡瑾茬▼宸茬稉(j墨ng)鑳藉鐝�(xi脿n)浣跨敤ZDevelop杌熶欢鐛插彇鍦栧儚閫�(j矛n)琛岃檿鐞�銆�

銆€銆€鏈湡瑾茬▼鎴戝€戝拰澶у涓€璧峰垎浜(j墨)鍣ㄨ瑕烘柟妗堜腑甯哥敤鐨勫熀浜庡舰鐙€鍖归厤鐨勮瑕哄畾浣嶅姛鑳姐€�

銆€銆€

銆€銆€

銆€銆€

銆€銆€瑕栬瀹氫綅鏄寚鍦ㄨ瑕烘娓腑閫氶亷瀛�(xu茅)缈�(x铆)鐗瑰畾鐨勬ā鏉挎垨鏌愪簺鍥哄畾鐨勭壒寰�锛屽湪妾㈡脯鍗€(q奴)鍩熷収(n猫i)鎼滅储婊胯冻姊濅欢鐨勭壒寰�锛屽苟杩斿洖鐗瑰緛鍦ㄥ湒鍍忓潗妯�(bi膩o)涓殑浣嶇疆淇℃伅锛屽鍧愭(bi膩o)浣嶇疆X銆佸潗妯�(bi膩o)浣嶇疆Y銆佽搴�銆�

銆€銆€

銆€銆€

銆€銆€

銆€銆€褰㈢媭鍖归厤鏄熀浜庨倞绶ｆ柟鍚戞搴︾殑鍖归厤锛屽畠鏄彁鍙朢OI涓殑閭婄罚鐗瑰緛绲�(ji茅)鍚堢伆搴︿俊鎭壍(chu脿ng)寤烘ā鏉�锛岀劧鍚庡湪妾㈡脯鍗€(q奴)鍩烺OI鑼冨湇鍏�(n猫i)鎼滅储鑸囨ā鏉跨殑杓粨鐗瑰緛婊胯冻涓€瀹氱浉浼肩▼搴︾殑鐢�(ch菐n)鍝佺壒寰�锛屽苟杩斿洖灏嶆噳(y墨ng)浣嶇疆淇℃伅銆�

銆€銆€

銆€銆€

銆€銆€褰㈢媭鍖归厤鐗归粸(di菐n)

銆€銆€1.閬╂噳(y墨ng)鎬у挤(qi谩ng)锛氬彲閬╂噳(y墨ng)鍏夌収鍜屽湒鍍忕殑鐏板害璁婂寲銆�

銆€銆€2.鍏煎鎬у挤(qi谩ng)锛氬彲浠ユ敮鎸佹悳绱㈢己澶卞眬閮ㄩ倞绶�銆佹湁鍣伈骞叉摼銆佹湁杓曞井璁婂舰鍜屽け鐒︾殑鐩(bi膩o)銆�

銆€銆€3.澶氱洰妯�(bi膩o)鎼滅储锛氭敮鎸佸悓鏅傛悳绱㈠悓涓€妯℃澘涓嬬殑澶氬€嬪尮閰嶇洰妯�(bi膩o)銆�

銆€銆€4.鏀寔鏃嬭綁(zhu菐n)鍜岀府鏀撅細鍦ㄧ洰妯�(bi膩o)鍦栧儚瀛樺湪鏃嬭綁(zhu菐n)鎴栫府鏀剧殑鎯呮硜涓嬩粛鐒惰兘鍖归厤鍒扮洰妯�(bi膩o)锛屼絾鏄渶瑕佸湪瑷�(sh猫)瀹氱殑鏃嬭綁(zhu菐n)鍜岀府鏀炬瘮渚嬭寖鍦嶅収(n猫i)銆�

銆€銆€妯℃澘閬告搰

銆€銆€浣跨敤褰㈢媭鍖归厤鍔熻兘鐨勫墠鎻愭槸妾㈡脯鐩(bi膩o)瑕佹湁鍞竴涓斿浐瀹氱殑鐗瑰緛銆�

銆€銆€1.鍦ㄩ伕鎿囨ā鏉挎檪锛岄渶瑕佺⒑淇濈壒寰佹槸妾㈡脯鐩(bi膩o)鍞竴瀛樺湪鐨勭壒寰侊紝鍚﹀墖鐒℃硶鑸囧叾浠栨娓洰妯�(bi膩o)鍗€(q奴)鍒�銆�

銆€銆€2.鐩￠噺閬告搰鍦栧儚娓呮櫚褰㈢媭瀹屾暣鐨勬(bi膩o)婧�(zh菙n)鐢�(ch菐n)鍝佷綔鐐烘ā鏉匡紝閬垮厤鎽诲叆鍣粸(di菐n)绛夊共鎿惧洜绱�銆�

銆€銆€3.鐩￠噺閬垮厤閬告搰灏嶇ū鐨勭壒寰佷綔鐐烘ā鏉裤€�

銆€銆€

銆€銆€

銆€銆€

銆€銆€濡傚湒锛岄杻闆绘槸鐩(bi膩o)1鍞竴鐨勭壒寰�锛屽彲浠ュ皣鐩(bi膩o)1鍜岀洰妯�(bi膩o)2閫�(j矛n)琛屽崁(q奴)鍒�銆�

銆€銆€

銆€銆€

銆€銆€

銆€銆€1 鐩(bi膩o)瀹氫綅

銆€銆€

銆€銆€

銆€銆€

銆€銆€鍦ㄧ洰妯�(bi膩o)杓粨鐗瑰緛娓呮櫚涓斿畾浣嶇簿搴﹁姹備笉楂樻檪锛屽彲鐩存帴浣跨敤褰㈢媭鍖归厤杓稿嚭鐨勪綅缃祼(ji茅)鏋滃仛瀹氫綅闋呯洰銆�

銆€銆€2 鐢�(ch菐n)鍝佽▓鏁�(sh霉)

銆€銆€

銆€銆€

銆€銆€

銆€銆€灏嶅叿鏈夌浉鍚屽舰鐙€鐗瑰緛鐨勭敘(ch菐n)鍝侀€�(j矛n)琛岃▓鏁�(sh霉)绲�(t菕ng)瑷�銆�

銆€銆€3 浣嶇疆璺熼毃

銆€銆€

銆€銆€

銆€銆€

銆€銆€鐣�(d膩ng)闇€瑕佹娓殑鐩(bi膩o)浣嶇疆涓嶅浐瀹氭檪锛屼竴浜涙娓姛鑳界殑ROI浣嶇疆鐒℃硶纰哄畾濡傛娓洿绶�銆佹娓湏褰㈢瓑锛屾垜鍊戝彲浠ュ埄鐢ㄦ娓洰妯�(bi膩o)鍛ㄩ倞鏈夊浐瀹氳窛闆㈢殑鐗瑰緛閫�(j矛n)琛屼綅缃窡闅�銆�

銆€銆€

銆€銆€

銆€銆€

銆€銆€褰㈢媭鍖归厤娴佺▼鍦�

銆€銆€瀵︿緥婕旂ず

銆€銆€1

銆€銆€鏂板缓闋呯洰鈫掓柊寤篐MI鏂囦欢鈫掓柊寤簃ain.bas鏂囦欢锛岀敤浜庣法瀵晫闈㈤熆鎳�(y墨ng)鍑芥暩(sh霉)鈫掓柊寤篻lobal_variable.bas鏂囦欢鐢ㄤ簬瀛樻斁鍏ㄥ眬璁婇噺骞堕枊鍟烪MI鑷嫊閬�(y霉n)琛屼换鍕�(w霉)鈫掓柊寤篒nitLocator.bas鏂囦欢鐢ㄤ簬鍒濆鍖栨脯閲忓弮鏁�(sh霉)鈫掓柊寤篶amera.bas鏂囦欢鐢ㄤ簬瀵︾従(xi脿n)鐩告(j墨)閲囬泦鍔熻兘鈫掓柊寤篸raw.bas鏂囦欢鐢ㄤ簬鏇存柊绻埗鍦栧舰鍒锋柊鐣岄潰鈫掓枃浠舵坊鍔犲埌闋呯洰銆�

銆€銆€

銆€銆€

銆€銆€

銆€銆€2

銆€銆€瑷�(sh猫)瑷堜富鐣岄潰銆�

銆€銆€

銆€銆€

銆€銆€

銆€銆€3

銆€銆€鍦╣lobal_variable.bas鏂囦欢涓畾缇╁叏灞€璁婇噺銆�

銆€銆€'''''鍏ㄥ眬璁婇噺澶ч儴鍒嗕娇鐢ㄦ暩(sh霉)绲勭祼(ji茅)妲�(g貌u)'''''

銆€銆€''娉細basic绶ㄧ▼涓緢澶氬嚱鏁�(sh霉)鏈冧互TABLE(绯荤当(t菕ng)鐨勬暩(sh霉)鎿�(j霉)绲�(ji茅)妲�(g貌u))鍋氱偤鍙冩暩(sh霉)

銆€銆€''鍦ㄩ€欓噷table鍧囨槸鍋氱偤涓枔璁婇噺

銆€銆€''table 0-20 浣滅偤鍖归厤鏅備娇鐢ㄥ埌鐨勪腑闁撹畩閲�

銆€銆€''table 50-70 浣滅偤roi绻埗鏅傜殑涓枔璁婇噺浣跨敤

銆€銆€''table 21-22,琛ㄧず榧犳(bi膩o)鎸夐嵉鎺т欢鍧愭(bi膩o)绯�

銆€銆€''table 31-35,琛ㄧず鎺т欢鍧愭(bi膩o)杞�(zhu菐n)鎻涘悗灏嶆噳(y墨ng)鐨勫湒鍍忓潗妯�(bi膩o)

銆€銆€''table 111-114,琛ㄧず瀹氫綅鍣ㄥ崁(q奴)鍩焤oi鍙冩暩(sh霉)锛屽爆浜庢帶浠跺潗妯�(bi膩o)绯�

銆€銆€''table 121-124,琛ㄧず姗＄毊鎿﹀崁(q奴)鍩焤oi鍙冩暩(sh霉)锛屽爆浜庢帶浠跺潗妯�(bi膩o)绯�

銆€銆€'***********瀹氱京绋嬪簭浠诲嫏(w霉)鐩搁棞(gu膩n)璁婇噺**********************

銆€銆€'涓讳换鍕�(w霉)鐙€鎱�(t脿i)

銆€銆€'0 - 鏈垵濮嬪寲

銆€銆€'1 - 鍋滄

銆€銆€'2 - 閬�(y霉n)琛屼腑

銆€銆€'3 - 姝ｅ湪鍋滄

銆€銆€GLOBAL DIM main_task_state

銆€銆€main_task_state = 1

銆€銆€'閬�(y霉n)琛屼换鍕�(w霉)闁嬮棞(gu膩n)

銆€銆€GLOBAL DIM run_switch

銆€銆€run_switch = 0

銆€銆€'閲囬泦浠诲嫏(w霉)闁嬮棞(gu膩n)

銆€銆€'0 - 鍋滄閲囬泦

銆€銆€'1 - 璜嬫眰閲囬泦

銆€銆€GLOBAL DIM grab_switch

銆€銆€grab_switch = 0

銆€銆€'瀹氫綅妾㈡脯涓讳换鍕�(w霉)id - 10

銆€銆€GLOBAL DIM main_task_id

銆€銆€main_task_id = 10

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

銆€銆€GLOBAL DIM grab_task_id

銆€銆€grab_task_id = 7

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

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

銆€銆€'鐩告(j墨)绋,""锛屾铏曚娇鐢�?锛熻开閯糃(j墨)-"mvision"

銆€銆€GLOBAL DIM CAMERA_TYPE(100)

銆€銆€'CAMERA_TYPE = "mindvision;basler;mvision;huaray;basler;zmotion"

銆€銆€CAMERA_TYPE = "mvision"

銆€銆€'鐩告(j墨)鍊嬫暩(sh霉)

銆€銆€GLOBAL cam_num

銆€銆€cam_num = 0

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

銆€銆€GLOBAL cam_mode

銆€銆€cam_mode = 0

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

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

銆€銆€GLOBAL DIM d_is_rtn_loc

銆€銆€d_is_rtn_loc = 1

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

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

銆€銆€GLOBAL DIM d_is_creModel

銆€銆€d_is_creModel = 0

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

銆€銆€GLOBAL DIM d_mod_param(9)

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

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

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

銆€銆€GLOBAL DIM d_edit_m

銆€銆€d_edit_m = 0

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

銆€銆€GLOBAL DIM d_isMask_m

銆€銆€d_isMask_m = 1

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

銆€銆€GLOBAL DIM d_locator_roi(4),d_eraser_roi(4)

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

銆€銆€GLOBAL DIM d_eraser_size

銆€銆€d_eraser_size = 5

銆€銆€'瀹氱京鐣岄潰鎺т欢涓婃鐨摝鐨勭煩褰㈠崁(q奴)鍩�

銆€銆€GLOBAL DIM c_rect(4)

銆€銆€'瀹氱京榧犳(bi膩o)鐙€鎱�(t脿i)妯�(bi膩o)蹇�,0-琛ㄧず榧犳(bi膩o)铏曚簬鏉鹃枊鐙€鎱�(t脿i)锛�1-琛ㄧず榧犳(bi膩o)铏曚簬鎸変笅鐙€鎱�(t脿i)

銆€銆€GLOBAL DIM d_mouse_s

銆€銆€d_mouse_s = 0

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

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

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

銆€銆€GLOBAL 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茅)鏋滐紝score銆亁銆亂銆乤ngle銆乻cale, 鐩墠灏嶄簬澶氱洰妯�(bi膩o)鍖归厤涔熷彧瀛樼涓€鍊嬬洰妯�(bi膩o)

銆€銆€GLOBAL DIM d_match_rst(5)

銆€銆€GLOBAL DIM d_match_time '瀹氱京鍖归厤瀹氫綅娑堣€楃殑鏅傞枔璁婇噺

銆€銆€d_match_time = 0

銆€銆€'***********绲�(ji茅)鏉熷畾缇╁尮閰嶆娓浉闂�(gu膩n)璁婇噺******************

銆€銆€'瀹氱京绋嬪簭鍩�(zh铆)琛岄亷绋嬩腑绶╁瓨涓枔鍦栫墖鍜岀祼(ji茅)鏋滃湒鐗囩殑璁婇噺

銆€銆€GLOBAL ZVOBJECT grabImg

銆€銆€GLOBAL ZVOBJECT subImg,copy_subImg,colorSubImg, s_mod

銆€銆€GLOBAL ZVOBJECT modRe

銆€銆€RUN"Hmi1.hmi",1

銆€銆€4

銆€銆€鍦↖nitLocator.bas鏂囦欢涓垵濮嬪寲娓噺鍙冩暩(sh霉)銆�

    銆€銆€end

    銆€銆€GLOBAL SUB init_meas_param() '鍒濆鍖栨脯閲忓弮鏁�(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)绱勭啊鐗瑰緛榛�(di菐n)

    銆€銆€d_mod_param(7) = 0 '榛樿獚(r猫n)瑙掑害姝ラ暦

    銆€銆€d_mod_param(8) = 0 '榛樿獚(r猫n)绺斁姝ラ暦

    銆€銆€'鍒濆鍖栧尮閰嶆脯閲忓弮鏁�(sh霉)

    銆€銆€d_match_param(0) = 50 '鏈€灏忓垎?j菒n)?sh霉)

    銆€銆€d_match_param(1) = 1 '鍖归厤鍊嬫暩(sh霉)

    銆€銆€d_match_param(2) = 0 '榛樿獚(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_match_time = 0

銆€銆€END SUB

銆€銆€5

銆€銆€闂�(gu膩n)鑱�(li谩n)涓荤晫闈㈠€奸’绀烘帶浠惰畩閲�銆�

銆€銆€

銆€銆€

銆€銆€

銆€銆€6

銆€銆€鍦╩ain.bas鏂囦欢涓坊鍔犱富鐣岄潰鍒濆鍖栧嚱鏁�(sh霉)銆�

銆€銆€'HMI鐣岄潰鍒濆鍖栧嚱鏁�(sh霉)锛屼笂闆诲煼(zh铆)琛屼竴娆�

銆€銆€GLOBAL SUB hmi_init()

    銆€銆€grab_switch = 0 '鍒濆鍖栭噰闆嗕换鍕�(w霉)闁嬮棞(gu膩n)锛屼笉闁嬪暉閲囬泦浠诲嫏(w霉)

    銆€銆€main_task_state = 1 '鍒濆鍖栧畾浣嶆娓富浠诲嫏(w霉)鐙€鎱�(t脿i)鐐哄仠姝�?f脿n)椤烞(t脿i)1

    銆€銆€ZV_LATCHSETSIZE(0, HMI_CONTROLSIZEX(10, 2), HMI_CONTROLSIZEY(10, 2)) '瑷�(sh猫)缃帠瀛樼殑澶у皬

    銆€銆€init_meas_param() '鍒濆鍖栨脯閲忓弮鏁�(sh霉)

    銆€銆€ZV_IMGGENCONST(subImg,40,30,1,0,0) '鍒濆鍖栨ā鏉垮瓙鍦栧儚

    銆€銆€'鍒濆鍖栦竴浜涘叏灞€鍙冩暩(sh霉)

    銆€銆€ZVOBJECT contlist1, tsContlist1, mat_rigid1

    銆€銆€ZVOBJECT contlist2, tsContlist2, mat_rigid2

    銆€銆€ZV_READIMAGE(grabImg,"1.bmp",1) '璁€鍙�.../flash鐩寗涓嬬殑show.bmp鐨勭伆搴﹀湒鍍�锛屽瓨鏀惧埌grabImg璁婇噺涓�

    銆€銆€ZV_LATCH(grabImg,0) '椤ず鍒伴帠瀛橀€氶亾0涓�锛屼綔鐐洪’绀哄崁(q奴)鍩熻儗鏅湒鐗�

銆€銆€END SUB

銆€銆€7

銆€銆€鍦╟amera.bas鏂囦欢涓坊鍔犱富鐣岄潰涓噰闆嗙浉闂�(gu膩n)鎸夐垥闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕曚綔鍑芥暩(sh霉)銆�

銆€銆€

銆€銆€

銆€銆€

銆€銆€鈫�

銆€銆€end

銆€銆€'涓荤晫闈㈡寜涓嬫巸鎻忕浉姗�(j墨)鎸夐垥鏅傞熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)

銆€銆€GLOBAL SUB cam_scan_all()

    銆€銆€ZV_SETSYSINT("LogLevel", 7) '瑷�(sh猫)缃帶鍒跺櫒淇℃伅

    銆€銆€ZV_SETSYSSTR("DataDir","")

    銆€銆€CAM_SCAN(CAMERA_TYPE) '鎺冩弿鐩告(j墨)锛孋AMERA_TYPE="mvision"

    銆€銆€cam_num = CAM_COUNT() '鐛插彇鎺冩弿鍒扮殑鐩告(j墨)鏁�(sh霉)閲�

    銆€銆€if (0 = cam_num) then '濡傛灉鐩告(j墨)鏁�(sh霉)閲�=0锛屾墦鍗版彁绀轰俊鎭�

    銆€銆€? "鏈壘鍒扮浉姗�(j墨)"

    銆€銆€return '閫€鍑哄瓙鍑芥暩(sh霉)锛屼笉寰€涓嬪煼(zh铆)琛�

    銆€銆€endif

    銆€銆€?"cam_num = " cam_num '濡傛灉鎺冩弿鍒扮浉姗�(j墨)锛屾墦鍗扮浉姗�(j墨)鏁�(sh霉)閲�

    銆€銆€cam_mode = 0 '瑷�(sh猫)缃粺瑙哥櫦(f膩)閲囬泦

    銆€銆€CAM_SEL(0) '閬告搰鎺冩弿鍒扮殑绗竴鍊嬬浉姗�(j墨)閫�(j矛n)琛屾搷浣�

    銆€銆€CAM_SETEXPOSURE(100000) '瑷�(sh猫)缃浉姗�(j墨)鏇濆厜鏅傞枔鐐�100000us

    銆€銆€CAM_SETMODE(cam_mode) '瑷�(sh猫)缃粺浠惰Ц鐧�(f膩)妯″紡

    銆€銆€CAM_START(0) '闁嬪暉鐩告(j墨)

銆€銆€END SUB

銆€銆€'涓荤晫闈㈡寜涓嬪柈娆￠噰闆嗘寜閳曞煼(zh铆)琛岀殑鍑芥暩(sh霉)

銆€銆€GLOBAL SUB btn_grab()

    銆€銆€if cam_num = 0 then

    銆€    銆€?"璜嬪厛鎺冩弿鐩告(j墨)!"

    銆€銆€return

    銆€銆€endif

    銆€銆€CAM_SETPARAM("TriggerSoftware", 0)

    銆€銆€CAM_GET(grabImg, 0)

    銆€銆€ZV_LATCH(grabImg, 0)

    銆€銆€ZV_IMGINFO(grabImg,3000) '鐛插彇grabImg璁婇噺绶╁瓨鐨勫湒鐗囩殑鍩烘湰淇℃伅锛屽苟瀛樻斁鍒拌捣濮嬪湴鍧€鐐�3000鐨則able鏁�(sh霉)绲勪腑

銆€銆€end sub

銆€銆€'涓荤晫闈㈡寜涓嬮€ｇ簩(x霉)閲囬泦鎸夐垥闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)

銆€銆€GLOBAL SUB btn_cgrab()

    銆€銆€if grab_switch =1 then

    銆€    銆€?"姝ｅ湪閫ｇ簩(x霉)閬�(y霉n)琛屼腑锛岃珛鍕块噸寰�(f霉)鎿嶄綔!"

    銆€銆€return

銆€銆€endif

銆€銆€if cam_num = 0 then

    銆€    銆€?"璜嬪厛鎺冩弿鐩告(j墨)!"

    銆€銆€return

銆€銆€endif

銆€銆€grab_switch = 1

銆€銆€if (1 = grab_switch) then

    銆€銆€if (0 = PROC_STATUS(grab_task_id)) then

    銆€    銆€RUNTASK grab_task_id, grab_task

    銆€銆€endif

銆€銆€endif

銆€銆€end sub

銆€銆€'閲囬泦浠诲嫏(w霉)瀵︾従(xi脿n)鍑芥暩(sh霉)

銆€銆€grab_task:

    銆€銆€while(1)

    銆€銆€if (0 = grab_switch) then

        銆€銆€exit while

        銆€銆€endif

        銆€銆€CAM_START(0) '闁嬪暉鐩告(j墨)

        銆€銆€CAM_SETPARAM("TriggerSoftware", 0)

        銆€銆€CAM_GET(grabImg, 0)

        銆€銆€ZV_LATCH(grabImg, 0)

    銆€銆€wend

銆€銆€END

銆€銆€'涓荤晫闈㈡寜涓嬪仠姝㈤噰闆嗘寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)

銆€銆€GLOBAL SUB btn_stopCgrab()

        銆€銆€if grab_switch =0 then

        銆€銆€    ?"鏈枊鍟熼€ｇ簩(x霉)閲囬泦!"

        銆€銆€return

    銆€銆€endif

    銆€銆€grab_switch = 0

銆€銆€end sub

銆€銆€鈫�

銆€銆€

銆€銆€

銆€銆€

銆€銆€8

銆€銆€榛�(di菐n)鎿奫鍏冧欢]鈫抂鏂板缓绐楀彛]锛屾柊寤哄(xu茅)缈�(x铆)妯℃澘绐楀彛锛岃ō(sh猫)瑷堢獥鍙ｅ竷灞€銆�

銆€銆€

銆€銆€

銆€銆€

銆€銆€娉ㄦ剰锛氶渶瑕佽ō(sh猫)缃獥鍙ｅ鏂峰爆鎬�銆�

銆€銆€9

銆€銆€鍦╠raw.bas鏂囦欢涓坊鍔犱富鐣岄潰銆愬(xu茅)缈�(x铆)妯℃澘銆戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕曚綔鍑芥暩(sh霉)銆�

銆€銆€

銆€銆€

銆€銆€鈫�

銆€銆€'涓荤晫闈㈡寜涓嬪(xu茅)缈�(x铆)妯℃澘鎸夐垥鏅傞熆鎳�(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涓�

    銆€銆€'鍦栧儚roi鍧愭(bi膩o)杞�(zhu菐n)鎺т欢roi

    銆€銆€is_redraw = 0

    銆€銆€d_is_rtn_loc = 0

    銆€銆€TABLE(111, d_locator_roi(0), d_locator_roi(1),d_locator_roi(2),d_locator_roi(3))

    銆€銆€ZV_POSFROMIMG(0, 2, 111, 111) '鍦栧儚鍧愭(bi膩o)杞�(zhu菐n)鎻涘埌HMI鎺т欢鍧愭(bi膩o)

    銆€銆€HMI_SHOWWINDOW(11)

銆€銆€END SUB

銆€銆€鈫�

銆€銆€

銆€銆€

銆€銆€10

銆€銆€鍦╠raw.bas鏂囦欢涓坊鍔犳ā鏉垮崁(q奴)鍩熸洿鏂扮躬鍒跺嚱鏁�(sh霉)銆�

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

銆€銆€GLOBAL SUB update_locator()

    銆€銆€if mouse_scan(21) = 1 then '鎺冩弿榧犳(bi膩o)鎸変笅鎿嶄綔

        銆€銆€is_set_roi_m_down = 1

        銆€銆€sr_mpos_x = table(21)

        銆€銆€sr_mpos_y = table(22)

        銆€銆€hit_pos = ZV_HMIADJRECT(sr_mpos_x, sr_mpos_y, 111, -1) '鍙湁鎸変笅鏅傚彲浠ユ敼璁婃搳涓綅缃�

        銆€銆€is_redraw = 1

    銆€銆€endif

    銆€銆€if mouse_scan(21) = -1 then '鎺冩弿榧犳(bi膩o)鏉鹃枊鎿嶄綔

        銆€銆€is_set_roi_m_down = 0

        銆€銆€sr_mpos_x = table(21)

        銆€銆€sr_mpos_y = table(22)

        銆€銆€ZV_HMIADJRECT(sr_mpos_x, sr_mpos_y, 111, hit_pos)

        銆€銆€is_redraw = 1

    銆€銆€endif

    銆€銆€if (is_set_roi_m_down and MOUSE_state(21)) then

        銆€銆€sr_mpos_x = table(21)

        銆€銆€sr_mpos_y = table(22)

        銆€銆€ZV_HMIADJRECT(sr_mpos_x, sr_mpos_y, 111, hit_pos)

        銆€銆€is_redraw = 1

    銆€銆€endif

    銆€銆€if (1 = is_redraw) then

        銆€銆€'鎺т欢roi鍧愭(bi膩o)杞�(zhu菐n)鍦栧儚roi鍧愭(bi膩o)

        銆€銆€is_redraw = 0

        銆€銆€ZV_POSTOIMG(0, 2, 111, 50) 'TABLE(50)浣滅偤涓枔璁婇噺鑷ㄦ檪浣跨敤

        銆€銆€d_locator_roi(0) = TABLE(50)

        銆€銆€d_locator_roi(1) = TABLE(51)

        銆€銆€d_locator_roi(2) = TABLE(52)

        銆€銆€d_locator_roi(3) = TABLE(53)

        銆€銆€SET_REDRAW

    銆€銆€endif

銆€銆€END SUB

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

銆€銆€GLOBAL SUB draw_locator()

    銆€銆€DRAWRECT(TABLE(111), TABLE(112), TABLE(113), TABLE(114))

    銆€銆€local cx,cy

    銆€銆€cx = (TABLE(111) + TABLE(113)) / 2

    銆€銆€cy = (TABLE(112) + TABLE(114)) / 2

    銆€銆€DRAWLINE(cx-5, cy, cx+5, cy) '涓績鍗佸瓧绶�

    銆€銆€DRAWLINE(cx, cy-5, cx, cy+5)

銆€銆€END SUB

銆€銆€11

銆€銆€鍦╩ain.bas鏂囦欢涓坊鍔犮€愭埅鍙栨ā鏉裤€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕曚綔鍑芥暩(sh霉)銆�

銆€銆€

銆€銆€

銆€銆€鈫�

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

銆€銆€global sub btn_getSubImg()

    銆€銆€LOCAL mod_w,mod_h

    銆€銆€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)

    銆€銆€ZV_IMGINFO(subImg,0)

    銆€銆€mod_w = TABLE(0)

    銆€銆€mod_h = TABLE(1)

    銆€銆€ZV_REGENRECT(modRe,0,0,mod_w, mod_h)

    銆€銆€ZV_LATCHCLEAR(1)

    銆€銆€ZV_LATCH(subImg, 1)

銆€銆€end sub

銆€銆€鈫�

銆€銆€

銆€銆€

銆€銆€12

銆€銆€榛�(di菐n)鎿奫鍏冧欢]鈫抂鏂板缓绐楀彛]锛屾柊寤虹法杓ā鏉跨獥鍙�锛岃ō(sh猫)瑷堢獥鍙ｅ竷灞€銆�

銆€銆€

銆€銆€

銆€銆€

銆€銆€娉ㄦ剰锛氶渶瑕佽ō(sh猫)缃獥鍙ｅ鏂峰爆鎬с€�

銆€銆€13

銆€銆€鍦╠raw.bas鏂囦欢涓坊鍔犲壍(chu脿ng)寤烘ā鏉跨晫闈€€愭鐨摝銆戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕曚綔鍑芥暩(sh霉)銆�

銆€銆€

銆€銆€

銆€銆€鈫�

銆€銆€'鍓�(chu脿ng)寤烘ā鏉跨晫闈㈡寜涓嬫鐨摝鎸夐垥鏅傞熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)

銆€銆€GLOBAL SUB btn_sel_erase()

    銆€銆€ZV_LATCHSETSIZE(1, HMI_CONTROLSIZEX(12, 1), HMI_CONTROLSIZEY(12, 1)) '瑷�(sh猫)缃帠瀛樼殑澶у皬

    銆€銆€SET_COLOR(RGB(0,255,0)) '瑷�(sh猫)缃躬鍒舵檪鐣瓎浣跨敤鐨勯鑹�

    銆€銆€ZV_LATCHCLEAR(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) '鎵撻枊绶ㄨ集妯℃澘绐楀彛

銆€銆€end sub

銆€銆€鈫�

銆€銆€

銆€

銆€銆€14

銆€銆€鍦╠raw.bas鏂囦欢涓坊鍔犳鐨摝鏇存柊绻埗鍑芥暩(sh霉)銆�

銆€銆€'鏍规摎(j霉)榧犳(bi膩o)鎿嶄綔鏇存柊姗＄毊鎿︽摝闄�/鎭㈠京(f霉)鍗€(q奴)鍩熺殑浣嶇疆

銆€銆€GLOBAL SUB update_eraser()

    銆€銆€DIM c_size_eraser '姗＄毊鎿﹀湪鎺т欢涓婂皪鎳�(y墨ng)鐨勫昂瀵�

    銆€銆€DIM eraser_pos_x,eraser_pos_y

    銆€銆€d_mouse_s = MOUSE_STATE(21)     '榧犳(bi膩o)铏曚簬鎸変笅鐙€鎱�(t脿i)鏅�

    銆€銆€eraser_pos_x = TABLE(21)

    銆€銆€eraser_pos_y = TABLE(22)

    銆€銆€c_size_eraser = ZV_LENFROMIMG(0, d_eraser_size)     '灏囨鐨摝鐨勫湒鍍忓昂瀵歌綁(zhu菐n)鎻涙垚鎺т欢灏哄

    銆€銆€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)

    銆€銆€'绻埗浠�(eraser_pos_x锛宔raser_pos_y)鐐轰腑蹇冿紝2*c_size_eraser鐐洪倞闀风殑姝ｆ柟褰㈡鐨摝鍗€(q奴)鍩�

    銆€銆€DIM hmi_w,hmi_h

    銆€銆€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

        銆€銆€SET_REDRAW(0,0, HMI_CONTROLSIZEX(12, 1), HMI_CONTROLSIZEY(12, 1))'閲嶆柊绻埗绶ㄨ集妯℃澘绐楀彛涓婄殑閹栧瓨閫氶亾0鍗€(q奴)鍩�

    銆€銆€endif

    銆€銆€if d_mouse_s = 1 and d_edit_m = 1 then '濡傛灉榧犳(bi膩o)铏曚簬鎸変笅鐙€鎱�(t脿i)涓旂法杓ā鏉挎(bi膩o)蹇�=1鏅�

    銆€    銆€btn_pro_eraser()     '鍩�(zh铆)琛岃檿鐞嗘鐨摝鍑芥暩(sh霉)

    銆€銆€endif

銆€銆€END SUB

銆€銆€'铏曠悊姗＄毊鎿﹀嚱鏁�(sh霉)

銆€銆€global sub btn_pro_eraser()

    銆€銆€ZVOBJECT tmp_re

    銆€銆€TABLE(121, c_rect(0), c_rect(1))

    銆€銆€ZV_POSTOIMG(1, 1, 121, 121)

    銆€銆€ZV_REGENRECT(tmp_re, TABLE(121), TABLE(122), 2 * d_eraser_size + 1, 2 * d_eraser_size + 1)

    銆€銆€if (d_isMask_m = 1) then '灞忚斀

    銆€銆€    ZV_REDIFF(modRe, tmp_re, modRe) '瑷堢畻modRe鍜宼mp_re鐨勫樊闆嗗苟瀛樻斁鍒癿odRe涓�

    銆€銆€else '鎭㈠京(f霉)

    銆€    銆€ZV_REUNION(modRe, tmp_re, modRe) '瑷堢畻modRe鍜宼mp_re鐨勫苟闆嗗苟瀛樻斁鍒癿odRe涓�

    銆€銆€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奴)鍩�

銆€銆€GLOBAL SUB draw_eraser()

    銆€銆€if d_edit_m = 0 then '濡傛灉绶ㄨ集妯℃澘妯�(bi膩o)蹇�

        銆€銆€return '杩斿洖瀛愬嚱鏁�(sh霉)锛屼笉绻肩簩(x霉)寰€涓嬪煼(zh铆)琛�

    銆€銆€endif

    銆€銆€DRAWRECT(c_rect(0), c_rect(1), c_rect(2), c_rect(3))'绻埗姗＄毊鎿﹀崁(q奴)鍩�

銆€銆€END SUB

銆€銆€15

銆€銆€鍦╩ain.bas鏂囦欢涓坊鍔犵法杓ā鏉跨晫闈€€愬壍(chu脿ng)寤烘ā鏉裤€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕曚綔鍑芥暩(sh霉)銆�

銆€銆€

銆€銆€

銆€銆€鈫�

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

銆€銆€GLOBAL SUB btn_loc_creModel()

    銆€銆€d_is_creModel = 1

    銆€銆€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))

    銆€銆€    '鍓�(chu脿ng)寤烘ā鏉�

    銆€銆€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)'瑷堢畻鍓涙€ц畩鎻涚煩闄�

    銆€銆€ZV_CONTAFFINE(contlist1, mat_rigid1, tsContlist1)'灏嶈吉寤撴垨杓粨搴忓垪閫�(j矛n)琛屼豢灏勮畩鎻�

    銆€銆€ZV_CONTLIST(colorSubImg, tsContlist1, ZV_COLOR(0, 255, 0), 0)'鍦╟olorSubImg鍦栧儚涓婄躬鍒剁稜鑹茬殑杓粨搴忓垪

    銆€銆€ZV_LATCHCLEAR(2)

    銆€銆€ZV_LATCH(colorSubImg, 2)

銆€銆€end sub

銆€銆€鈫�

銆€銆€

銆€銆€

銆€銆€16

銆€銆€鍦╠raw.bas鏂囦欢涓坊鍔犵法杓ā鏉跨晫闈€€愮⒑瀹氥€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕曚綔鍑芥暩(sh霉)銆�

銆€銆€

銆€銆€

銆€銆€鈫�

銆€銆€'绶ㄨ集妯℃澘鐣岄潰鎸変笅纰哄畾鎸夐垥鏅傚煼(zh铆)琛岀殑鍑芥暩(sh霉)

銆€銆€GLOBAL SUB btn_erase_cfm()

    銆€銆€ZV_LATCHCLEAR(0)

    銆€銆€ZV_LATCH(grabImg, 0) '椤ず鍦栧儚鍦ㄩ帠瀛樹笂

    銆€銆€HMI_CLOSEWINDOW(12) '闂�(gu膩n)闁夌法杓ā鏉跨獥鍙�

銆€銆€END SUB

銆€銆€鈫�

銆€銆€

銆€銆€

銆€銆€17

銆€銆€鍦╩ain.bas鏂囦欢涓坊鍔犲壍(chu脿ng)寤烘ā鏉跨晫闈€€愭脯瑭︺€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕曚綔鍑芥暩(sh霉)銆�

銆€銆€

銆€銆€

銆€銆€鈫�

銆€銆€'鍓�(chu脿ng)寤烘ā鏉跨晫闈㈡寜涓嬫脯瑭︽寜閳曟檪闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)

銆€銆€GLOBAL SUB btn_loc_test()

    銆€銆€if (d_is_creModel = 0) then

    銆€    銆€?"鏈壍(chu脿ng)寤烘ā鏉�!"

    銆€銆€return

    銆€銆€endif

    銆€銆€'闁嬪鍖归厤

    銆€銆€TICKS = 0

    銆€銆€ZVOBJECT match_rst, sImg, colorImg

    銆€銆€ZV_GAUSSBLUR(grabImg, sImg, 3)

    銆€銆€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)

    銆€銆€ZV_GRAYTORGB(sImg, colorImg)

    銆€銆€if TABLE(0) > 0 then

        銆€銆€local rowr

        銆€銆€for rowr = 0 to TABLE(0)-1

            銆€銆€ZV_MATGETROW(match_rst, rowr, 5, 3) '鐛插彇match_rst鐭╅櫍涓rowr琛岀殑鏁�(sh霉)鎿�(j霉)鍒皌able涓�,table鏈€澶ч暦搴�5

            銆€銆€if(rowr = 0) then

            銆€銆€d_match_rst(0) = TABLE(3)

            銆€銆€d_match_rst(1) = TABLE(4)

            銆€銆€d_match_rst(2) = TABLE(5)

            銆€銆€d_match_rst(3) = TABLE(6)

            銆€銆€d_match_rst(4) = TABLE(7)

            銆€銆€ZV_GETRIGIDVECTOR(mat_rigid1, 0, 0, 0, TABLE(4), TABLE(5), TABLE(6))'瑷堢畻鍓涙€ц畩鎻涚煩闄�

&nbspnbsp;           銆€銆€ZV_CONTAFFINE(contlist1, mat_rigid1, tsContlist1)'灏嶈吉寤撴垨杓粨搴忓垪閫�(j矛n)琛屼豢灏勮畩鎻�

            銆€銆€ZV_CONTLIST(colorImg, tsContlist1, ZV_COLOR(0, 255, 0), 0)'鍦╟olorSubImg鍦栧儚涓婄躬鍒剁稜鑹茬殑杓粨搴忓垪

        銆€銆€endif

    銆€銆€next

銆€銆€else

    銆€銆€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) '鍖归厤鏅傞枔

    銆€銆€ZV_LATCH(colorImg, 0)

銆€銆€end sub

銆€銆€鈫�

銆€銆€

銆€銆€

銆€銆€

銆€銆€18

銆€銆€鍦╠raw.bas鏂囦欢涓坊鍔犲壍(chu脿ng)寤烘ā鏉跨晫闈€€愮⒑瀹氥€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕曚綔鍑芥暩(sh霉)銆�

銆€銆€

銆€銆€

銆€銆€鈫�

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

銆€銆€GLOBAL SUB btn_loc_cfm()

    銆€銆€grab_switch = 0 '闂�(gu膩n)闁夎(b菙)姝ｆ簮鐨勯€ｇ簩(x霉)閲囬泦

    銆€銆€d_is_rtn_loc = 1

    銆€銆€ZV_LATCHCLEAR(0)

    銆€銆€ZV_LATCH(grabImg, 0) '椤ず鍦栧儚鍦ㄩ帠瀛樹笂

    銆€銆€ZV_LATCH(grabImg, 1) '椤ず鍦栧儚鍦ㄩ帠瀛樹笂

    銆€銆€HMI_CLOSEWINDOW(11)

銆€銆€END SUB

銆€銆€鈫�

銆€銆€

銆€銆€

銆€銆€19

銆€銆€鍦╩ain.bas鏂囦欢涓坊鍔犱富鐣岄潰銆愬柈娆″煼(zh铆)琛屻€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕曚綔鍑芥暩(sh霉)銆�

銆€銆€

銆€銆€

銆€銆€鈫�

銆€銆€'涓荤晫闈㈡寜涓嬪柈娆″煼(zh铆)琛屾寜閳曟檪闊挎噳(y墨ng)鐨勫嚱鏁�(sh霉)

銆€銆€GLOBAL SUB btn_test()

    銆€銆€btn_grab()            '鍠閲囬泦鍦栧儚

    銆€銆€btn_loc_test()       '鍖归厤娓│鍑芥暩(sh霉)

銆€銆€END SUB

銆€銆€鈫�

銆€銆€

銆€銆€

銆€銆€

銆€銆€20

銆€銆€鍦╩ain.bas鏂囦欢涓坊鍔犱富鐣岄潰銆愰€ｇ簩(x霉)閬�(y霉n)琛屻€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕曚綔鍑芥暩(sh霉)銆�

銆€銆€

銆€銆€

銆€銆€鈫�

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

銆€銆€GLOBAL SUB btn_run()

    銆€銆€if(run_switch = 1) then

    銆€銆€?"宸查枊鍟熼€ｇ簩(x霉)閬�(y霉n)琛�锛岃珛鍕块噸寰�(f霉)鎿嶄綔!"

    銆€銆€return

銆€銆€endif

    銆€銆€run_switch = 1

    銆€銆€if (1 = run_switch) then

    銆€銆€if (0 = PROC_STATUS(main_task_id)) then

        銆€銆€RUNTASK main_task_id, main_task

        銆€銆€endif

    銆€銆€endif

銆€銆€END SUB

銆€銆€'閫ｇ簩(x霉)閬�(y霉n)琛屼富浠诲嫏(w霉)鍏�(n猫i)瀹�

銆€銆€main_task:

    銆€銆€while(1)

        銆€銆€if (0 = run_switch) then

        銆€    銆€exit while

        銆€銆€endif

        銆€銆€'浠ヤ笅鍩�(zh铆)琛岀浉闂�(gu膩n)瀹氫綅鎿嶄綔

        銆€銆€btn_grab()

        銆€銆€btn_loc_test()

    銆€銆€wend

銆€銆€END

銆€銆€鈫�

銆€銆€

銆€銆€

銆€銆€21

銆€銆€鍦╩ain.bas鏂囦欢涓坊鍔犱富鐣岄潰銆愬仠姝㈤亱(y霉n)琛屻€戞寜閳曢熆鎳�(y墨ng)鐨勫嚱鏁�(sh霉)骞堕棞(gu膩n)鑱�(li谩n)鍕曚綔鍑芥暩(sh霉)銆�

銆€銆€

銆€銆€

銆€銆€鈫�

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

銆€銆€GLOBAL SUB btn_stop()

        銆€銆€if(run_switch = 0) then

        銆€    銆€?"鏈枊鍟熼€ｇ簩(x霉)閬�(y霉n)琛�!"

        銆€銆€return

    銆€銆€endif

    銆€銆€run_switch = 0

銆€銆€END SUB

銆€銆€鈫�

銆€銆€

銆€銆€

銆€銆€

銆€銆€浠跨湡婕旂ず鏁堟灉

銆€銆€

銆€銆€

銆€銆€

銆€銆€鏈锛孷PLC绯诲垪姗�(j墨)鍣ㄨ瑕洪亱(y霉n)鍕曟帶鍒朵竴楂旀(j墨)蹇€熷叆闁€(涓�)鈥斺€斿熀浜庡舰鐙€鍖归厤鐨勮瑕哄畾浣嶅氨鍒嗕韩鍒伴€欓噷锛屾洿澶氱簿褰╁収(n猫i)瀹硅珛闂�(gu膩n)娉ㄢ€滄閬�(y霉n)鍕曞皬鍔╂墜鈥濆叕鐪捐櫉銆�

銆€銆€鏈枃鐢辨閬�(y霉n)鍕曟妧琛�(sh霉)鍘熷壍(chu脿ng)锛屾杩庡ぇ瀹惰綁(zhu菐n)杓�锛屽叡鍚屽(xu茅)缈�(x铆)锛屼竴璧锋彁楂樹腑鍦嬫櫤鑳藉埗閫犳按骞�銆傛枃绔犵増娆�(qu谩n)姝告閬�(y霉n)鍕曟妧琛�(sh霉)鎵€鏈�锛屽鏈夎綁(zhu菐n)杓夎珛娉ㄦ槑鏂囩珷渚嗘簮銆�

銆€銆€

銆€銆€