涓€銆佸墠瑷€

闅ㄨ憲瑷堢畻姗熸妧琛撶殑鐧�(f膩)灞曞拰鎴愮啛锛岃▓绠楁鐨勬噳鐢ㄤ篃瓒婁締瓒婂唬娉�銆傚湪鑷嫊鍖栭牁鍩燂紝瑷堢畻姗熷凡缍�(j墨ng)鎴愮偤鎺у埗绯荤当(t菕ng)鐨勯閬稿钩鑷�锛屾噳鐢ㄨ▓绠楁灏嶇敓鐢㈠拰瑭﹂閫茶瀵︽檪銆侀仩绋嬬洠(ji膩n)鎺ф槸鐝�(xi脿n)浠ｈ嚜鍕曞寲鐧�(f膩)灞曠殑涓昏鏂瑰悜銆傚皣瑷堢畻姗熸噳鐢ㄤ簬宸ユキ(y猫)瀵︽檪鎺у埗鐨勫墠鎻愭槸鐝�(xi脿n)鍫存暩(sh霉)鎿�(j霉)鐨勫鏅傜嵅鍙栥€傚湪鐢熺敘鍜岀瀛稿椹椾腑锛屽父甯歌娓帶寰堝鍙冩暩(sh霉)锛岃濡傛韩搴�銆佸鍔涖€佽綁閫熺瓑锛岄€氬父鐨勬柟娉曟槸浣跨敤灏堢敤鐨勫剙琛ㄤ汉鐐鸿娓€佽閷勮檿鐞嗘暩(sh霉)鎿�(j霉)銆佸仛鍑哄垽鏂凤紝閫欏氨鏈冨付渚嗕汉鐐虹殑瑾ゅ樊锛岃€屼笖鎳夌敤鑼冨湇涔熸渻鍙楀埌鐝�(xi脿n)鍫存浠�銆侀熆鎳夐€熷害绛夊洜绱犵殑闄愬埗銆傝€岃嚜鍕曠殑瀵︽檪鐩�(ji膩n)鎺х郴绲�(t菕ng)鑳藉緢濂界殑瑙ｆ焙閫欎簺鍟忛銆傛湰鏂囦互涓€绋啊鍠鐢ㄧ殑婧害瀵︽檪閲囬泦绯荤当(t菕ng)鐐哄渚嬶紝瑷庤珫浜嗕竴绋埄鐢ㄨ▓绠楁閫茶閬犵▼娓帶鐨勬鏋剁祼妲嬪拰瀵︾従(xi脿n)鏂规硶銆�

浜屻€佺‖浠舵鎴�

绯荤当(t菕ng)绲愭濡傚湒1鎵€绀�锛屽叾涓細

COMPUTER鐐烘櫘閫歅C姗燂紝瑕佹眰鑳藉閬嬭Windows98鎿嶄綔绯荤当(t菕ng)鍜岄枊鐧�(f膩)鐠�(hu谩n)澧僔B6.0锛屽叿鏈夋婧栫殑RS232涓插彛鎴朢S485鍙�锛屼富瑕佸姛鑳界偤鏁�(sh霉)鎿�(j霉)閲囬泦铏曠悊鍜岀郴绲�(t菕ng)鎺у埗锛屾槸浜烘浜や簰骞宠嚭銆傚椹椾腑浣跨敤鐨勬槸PIII800鐨勮▓绠楁銆�

ADAM4521 鐐虹爺鑿鎶€鍏徃鐨勬帴鍙ｈ綁鎻涙ā濉�锛岃兘灏嘡S485鎴朢S422淇¤櫉杞夋彌鐐篟S232淇¤櫉銆傜敱浜庢櫘閫歅C鍙叿鏈塕S232鎺ュ彛锛岃€屼竴鑸伐妤�(y猫)娓│淇¤櫉绗﹀悎 RS485鎴朢S422妯欐簴锛屾墍浠ュ湪閫欓噷瑕侀€茶涓€涓嬭綁鍖�銆傜爺鑿鎶€鍏徃鐨凙DAM4521妯″鏈変互涓嬬壒榛烇細鍙皨鍧€;鍏х疆寰檿鐞嗗櫒;鍌宠几閫熷害 115.2Kbps;1000VDC楂樺闅旈洟;RS485娴秾闆诲淇濊;杓稿叆杓稿嚭鍙疆涓嶅悓鐨勬尝鐗圭巼;鐒￠渶鎻℃墜淇¤櫉銆�

