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.EventArgs) Handles MyBase.Load
        g = Me.CreateGraphics()
        Me.BackColor = Color.White
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer2.Start()
        Timer3.Start()
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Me.PictureBox1.Image = My.Resources.F1
        Timer2.Stop()
    End Sub
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Me.PictureBox1.Image = My.Resources.F2
        Timer3.Stop()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer4.Start()
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Timer4.Stop()
    End Sub
    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        Timer5.Start()
        Timer6.Start()
        Timer7.Start()
    End Sub
    Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
        Me.PictureBox2.Image = My.Resources.F11
        Timer5.Stop()
    End Sub
    Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
        Me.PictureBox2.Image = My.Resources.F12
        Timer6.Stop()
    End Sub
    Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
        Me.PictureBox2.Image = My.Resources.F13
        Timer7.Stop()
    End Sub
End Class



Comments

Post a Comment

Popular posts from this blog

MQ-4 Sensor:

-
Image
  MQ-4 sensor is a gas detecting sensor. This sensor is mainly use to detect Methane, and CNG Gas. This sensor also sensing   other flammable gases like Butane and propane. Good sensitivity to Combustible gas in wide range. High sensitivity to Natural gas / CNG. Low sensitivity to smoke, flame. Long life and low cost. Simple drive circuit. There are different MQ series sensor which is used for detecting different gases. List of different   MQ series sensor are given below. MQ-2       Methane, Butane, LPG, Smoke. MQ-3      Alcohol, Ethanol, Smoke MQ-4      Methane, CNG Gas MQ-5     Natural gas, LPG MQ-6      LPG, butane MQ-7      Carbon Monoxide MQ-8       Hydrogen Gas MQ-9        Carbon Monoxide, flammable gasses MQ131     Ozone MQ135     Air Qual...
Read more

MQ-4 Gas Sensor with ESP8266 and Blynk application | IOT Project

-
Image
  MQ-4 Gas Sensor : Monitor your home Gas leakage with your mobile phone. This sensor detects the concentration of methane and CNG gas in the air and outputs its reading as an analog voltage and digital voltage . The concentration sensing range of 300 ppm to 10,000 ppm is suitable for leak detection.  Components:  1:Node Mcu Esp8266. 2:MQ-4 Gas sensor.  3:LED 4:Resistors  5:Buzzer  6:Bread board.  7:Some jumper wires Blynk: Circuit Diagram: Code: #define BLYNK_PRINT Serial #include <ESP8266WiFi.h> #include <BlynkSimpleEsp8266.h> BlynkTimer timer; char auth[] = "Auth Code";                                       //Auth Code from blynk char ssid[] = "WiFi SSID";                                      //your WiFi SSID char pass[] = "Password";  ...
Read more

DIY | How to make a 200 Eggs Incubator at home - XK-W1099 | Home Made Incubator Eggs Hatcher AC/DC

-
Image
  Introduction:                         An incubator is a machine which is use for hatching bird’s eggs. The incubator we design can almost hatch all kinds of bird eggs. Like Chickens, Ducks, Pheasants, Peafowls, Turkeys etc.        The Incubator we design here is Semi Auto. It means that The temperature control   will be automatic while eggs turning will be manual by hand also humidity will be manual .it’s very easy to operate a semi auto incubator successfully .For humidity level control you just need to increase the water surface level will increase humidity level and vice versa . The eggs turning .Two to three times a day will give you a good result. (For good result 8 hours duration between each turning) Components Used in This Project: 1: A Box (Can be made from Wood, fly board, plastic or Aluminum anything that can hold heat inside). 2: Controller I am using XK-W1099 Digital The...
Read more