hier der code:
Imports System.IO.Ports.SerialPort
Imports MySql.Data.MySqlClient
Public Class Form1
'Attribute
Private MyConnectionBox1, MyConnectionBox2 As MySqlConnection
Private MyCommandBox1, MyCommandBox2 As MySqlCommand
Private eintrag As String
Private WertListBox1 As String
Private WertListBox2 As String
Private SchaltenBox1 As String
Private SchaltenBox2 As String
'SerialPort öffnen
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
SerialPort1.PortName = "COM6"
SerialPort1.Open()
Catch ex As Exception
lbl_FehlermeldungenAllgemein.Text = "1.Fehler: " & ex.Message
End Try
Timer1.Enabled = True
End Sub
'SerialPort Werte einlesen
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim in_string As String
Dim in_string2 As String
Dim in_string3 As String
Try
Control.CheckForIllegalCrossThreadCalls = False
in_string = SerialPort1.ReadLine
If (in_string.IndexOf("1", 0, 1) <> -1) Then
'ID "1" wird abgeschnitten
in_string2 = in_string.Remove(0, 1)
'.Replace(alter Wert der ersetzt wird,neuer Wert der eingetragen wird)
in_string3 = in_string2.Replace(Chr(13), Nothing)
WertListBox1 = in_string3
If (Me.getZustandBox1 = 1) Then
lst_AusgabeWerteBox1.Items.Insert(0, in_string3)
End If
End If
If (in_string.IndexOf("2", 0, 1) <> -1) Then
in_string2 = in_string.Remove(0, 1)
'.Replace(alter Wert der ersetzt wird,neuer Wert der eingetragen wird)
in_string3 = in_string2.Replace(Chr(13), Nothing)
WertListBox2 = in_string3
If (Me.getZustandBox2 = 1) Then
lst_AusgabeWerteBox2.Items.Insert(0, in_string3)
End If
End If
Catch ex As Exception
lbl_FehlermeldungenAllgemein.Text = "2.Fehler: " & ex.Message
End Try
End Sub
'Timer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Me.getZustandBox1 = 1 Then
'Box1 eingeschaltet
Me.WerteInDBEintragenBox1()
lbl_StatusBox1.Text = "Status: EINGESCHALTET"
Else
'Box1 ausgeschaltet
Me.lst_AusgabeWerteBox1.Items.Clear()
lbl_FehlermeldungBox1.Text = ""
lbl_FehlermeldungenAllgemein.Text = ""
lbl_StatusBox1.Text = "Status: AUSGESCHALTET"
End If
If Me.getZustandBox2 = 1 Then
'Box2 eingeschaltet
Me.WerteInDBEintragenBox2()
lbl_StatusBox2.Text = "Status: EINGESCHALTET"
Else
'Box2 ausgeschaltet
Me.lst_AusgabeWerteBox2.Items.Clear()
lbl_FehlermeldungBox2.Text = ""
lbl_FehlermeldungenAllgemein.Text = ""
lbl_StatusBox2.Text = "Status: AUSGESCHALTET"
End If
Me.ZustandBox1Box2() 'Überwachung falls über Homepage geschaltet wird
End Sub
'Werte von BOX 1 in DB eintragen
Private Sub WerteInDBEintragenBox1()
Dim KW As Integer
Dim EffektivWert As Double
Dim Spannung As Double
Dim Leistung As Double
'DatePart gibt die KW-Woche zurück
KW = DatePart(DateInterval.WeekOfYear, Date.Today(), FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
Try
Me.MitDBVerbindenBox1()
If WertListBox1 > 0 Then
'Wert in Datenbank schreiben
EffektivWert = Convert.ToDouble(WertListBox1.Replace(".", ","))
Spannung = "230"
Leistung = EffektivWert * Spannung
'EffektivWert.ToString.Replace(",", ".")weil Mysql akzeptiert nur Punkte(z.B.12.345) und VB nur Kommas(z.B. 12,345)
MyCommandBox1 = New MySqlCommand("INSERT INTO boxwerte (strom,spannung,leistung,tag,monat,jahr,KW) VALUES ('" & _
EffektivWert.ToString.Replace(",", ".") & "','" & Spannung & "','" & Leistung.ToString.Replace(",", ".") & "','" & _
Date.Now.Day & "','" & Date.Now.Month & "','" & Date.Now.Year & "','" & KW & "');", MyConnectionBox1)
MyCommandBox1.ExecuteNonQuery()
End If
Me.DBVerbindungTrennenBox1()
Catch ex As Exception
lbl_FehlermeldungBox1.Text = "3. Fehler: " & ex.Message
End Try
End Sub
'Werte von BOX 2 in DB eintragen
Private Sub WerteInDBEintragenBox2()
Dim KW As Integer
Dim EffektivWert As Double
Dim Spannung As Double
Dim Leistung As Double
'DatePart gibt die KW-Woche zurück
KW = DatePart(DateInterval.WeekOfYear, Date.Today(), FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
Try
Me.MitDBVerbindenBox2()
If WertListBox2 > 0 Then
'Wert in Datenbank schreiben
EffektivWert = Convert.ToDouble(WertListBox2.Replace(".", ","))
Spannung = 230
Leistung = EffektivWert * Spannung
'EffektivWert.ToString.Replace(",", ".")weil Mysql akzeptiert nur Punkte(z.B.12.345) und VB nur Kommas(z.B. 12,345)
MyCommandBox2 = New MySqlCommand("INSERT INTO boxwerte (strom,spannung,leistung,tag,monat,jahr,KW) VALUES ('" & _
EffektivWert.ToString.Replace(",", ".") & "','" & Spannung & "','" & Leistung.ToString.Replace(",", ".") & "','" & _
Date.Now.Day & "','" & Date.Now.Month & "','" & Date.Now.Year & "','" & KW & "');", MyConnectionBox2)
MyCommandBox2.ExecuteNonQuery()
End If
Me.DBVerbindungTrennenBox2()
Catch ex As Exception
lbl_FehlermeldungBox2.Text = "4. Fehler: " & ex.Message
End Try
End Sub
'Datenbank Verbindung aufbauen Box1
Public Sub MitDBVerbindenBox1()
Try
MyConnectionBox1 = New MySqlConnection
MyConnectionBox1.ConnectionString = "server=127.0.0.1;" & _
"UID=root;" & _
"pwd=test;" & _
"database=Box1;"
MyConnectionBox1.Open()
Catch ex As Exception
lbl_FehlermeldungenAllgemein.Text = "5.Fehler: " & ex.Message
End Try
End Sub
'Datenbank Verbindung aufbauen Box2
Public Sub MitDBVerbindenBox2()
Try
MyConnectionBox2 = New MySqlConnection
MyConnectionBox2.ConnectionString = "server=127.0.0.1;" & _
"UID=root;" & _
"pwd=test;" & _
"database=Box2;"
MyConnectionBox2.Open()
Catch ex As Exception
lbl_FehlermeldungenAllgemein.Text = "5.Fehler: " & ex.Message
End Try
End Sub
'Datenbank Verbindung trennen
Public Sub DBVerbindungTrennenBox1()
Try
MyConnectionBox1.Close()
Catch ex As Exception
lbl_FehlermeldungenAllgemein.Text = "6.Fehler: " & ex.Message
End Try
End Sub
'Datenbank Verbindung trennen
Public Sub DBVerbindungTrennenBox2()
Try
MyConnectionBox2.Close()
Catch ex As Exception
lbl_FehlermeldungenAllgemein.Text = "6.Fehler: " & ex.Message
End Try
End Sub
'Box 1 einschalten
Private Sub bt_Box1Einschalten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Box1Einschalten.Click
Try
Me.MitDBVerbindenBox1()
If SerialPort1.IsOpen Then
SerialPort1.Write(ChrW(32))
End If
MyCommandBox1 = New MySqlCommand("UPDATE boxzustand SET zustand=1 WHERE id=1;", MyConnectionBox1)
'ExecuteNonQuery führt Befehl aus ohne Rückgabewert
MyCommandBox1.ExecuteNonQuery()
Me.DBVerbindungTrennenBox1()
Catch ex As Exception
lbl_FehlermeldungBox1.Text = "7. Fehler: " & ex.Message
End Try
End Sub
'Box 1 auschalten
Private Sub bt_Box1Ausschalten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Box1Ausschalten.Click
Try
Me.MitDBVerbindenBox1()
If SerialPort1.IsOpen Then
SerialPort1.Write(ChrW(33))
End If
MyCommandBox1 = New MySqlCommand("UPDATE boxzustand SET zustand=0 WHERE id=1;", MyConnectionBox1)
MyCommandBox1.ExecuteNonQuery()
Me.DBVerbindungTrennenBox1()
Catch ex As Exception
lbl_FehlermeldungBox1.Text = "8. Fehler: " & ex.Message
End Try
End Sub
'Box 2 einschalten
Private Sub bt_Box2Ein_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Box2Ein.Click
Try
Me.MitDBVerbindenBox2()
If SerialPort1.IsOpen Then
SerialPort1.Write(ChrW(34))
End If
MyCommandBox2 = New MySqlCommand("UPDATE boxzustand SET zustand=1 WHERE id=1;", MyConnectionBox2)
MyCommandBox2.ExecuteNonQuery()
Me.DBVerbindungTrennenBox2()
Catch ex As Exception
lbl_FehlermeldungBox2.Text = "9. Fehler: " & ex.Message
End Try
End Sub
'Box 2 auschalten
Private Sub bt_Box2Aus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Box2Aus.Click
Try
Me.MitDBVerbindenBox2()
If SerialPort1.IsOpen Then
SerialPort1.Write(ChrW(35))
End If
MyCommandBox2 = New MySqlCommand("UPDATE boxzustand SET zustand=0 WHERE id=1;", MyConnectionBox2)
MyCommandBox2.ExecuteNonQuery()
Me.DBVerbindungTrennenBox2()
Catch ex As Exception
lbl_FehlermeldungBox2.Text = "10. Fehler: " & ex.Message
End Try
End Sub
'Zustand Box 1 einlesen und RadioButtons dementsprechend schalten
Private Function getZustandBox1() As Integer
Static Zustand1 As Integer
Try
Me.MitDBVerbindenBox1()
MyCommandBox1 = New MySqlCommand("SELECT zustand FROM boxzustand WHERE id=1;", MyConnectionBox1)
'ExecuteScalar führt den Befehl aus mit einem Rückgabewert
Zustand1 = System.Convert.ToInt16(MyCommandBox1.ExecuteScalar())
Me.DBVerbindungTrennenBox1()
If Zustand1 = 1 Then
Return 1
End If
Catch ex As Exception
lbl_FehlermeldungBox1.Text = "11. Fehler: " & ex.Message
End Try
Return 0
End Function
'Zustand Box 2 einlesen
Private Function getZustandBox2() As Integer
Static Zustand2 As Integer
Try
Me.MitDBVerbindenBox2()
MyCommandBox2 = New MySqlCommand("SELECT zustand FROM boxzustand WHERE id=1;", MyConnectionBox2)
'ExecuteScalar führt den Befehl aus mit einem Rückgabewert
Zustand2 = Convert.ToInt16(MyCommandBox2.ExecuteScalar())
Me.DBVerbindungTrennenBox2()
If Zustand2 = 1 Then
Return 1
End If
Catch ex As Exception
lbl_FehlermeldungBox2.Text = "12. Fehler: " & ex.Message
End Try
Return 0
End Function
'Zustände schalten mit Button von der Homepage über Datenbank
Private Sub ZustandBox1Box2()
If Me.getZustandBox1 = 1 Then
'Box 1 einschalten
If SerialPort1.IsOpen Then
SerialPort1.Write(ChrW(32))
End If
Else
'Box 1 ausschalten
If SerialPort1.IsOpen Then
SerialPort1.Write(ChrW(33))
End If
End If
If Me.getZustandBox2 = 1 Then
'Box 2 einschalten
If SerialPort1.IsOpen Then
SerialPort1.Write(ChrW(34))
End If
Else
'Box 2 ausschalten
If SerialPort1.IsOpen Then
SerialPort1.Write(ChrW(35))
End If
End If
End Sub
End Class
Verwende MySQL Server 5.0 und MySQL Connector Net 6.2.4
