1寮曡█

鐝�(xi脿n)鍫磋ō(sh猫)鍌欏堡涓殑瑷�(sh猫)鍌欑ó椤炵箒澶�,鏈�鍌虫劅鍣�銆佸暉鍕曞櫒銆侀﹨(q奴)鍕曞櫒銆両/O閮ㄤ欢銆佽畩閫佸櫒銆侀枼闁€绛夌瓑,鐣剁劧涔熷寘鎷従(xi脿n)鍫存娓剙鍣ㄥ剙琛ㄨō(sh猫)鍌�銆�PLC鏄従(xi脿n)鍫磋ō(sh猫)鍌欐帶鍒跺堡涓嶅彲缂哄皯鐨勯儴鍒�锛屽凡缍�(j墨ng)闈炲父鏅強锛屽浣曠啊渚垮湴瀵︾従(xi脿n)鑸嘝LC鐨勪氦浜掑凡缍�(j墨ng)鎴愮偤鐪惧寤犲晢鏂扮殑绔剁埈鎴�(zh脿n)鍫淬€傜敱姝ょ敘(ch菐n)鐢熶簡浜烘鐣岄潰绛夎粺浠剁敘(ch菐n)鍝�锛岄€欎簺鐢�(ch菐n)鍝佺殑鍑虹従(xi脿n)绨″寲浜嗗皪PLC鐨勬帶鍒�銆佹搷浣滐紝浣縋LC鐨勬噳(y墨ng)鐢ㄦ洿鍔犳柟渚�锛涗絾涔熸湁鍏跺叡鍚岀殑缂洪粸锛屽児鏍兼櫘閬嶅亸楂樺拰鍙簩闁嬬櫦(f膩)鎬ц純宸�銆俈B浣滅偤鈥滃師濮嬧€濈殑绶ㄧ▼瑾炶█鍦ㄩ€欏叐鏂归潰鐒＄枒鏈夎憲鏄庨’鍎�(y艒u)鍕㈢殑锛屾湰鏂囩祼(ji茅)鍚堜竴鍊嬬啊鍠殑妗堜緥锛岀敤姣旇純鍩虹(ch菙)鐨勬蹇佃◣璜栧浣曢€氶亷VB瀵︾従(xi脿n)PC鑸嘝LC涔嬮枔鐨勯€氫俊鍟忛锛岄€欏皪鍓涙秹姝ユ帶鍒堕牁(l菒ng)鍩熺殑宸ョ▼甯垨瑷辨槸鏈夊公鍔╃殑銆傚湪鐝�(xi脿n)鍫磋ō(sh猫)鍌欏堡涓悇寮忓悇妯ｇ殑瑷�(sh猫)鍌欓兘鍙互鍜岃▓绠楁鑱�(li谩n)姗�锛岃€屾渶绨″柈鐨勮嚜鍕曞寲鑱�(li谩n)姗熸柟寮忓氨鏄娇鐢ㄤ覆琛岄€氫俊锛孷B鎻愪緵浜嗕覆琛岄€氫俊鎺т欢鍙互璁撻枊鐧�(f膩)鑰呴枊鐧�(f膩)鍑轰覆琛岄€氫俊鐨勭郴绲�(t菕ng)绋嬪簭锛屼互涓嬫槸灏嶇浉闂�(gu膩n)鍟忛鐨勭矖鐣ヨ◣璜栥€�

2涓茶閫氫俊鍩烘湰姒傚康

鏁�(sh霉)鎿�(j霉)閫氳▕涓湁鍏╃ó椤炲瀷鐨勯€氫俊褰㈠紡锛屽嵆骞惰閫氫俊锛圥arallelCommunication锛夊拰涓茶閫氫俊锛圫erialCommunication锛�銆備緥濡�锛屽鏋滄湁8浣嶆暩(sh霉)鎿�(j霉)闇€瑕佸偝閫侊紝閭ｄ箞骞惰閫氫俊涓€娆″氨鍙互瀹屾垚8浣嶇殑鍌宠几閲�锛涜€屼覆琛屼竴娆″彧鑳藉偝閫�1浣嶃€傚湒1琛ㄧず浜嗗叐绋笉鍚岀殑閫氫俊妯″紡锛屽父鐢ㄧ殑涓茶閫氫俊涔熸湁鍏╃ó锛屽垎鍒ョ偤RS-232鍜孯S-485銆�

2锛�1RS-232涓茶閫氫俊

RS-232鐨勪俊铏熸簴浣嶆槸鍙冭€冨湴绶氳€岃█鐨勶紝濡傚湒2鎵€绀�銆傜浉灏嶄簬鍙冭€冩帴鍦扮1鍌宠几绔偝閫佹暩(sh霉)鎿�(j霉)锛涙帴鏀剁鍓囩浉灏嶄簬鍙冭€冩帴鍦扮2寰�(f霉)鐝�(xi脿n)鍑哄偝閫佺鐨勫偝閫佺殑鏁�(sh霉)鎿�(j霉)銆�

2锛�2RS-485涓茶閫氫俊

RS-485鐨勪俊铏熻鍌抽€佸嚭鍘绘檪鏈冨垎鎴愭璨犲叐姊濈窔璺紝鐣�?sh霉)绔璤鎺ユ敹绔悗锛屽湪灏囦俊铏熺浉娓涢倓鍘熸垚鍘熶締鐨勪俊铏�锛涘鏋滃皣鍘熷鐨勪俊铏熻〃绀烘垚锛圖T锛夛紝鑰岃鍒嗘垚鐨勪俊铏熷垎鍒ユ绀烘垚锛圖+锛夊強锛圖-锛�锛屽墖DT=(D+)-(D-)銆傚悓鐞�锛屾帴鏀剁鍦ㄦ帴鏀跺埌淇¤櫉鍚�锛屼篃渚濇摎(j霉)涓婂紡閭勫師鎴愬師渚嗙殑妯ｅ瓙銆傚鏋滅窔璺彈鍒板共鎿�锛屽叐姊濈窔璺殑淇¤櫉鍒嗗垾鐐猴紙D+锛�+Noise鑸囷紙D-锛�+Noise銆傛帴鏀剁閭勫師淇¤櫉鐐�(DT)=[锛圖+锛�+Noise]-[锛圖-锛�+Noise]锛岃垏鍏堝墠绲�(ji茅)鏋滀竴妯�锛屾墍浠S-485鍙互鏈夋晥鐨勯槻姝㈠櫔鑱茬殑骞叉摼銆�

3VB鐨勫熀鏈蹇�

VB锛圴isualBasic锛夋槸寰粺鐨勭獥鍙ｈ粺浠讹紝鎻愪緵浜嗗緢澶氭帴鍙ｆ垚鍝�锛屽皪璞�銆佸爆鎬�銆佷簨浠�銆佹柟娉曞氨鏄�4鍊嬮噸瑕佺殑鎺ュ彛锛孷B鎻愪緵浜嗚ū澶氬父鐢ㄧ殑鎺т欢銆�

3锛�1鍗锋鎺т欢

3.2鎸夐垥鎺т欢

3锛�3瀹氭檪鍣ㄦ帶浠�

VB鎻愪緵浜嗗ぇ閲忕殑鎺т欢锛屽湪姝や笉鍐嶅杩�銆�

4鍩轰簬MScomm鎺т欢鐨勪覆琛岄€氫俊

瑕佸畬鎴怴B鑸嘝LC绛夎ō(sh猫)鍌欑殑涓茶閫氫俊瑕佺敤鍒癕Scomm鎺т欢锛屽湪姝ゆ湁蹇呰灏嶈┎鎺т欢浣滆純瑭崇窗鐨勮鏄�銆侻scomm鏄竴鍊嬮潪妯欐簴鎺т欢锛岄渶瑕佽鎵嬪嫊娣诲姞瑷卞闋呯洰锛屽叾姝ラ濡備笅銆�

1锛夐伕鎿囪彍鍠殑銆愬伐绋嬨€�

2锛夐伕鎿囥€愰儴浠躲€�

4.1MODBUSASCII

Modbus鍒嗙偤ASCII鍜孯TU鍏╃ó锛孉SCII閲囩敤鐨勬牸寮忓拰鏍￠鐩稿皪绨″柈锛屾湰鏂囬噰鐢ˋSCII鏍煎紡锛屽苟鍍呭皪浣跨敤鐨勫姛鑳界⒓閫茶瑾槑锛屾洿澶氱殑淇℃伅锛岃珛鍙冪湅鍗�(xi茅)璀扮殑瑭崇窗瑾槑銆�

1锛夐€氫俊鏍煎紡

