基于VB的三层电梯控制

《基于VB的三层电梯控制》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB监控界面附录1下位机程序Main程序：Network1LDSM0.1CALLInitializeNetwork2LDSM4.5RCVVB500,B#0Network3LDV202.4CALLSBR0Network4LDMO.OCALLSBR2Initialize程序:Network1LDSMO.OMOVBB#16#09,SMB30MOVBB#16#E&SMB87MOVBB#103,SMB88MOVBB#71,SMB89MOVBB#35,SMB94Network2LDSM4.5RCVVB500

2、,B#0Network3LDSMO.OATCHINT_1,B#23Network4LDSMO.OENIINT_1程序:Network1LDSMO.OATHVB5O3,VB202,B#2Network2LDB=VB505,B#1sM0.0,B#1Network3LDB=VB505,B#2RM0.0,B#1SBR_0程序:Network1LD10.1010.40M0.10V202.0ANQ0.1M0.1Network2LD10.2010.5010.60M0.20V202.1ANQ0.2M0.2Net

3、work3LD10.3010.7oM0.30V202.2ANQ0.3M0.3Network4LDM0.1A11.0LPSANQ0.2ANQO.3SQO.1,B#1LRDRQ0.2,B#1LRDRQ0.5,B#1LRDRQ0.6,B#1LPPRQl.O,B#1Network5LDM0.2OM0.1OM0.3A11.1LPSANQ0.1ANQ0.3SQ0.2,B#1LRDRQ0.1,B#1LRDRQ0.3,B#1LRDRQ0.4,B#1LRDRQ0.7,B#1LRDRQl.O,B#1LPPRQ1.1

4、,B#1Network6LDM0.3A11.2LPSANQ0.1ANQ0.2SQ0.3,B#1LRDRQ0.2,B#1LRDRQ0.5,B#1LRDRQ0.6,B#1LPPRQ1.1,B#1AN11.0sQ0.4,B#1LD10.4Network8LD11.0RQ0.4,B#1Network9LD10.5AN11.1SQ0.5,B#1Network10LD11.1RQ0.5,B#1Network11LD10.6AN11.1SQ0.6,B#1Network12LD11.1RQ0.6,B#1Netw

5、ork13LD10.7AN11.2SQ0.7,B#1Network14LD11.2RQ0.7,B#1Network15LDM0.1EUMOVBB#l,MB10Network16LDM0.2EUMOVBB#2,MB10Network17LDM0.3EUMOVBB#3,MB10Network18LDSMO.OBTIMB10,VW50Network19LDW>VW50,COANM5.1=M5.0LDW

6、ork22LDM5.0AM5.2LDM5.1AM5.2LDM8.0CTUDCO,W#+0Network23LDM5.0SQ1.1,B#1RQ1.0,B#1Network24LDM5.1SQ1.0,B#1RQ1・1,B#1Network25LD10.1ANQ0.1M6.0Network26LD10.2OM6.1ANQ0.2M6.1Network27LD10.30M6.2ANQ0.3M6.2Network28LDSMO.OMOVBIBO,VB120MOVBIB1,VB121MOVBMB6,VB122

7、MOVBQBO,VB123MOVBQB1,VB124SBR_2程序:Network1LDSMO.ORSM87.7,B#1Network2LDSMO.OHTAVB120,VB102,B#2HTAVB121,VB104,B#2HTAVB122,VB106,B#2HTAVB123,VB10&B#2HTAVB124,VB110,B#2Network3LDSMO.OMOVBB#103,VB101MOVBB#71,VB112MOVBB#12,VB100Network4LDSM0.5XMTVB100,B#0附

8、录2上位机程序PrivateSubclose_Click()MSComm1.PortOpen=FalseQiDong.Enabled=TrueEndSubPrivateSubQiDong_Click()Dimoutbyte(6)AsByteoutbyte(O)=103outbyte(1)=2outbyte(2)=Asc(l)outbyte(3)=Asc(O)outbyte(4)=1outbyte(5)=71IfMSComm1.PortOpen=FalseThenMSComml.PortOpen=