ADAM4013鐐虹爺鑿鎶€鍏徃鐨勭啽鏁忛浕闃昏几鍏ユā濉婏紝鑳藉皣鐔辨晱闆婚樆鐨勬ā鎿俊铏熻綁鎻涚偤RS485鏁�(sh霉)瀛椾俊铏�銆侫DAM4013妯″鍒╃敤鍏х疆鐨勫井铏曠悊鍣ㄦ帶鍒禔/D杞夋彌鍣ㄦ妸闆绘祦銆侀浕澹撴垨鐔辨晱闆婚樆鐨勬ā鎿俊铏熻綁鎻涚偤鏁�(sh霉)瀛椾俊铏�锛屾ā濉婃彁渚涗俊铏熻鏁�銆丄/D杞夋彌銆佹脯閲忚寖鍦嶈鏁�銆丷S485閫氳▕绛夊姛鑳斤紝鑹ソ鐨勫厜闅旇兘鏈夋晥鐨勪繚璀疯ō鍌欑殑瀹夊叏銆傛ā濉婄殑涓昏鐗归粸鏈夛細鍏х疆鐪嬮杸鐙�;3000VDC楂樺闅旈洟;閲囨ǎ鐜�10娆�/绉�;瑾ゅ樊灏忎簬0.05%銆傞€欎簺鍙冩暩(sh霉)鑳芥豢瓒崇禃澶у鏁�(sh霉)鍫村悎鐨勬噳鐢�銆�

婧害鍌虫劅鍣ㄩ伕鐢ㄩ墤闆婚樆Pt100娓噺-100鈩冨埌+100鈩冪殑婧害锛孉DAM4013妯″娓韩绯绘暩(sh霉)a瑷偤0.00385銆傚彲鏍规摎(j霉)娓噺鑼冨湇鍜屾脯閲忕簿搴︾殑瑕佹眰閬告搰涓嶅悓鐨勬韩搴﹀偝鎰熷櫒锛屽湪杌熶欢瑷▓鏅傞€茶鐩告噳鐨勫弮鏁�(sh霉)閰嶇疆鍗冲彲銆�

瑭﹂涓殑浠嬭唱鏄叐绋恫楂旂殑鍖栧鍙嶆噳銆傞墤闆婚樆Pt100灏囧寲瀛稿弽鎳夋韩搴﹁綁鍖栫偤妯℃摤闆讳俊铏熷偝鍒癆DAM4013妯″锛岀稉(j墨ng)閬庨噰妯ｈ檿鐞嗚綁鍖栫偤RS485鏁�(sh霉)瀛椾俊铏�锛屽湪缍�(j墨ng)閬嶢DAM4521妯″鐨勮綁鎻涳紝璁婃垚瑷堢畻姗熷彲浠ユ帴鏀剁殑RS232淇¤櫉锛岃▓绠楁鏀跺埌鏁�(sh霉)鎿�(j霉)鍚庯紝瀵︽檪椤ず锛岀躬鍒舵韩搴︽洸绶�锛屽悓鏅傞€茶鍚庤嚭铏曠悊銆佸瓨鍎�锛屼互鍌欎粬鐢�銆�

涓夈€佽粺浠跺鐝�(xi脿n)

绯荤当(t菕ng)杌熶欢涓昏鏄敤VB6.0灏峈S232涓插彛绶ㄧ▼锛屽鐝�(xi脿n)纭欢涔嬮枔鐨勯€氳▕銆傝粺浠舵鍦栧鍦�2鎵€绀�銆�

1銆丮SComm鎺т欢绨′粙

VB6.0灏峈S232涓插彛绶ㄧ▼涓昏閫氶亷MSComm鎺т欢渚嗗鐝�(xi脿n)銆備笅闈㈢啊鍠粙绱逛竴涓婱SComm鎺т欢锛�

