On Error Resume Next
Dim sql,sql1
Dim dbname, dbuser, dbpw, conn
Dim recordset, i
Dim Raum
Dim Szene
Dim Licht
Dim Raumzahl
Dim offsetarray
Dim Jalauf,Jalzu,Heizungaktiv,Jalaktiv,Farbsteuerung,Szenenwahl,Raumname,Solltemp,Solljal
Dim zugriffrechnung,LichtSPS,JalaufSPS,JalzuSPS,Jalaufzyklus,Jalzuzyklus,Istjal,Isttemp
Dim RGBzyklus,Lichtzyklus,zeit
i=schleife
offsetarray=54
Raumzahl=SmartTags("Raumzahl")
'MySQL Daten zugriff variablen deklarieren
dbname = "puppenhaus" 'Datenbankname
dbuser = "root" 'Datenbankuser
dbpw = "" 'Datenbankpasswort
Set conn = CreateObject("ADODB.Connection")
'Aufruf des verwendeten SQL Treiber
conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; DATABASE=" + dbname + "; UID=" + dbuser + ";PWD=" + dbpw + "; OPTION=3"
'Kommunikation zu mysql öffnen
conn.Open
SmartTags("Multiplex_Name")=(offsetarray*i)+20
SmartTags("Multiplex_Bits1")=(offsetarray*i)+52
SmartTags("Multiplex_Bits2")=(offsetarray*i)+53
SmartTags("Multiplex_RGB")=(offsetarray*i)+54
SmartTags("Multiplex_RGB_zyklus")=(offsetarray*i)+56
SmartTags("Multiplex_SollJal")=(offsetarray*i)+58
SmartTags("Multiplex_Istjal")=(offsetarray*i)+62
SmartTags("Multiplex_SollTemp")=(offsetarray*i)+66
SmartTags("Multiplex_IstTemp")=(offsetarray*i)+70
'For zeit=0 To 100 Step 1
'hh
' Next
Delay(1)
' Daten von mysql Datenbank auslesen
sql = "SELECT NAME,Heizung,Jalousie,Farbe,Szene,Solltemp,Solljalousie,Lichtein,Jalauf,Jalzu FROM raume WHERE id="& CStr(i+1)
recordset = conn.Execute(sql)
Licht = recordset("Lichtein")
Jalauf= recordset("Jalauf")
Jalzu= recordset("Jalzu")
Heizungaktiv= recordset("Heizung")
Jalaktiv= recordset("Jalousie")
Farbsteuerung= recordset("Farbe")
Szenenwahl= recordset("Szene")
Raumname= recordset("NAME")
Solltemp= recordset("Solltemp")
Solljal= recordset("Solljalousie")
SmartTags("S_Raumname")=Raumname
If SmartTags("B_Licht_ein")=True Then
LichtSPS=1
Else
LichtSPS=0
End If
If SmartTags("B_Licht_Zyklus")=True Then
Lichtzyklus=1
Else
Lichtzyklus=0
End If
If Licht <> LichtSPS Then
If Lichtzyklus <> Licht Then
If Licht = 1 Then
SmartTags("B_Licht_ein")=True
SmartTags("B_Licht_Zyklus")=True
Else
SmartTags("B_Licht_ein")=False
SmartTags("B_Licht_Zyklus")=False
End If
End If
If Lichtzyklus <> LichtSPS Then
sql1 = "Update raume SET Lichtein="& CInt(LichtSPS)& " where ID="& CInt(i+1)
recordset = conn.Execute(sql1)
If LichtSPS =1 Then
SmartTags("B_Licht_Zyklus")=True
Else
SmartTags("B_Licht_Zyklus")=False
End If
End If
End If
SmartTags("B_Heizung_aktiv")=Heizungaktiv
If Heizungaktiv =1 Then
Isttemp=SmartTags("R_Istwert_Temp")
SmartTags("R_Sollwert_Temp")=Solltemp
sql1 = "Update raume SET Isttemp="& CDbl(Isttemp)& " where ID="& CInt(i+1)
recordset = conn.Execute(sql1)
End If
If Jalaktiv =1 Then
If SmartTags("B_Jal_auf")=True Then
JalaufSPS=1
Else
JalaufSPS=0
End If
If SmartTags("B_Jal_zu")=True Then
JalzuSPS=1
Else
JalzuSPS=0
End If
If SmartTags("B_Jal_auf_Zyklus") = True Then
Jalaufzyklus=1
Else
Jalaufzyklus=0
End If
If SmartTags("B_Jal_zu_Zyklus") = True Then
Jalzuzyklus=1
Else
Jalzuzyklus=0
End If
If JalaufSPS <> Jalauf Then
If Jalaufzyklus <> Jalauf Then
If Jalauf =1 Then
SmartTags("B_Jal_auf")= True
SmartTags("B_Jal_auf_Zyklus")=True
Else
SmartTags("B_Jal_auf")=False
SmartTags("B_Jal_auf_Zyklus")=False
End If
End If
If Jalaufzyklus <> JalaufSPS Then
sql1 = "Update raume SET Jalauf="& CInt(JalaufSPS)& " where ID="& CInt(i+1)
recordset = conn.Execute(sql1)
If JalaufSPS =1 Then
SmartTags("B_Jal_auf_Zyklus")=True
Else
SmartTags("B_Jal_auf_Zyklus")=False
End If
End If
End If
If JalzuSPS <> Jalzu Then
If Jalzuzyklus <> Jalzu Then
If Jalauf =1 Then
SmartTags("B_Jal_zu")= True
SmartTags("B_Jal_zu_Zyklus")=True
Else
SmartTags("B_Jal_zu")=False
SmartTags("B_Jal_zu_Zyklus")=False
End If
End If
If Jalzuzyklus <> JalzuSPS Then
sql1 = "Update raume SET Jalzu="& CInt(JalzuSPS)& " where ID="& CInt(i+1)
recordset = conn.Execute(sql1)
If JalaufSPS =1 Then
SmartTags("B_Jal_zu_Zyklus")=True
Else
SmartTags("B_Jal_zu_Zyklus")=False
End If
End If
End If
SmartTags("R_Sollwert_jal")=Solljal
If i>0 Then
Istjal=SmartTags("R_Istwert_jal")
sql1 = "Update raume SET Istjal="& CLng(Istjal)& " where ID="& CInt(i+1)
recordset = conn.Execute(sql1)
End If
End If
If Farbsteuerung= 1 Then
If Szenenwahl <> SmartTags("I_RGB_Szene") Then
If Szenenwahl <> SmartTags("I_RGB_zyklus") Then
SmartTags("I_RGB_Szene")= Szenenwahl
SmartTags("I_RGB_zyklus")=Szenenwahl
End If
If SmartTags("I_RGB_Szene") <> SmartTags("I_RGB_zyklus") Then
sql1 = "Update raume SET Szene="& CInt(SmartTags("I_RGB_Szene"))& " where ID="& CInt(i+1)
recordset = conn.Execute(sql1)
SmartTags("I_RGB_zyklus") =SmartTags("I_RGB_Szene")
End If
End If
End If
conn.close
)