LRC绠楁硶锛欰DRH+CMDH+DATAH锛岀劧鍚庡彇2鐨勮纰�銆�

2锛夊姛鑳界⒓

05锛屽鍏ョ窔鍦�

01锛岃畝绶氬湀鐙€鎱�(t脿i)

06锛屽鍏ュ柈鍊嬪瓧瀵勫瓨鍣�

4.2VB鑸嘝LC閫氫俊鐨勫鐝�(xi脿n)

浠ヤ笅鑸変緥瑾槑鐝�(xi脿n)鍫磋ō(sh猫)鍌欒垏PLC閫氫俊鐨勫鐝�(xi脿n)銆�

1锛夋帶鍒惰姹傦細鎺у埗PLC鐨勮捣鍕曘€佸仠姝紝骞堕’绀洪亱琛岀媭鎱�(t脿i)锛堢稜鑹茬偤閬嬭锛岀磪鑹茬偤鍋滄锛夛紱鑳藉鐢ㄤ氦鏇垮瀷鎸夐垥鎺у埗Y0,Y1锛屽苟鐢ㄦ寚绀虹噲椤ずY0,Y1鐙€鎱�(t脿i)锛堢稜鑹茬偤閬嬭锛岀磪鑹茬偤鍋滄锛�锛涜兘澶�?q奴)顨�256锛孌512鍏╁€嬪瘎瀛樺櫒閫茶鏁�(sh霉)鍊煎鍏ョ殑鎿嶄綔銆�

2锛夊鐝�(xi脿n)鎬濊矾锛歅LC璧峰嫊鍋滄鐨勬蹇椾綅鐐篗1072锛屾煡DVP鍗�(xi茅)璀�锛岀煡閬撳湴鍧€鐐篐0C30锛屾寜鍔熻兘纰�01鎿嶄綔锛涘悓妯0,Y1鐨勫湴鍧€鍒嗗垾鐐篐0500锛孒0501銆傚鍏F00鐐篛N锛�0000鐐篛FF锛屾寜鍔熻兘纰�05鎿嶄綔锛汥256锛孌512鍦板潃鍒嗗垾鐐篐1100锛孒1200锛屾寜鍔熻兘纰�06鎿嶄綔鍗冲彲銆�

3锛塚B鎺ュ彛

鐢ㄦ寜閳曟帶鍒禤LC鐨勮捣鍕曞仠姝紝Y0銆乊1鐨凮N/OFF鍙奃256銆丏512瀵畬鏁�(sh霉)鎿�(j霉)鐨勭櫦(f膩)閫�锛涚敤Shape绲勪欢鍋氭寚绀虹噲锛岃〃绀篜LC鐨勯亱琛岀媭鎱�(t脿i)鍜孻鐨勭媭鎱�(t脿i)锛涚敤timer绲勪欢涓嶅仠鐨勮畝鍙朚1072鐨勭媭鎱�(t脿i)锛屼互鍒ゆ柗PLC鐨勯亱琛屾儏娉�锛涚敤MScomm鎺т欢瀵︾従(xi脿n)PC鑸嘝LC鐨勯€氫俊銆�

4锛夌法绋嬪鐝�(xi脿n)鐨勪唬纰兼(g貌u)鎴�

锛�1锛塋RC绠楁硶鏍￠鐨勫鐝�(xi脿n)

PublicFunctionLRC(strAsString)AsString

c=0

l=Len(str)

Forc=c+1Tol

c_data=Mid$(str,c,2)

d_lrc=d_lrc+Val("&H"+c_data)

c=c+1

Nextc

Ifd_lrc>&HFFThen

d_lrc=d_lrcMod&H100

EndIf

h_lrc=Hex(&HFF-d_lrc+1)

IfLen(h_lrc)>2Then

h_lrc=Mid(h_lrc,Len(h_lrc)-1,2)

EndIf

LRC=h_lrc

EndFunction

锛�2锛夐亱琛岀殑闁嬪灏卞垽鏂稰LC鐨勭媭鎱�(t脿i)骞惰ō(sh猫)缃蹇椾綅

'鍒濇閬嬭鎵撻枊涓插彛锛屽苟椤ずPLC閬嬭鐙€鎱�(t脿i)

PrivateSubForm_Load()

Dims1AsString

Dims2AsString

Dims22AsString

Dims3AsString

Dims4AsString

MSComm1.PortOpen=True

