Auto Gate HMI Animation VB.NET | Automatic Gate Open Close Application S...

<iframe frameborder="0" height="270" src="https://youtube.com/embed/M_pIGxfQFYI?si=bAE7KwYDA-HIzIIA" width="480"></iframe><div><br /></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivpQjrLA4odLKiJq5fMtudxVtOoCwjeaza_dJagkggW7laRismzSS2kuRmppFWQZ0Z2BNBYV0OWoFS2a4TDmuasP3-TRHyPFtDAZZIdv30yjda3hP-JTFMuQ5P_zzdPG_oSliAnbPLlenOxv6nZq5sbIF6fTsH6BOqbO4Y2zhZLimokE44mEDmKkZeQ6TC/s785/1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="546" data-original-width="785" height="446" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivpQjrLA4odLKiJq5fMtudxVtOoCwjeaza_dJagkggW7laRismzSS2kuRmppFWQZ0Z2BNBYV0OWoFS2a4TDmuasP3-TRHyPFtDAZZIdv30yjda3hP-JTFMuQ5P_zzdPG_oSliAnbPLlenOxv6nZq5sbIF6fTsH6BOqbO4Y2zhZLimokE44mEDmKkZeQ6TC/w640-h446/1.png" width="640" /></a></div><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCq2JpVYmRNgm929uGPRjbPEPojHN35Ym4Z7FjQrPoDgMPZ1_FIAwOFd-WHUJYBy6cmGphZ-ApJV5dslx8Ftpduapb2yXEgmSbl-ea7EqnKhDjXKp0_mlAbq9p-KYoaIlHxBIWl7fF_1ruNOrqvp2P0PljNOmqu2zq3kMzLuXmc4u752BvQXS1cFvrJ9TE/s790/2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="542" data-original-width="790" height="440" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCq2JpVYmRNgm929uGPRjbPEPojHN35Ym4Z7FjQrPoDgMPZ1_FIAwOFd-WHUJYBy6cmGphZ-ApJV5dslx8Ftpduapb2yXEgmSbl-ea7EqnKhDjXKp0_mlAbq9p-KYoaIlHxBIWl7fF_1ruNOrqvp2P0PljNOmqu2zq3kMzLuXmc4u752BvQXS1cFvrJ9TE/w640-h440/2.png" width="640" /></a></div><br /><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEisTpldQTlBrPWfjN91IOtwOadvyq6djXMn5MqXecvbI4umD31P0rf7tyGBbIU6MYgp2HOOL78Q027G_P3zE8us7LzjU4kYKVG-vCNp19WwbrNcABjcIroE4952RPjVCLpa-TlknCJpDBl-6GHkxvmrs5fTlGwQy2gPPWoxFDNOIaKPPWHrjULcRXaFKhCB/s786/3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="548" data-original-width="786" height="446" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEisTpldQTlBrPWfjN91IOtwOadvyq6djXMn5MqXecvbI4umD31P0rf7tyGBbIU6MYgp2HOOL78Q027G_P3zE8us7LzjU4kYKVG-vCNp19WwbrNcABjcIroE4952RPjVCLpa-TlknCJpDBl-6GHkxvmrs5fTlGwQy2gPPWoxFDNOIaKPPWHrjULcRXaFKhCB/w640-h446/3.png" width="640" /></a></div><br /><div><br /></div><div><br /></div><div><br /></div><div><br /></div><div><br /></div><h2 style="text-align: left;"><b>Code:</b></h2><div><div><b>Public Class Form1</b></div><div><b>    Private g As Graphics</b></div><div><b>    'Private xPosition As Integer</b></div><div><b>    Private yposition As Integer</b></div><div><b>   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</b></div><div><b>        Me.Height = 550</b></div><div><b>        Me.Width = 800</b></div><div><b>        Me.Show()</b></div><div><b>        g = Me.CreateGraphics</b></div><div><b>        Me.BackColor = Color.Aquamarine</b></div><div><b>        Timer3.Start()</b></div><div><b>    End Sub</b></div><div><b>  Private Sub DrawNewRectangle1(ByVal y As Integer, ByVal x As Integer)   REM DOOR OPENING RECTANGLE</b></div><div><b>        Me.Refresh()</b></div><div><b>        g.DrawRectangle(Pens.Black, 130, 50, 543, 400)</b></div><div><b>        g.FillRectangle(Brushes.Orchid, 130, 50, y, 400)</b></div><div><b>        g.FillEllipse(Brushes.Green, 7, 184, 30, 30)</b></div><div><b>        g.DrawRectangle(Pens.Black, 120, 50, 10, 30)</b></div><div><b>        'g.DrawRectangle(Pens.Black, 120, 420, 10, 30)</b></div><div><b>     g.DrawRectangle(Pens.Black, 673, 50, 10, 30)    REM  LS2</b></div><div><b>     If y <= 7 Then</b></div><div><b>          ' g.FillRectangle(Brushes.Green, 530, 50, 10, 30)</b></div><div><b>          g.FillRectangle(Brushes.Green, 120, 50, 10, 30)     'LS1</b></div><div><b>            g.FillEllipse(Brushes.Black, 7, 184, 30, 30)</b></div><div><b>            Button1.ForeColor = Color.Black</b></div><div><b>            REM  Timer1.Stop()</b></div><div><b>        End If</b></div><div><b>    End Sub</b></div><div><b>    Private Sub DrawNewRectangle2(ByVal y As Integer, ByVal x As Integer)   REM DOOR CLOSING RECTANGLE</b></div><div><b>        'g.DrawRectangle(Pens.Black, 130, 50, 400, 400)</b></div><div><b>        g.FillRectangle(Brushes.Orchid, 130, 50, y, 400)   REM  DOOR CLOSE FILL RECTANGLE</b></div><div><b>        'g.DrawRectangle(Pens.Black, 120, 420, 10, 30) REM(X,Y,W,H)</b></div><div><b>        'g.DrawRectangle(Pens.Black, 120, 50, 10, 30)</b></div><div><b>        If y >= 400 Then</b></div><div><b>            Button3.ForeColor = Color.Black</b></div><div><b>        End If</b></div><div><b>    End Sub</b></div><div><b>   'Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick</b></div><div><b>   'End Sub</b></div><div><b>   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick     REM DOOR OPENING TIMER</b></div><div><b>        If yposition < 7 Then</b></div><div><b>            REM  xPosition = 7</b></div><div><b><br /></b></div><div><b>            'If CheckBox1.Checked = True Then</b></div><div><b>            'My.Computer.Audio.Play(My.Resources.b, AudioPlayMode.Background)</b></div><div><b>            '</b></div><div><b>            ' g.FillRectangle(Brushes.Green, 530, 50, 10, 30)</b></div><div><b>            'g.FillRectangle(Brushes.Green, 120, 50, 10, 30)</b></div><div><b>            Timer1.Stop()</b></div><div><b>            Button3.Enabled = True</b></div><div><b>            Button1.Enabled = False</b></div><div><b>            'End If</b></div><div><b>        End If</b></div><div><b>        yposition -= 15.5</b></div><div><b>        DrawNewRectangle1(yposition, 400)       REM DOOR OPENING RECTANGLE</b></div><div><b><br /></b></div><div><b>    End Sub</b></div><div><b>    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick       REM DOOR CLOSING TIMER</b></div><div><b>        If yposition > 512 Then</b></div><div><b>            REM YPosition = 400  355   ===370</b></div><div><b>            'My.Computer.Audio.Play(My.Resources.b, AudioPlayMode.Background)</b></div><div><b>            g.FillEllipse(Brushes.Black, 7, 184, 30, 30)        REM RGB BLACK</b></div><div><b>           g.FillRectangle(Brushes.Green, 673, 50, 10, 30)    REM LIMIT SWITCH 2 GREEEN</b></div><div><b>         ' g.FillRectangle(Brushes.Green, 120, 420, 10, 30)    REM LIMIT SWITCH 2 GREEEN</b></div><div><b>            Timer2.Stop()</b></div><div><b>            Button1.Enabled = True</b></div><div><b>            Button3.Enabled = False</b></div><div><b>        End If</b></div><div><b>        yposition += 15.5                                   REM   30.6    15.5</b></div><div><b>        DrawNewRectangle2(yposition, 400)</b></div><div><b>    End Sub</b></div><div><b>    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click</b></div><div><b>        Timer1.Start()</b></div><div><b>        Timer2.Stop()</b></div><div><b>        'g.FillEllipse(Brushes.Green, 7, 184, 30, 30)</b></div><div><b>        Button1.ForeColor = Color.Green</b></div><div><b>        REM Button1.BackColor = Color.Violet</b></div><div><b>        'My.Computer.Audio.Play(My.Resources.a, AudioPlayMode.Background)</b></div><div><b>        Button3.Enabled = False</b></div><div><b>    End Sub</b></div><div><b>    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click</b></div><div><b>        Timer2.Stop()</b></div><div><b>        Timer1.Stop()</b></div><div><b>        'g.FillEllipse(Brushes.Black, 7, 184, 30, 30)</b></div><div><b>        Button1.ForeColor = Color.Black</b></div><div><b>        Button3.ForeColor = Color.Black</b></div><div><b>        'My.Computer.Audio.Play(My.Resources.b, AudioPlayMode.Background)</b></div><div><b>        Button1.Enabled = True</b></div><div><b>        Button3.Enabled = True</b></div><div><b>      If yposition <= 7 Then</b></div><div><b>            Button1.Enabled = False</b></div><div><b>        End If</b></div><div><b>        If yposition >= 512 Then</b></div><div><b>            Button3.Enabled = False</b></div><div><b>        End If</b></div><div><b>    End Sub</b></div><div><b>    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click</b></div><div><b>        Timer2.Start()</b></div><div><b>        Timer1.Stop()</b></div><div><b>        Me.Refresh()</b></div><div><b>        g.FillEllipse(Brushes.Red, 7, 184, 30, 30)    REM  RGB   Red</b></div><div><b>        Button3.ForeColor = Color.Red</b></div><div><b>        'My.Computer.Audio.Play(My.Resources.a, AudioPlayMode.Background)</b></div><div><b>        Button1.Enabled = False</b></div><div><b>    End Sub</b></div><div><b>    'Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click</b></div><div><b>    '    'Me.Hide()</b></div><div><b>    '    'Form3.Show()</b></div><div><b>    'End Sub</b></div><div><b>    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick</b></div><div><b>        g.DrawRectangle(Pens.Black, 120, 50, 10, 30)    REM limit switch 1</b></div><div><b>        ' g.DrawRectangle(Pens.Black, 120, 420, 10, 30)    REM limit switch 2</b></div><div><b>        g.DrawRectangle(Pens.Black, 673, 50, 10, 30)    REM limit switch 2</b></div><div><b><br /></b></div><div><b>        g.DrawRectangle(Pens.Black, 130, 50, 543, 400)    REM door rec</b></div><div><b>        g.DrawEllipse(Pens.Black, 7, 184, 30, 30)        REM rgb</b></div><div><b>        Button1.BackColor = Color.BlueViolet</b></div><div><b>        Button2.BackColor = Color.BlueViolet</b></div><div><b>        Button3.BackColor = Color.BlueViolet</b></div><div><b>        'Button4.BackColor = Color.BlueViolet</b></div><div><b>    End Sub</b></div><div><b>End Class</b></div></div>

