基于VB的三层电梯控制.doc

VB监控界面附录1 下位机程序Main程序：Network 1LD SM0.1CALL InitializeNetwork 2LD SM4.5RCV VB500, B#0Network 3LD V202.4CALL SBR_0Network 4LD M0.0CALL SBR_2Initialize程序:Network 1LD SM0.0MOVB B#16#09, SMB30MOVB B#16#E8, SMB87MOVB B#103, SMB88MOVB B#71, SMB89MOVB B#35, SMB94Network 2LD SM4.5RCV VB500, B#0Network 3LD SM0.0ATCH INT_1, B#23Network 4LD SM0.0ENIINT_1程序:Network 1LD SM0.0ATH VB503, VB202, B#2Network 2LDB= VB505, B#1S M0.0, B#1Network 3LDB= VB505, B#2R M0.0, B#1SBR_0程序:Network 1LD I0.1O I0.4O M0.1O V202.0AN Q0.1= M0.1Network 2LD I0.2O I0.5O I0.6O M0.2O V202.1AN Q0.2= M0.2Network 3LD I0.3O I0.7O M0.3O V202.2AN Q0.3= M0.3Network 4LD M0.1A I1.0LPSAN Q0.2AN Q0.3S Q0.1, B#1LRDR Q0.2, B#1LRDR Q0.5, B#1LRDR Q0.6, B#1LPPR Q1.0, B#1Network 5LD M0.2O M0.1O M0.3A I1.1LPSAN Q0.1AN Q0.3S Q0.2, B#1LRDR Q0.1, B#1LRDR Q0.3, B#1LRDR Q0.4, B#1LRDR Q0.7, B#1LRDR Q1.0, B#1LPPR Q1.1, B#1Network 6LD M0.3A I1.2LPSAN Q0.1AN Q0.2S Q0.3, B#1LRDR Q0.2, B#1LRDR Q0.5, B#1LRDR Q0.6, B#1LPPR Q1.1, B#1Network 7LD I0.4AN I1.0S Q0.4, B#1Network 8LD I1.0R Q0.4, B#1Network 9LD I0.5AN I1.1S Q0.5, B#1Network 10LD I1.1R Q0.5, B#1Network 11LD I0.6AN I1.1S Q0.6, B#1Network 12LD I1.1R Q0.6, B#1Network 13LD I0.7AN I1.2S Q0.7, B#1Network 14LD I1.2R Q0.7, B#1Network 15LD M0.1EUMOVB B#1, MB10Network 16LD M0.2EUMOVB B#2, MB10Network 17LD M0.3EUMOVB B#3, MB10Network 18LD SM0.0BTI MB10, VW50Network 19LDW VW50, C0AN M5.1= M5.0Network 20LDW &H40 Then Read(I) = Read(I) - &H37 Else Read(I) = Read(I) - &H30 End If Next I MB6 = Read(5) * &H10 + Read(6) QB0 = Read(7) * &H10 + Read(8) QB1 = Read(9) * &H10 + Read(10) For I = 0 To 7T = MB6 Mod 2MB6 = MB6 2 If T = 0 Then D(I) = 0 Else: D(I) = 1End IfNext IA(0) = D(0)A(1) = D(1)A(2) = D(2)For I = 0 To 7T = QB0 Mod 2QB0 = QB0 2 If T = 0 Then D1(I) = 0 Else D1(I) = 1 End If Next IA(3) = D1(1)A(4) = D1(2)A(5) = D1(3)A(6) = D1(4)A(7) = D1(5)A(8) = D1(6)A(9) = D1(7) For I = 0 To 7T = QB1 Mod 2QB1 = QB1 2 If T = 0 Then D2(I) = 0 Else D2(I) = 1End IfNext IA(10) = D2(1)A(11) = D2(0) If A(0) 0 Then Shape2.FillStyle = 0 Else Shape2.FillStyle = 1 End If If A(1) 0 Then Shape3.FillStyle = 0 Else Shape3.FillStyle = 1 End If If A(2) 0 Then Shape4.FillStyle = 0 Else Shape4.FillStyle = 1 End If If A(3) 0 Then Shape5.FillStyle = 0 Else Shape5.FillStyle = 1 End If If A(4) 0 Then Shape6.FillStyle = 0 Else Shape6.FillStyle = 1 End If If A(5) 0 Then Shape7.FillStyle = 0 Else Shape7.FillStyle = 1 End If If A(6) 0 Then Shape8.FillStyle = 0 Else Shape8.FillStyle = 1 End If If A(7) 0 Then Shape9.FillStyle = 0 Else Shape9.FillStyle = 1 End If If A(8) 0 Then Shape10.FillStyle = 0 Else Shape10.FillStyle = 1 End If If A(9) 0 Then Shape11.FillStyle = 0 Else Shape11.FillStyle = 1 End If If A(10) 0 Then