s2="01010C300001"

s22=LRC(s2)

s1=":"+s2+s22+Chr$(13)+Chr$(10)

MSComm1.Output=s1

s3=MSComm1.Input

s4=Mid$(s,6,8)

Ifs4="0C30FF00"Then

plc=1'PLC鐐洪亱琛屾蹇�

Else

plc=0'PLC鐐哄仠姝㈡蹇�

EndIf

EndSub

锛�3锛変笅闈竴娈电偤鐢ㄦ寚绀虹噲琛ㄧずPLC鐨勯亱琛岀媭鎱�(t脿i)

PrivateSubTimer5_Timer()

Dims1AsString

Dims2AsString

Dims22

Dims3AsString

Dims4AsString

s2="01010C300001"

s22=LRC(s2)

s1=":"+s2+s22+Chr$(13)+Chr$(10)

MSComm1.Output=s1

s3=MSComm1.Input

s4=Mid$(s3,8,2)

Ifs4="31"Then

plc=1'PLC鐐洪亱琛屾蹇�

Else:Ifs4="30"Thenplc=0'PLC鐐哄仠姝㈡蹇�

EndIf

Ifplc=1Then

Label2.Caption="PLC姝ｅ湪閬嬭......"

Shape1.FillColor=RGB(0,255,0)'green

Else

Label2.Caption="PLC宸茬稉(j墨ng)鍋滄"

Shape1.FillColor=RGB(255,0,0)'red

EndIf

EndSub

锛�4锛塒LC鐨勮捣鍕曡垏鍋滄

'璧峰嫊PLC

PrivateSubstart_Click()

DimstroutAsString

Timer5.Enabled=False

str="00050C30FF00"'M1072鐐篜LC璧峰嫊鍋滄妯欏織浣嶃€傛煡鍦板潃琛�锛孧1072鐐篛C30.FF00鐐虹疆

ON,0000鐐虹疆OFF銆�

'浠ヤ笂閮芥槸鍥哄畾鏍煎紡锛岃鐗㈣銆�

LRCC=LRC(str)'瑷堢畻str鐨刲rc鏍￠纰�銆�

strout=":"+str+LRCC+Chr$(13)+Chr$(10)'娆插偝閫佷箣鏁�(sh霉)鎿�(j霉)銆�13鐐篋锛�10鐐篈

MSComm1.Output=strout

Timer5.Enabled=True

EndSub

'鍋滄PLC

PrivateSubstop_Click()

DimstroutAsString

Timer5.Enabled=False

str="00050C300000"

LRCC=LRC(str)

strout=":"+str+LRCC+Chr$(13)+Chr$(10)

MSComm1.Output=strout

Timer5.Enabled=True

EndSub

Y0銆乊1鐨凮N/OFF鑸嘝LC璧峰嫊/鍋滄鐨勬帶鍒舵柟寮忕浉鍚�锛屾寚绀虹噲鐨勮〃绀烘柟寮忎篃鐩稿悓銆侱256锛孌512鏁�(sh霉)鎿�(j霉)瀵叆鐨勬搷浣滈浼硷紝闄愪簬绡囧箙鍏跺畠浠ｇ⒓灏变笉鍐嶅垪鍑轰簡銆�

5绲�(ji茅)鏉熻獮

VB瑾炶█鏄撲簬绶ㄧ▼浣跨敤锛岀偤鑸囦覆琛岃ō(sh猫)鍌欑殑閫氫俊鎻愪緵浜嗗緢澶х殑鏂逛究銆傝嚭閬擯LC閲囩敤妯欐簴鐨勭洰鍓嶅唬鐐烘祦琛岀殑MODBUS鍗�(xi茅)璀帮紝鐐哄鐝�(xi脿n)PLC鑸囩洠(ji膩n)鎺ц▓绠楁鐨勯€氫俊鎻愪緵浜嗙啊鍖栫殑骞宠嚭銆傜敱浜庤嚭閬旀墍鏈夌殑姗熼浕鐢�(ch菐n)鍝侀兘鏀寔MODBUS鍗�(xi茅)璀�锛屾墍浠�锛屾帉鎻′簡VB鑸嘝LC閫氫俊閬庣▼锛屼篃灏辩瓑浜庢帉鎻′簡PC鑸囪嚭閬旀墍鏈夋闆荤敘(ch菐n)鍝佺殑閫氫俊銆