Auto Gate HMI Animation VB.NET | Automatic Gate Open Close Application S...

Code: Public Class Form1     Private g As Graphics     'Private xPosition As Integer     Private yposition As Integer    Private Sub For...

Read more »

How To Animate Fans In Visual Studio Dot Net | Fans Animation VB.NET | HMI

<iframe frameborder="0" height="270" src="https://youtube.com/embed/3p29dKMW1ow?si=Bt1wWmKgefYlaXCH" width="480"></iframe><div><br /></div><h2 style="text-align: left;"><b>Form Design.</b></h2><div><br /></div><div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/a/AVvXsEhshZ2AoeWRHvgRShaAL8vIzfOV4BtRJwjC6DLQrctVhs5WvWwbXvAwtbkerJjU_9Oqq0-H7ypmKIdyw3UMx3p2FXwLxKuI9DB5_0sf2IBhjSgFSpGjObd2ve-NCn-JmosYwKXl1z32jLiV9ZU76tGBgzw__JJS4XybCEkMoozkPd_s04-Y7NweiGLKr406" style="margin-left: 1em; margin-right: 1em;"><img data-original-height="724" data-original-width="1357" height="342" src="https://blogger.googleusercontent.com/img/a/AVvXsEhshZ2AoeWRHvgRShaAL8vIzfOV4BtRJwjC6DLQrctVhs5WvWwbXvAwtbkerJjU_9Oqq0-H7ypmKIdyw3UMx3p2FXwLxKuI9DB5_0sf2IBhjSgFSpGjObd2ve-NCn-JmosYwKXl1z32jLiV9ZU76tGBgzw__JJS4XybCEkMoozkPd_s04-Y7NweiGLKr406=w640-h342" width="640" /></a></div><br /><br /><h2 style="text-align: left;"><b>Code:</b></h2></div><div><br /></div><div><div>Public Class Form1</div><div>    Private g As Graphics</div><div>    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</div><div>        g = Me.CreateGraphics()</div><div>        Me.BackColor = Color.White</div><div>    End Sub</div><div>    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click</div><div>        Timer1.Start()</div><div>    End Sub</div><div>    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click</div><div>        Timer1.Stop()</div><div>    End Sub</div><div>    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick</div><div>        Timer2.Start()</div><div>        Timer3.Start()</div><div>    End Sub</div><div>    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick</div><div>        Me.PictureBox1.Image = My.Resources.F1</div><div>        Timer2.Stop()</div><div>    End Sub</div><div>    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick</div><div>        Me.PictureBox1.Image = My.Resources.F2</div><div>        Timer3.Stop()</div><div>    End Sub</div><div>    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click</div><div>        Timer4.Start()</div><div>    End Sub</div><div>    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click</div><div>        Timer4.Stop()</div><div>    End Sub</div><div>    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick</div><div>        Timer5.Start()</div><div>        Timer6.Start()</div><div>        Timer7.Start()</div><div>    End Sub</div><div>    Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick</div><div>        Me.PictureBox2.Image = My.Resources.F11</div><div>        Timer5.Stop()</div><div>    End Sub</div><div>    Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick</div><div>        Me.PictureBox2.Image = My.Resources.F12</div><div>        Timer6.Stop()</div><div>    End Sub</div><div>    Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick</div><div>        Me.PictureBox2.Image = My.Resources.F13</div><div>        Timer7.Stop()</div><div>    End Sub</div><div>End Class</div><div><br /></div><div><br /></div><div><br /></div></div>

How To Animate Fans In Visual Studio Dot Net | Fans Animation VB.NET | HMI

Form Design. Code: Public Class Form1     Private g As Graphics     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System....

Read more »