MSComm 鎺т欢鐐烘噳鐢ㄧ▼搴忔彁渚涗覆琛岄€氳▕鍔熻兘?锛熶付顠撳硜鈹摑琚冪厼N铏曠悊閫氳▕鐨勬柟寮忥細浜嬩欢椹呭嫊閫氳▕鏄檿鐞嗕覆琛岀鍙ｄ氦浜掍綔鐢ㄧ殑涓€绋潪甯告湁鏁堢殑鏂规硶銆傚湪瑷卞鎯呮硜涓�锛屽湪浜嬩欢鐧�(f膩)鐢熸檪闇€瑕佸緱鍒伴€氱煡锛屼緥濡�锛屽湪 Carrier Detect 锛圕D锛� 鎴� Request To Send 锛圧TS锛� 绶氫笂涓€鍊嬪瓧绗﹀埌閬旀垨涓€鍊嬭畩鍖栫櫦(f膩)鐢熸檪銆傚湪閫欎簺鎯呮硜涓�锛屽彲浠ュ埄鐢� MSComm 鎺т欢鐨� OnComm 浜嬩欢鎹曠嵅骞惰檿鐞嗛€欎簺閫氳▕浜嬩欢锛岀劇璜栦綍鏅傜暥 CommEvent 灞€х殑鍊艰畩鍖栨檪锛屽氨鐢㈢敓 OnComm 浜嬩欢锛屾蹇楃櫦(f膩)鐢熶簡涓€鍊嬮€氳▕浜嬩欢鎴栦竴鍊嬮尟瑾�銆傚彟涓€绋柟娉曟槸閫氶亷妾㈡煡 CommEvent 灞€х殑鍊间締鏌ヨ浜嬩欢鍜岄尟瑾�銆傚鏋滄噳鐢ㄧ▼搴忚純灏忥紝骞朵笖鏄嚜淇濇寔鐨�锛岄€欑ó鏂规硶鍙兘鏄洿鍙彇鐨勶紝瀹冨彧灏嶆煇涓€鐗瑰畾鐨勪簨浠堕熆鎳�銆�

姣忓€嬩娇鐢ㄧ殑 MSComm 鎺т欢灏嶆噳钁椾竴鍊嬩覆琛岀鍙�銆傚鏋滄噳鐢ㄧ▼搴忛渶瑕佽í鍟忓鍊嬩覆琛岀鍙ｏ紝蹇呴爤浣跨敤澶氬€� MSComm 鎺т欢銆侻SComm 鎺т欢涓昏灞€э細

CommPort锛氳ō缃苟杩斿洖閫氳▕绔彛铏�;

Settings锛� 浠ュ瓧绗︿覆鐨勫舰寮忚ō缃苟杩斿洖娉㈢壒鐜�銆佸鍋舵牎椹椼€佹暩(sh霉)鎿�(j霉)浣�銆佸仠姝綅;

PortOpen锛� 瑷疆骞惰繑鍥為€氳▕绔彛鐨勭媭鎱�(t脿i)銆備篃鍙互鎵撻枊鍜岄棞闁夌鍙�;

Input锛� 寰炴帴鏀剁珐娌栧崁(q奴)杩斿洖鍜屽埅闄ゅ瓧绗�;

Output锛� 鍚戝偝杓哥珐娌栧崁(q奴)瀵竴鍊嬪瓧绗︿覆銆�

鏇磋┏绱扮殑淇℃伅璜嬪弮闁盡icrosoft鐨勮伅(li谩n)姗熸枃妾擬SDN銆�

2銆丄DAM妯″甯哥敤鍛戒护浠嬬垂

ADAM妯″鏅傞€氶亷鐗规畩鐨勭磩瀹氬瓧绗︿締瀵︾従(xi脿n)鐩告噳鐨勬搷浣滅殑锛屽父鐢ㄧ殑鏈夛細

"%0101210600"锛氳ō缃鍙�锛�0-100搴︼紝绉戝鍠綅;

"#01" 锛� 璁€涓插彛1鏁�(sh霉)鎿�(j霉);

"#02" 锛� 璁€涓插彛2鏁�(sh霉)鎿�(j霉);

"$010" 锛� 妯″鑷嫊鏍℃簴;

"$011" 锛� 鍋忕Щ閲忔牎婧�;

"$012" 锛� 璁€绔彛淇℃伅;

"$01M"锛� 璁€妯″鍚�銆�

3銆佷富鐣岄潰鍙婇儴鍒嗕唬纰�

VB6.0鍏锋湁寮峰ぇ鐨勭晫闈㈢法杓姛鑳斤紝鏄竴绋畬鍏ㄩ潰鍚戝皪璞＄殑绶ㄧ▼瑾炶█锛岀敤瀹冨鐝�(xi脿n)鐨勪汉姗熺晫闈㈢洿瑙€鍙嬪ソ銆佹槗鎿嶄綔鏄撳鐝�(xi脿n)锛屼笅闈㈠氨鏄│椹椾腑鎵€浣滅殑鐣岄潰锛堝湒3锛夛細

