Introduction: Arduino and Vb.net Advanced UI Home Automation Demo | Led Control With GUI
Click Here for Special Information
This is Arduino base Home automation demo using Vb.net coding with Graphical user interface, see all steps and try to do it your self.
- Require Hardware parts:
- Arduino Uno
- Breadboard (Multifunctional or led board)
- Jumper wires
- Require Software tools:
- Visual Studion 10
- Arduino IDE
:
Step 1:
Step 2: Step 1: Simply Connect Your Arduino With Multifunctional Board
- Simply connect your arduino board with Led's on bread board or if you have multi functional board then you can use it
- Make sure you have connection properly or not.
- Connect your arduino with Arduino IDE and check your port connection.
- because, for software serial interfacing you have to clear about which port is using for serial communication.
- After connection check Port number.
Step 3: Step 2: Upload Your Arduino Code
int ledPin = 13;
int led1Pin = 12;
void setup() {
Serial.begin(9600);
pinMode(13, OUTPUT);
digitalWrite(13, LOW);
pinMode(12, OUTPUT);
digitalWrite(10, LOW); //turn off LED1
}
void loop()
{
while (Serial.available() == 0);
int val = Serial.read() - '0';
if (val == 1)
{
digitalWrite(12, HIGH);
}
else if (val == 0) //
{
digitalWrite(12, LOW); }
else if (val == 2)
{
digitalWrite(13, HIGH);
}
else if (val == 3)
{
digitalWrite(13, LOW);
}
else
{
//val = val;
}
Serial.println(val);
Serial.flush(); // clear serial port
}
Step 4: Step 3: Make Vb Code on Visual Studio
Note: Only Serial Communication Code lines and one Button example is uploaded her, other code do it your self as similar to this codes,
vb Code:
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Form3
Shared _continue As Boolean
Shared _serialPort As SerialPort
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SerialPort1.Close()
SerialPort1.PortName = "com3"
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SerialPort1.Open()
SerialPort1.Write("1")
SerialPort1.Close()
End Sub
Step 5: Run Your VB Code
Step 6: Subscribe My YouTube Channel for More Videos
