Appendix A
RELEVANT SOURCE CODE
Imports System.Data.OleDb
Public Class Form4
Dim da As New OleDbDataAdapter
Dim dset As New DataSet
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
da = New OleDbDataAdapter("Select * from account", conn)
dset = New DataSet
da.Fill(dset, "account")
dgv.DataSource = dset.Tables("account").DefaultView
End Sub
Function populate()
da = New OleDbDataAdapter("Select * from account", conn)
dset = New DataSet
da.Fill(dset, "account")
dgv.DataSource = dset.Tables("account").DefaultView
Return True
End Function
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnAdd.Click
Dim comm As OleDbCommand
connect()
comm = New OleDbCommand
comm.Connection = conn
comm.CommandText = "Insert into account values('" & txtID.Text & "', '" & txtFName.Text
& "', '" & txtLName.Text & "','" & txtUName.Text & "' , '" & txtPassword.Text & "')"
comm.ExecuteNonQuery()
populate()
MessageBox.Show("Successfully Added")
txtID.Clear()
txtFName.Clear()
txtLName.Clear()
txtUName.Clear()
txtPassword.Clear()
End Sub
Private Sub dgv_CellClick(ByVal sender As Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellClick
txtID.Text = dgv.Rows(e.RowIndex).Cells(0).Value.ToString
txtFName.Text = dgv.Rows(e.RowIndex).Cells(1).Value.ToString
txtLName.Text = dgv.Rows(e.RowIndex).Cells(2).Value.ToString
txtUName.Text = dgv.Rows(e.RowIndex).Cells(3).Value.ToString
txtPassword.Text = dgv.Rows(e.RowIndex).Cells(4).Value.ToString
End Sub
Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnUpdate.Click
Dim comm As OleDbCommand
connect()
comm = New OleDbCommand
comm.Connection = conn
comm.CommandText = "Update account set Fname='" & txtFName.Text & "',Lname ='" &
txtLName.Text & " ', Uname= '" & txtUName.Text & "',Passwd='" & txtPassword.Text & "'
where ID='" & txtID.Text & "'"
comm.ExecuteNonQuery()
populate()
MessageBox.Show("Account Updated")
txtID.Clear()
txtFName.Clear()
txtLName.Clear()
txtUName.Clear()
txtPassword.Clear()
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnDelete.Click
Dim comm As OleDbCommand
connect()
comm = New OleDbCommand
comm.Connection = conn
comm.CommandText = "Delete from account where ID='" & txtID.Text & "'"
comm.ExecuteNonQuery()
MessageBox.Show("Successfully Deleted")
populate()
txtID.Clear()
txtFName.Clear()
txtLName.Clear()
txtUName.Clear()
txtPassword.Clear()
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnCancel.Click
txtID.Clear()
txtFName.Clear()
txtLName.Clear()
txtUName.Clear()
txtPassword.Clear()
End Sub
End Class
Imports System
Imports System.IO.Ports
Public Class Form1
Dim vpb_sy, vpb_ly As Integer
Dim TempL, HumL As Integer
Dim Temp, Hum, TempResult, HumResult As String
Dim TempToProgressBar As Single
Dim ChartLimit As Integer = 30
Dim StrSerialIn, StrSerialInRam, value As String
Dim currenttime As String
Dim messagetime, messagetime1, messagetime2, messagetime3, messagetime4,
messagetime5 As String
Dim connect As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Timer1.Enabled = True
Me.CenterToScreen()
PanelConnection.Focus()
CircularProgressBarHumidity.Value = 0
ComboBoxBaudRate.SelectedIndex = 0
btnON.Enabled = False
btnOFF.Enabled = False
For i = 0 To 30 Step 1
Chart1.Series("Humidity ").Points.AddY(0)
If Chart1.Series(0).Points.Count = ChartLimit Then
Chart1.Series(0).Points.RemoveAt(0)
End If
Chart2.Series("Temperature").Points.AddY(0)
If Chart2.Series(0).Points.Count = ChartLimit Then
Chart2.Series(0).Points.RemoveAt(0)
End If
Next
Chart1.ChartAreas(0).AxisY.Maximum = 180
Chart1.ChartAreas(0).AxisY.Minimum = -20
Chart1.ChartAreas("ChartArea1").AxisX.LabelStyle.Enabled = False
Chart2.ChartAreas(0).AxisY.Maximum = 70
Chart2.ChartAreas(0).AxisY.Minimum = -30
Chart2.ChartAreas("ChartArea1").AxisX.LabelStyle.Enabled = False
PictureBoxPBTemp.Height = 0
End Sub
Private Sub ComboBoxPort_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles ComboBoxPort.Click
If LabelStatus.Text = "Status : Connected" Then
MsgBox("Conncetion in progress, please Disconnect to change COM.",
MsgBoxStyle.Critical, "Warning !!!")
Return
End If
End Sub
Private Sub ComboBoxPort_DropDown(ByVal sender As Object, ByVal e As
System.EventArgs) Handles ComboBoxPort.DropDown
PanelConnection.Focus()
End Sub
Private Sub ComboBoxPort_SelectedIndexChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles ComboBoxPort.SelectedIndexChanged
PanelConnection.Focus()
End Sub
Private Sub ComboBoxBaudRate_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles ComboBoxBaudRate.Click
If LabelStatus.Text = "Status : Connected" Then
MsgBox("Conncetion in progress, please Disconnect to change Baud Rate.",
MsgBoxStyle.Critical, "Warning !!!")
Return
End If
End Sub
Private Sub ComboBoxBaudRate_DropDown(ByVal sender As Object, ByVal e As
System.EventArgs) Handles ComboBoxBaudRate.DropDown
PanelConnection.Focus()
End Sub
Private Sub ComboBoxBaudRate_SelectedIndexChanged(ByVal sender As Object, ByVal e
As System.EventArgs) Handles ComboBoxBaudRate.SelectedIndexChanged
PanelConnection.Focus()
End Sub
Private Sub ButtonScanPort_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonScanPort.Click
PanelConnection.Focus()
If LabelStatus.Text = "Status : Connected" Then
MsgBox("Conncetion in progress, please Disconnect to scan the new port.",
MsgBoxStyle.Critical, "Warning !!!")
Return
End If
ComboBoxPort.Items.Clear()
Dim myPort As Array
Dim i As Integer
myPort = IO.Ports.SerialPort.GetPortNames()
ComboBoxPort.Items.AddRange(myPort)
i = ComboBoxPort.Items.Count
i=i-i
Try
ComboBoxPort.SelectedIndex = i
ButtonConnect.Enabled = True
Catch ex As Exception
MsgBox("Com port not detected", MsgBoxStyle.Critical, "Warning !!!")
ComboBoxPort.Text = ""
ComboBoxPort.Items.Clear()
Return
End Try
ComboBoxPort.DroppedDown = True
End Sub
Private Sub ButtonConnect_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonConnect.Click
PanelConnection.Focus()
Try
SerialPort1.BaudRate = ComboBoxBaudRate.SelectedItem
SerialPort1.PortName = ComboBoxPort.SelectedItem
SerialPort1.Open()
TimerSerial.Start()
LabelStatus.Text = "Status : Connected"
ButtonConnect.SendToBack()
ButtonDisconnect.BringToFront()
PictureBoxStatusConnection.BackColor = Color.Green
Catch ex As Exception
MsgBox("Please check the Hardware, COM, Baud Rate and try again.",
MsgBoxStyle.Critical, "Connection failed !!!")
End Try
End Sub
Private Sub ButtonDisconnect_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonDisconnect.Click
PanelConnection.Focus()
TimerSerial.Stop()
SerialPort1.Close()
ButtonDisconnect.SendToBack()
ButtonConnect.BringToFront()
LabelStatus.Text = "Status : Disconnect"
PictureBoxStatusConnection.Visible = True
PictureBoxStatusConnection.BackColor = Color.Red
End Sub
Function MapVPB(ByVal X As Single, ByVal In_min As Single, ByVal In_max As Single,
ByVal Out_min As Single, ByVal Out_max As Single) As Integer
Dim A As Single
Dim B As Single
A = X - In_min
B = Out_max - Out_min
A=A*B
B = In_max - In_min
A=A/B
MapVPB = A + Out_min
End Function
Private Sub TimerSerial_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TimerSerial.Tick
Try
StrSerialIn = SerialPort1.ReadExisting
Dim TB As New TextBox
TB.Multiline = True
TB.Text = StrSerialIn
If TB.Lines.Count > 0 Then
If TB.Lines(0) = "Failed to read from DHT sensor!" Then
TimerSerial.Stop()
SerialPort1.Close()
LabelStatus.Text = "Status : Disconnect"
ButtonDisconnect.SendToBack()
ButtonConnect.BringToFront()
PictureBoxStatusConnection.Visible = True
PictureBoxStatusConnection.BackColor = Color.Red
MsgBox("Failed to read from DHT sensor !!!, Please check the Hardware and
Please connect again.", MsgBoxStyle.Critical, "Connection failed !!!")
Return
End If
StrSerialInRam = TB.Lines(0).Substring(0, 1)
If StrSerialInRam = "H" Then
Hum = TB.Lines(0)
HumL = Hum.Length
Else
Hum = Hum
End If
StrSerialInRam = TB.Lines(1).Substring(0, 1)
If StrSerialInRam = "T" Then
Temp = TB.Lines(1)
TempL = Temp.Length
Else
Temp = Temp
End If
HumResult = Mid(Hum, 2, HumL)
TempResult = Mid(Temp, 2, TempL)
TempToProgressBar = TempResult
CircularProgressBarHumidity.Value = HumResult
CircularProgressBarHumidity.Text = CircularProgressBarHumidity.Value & " %"
LabelTemperature.Text = TempResult & " °C"
vpb_sy = MapVPB(TempToProgressBar, -20.0, 60.0, 0, 120)
If vpb_sy > 120 Then
vpb_sy = 120
End If
If vpb_sy < 0 Then
vpb_sy = 0
End If
PictureBoxPBTemp.Height = PictureBoxPBTempBack.Height * vpb_sy / 120
vpb_ly = (PictureBoxPBTempBack.Height - vpb_sy) +
PictureBoxPBTempBack.Location.Y
PictureBoxPBTemp.Location = New Point(PictureBoxPBTemp.Location.X, vpb_ly)
Chart1.Series("Humidity ").Points.AddY(HumResult)
If Chart1.Series(0).Points.Count = ChartLimit Then
Chart1.Series(0).Points.RemoveAt(0)
End If
Chart2.Series("Temperature").Points.AddY(TempResult)
If Chart2.Series(0).Points.Count = ChartLimit Then
Chart2.Series(0).Points.RemoveAt(0)
End If
If PictureBoxStatusConnection.Visible = True Then
PictureBoxStatusConnection.Visible = False
ElseIf PictureBoxStatusConnection.Visible = False Then
PictureBoxStatusConnection.Visible = True
End If
End If
Catch ex As Exception
TimerSerial.Stop()
SerialPort1.Close()
LabelStatus.Text = "Status : Disconnect"
ButtonDisconnect.SendToBack()
ButtonConnect.BringToFront()
PictureBoxStatusConnection.BackColor = Color.Red
MsgBox("Please check the Hardware and Please connect again." & ex.Message,
MsgBoxStyle.Critical, "Connection failed !!!")
Return
End Try
End Sub
Private Sub RdTemp_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RdTemp.CheckedChanged
TxtMinTemp.Enabled = False
TxtMaxTemp.Enabled = False
BtnTemp.Enabled = False
btnResTemp.Enabled = False
If RdTemp.Checked = True Then
TxtMinTemp.Enabled = True
TxtMaxTemp.Enabled = True
BtnTemp.Enabled = True
btnResTemp.Enabled = True
End If
End Sub
Private Sub RdTime_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RdTime.CheckedChanged
mtbMist1.Enabled = False
mtbMist2.Enabled = False
mtbMist3.Enabled = False
mtbMist1End.Enabled = False
mtbMist2End.Enabled = False
mtbMist3End.Enabled = False
btnMist1.Enabled = False
btnMist2.Enabled = False
btnMist3.Enabled = False
btnResMist1.Enabled = False
btnResMist2.Enabled = False
btnResMist3.Enabled = False
btnMist3.Enabled = False
cmbMist1.Enabled = False
cmbMist2.Enabled = False
cmbMist3.Enabled = False
cmbMist1End.Enabled = False
cmbMist2End.Enabled = False
cmbMist3End.Enabled = False
If RdTime.Checked = True Then
mtbMist1.Enabled = True
mtbMist2.Enabled = True
mtbMist3.Enabled = True
mtbMist1End.Enabled = True
mtbMist2End.Enabled = True
mtbMist3End.Enabled = True
btnMist1.Enabled = True
btnMist2.Enabled = True
btnMist3.Enabled = True
btnResMist1.Enabled = True
btnResMist2.Enabled = True
btnResMist3.Enabled = True
btnMist3.Enabled = True
cmbMist1.Enabled = True
cmbMist2.Enabled = True
cmbMist3.Enabled = True
cmbMist1End.Enabled = True
cmbMist2End.Enabled = True
cmbMist3End.Enabled = True
End If
End Sub
Private Sub BtnTemp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles BtnTemp.Click
Try
If (LabelTemperature.Text >= TxtMinTemp.Text And LabelTemperature.Text <=
TxtMaxTemp.Text) Then
connect = True
value = "1"
SerialPort2.Write(value)
SerialPort2.DiscardOutBuffer()
Else
value = "0"
SerialPort2.Write(value)
SerialPort2.DiscardOutBuffer()
End If
Catch ex As Exception
MsgBox("Please check the Hardware and Please connect again." & ex.Message,
MsgBoxStyle.Critical, "Connection failed !!!")
End Try
TxtMinTemp.Enabled = False
TxtMaxTemp.Enabled = False
End Sub
Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Timer1.Tick
lblTimer.Text = Date.Now.ToString("MMM dd yyyy")
currenttime = TimeOfDay.ToString("hh:mm:ss tt")
lblTime.Text = currenttime
messagetime = mtbMist1.Text + " " + cmbMist1.Text
messagetime1 = mtbMist1End.Text + " " + cmbMist1End.Text
If lblTime.Text = messagetime Then
connect = True
value = "1"
SerialPort2.Write(value)
SerialPort2.DiscardOutBuffer()
ElseIf lblTime.Text = messagetime1 Then
Timer2.Stop()
value = "0"
SerialPort2.Write(value)
SerialPort2.DiscardOutBuffer()
End If
messagetime2 = mtbMist2.Text + " " + cmbMist2.Text
messagetime3 = mtbMist2End.Text + " " + cmbMist2End.Text
If lblTime.Text = messagetime2 Then
connect = True
value = "1"
SerialPort2.Write(value)
SerialPort2.DiscardOutBuffer()
ElseIf lblTime.Text = messagetime3 Then
Timer2.Stop()
value = "0"
SerialPort2.Write(value)
SerialPort2.DiscardOutBuffer()
End If
messagetime4 = mtbMist3.Text + " " + cmbMist3.Text
messagetime5 = mtbMist3End.Text + " " + cmbMist3End.Text
If lblTime.Text = messagetime4 Then
connect = True
value = "1"
SerialPort2.Write(value)
SerialPort2.DiscardOutBuffer()
ElseIf lblTime.Text = messagetime5 Then
Timer2.Stop()
value = "0"
SerialPort2.Write(value)
SerialPort2.DiscardOutBuffer()
End If
End Sub
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
TxtMinTemp.Enabled = True
TxtMaxTemp.Enabled = True
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Timer2.Tick
End Sub
Public Sub btnMist1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnMist1.Click
mtbMist1.Enabled = False
cmbMist1.Enabled = False
mtbMist1End.Enabled = False
cmbMist1End.Enabled = False
End Sub
Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnConnect1.Click
If connect = False Then
For Each PortDispose As String In
My.Computer.Ports.SerialPortNames
cmbMotor.Items.Add(PortDispose)
Next
If cmbMotor.Items.Count > 0 Then
cmbMotor.Text = cmbMotor.Items(0)
SerialPort2.Open()
btnON.Enabled = True
btnOFF.Enabled = True
cmbMotor.Enabled = False
MsgBox("CONNECTED")
lblStatus1.Text = "Status : Connected"
btnConnect1.SendToBack()
btnDisconnect1.BringToFront()
PictureBoxStatusConnection1.BackColor = Color.Green
connect = True
Else
MsgBox("NO PORT FOUND")
End If
Else
SerialPort2.Close()
MsgBox("DISCONECTED")
connect = False
End If
End Sub
Private Sub btnON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnON.Click
If connect = True Then
value = "1"
SerialPort2.Write(value)
SerialPort2.DiscardOutBuffer()
End If
End Sub
Private Sub btnOFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnOFF.Click
If connect = True Then
value = "0"
SerialPort2.Write(value)
SerialPort2.DiscardOutBuffer()
End If
End Sub
Private Sub btnMotorScan_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnMotorScan.Click
PanelConnection.Focus()
If lblStatus1.Text = "Status : Connected" Then
MsgBox("Conncetion in progress, please Disconnect to scan the new port.",
MsgBoxStyle.Critical, "Warning !!!")
Return
End If
cmbMotor.Items.Clear()
Dim myPort1 As Array
Dim motor As Integer
myPort1 = IO.Ports.SerialPort.GetPortNames()
cmbMotor.Items.AddRange(myPort1)
motor = cmbMotor.Items.Count
motor = motor - motor
Try
cmbMotor.SelectedIndex = motor
btnConnect1.Enabled = True
Catch ex As Exception
MsgBox("Com port not detected", MsgBoxStyle.Critical, "Warning !!!")
cmbMotor.Text = ""
cmbMotor.Items.Clear()
Return
End Try
cmbMotor.DroppedDown = True
End Sub
Private Sub btnDisconnect1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnDisconnect1.Click
SerialPort2.Close()
btnDisconnect1.SendToBack()
btnConnect1.BringToFront()
lblStatus1.Text = "Status : Disconnect"
PictureBoxStatusConnection1.Visible = True
PictureBoxStatusConnection1.BackColor = Color.Red
End Sub
Private Sub btnResTemp_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnResTemp.Click
TxtMinTemp.Enabled = True
TxtMaxTemp.Enabled = True
End Sub
Private Sub ManageUserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ManageUserToolStripMenuItem.Click
Form4.Show()
End Sub
Private Sub LogoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles LogoutToolStripMenuItem.Click
Dim ask As MsgBoxResult = MsgBox("Are you sure you want to logout?",
MsgBoxStyle.YesNo)
If ask = MsgBoxResult.Yes Then
Me.Close()
Form3.Show()
ElseIf ask = MsgBoxResult.No Then
Me.Show()
End If
End Sub
Private Sub btnMist2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnMist2.Click
mtbMist2.Enabled = False
cmbMist2.Enabled = False
mtbMist2End.Enabled = False
cmbMist2End.Enabled = False
End Sub
Private Sub btnMist3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnMist3.Click
mtbMist3.Enabled = False
cmbMist3.Enabled = False
mtbMist3End.Enabled = False
cmbMist3End.Enabled = False
End Sub
Private Sub btnResMist1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnResMist1.Click
mtbMist1.Enabled = True
cmbMist1.Enabled = True
mtbMist1End.Enabled = True
cmbMist1End.Enabled = True
End Sub
Private Sub btnResMist2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnResMist2.Click
mtbMist2.Enabled = True
cmbMist2.Enabled = True
mtbMist2End.Enabled = True
cmbMist2End.Enabled = True
End Sub
Private Sub btnResMist3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnResMist3.Click
mtbMist3.Enabled = True
cmbMist3.Enabled = True
mtbMist3End.Enabled = True
cmbMist3End.Enabled = True
End Sub
End Class