寰炵晫闈㈠彲浠ョ湅鍑�锛岀郴绲�(t菕ng)鑳藉鐝�(xi脿n)婧害閲囬泦鐨勮ō缃�銆佹暩(sh霉)鎿�(j霉)椤ず铏曠悊鍔熻兘銆�

闂滈嵉浠ｇ⒓濡備笅锛�

Const CMDconfig = "%0101210600" ‘瑷疆绔彛鍛戒护瀛楃锛�0-100搴�锛岀瀛稿柈浣�

Const CMDdataIn1 = "#01" ‘璁€涓插彛1鏁�(sh霉)鎿�(j霉)鍛戒护瀛楃

Const CMDdataIn2 = "#02" ‘璁€涓插彛2鏁�(sh霉)鎿�(j霉)鍛戒护瀛楃

Const CMDspanCalibration = "$010" ‘鏍℃簴鍛戒护瀛楃

Const CMDoffsetCalibration = "$011" ‘鍋忕Щ閲忔牎婧栧懡浠ゅ瓧绗�

Const CMDconfigStatus = "$012" ‘璁€绔彛淇℃伅鍛戒护瀛楃

Const CMDmoduleName = "$01M" ‘璁€妯″鍚嶅懡浠ゅ瓧绗�

Private Sub CmdStart_OnClick锛堬級 ‘闁嬪鍛戒护瀛愮▼搴�

MSComm1.CommPort = COMnum ‘瑷疆涓插彛铏�

If MSComm1.PortOpen = False Then ‘鎵撻枊涓插彛

MSComm1.PortOpen = True

End If

If COMnum = 1 Then

CMDdataIn = CMDdataIn1

Else

CMDdataIn = CMDdataIn2

End If

MSComm1.Output = CStr锛圕MDdataIn锛� & vbCr ‘鐧�(f膩)鍑鸿畝鏁�(sh霉)鍛戒护

TimeDelay 500 ‘寤舵檪500ms

Picture1.CurrentX = 0 ‘绻埗鏇茬窔鍧愭璧烽粸

Picture1.CurrentY = temperature

Timer1.Enabled = True ‘闁嬪瑷堟檪

End Sub

Private Sub MSComm1_OnComm锛堬級 ‘浜嬩欢闊挎噳瀛愮▼搴�

Select Case MSComm1.CommEvent ‘鍒ゆ柗MSComm1閫氳▕浜嬩欢

Case comEvReceive ‘鏀跺埌Rthreshold鍊嬪瓧绡€(ji茅)鐢㈢敓鐨勬帴鏀朵簨浠�

MSComm1.RThreshold = 0 ‘闂滈枆OnComm浜嬩欢鎺ユ敹

TimeDelay 20 ‘寤舵檪20ms

temperatureShow = Right锛圡SComm1.Input, 7锛� ‘璁€鍙栫涓€鍊嬫暩(sh霉)鎿�(j霉)瀛楃瘈(ji茅)锛圔CD纰奸珮浣嶅瓧绡€(ji茅)锛�

temperature = Val锛坱emperatureShow锛� ‘鏁�(sh霉)鍊肩祫鍚堬紝妯欏畾灏忔暩(sh霉)榛�

MSComm1.Output = CStr锛圕MDdataIn锛� & vbCr ‘鐧�(f膩)閫佽畝鍛戒护

MSComm1.InBufferCount = 0 ‘娓呯┖绶╁瓨

MSComm1.RThreshold = 1 ‘闂滈枆OnComm浜嬩欢鎺ユ敹

Case comEventBreak ‘ 鏀跺埌 Break銆�

…

Case Else

End Select

End Sub

绋嬪簭涓竴鑸渻鐢ㄥ埌绯荤当(t菕ng)鏅傞悩渚嗚▓鏅傦紝閫欐槸瑕佺敤鍒扮郴绲�(t菕ng)鍕曟厠(t脿i)閫ｆ帴搴玨ernel32.dll銆傛湁涓€榛為渶瑕佹敞鎰�锛岀敱浜庝覆鍙ｉ€熷害鏈夐檺锛岀郴绲�(t菕ng)閬嬭閫熷害涔熸湁闄�锛屾墍浠ヨō缃噰妯ｉ枔闅斾竴鑸笉鑳藉皬浜�15姣锛屽惁鍓囨渻鍑虹従(xi脿n)寤舵檪閷銆�

鍥�銆佺祼璜�

