Design and Construction of an Automatic Gate by using VB.net and Arduino Microcontroller:

<br /> <h3> <b style="mso-bidi-font-weight: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 14.0pt; line-height: 115%;"><span style="background-color: cyan;">Introduction:</span></span></b></h3> <div class="MsoNormal"> <span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">                      In this project<span style="mso-spacerun: yes;">   </span>we control the home gate from<span style="mso-spacerun: yes;">  </span>pc .This<span style="mso-spacerun: yes;">  </span>project is very important for security purpose<span style="mso-spacerun: yes;">  </span>.Here you are control a home gate from remote and safe place or from control room.<o:p></o:p></span></div> <div class="MsoNormal"> <span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="mso-spacerun: yes;"> </span>This project is also used in hydro power project<span style="mso-spacerun: yes;">   </span>where you<span style="mso-spacerun: yes;">  </span>can control<span style="mso-spacerun: yes;">  </span>the water flow<span style="mso-spacerun: yes;">  </span>coming from forebay to pin stock<span style="mso-spacerun: yes;">  </span>or<span style="mso-spacerun: yes;">  </span>from pin stock to turbine<span style="mso-spacerun: yes;">   </span>the butterfly valve.You can also control<span style="mso-spacerun: yes;">  </span>the flow of water to spillway.<o:p></o:p></span></div> <div class="MsoNormal"> <span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">There are alots of applications of Auto Door<span style="mso-spacerun: yes;">  </span>project in industries.</span><b style="mso-bidi-font-weight: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 14.0pt; line-height: 115%;"><o:p></o:p></span></b></div> <div class="separator" style="clear: both; text-align: center;"> </div> <div class="MsoNormal"> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjLHWtcraJtOPQnDu9ULLUVZB7lJEVr0Xh_VkyyDnqiPlVnXvBeJb0RELMLJakG5SLFXFawDNGWlZESznwsbIcbeCx5VW9oKmX54S7zV4Jtv3ezqDlWTM2BanNZQYH85nI2j2j35wL24ygb/s1600/door+close.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="726" data-original-width="1366" height="339" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjLHWtcraJtOPQnDu9ULLUVZB7lJEVr0Xh_VkyyDnqiPlVnXvBeJb0RELMLJakG5SLFXFawDNGWlZESznwsbIcbeCx5VW9oKmX54S7zV4Jtv3ezqDlWTM2BanNZQYH85nI2j2j35wL24ygb/s640/door+close.png" width="640" /></a></div> <br /> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg2MCs9vqtqIvsm3taFSO2K3Y0VBkYccCxqvOBk-ReO5yZ72N96xP0u17eyRsaFx37DCRT55lU_4q6hNloUbikes4qA3vTYvII3TfRh0_DgENLtBbUycO8aCbs73WxxEZHh2NPUZ7bS2Ccu/s1600/Door+half+open.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="722" data-original-width="1366" height="338" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg2MCs9vqtqIvsm3taFSO2K3Y0VBkYccCxqvOBk-ReO5yZ72N96xP0u17eyRsaFx37DCRT55lU_4q6hNloUbikes4qA3vTYvII3TfRh0_DgENLtBbUycO8aCbs73WxxEZHh2NPUZ7bS2Ccu/s640/Door+half+open.png" width="640" /></a></div> <br /> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiexvUUWIx8df7UJID_6kaWbmJInZCO8uShyphenhyphenA_zB8wjRStMf5JWSI9Yldj876jGYtksJWbW43v9NXzM9hYpYVwd8DBzbssJjwKa82qhbl13dZmuLa3NrUuC7nN9HHMRqmp4a8VuKNCohmVj/s1600/door+open.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="728" data-original-width="1366" height="340" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiexvUUWIx8df7UJID_6kaWbmJInZCO8uShyphenhyphenA_zB8wjRStMf5JWSI9Yldj876jGYtksJWbW43v9NXzM9hYpYVwd8DBzbssJjwKa82qhbl13dZmuLa3NrUuC7nN9HHMRqmp4a8VuKNCohmVj/s640/door+open.png" width="640" /></a></div> <span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><br /></span></div> <h3> <b style="mso-bidi-font-weight: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 14.0pt; line-height: 115%;"><span style="background-color: cyan;">Problems statement:</span></span></b></h3> <div class="MsoNormal"> <span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">                         If we don’t use Auto door technology then we have alots of problem<span style="mso-spacerun: yes;">  </span>definitely you can’t control it automatically<span style="mso-spacerun: yes;">  </span>you will be go for it and manually<span style="mso-spacerun: yes;">  </span>control it<span style="mso-spacerun: yes;">  </span>which is a time waste and hard work. Also you can’t controlled it precisely these errors will interrupt the whole system.<o:p></o:p></span></div> <h3> <b style="mso-bidi-font-weight: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 14.0pt; line-height: 115%;"><span style="background-color: cyan;">Objectives:</span></span></b></h3> <div class="MsoNormal" style="margin-left: .5in;"> <span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">          In this project we are control the home Gate from PC.The software use for HMI is VB.NET.<span style="mso-spacerun: yes;">  </span></span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">We send data from vb.net HMI to arduino microcontroller</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">.the arduino receive the data serially</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;"> A</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">nd sending command to the output pins</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  w</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">hich control the relays the relays are further connect to the motor of the gate.</span></div> <div class="MsoNormal" style="margin-left: .5in;"> <span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="mso-spacerun: yes;">      </span>In this project we use two computer languages<span style="mso-spacerun: yes;">  </span>the 1st one is<span style="mso-spacerun: yes;">  </span>Visual Basic Dot Net (VB.NET)<span style="mso-spacerun: yes;">  </span>and the 2nd language is C++<span style="mso-spacerun: yes;">  </span>.In VB.NET we use Animation library .In this animation we animated the door to watch the output result continuously .The C++<span style="mso-spacerun: yes;">  </span>language<span style="mso-spacerun: yes;">  </span>is use in the Arduino Command Line Interface (CLI) .From this language we control the whole circuits.<o:p></o:p></span></div> <div class="MsoNormal" style="margin-left: .5in;"> <span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">Both the languages will be serially connected to each other.<o:p></o:p></span></div> <h3> <b style="mso-bidi-font-weight: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 14.0pt; line-height: 115%;"> <span style="background-color: cyan;">Scope and limitation:</span></span></b></h3> <div class="MsoNormal"> <span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="mso-spacerun: yes;">                                   </span><span style="mso-spacerun: yes;"> </span>The aim of the design of an automatic Door mechanism<span style="mso-spacerun: yes;">  </span>for<span style="mso-spacerun: yes;">  </span>domestic use was successfully realize.<o:p></o:p></span></div> <div class="MsoNormal"> <span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="mso-spacerun: yes;">             </span>The system worked according to specification and proved quite satisfactory. It is relatively affordable, durable and efficient. Hence, give room for ease of operation and high level of reliability. <o:p></o:p></span></div> <div class="MsoNormal"> <span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">Finally, it reduces stress associated with manual Door controller, which require that somebody go to physically switch them on and off.<span style="mso-spacerun: yes;">  </span><o:p></o:p></span></div> <h3> <b style="mso-bidi-font-weight: normal;"><span style="background-color: cyan; font-family: "arial" , sans-serif; font-size: 14pt; line-height: 115%;">Components used: </span></b></h3> <div class="MsoNormal"> <span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="mso-spacerun: yes;">               </span>There are so many components used in our project .Names of these components are mentioned below,<o:p></o:p></span></div> <ul style="margin-top: 0in;" type="disc"> <li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">Voltage Regulator<span style="mso-spacerun: yes;">    </span>lm7805,lm7812<o:p></o:p></span></li> <li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">Arduino uno R3<o:p></o:p></span></li> <li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">Relay <o:p></o:p></span></li> <li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">Diodes<o:p></o:p></span></li> <li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">Tip122 Transistors<o:p></o:p></span></li> <li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">LED<o:p></o:p></span></li> <li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">Resistors <o:p></o:p></span></li> <li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">capacitors<o:p></o:p></span></li> <li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">Power supply<o:p></o:p></span></li> <li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">Gate (CdRom<span style="mso-spacerun: yes;">  </span>used as gate)<o:p></o:p></span></li> <li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">Computer<o:p></o:p></span></li> <li class="MsoNormal" style="mso-list: l0 level1 lfo1; tab-stops: list .5in;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">PCB(varryboard)<o:p></o:p></span></li> </ul> <h3> <o:p> </o:p><span style="background-color: cyan;"> <b><i><u><span style="font-family: "arial" , sans-serif; font-size: 14pt; line-height: 21.4667px;">CD ROM (AS A GATE):</span></u></i></b></span></h3> <div class="MsoNormal"> <span style="mso-tab-count: 1;">                           </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">We use computer cd rom as a gate</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">.which</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">can open</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">or</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">close</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">from PC.the gate (cd rom) is connected to</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">the</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">micro</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">controller ></span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">and</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">micro</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">controller</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">is</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">connected</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">to</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">the</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">  </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">pc</span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">   </span><span style="font-family: "arial" , sans-serif; font-size: 12pt;">.</span></div> <h3 style="text-align: justify;"> <b style="mso-bidi-font-weight: normal;"><span style="background-color: cyan; font-family: "arial" , sans-serif; font-size: 14pt; line-height: 115%;"><u><i>Programing VB.NET<span style="mso-spacerun: yes;">   </span>HMI:</i></u></span></b></h3> <div class="MsoNormal" style="text-align: justify;"> <b style="mso-bidi-font-weight: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><o:p> </o:p></span></b><i><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;">Public Class Form1</span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private g As Graphics<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private xPosition As Integer<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Height = 550<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Width = 800<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Show()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g = Me.CreateGraphics<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.BackColor = Color.Aqua<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer3.Start()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">         </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub DrawNewRectangle1(ByVal y As Integer, ByVal x As Integer)<span style="mso-spacerun: yes;">   </span>REM DOOR OPENING RECTANGLE<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Refresh()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 130, 50, 400, 400)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillRectangle(Brushes.Yellow, 130, 50, 400, x)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillEllipse(Brushes.Green, 7, 184, 30, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 120, 50, 10, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 120, 420, 10, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>If x <= 7 Then<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>g.FillRectangle(Brushes.Green, 120, 50, 10, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>g.FillEllipse(Brushes.Black, 7, 184, 30, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Button1.ForeColor = Color.Black<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>REM<span style="mso-spacerun: yes;">  </span>Timer1.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End If<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub DrawNewRectangle2(ByVal y As Integer, ByVal x As Integer)<span style="mso-spacerun: yes;">   </span>REM DOOR CLOSING RECTANGLE<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>'g.DrawRectangle(Pens.Black, 130, 50, 400, 400)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillRectangle(Brushes.Red, 130, 50, 400, x)<span style="mso-spacerun: yes;">   </span>REM<span style="mso-spacerun: yes;">  </span>DOOR CLOSE FILL RECTANGLE<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>'g.DrawRectangle(Pens.Black, 120, 420, 10, 30) REM(X,Y,W,H)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">       </span><span style="mso-spacerun: yes;"> </span>'g.DrawRectangle(Pens.Black, 120, 50, 10, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>If x >= 400 Then<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Button3.ForeColor = Color.Black<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End If<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<span style="mso-spacerun: yes;">     </span>REM DOOR OPENING TIMER<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>If xPosition < 7 Then<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>REM<span style="mso-spacerun: yes;">  </span>xPosition = 7<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>'If CheckBox1.Checked = True Then<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>My.Computer.Audio.Play(My.Resources.b, AudioPlayMode.Background)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>'Else<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>g.FillRectangle(Brushes.Green, 120, 50, 10, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Timer1.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Button3.Enabled = True<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>'End If<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End If<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>xPosition -= 15.5<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>DrawNewRectangle1(400, xPosition)<span style="mso-spacerun: yes;">       </span>REM DOOR OPENING RECTANGLE<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick<span style="mso-spacerun: yes;">      </span>REM DOOR CLOSING TIMER<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>If xPosition > 370 Then<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>REM xPosition = 400<span style="mso-spacerun: yes;">  </span>355<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>My.Computer.Audio.Play(My.Resources.b, AudioPlayMode.Background)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>g.FillEllipse(Brushes.Black, 7, 184, 30, 30)<span style="mso-spacerun: yes;">        </span>REM RGB BLACK<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>g.FillRectangle(Brushes.Green, 120, 420, 10, 30)<span style="mso-spacerun: yes;">    </span>REM LIMIT SWITCH 2 GREEEN<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Timer2.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Button1.Enabled = True<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;">       </span>End If<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>xPosition += 15.5<span style="mso-spacerun: yes;">                                   </span>REM<span style="mso-spacerun: yes;">   </span>30.6<span style="mso-spacerun: yes;">    </span>15.5<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>DrawNewRectangle2(400, xPosition)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer1.Start()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer2.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillEllipse(Brushes.Green, 7, 184, 30, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button1.ForeColor = Color.Green<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>REM Button1.BackColor = Color.Violet<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>My.Computer.Audio.Play(My.Resources.a, AudioPlayMode.Background)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button3.Enabled = False<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer2.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer1.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillEllipse(Brushes.Black, 7, 184, 30, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button1.ForeColor = Color.Black<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button3.ForeColor = Color.Black<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>My.Computer.Audio.Play(My.Resources.b, AudioPlayMode.Background)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button1.Enabled = True<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button3.Enabled = True<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer2.Start()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer1.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Refresh()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillEllipse(Brushes.Red, 7, 184, 30, 30)<span style="mso-spacerun: yes;">    </span>REM<span style="mso-spacerun: yes;">  </span>RGB<span style="mso-spacerun: yes;">   </span>Red<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button3.ForeColor = Color.Red<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>My.Computer.Audio.Play(My.Resources.a, AudioPlayMode.Background)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button1.Enabled = False<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Hide()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Form3.Show()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 120, 50, 10, 30)<span style="mso-spacerun: yes;">    </span>REM limit switch 1<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 120, 420, 10, 30)<span style="mso-spacerun: yes;">    </span>REM limit switch 2<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 130, 50, 400, 400)<span style="mso-spacerun: yes;">    </span>REM door rec<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawEllipse(Pens.Black, 7, 184, 30, 30)<span style="mso-spacerun: yes;">        </span>REM rgb<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button1.BackColor = Color.BlueViolet<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button2.BackColor = Color.BlueViolet<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button3.BackColor = Color.BlueViolet<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button4.BackColor = Color.BlueViolet<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;">End Class<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;">Imports System.IO.Ports<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;">Public Class Form2<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private mySerialPort As New SerialPort<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Dim instance As SerialPort<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private g As Graphics<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private yPosition As Integer<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Dim a As Integer<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Dim b As Integer<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Call CommPortSetup()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Height = 550<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Width = 800<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Show()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g = Me.CreateGraphics<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.BackColor = Color.Aqua<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer1.Start()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Dim i As Integer<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Try<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>mySerialPort.Open()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Catch ex As Exception<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>i = MessageBox.Show(ex.Message)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End Try<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>If i = 1 Then<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Form1.Show()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Me.Dispose()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End If<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 130, 50, 400, 400)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawEllipse(Pens.Black, 7, 184, 30, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub CommPortSetup()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span><span style="mso-spacerun: yes;">    </span>With mySerialPort<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>'a = ComboBox1.Text<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>'b = ComboBox1.Text<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>.PortName = "COM" & Module1.uname1<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>.BaudRate = 9600<span style="mso-spacerun: yes;">                            </span>REM Module1.uname2<span style="mso-spacerun: yes;">                       </span><o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>.DataBits = 8<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>.Parity = Parity.None<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>.StopBits = StopBits.One<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>.Handshake = Handshake.None<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End With<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub DrawNewRectangle1(ByVal x As Integer, ByVal y As Integer)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Refresh()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 130, 50, 400, 400)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillRectangle(Brushes.Yellow, 130, 50, 400, y)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillEllipse(Brushes.Green, 7, 184, 30, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 120, 50, 10, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 120, 420, 10, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>If x <= 7 Then<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>g.FillRectangle(Brushes.Green, 120, 50, 10, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>g.FillEllipse(Brushes.Black, 7, 184, 30, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Button1.ForeColor = Color.Black<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>REM<span style="mso-spacerun: yes;">  </span>Timer1.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End If<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub DrawNewRectangle2(ByVal x As Integer, ByVal y As Integer)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 130, 50, 400, 400)<span style="mso-spacerun: yes;">                 </span>REM <o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillRectangle(Brushes.Red, 130, 50, 400, y)<span style="mso-spacerun: yes;">           </span>REM DOOR OPEN REC<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 120, 420, 10, 30)<span style="mso-spacerun: yes;">                  </span>REM <o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 120, 50, 10, 30)<span style="mso-spacerun: yes;">                   </span>REM<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>If x >= 400 Then<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Button7.ForeColor = Color.Black<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End If<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer3.Start()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer4.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillEllipse(Brushes.Yellow, 7, 184, 30, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button5.ForeColor = Color.Yellow<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>My.Computer.Audio.Play(My.Resources.a, AudioPlayMode.Background)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button7.Enabled = False<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>My.Computer.Audio.Play(My.Resources.b, AudioPlayMode.Background)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer4.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer3.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Try<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>mySerialPort.Write("3")<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Catch ex As Exception<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>MessageBox.Show(ex.Message)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End Try<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillEllipse(Brushes.Red, 7, 184, 30, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button5.ForeColor = Color.Black<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button7.ForeColor = Color.Black<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button5.Enabled = True<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button7.Enabled = True<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer4.Start()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Timer3.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Refresh()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillEllipse(Brushes.Green, 7, 184, 30, 30)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button7.ForeColor = Color.Green<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>My.Computer.Audio.Play(My.Resources.a, AudioPlayMode.Background)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button5.Enabled = False<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>If yPosition < 7 Then<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>REM<span style="mso-spacerun: yes;">   </span>yPosition = 7<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Timer3.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Button7.Enabled = True<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>My.Computer.Audio.Play(My.Resources.b, AudioPlayMode.Background)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End If<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>yPosition -= 30<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>DrawNewRectangle1(400, yPosition)<span style="mso-spacerun: yes;">                    </span>REM DOOR OPEN RECTANGLE <o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.FillRectangle(Brushes.Green, 120, 50, 10, 30)<span style="mso-spacerun: yes;">      </span>REM LIMIT SWITCH 1<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Try<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>mySerialPort.Write("2")<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Catch ex As Exception<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>MessageBox.Show(ex.Message)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End Try<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>If yPosition > 355 Then<span style="mso-spacerun: yes;">                                     </span>REM door down limit<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>REM(yPosition = 400)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>My.Computer.Audio.Play(My.Resources.b, AudioPlayMode.Background)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Timer4.Stop()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>g.FillEllipse(Brushes.Black, 7, 184, 30, 30)<span style="mso-spacerun: yes;">            </span>REM<span style="mso-spacerun: yes;">    </span>RGB LED<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>g.FillRectangle(Brushes.Green, 120, 420, 10, 30)<span style="mso-spacerun: yes;">        </span>REM<span style="mso-spacerun: yes;">   </span>LIMIT SWITCH<span style="mso-spacerun: yes;">  </span>2<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>Button5.Enabled = True<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End If<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>yPosition += 30<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>DrawNewRectangle2(400, yPosition)<span style="mso-spacerun: yes;">                           </span>REM<span style="mso-spacerun: yes;">  </span>DOOR CLOSE RECTANGLE<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>REM g.FillRectangle(Brushes.Red, 550, 110, 40, 41)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Try<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>mySerialPort.Write("1")<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Catch ex As Exception<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>MessageBox.Show(ex.Message)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End Try<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Hide()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Dim i As Integer<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Try<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>mySerialPort.Close()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Catch ex As Exception<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">            </span>i = MessageBox.Show(ex.Message)<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>End Try<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Form1.Show()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 120, 50, 10, 30)<span style="mso-spacerun: yes;">       </span>REM<span style="mso-spacerun: yes;">    </span>fORM Loading time limit switch 1 line<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 120, 420, 10, 30)<span style="mso-spacerun: yes;">      </span>REM<span style="mso-spacerun: yes;">    </span>fORM Loading time limit switch 2 line<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawRectangle(Pens.Black, 130, 50, 400, 400)<span style="mso-spacerun: yes;">     </span>REM fORM START RECTANGLE LINE<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g.DrawEllipse(Pens.Black, 7, 184, 30, 30)<span style="mso-spacerun: yes;">          </span>REM<span style="mso-spacerun: yes;">    </span>RGB LED AT FORM LOADING TIME <o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button1.BackColor = Color.BlueViolet<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button5.BackColor = Color.BlueViolet<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button6.BackColor = Color.BlueViolet<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button7.BackColor = Color.BlueViolet<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">   </span><o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;">End Class<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;">Public Class Form3<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private g As Graphics<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Show()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>g = Me.CreateGraphics<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.BackColor = Color.Aqua<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button1.BackColor = Color.BlueViolet<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Button2.BackColor = Color.BlueViolet<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">       </span><o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Module1.uname1 = ComboBox1.Text<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Module1.uname2 = ComboBox1.Text<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Form2.Show()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Hide()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Form1.Show()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">        </span>Me.Hide()<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>End Sub<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <br /></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;">Module Module1<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Public uname1 As String<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;"><span style="mso-spacerun: yes;">    </span>Public uname2 As String<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="text-align: justify;"> <i style="mso-bidi-font-style: normal;"><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;"><span style="color: magenta;">End Module<o:p></o:p></span></span></i></div> <div class="MsoNormal" style="tab-stops: .5in;"> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiFJFQDW3BNMgk9dAgM-QGWFbFy99kf3oNBb0D-pJ_AJlVG9U-JGW-tIThnTueVR-KTKyAlcQF3Bg6nG3WLI7yvf0DaHQaw99zKxNB-cbHyLB6MH0jFlHo7gcw7nBIYmmzHlWV9SZ_M9UCw/s1600/Auto+door+HMI+video.mp4" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="240" data-original-width="320" height="356" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiFJFQDW3BNMgk9dAgM-QGWFbFy99kf3oNBb0D-pJ_AJlVG9U-JGW-tIThnTueVR-KTKyAlcQF3Bg6nG3WLI7yvf0DaHQaw99zKxNB-cbHyLB6MH0jFlHo7gcw7nBIYmmzHlWV9SZ_M9UCw/s640/Auto+door+HMI+video.mp4" width="640" /></a></div> <br /></div> <h3> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-size: 12pt; line-height: 115%;"><i><u style="background-color: cyan;">Arduino Programing :</u></i><u><o:p></o:p></u></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><br /></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i>  <span style="color: #c27ba0;">int dooropen = 13;<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">     int doorclose = 12;<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="tab-stops: 127.7pt; text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">     int LS1 =11;                  <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">     int LS2 = 10;<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">     int led1 =9;<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">     int led2=8;<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">     int led3=7;<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">     <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">void setup() { pinMode(dooropen, OUTPUT); <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">               pinMode(doorclose, OUTPUT); <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">               pinMode(LS1,INPUT);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">               pinMode(LS2,INPUT);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                pinMode(led1,OUTPUT);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">               pinMode(led2,OUTPUT);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">               pinMode(led3,OUTPUT);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">               Serial.begin(9600);}<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">void loop()  { <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                delay(500);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">           while(Serial.available() > 0)<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                         {<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                byte incomingByte = Serial.read(); // Reads incoming byte from serial<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">               if (LS1 == LOW)<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                  {<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                               if( incomingByte == '1')<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           { <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                             digitalWrite(dooropen, HIGH);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                             digitalWrite(doorclose, LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                             digitalWrite(led1,HIGH);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                             digitalWrite(led2,LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                             digitalWrite(led3,LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                             delay(100);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                             digitalWrite(dooropen, LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                             digitalWrite(led1,LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           }<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                 else     {<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                            digitalWrite(dooropen, LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                            digitalWrite(led1,LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                          }<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                  }     <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">               if (LS2 == LOW)<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                       {<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                               if( incomingByte == '2')<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                         { <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           digitalWrite(dooropen, LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           digitalWrite(doorclose,HIGH);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           digitalWrite(led1,LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           digitalWrite(led2,HIGH);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           digitalWrite(led3,LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           delay(100);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           digitalWrite(doorclose, LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           digitalWrite(led2,LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                         }<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                else<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                        {<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                          digitalWrite(doorclose, LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                          digitalWrite(led2,LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                        }<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                       }<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                              if( incomingByte == '3')<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                       { <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           digitalWrite(dooropen, LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           digitalWrite(doorclose,LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           digitalWrite(led1,LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           digitalWrite(led2,LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           digitalWrite(led3,HIGH);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                           delay(100);    <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                       }<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                         <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                         <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">//                          if( LS1 == HIGH) <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                      //{ <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                      //digitalWrite(dooropen, LOW);}<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">//                          else  digitalWrite(dooropen,HIGH);  <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">//                         <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">//                         if( LS2 == HIGH)<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                       //{ <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                          //digitalWrite(doorclose, LOW);<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                                        //}<o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">//                          else digitalWrite(doorclose,HIGH);                           <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                       } <o:p></o:p></span></i></span></div> <div class="MsoNormal" style="text-align: justify;"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;">                  }   <o:p></o:p></span></i></span></div> <div class="MsoNormal"> <br /></div> <div class="MsoNormal"> <span style="font-family: "arial" , sans-serif; font-weight: normal;"><i><span style="color: #c27ba0;"><br /></span></i></span></div> </h3> <h3 style="text-align: justify;"> <b><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">                                              <u style="background-color: cyan;">Block Diagram:</u></span></b></h3> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgwBM2JcZbn8QnF0sllwGmt3aqD1DPohspJaIoW0qNCpv1IyPtAVL6SMW98_Qx3leI3sJWDpNJjxHHS9bEIlgLAjK61zAIQxa4tkY_uR_x0G7Cq2i7ciZXlIdV775tsS3KgI5HhbdHJpfV5/s1600/autodoor+block+daigram.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="260" data-original-width="733" height="226" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgwBM2JcZbn8QnF0sllwGmt3aqD1DPohspJaIoW0qNCpv1IyPtAVL6SMW98_Qx3leI3sJWDpNJjxHHS9bEIlgLAjK61zAIQxa4tkY_uR_x0G7Cq2i7ciZXlIdV775tsS3KgI5HhbdHJpfV5/s640/autodoor+block+daigram.png" width="640" /></a></div> <div class="MsoNormal" style="text-align: justify;"> <b><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">                                                             </span></b></div> <br /> <br /> <div class="MsoNormal"> </div> <h3 style="text-align: justify;"> <b><span style="font-family: "arial" , "sans-serif"; font-size: 12.0pt; line-height: 115%;">                                               <span style="background-color: cyan;"> Circuit diagrams:</span></span></b></h3> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguVOuPtQRvhV5o0CsCHqAp9AVTsciINDS1fcgCtxra1_mlXfPGuq8aHK0eZ85WePqCmK598Gy2KegvNqZc6CqT_cuGuS2dJqIDekVj_-_OqCZzkEAM6GAltrheAX4gpszGroAgji304u3d/s1600/h+bridge_schem.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="1233" data-original-width="1600" height="492" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguVOuPtQRvhV5o0CsCHqAp9AVTsciINDS1fcgCtxra1_mlXfPGuq8aHK0eZ85WePqCmK598Gy2KegvNqZc6CqT_cuGuS2dJqIDekVj_-_OqCZzkEAM6GAltrheAX4gpszGroAgji304u3d/s640/h+bridge_schem.png" width="640" /></a></div> <h3> <span style="background-color: cyan; font-family: "arial" , sans-serif;"><i><u>Project Images:</u></i></span></h3> <div> <span style="background-color: cyan; font-family: "arial" , sans-serif;"><i><u><br /></u></i></span></div> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJPpwYOhkbxChM_tVqhCAP4eu2lYHjw2wnqsCm1e_6vT9BweBIJAh5yn9b_-RejftKanVdrk9-Lslhooi0MDFtwM0c8wi-OCyNR1YnPRq72-_RpBPURRJUkpxok4GLJuPBAiwOX4MWj6AG/s1600/20160112_113614.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="640" data-original-width="360" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJPpwYOhkbxChM_tVqhCAP4eu2lYHjw2wnqsCm1e_6vT9BweBIJAh5yn9b_-RejftKanVdrk9-Lslhooi0MDFtwM0c8wi-OCyNR1YnPRq72-_RpBPURRJUkpxok4GLJuPBAiwOX4MWj6AG/s1600/20160112_113614.jpg" /></a></div> <br /> <div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjybEHriBzmtyw0VzI69anQhPQ5W7kSwG2Q012FJi4WaJABufpVd5fh0oXS0q5en_lJkK5ayKtY2aTy9x7YWLZUjXT1Y6keJ0rkkwiizhh8Nl2_HirMuukYC7UA2rgRO4b9yE9mKL2ELuWT/s1600/20160109_184223.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="360" data-original-width="640" height="360" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjybEHriBzmtyw0VzI69anQhPQ5W7kSwG2Q012FJi4WaJABufpVd5fh0oXS0q5en_lJkK5ayKtY2aTy9x7YWLZUjXT1Y6keJ0rkkwiizhh8Nl2_HirMuukYC7UA2rgRO4b9yE9mKL2ELuWT/s640/20160109_184223.jpg" width="640" /></a></div> <div class="separator" style="clear: both; text-align: center;"> <br /></div> <div class="separator" style="clear: both; text-align: center;"> <iframe allowfullscreen="" class="YOUTUBE-iframe-video" data-thumbnail-src="https://i.ytimg.com/vi/YIc9pVUjgVA/0.jpg" frameborder="0" height="266" src="https://www.youtube.com/embed/YIc9pVUjgVA?feature=player_embedded" width="320"></iframe></div> <div> <span style="font-family: "arial" , sans-serif;"><span style="background-color: cyan;"><i><u><br /></u></i></span></span></div> <div> <span style="font-family: "arial" , sans-serif;"><i style="background-color: white;">                                                     </i><i style="background-color: cyan;">  Video:</i></span></div> <div style="text-align: center;"> <a href="https://www.youtube.com/watch?v=YIc9pVUjgVA&t=1s">https://www.youtube.com/watch?v=YIc9pVUjgVA&t=1s</a></div> <div> <br /></div> <div> <br /></div> <div> <br /></div> <div> <div style="text-align: center;"> YouTube : <a href="https://www.youtube.com/engineeringtube777">https://www.youtube.com/engineeringtube777</a></div> <div style="text-align: center;"> Facebook :<a href="https://www.facebook.com/engineeringtube777">https://www.facebook.com/engineeringtube777</a></div> <div style="text-align: center;"> Twitter : <a href="https://twitter.com/MohsinH73145168">https://twitter.com/MohsinH73145168</a></div> </div> <div style="text-align: center;"> <br /></div>

Design and Construction of an Automatic Gate by using VB.net and Arduino Microcontroller:

Introduction:                       In this project    we control the home gate from   pc .This   project is very important for security...

Read more »