鏈郴绲�(t菕ng)鏈€澶х殑鐗归粸灏辨槸瀹规槗瀵︾従(xi脿n)锛屼笉闇€瑕佹暩(sh霉)鎿�(j霉)閲囬泦鍗�锛屼笉闇€瑕佺‖浠堕﹨鍕曠▼搴�锛岀‖浠堕€ｆ帴鏂逛究锛岃粺浠剁法鍒朵篃姣旇純瀹规槗鎺屾彙锛屾湁涓€榛炲厭VB鐨勫熀绀庯紝鍐嶄簡瑙ｄ竴涓嬩覆鍙ｆ帶浠舵噳鐢ㄥ氨鍙互浜�锛岀壒鍒ラ仼鍚堣純灏忕殑娓韩绯荤当(t菕ng)銆傜敱浜嶢DAM妯″鏄彲灏嬪潃鐨勶紝鎵€浠ュ彲浠ョ敤澶氬€嬫ā濉婂鐝�(xi脿n)澶氬€嬪弮閲忕殑娓噺閲囬泦銆傛暣鍊嬬郴绲�(t菕ng)鐨勯枊鐧�(f膩)鍛ㄦ湡杓冪煭锛岃瑭︽柟渚�锛岄亱琛屽彲闈狅紝鍙牴鎿�(j霉)闇€瑕佸埗浣滅浉鎳夌殑鎿嶄綔鐣岄潰銆傜郴绲�(t菕ng)鍙崰鐢≒C姗熺殑涓€鍊嬩覆鍙ｏ紝鍗犵敤璩囨簮灏�锛屽皪纭欢瑕佹眰涓嶉珮锛屽悇妯″鍦ㄤ笉鍚岀殑鍫村悎鍙潏娲绘噳鐢�銆�

鍙冭€冩枃鐛伙細

[1]鏉庨嫆锛屾浘寰疯壇锛屽熀浜嶸B6.0鐨勪覆鍙ｉ€氳▕绋嬪簭瑷▓锛岀従(xi脿n)浠ｉ浕瀛愭妧琛擄紝2002.10锛�54-57;

[2]閯槬鐢�锛屼簬璐囩瓑锛岃▓绠楁閫ｇ簩(x霉)瀵︽檪婧害閲囬泦绯荤当(t菕ng)鐨勭爺绌�锛岄憚閫犳妧琛�锛�2003.024锛�003锛�锛�193-194;

[3]鍛ㄥ叚闋�锛屽熀浜嶸B绶ㄧ▼鐨勫井姗熸韩搴﹂噰闆嗙郴绲�(t菕ng)瑷▓锛屽寲宸ヨō瑷堥€氳▕锛�2002.028锛�003锛夛紝47-48;

[4]鏉庢檪鎯�锛岃▓绠楁澶氶粸婧害閲囬泦绯荤当(t菕ng)鐨勮ō瑷堣垏鐝�(xi脿n)瀵︼紝瑷堢畻鎶€琛撹垏鑷嫊鍖�锛�2001.020锛�001锛�锛�71-74;

[5]ADAM閲囬泦妯″浣跨敤鎵嬪唺锛岀爺鑿鎶€鑲′唤鏈夐檺鍏徃;

[6]Microsoft Corporation 寰粺锛堜腑鍦嬶級鏈夐檺鍏徃锛孧icrosoft Visual Basic 6.0涓枃鐗堢▼搴忓摗鎸囧崡锛屽寳浜笇鏈涢浕鑵﹀叕鍙� 1998.01;

[7]鑼冮€镐箣锛岄櫝绔嬪厓锛孷isual Basic鑸嘡S-232涓茶閫氳▕鎺у埗锛堟渶鏂扮増锛夛紝涓湅闈掑勾鍑虹増绀�锛�2002.01.

浣滆€呯啊浠嬶細

1 鍠不瀹忥紝鍖椾含宸ユキ(y猫)澶у闆绘帶瀛搁櫌妾㈡脯灏堟キ(y猫)2001绱氱ⅸ澹爺绌剁敓锛岀爺绌舵柟鍚�锛屼俊铏熻檿鐞�;

2 鍚虫櫞锛屽寳浜伐妤�(y猫)澶у闆绘帶瀛搁櫌妾㈡脯灏堟キ(y猫)鍓暀鎺�锛岀爺绌剁敓灏庡斧锛岀爺绌舵柟鍚�锛屼俊铏熸娓垏铏曠悊