vraagje

[frankythys01]

hi,


iemand een idee om dit te versimpelen in vb net.

 Private Sub chkliving2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkliving2.CheckedChanged
        If chkliving2.Checked = True Then
            chkliving2.Image = Image.FromFile("D:\Programmeren\VB NET\domotica\domotica\Resources\lightbulb_full.png")
            lblliving1.Text = "Living Spots 1 Aan"
            kaku = "sendkaku"
            kakuoff = kaku + " " + huiscode.Text + "1" + "," + "off" + ";"
            kakuon = kaku + " " + huiscode.Text + "1" + "," + "on" + ";"
            On Error GoTo ErrHandler
            comsettings.SerialPort1.WriteLine(kakuoff)

            comsettings.SerialPort1.WriteLine(kakuon)

        Else

            chkliving2.Image = Image.FromFile("D:\Programmeren\VB NET\domotica\domotica\Resources\lightbulb_empty.png")
            lblliving1.Text = "Living Spots 1 Uit"
            kaku = "sendkaku"
            kakuoff = kaku + " " + huiscode.Text + "1" + "," + "off" + ";"
            On Error GoTo ErrHandler
            comsettings.SerialPort1.WriteLine(kakuoff)

        End If
        Exit Sub

mvr gr

franky

 

[JoZ1]

Daarvoor moeten we wel weten wat de bedoeling is van de code.
Wat is 'kaku' ? Wat moet er versimpeld worden?

Wel kan ik zeggen dat 'On Error GoTo' eigenlijk niet meer gebruikt wordt in VB.NET.
In plaats daarvan wordt een Try-Catch-statement gebruikt.
'If checkbox.checked = True' kan worden verkort naar: 'If checkbox.checked'
Verder is het handig om codetags te gebruiken: selecteer de code en klik op het #-teken in de editor.

 

[frankythys01]

De bedoeling is dat ik een touchscreen wil bedienen via vb net met buttons voor het schakelen van verlichting doormiddel van arduino .
De arduino is verbonden via usb poort com 3 en het commando om klikaanklikuit te schakelen is sendkaku O1,on of sendkaku O1,off .

 

[JoZ1]

OK. En wat moet er gebeuren?

[edit]Althans: wat moet er met de code gebeuren? Werkt het niet?[/edit]

 

[MartinJM]

Bij het inschakelen zet je eerst de lamp nog eens uit. Is dit niet overbodig?

Maar waarom zou je het willen versimpelen? Of, zoals Joz1 al heeft gevraagd, werkt het niet?

MartinJM

 

[frankythys01]

het werkt wel maar kan het niet met 1 regel bijvoorbeeld sendkaku O1,on met een functie of zo dat de communicatie met de serieele poort verzorgt je kunt meerdere kaku devices besturen sendkaku 02,on o3,on O=Huiscode 1=kaku nr .
Alvast bedankt voor de info .

 

[MartinJM]

Ik weet het niet omdat ik nog nooit een serialport heb gebruikt...

Maar misschien is het handig om het in een functie/sub te zetten zodat het een kleinere code wordt als je meerdere checkboxen gaat gebruiken. Dat zou dan bijvoorbeeld zoiets kunnen worden:
[CPP]
Private Sub chkliving2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkliving2.CheckedChanged
ChangeLightState(chkliving2, lblliving1, "O", "1", "Living Spots")
End Sub

Private Sub ChangeLightState(ByVal ChkBox As CheckBox, ByVal Lbl As Label, ByVal HuisCode As String, ByVal LampCode As String, ByVal NaamLamp As String)
Dim KakuOff As String = Nothing
Dim KakuOn As String = Nothing

If ChkBox.Checked = True Then
Try
kaku = "sendkaku"
KakuOff = kaku + " " + HuisCode + LampCode + "," + "off" + ";"
KakuOn = kaku + " " + HuisCode + LampCode + "," + "on" + ";"

comsettings.SerialPort1.WriteLine(KakuOff)

comsettings.SerialPort1.WriteLine(KakuOn)

ChkBox.Image = Image.FromFile("D:\Programmeren\VB NET\domotica\domotica\Resources\lightbulb_full.png")
Lbl.Text = NaamLamp & " is Aan"
Catch ex As Exception
MsgBox("Foutmelding:" & vbNewLine & ex.Message)
End Try
Else
Try
kaku = "sendkaku"
KakuOff = kaku + " " + HuisCode + LampCode + "," + "off" + ";"

comsettings.SerialPort1.WriteLine(KakuOff)

ChkBox.Image = Image.FromFile("D:\Programmeren\VB NET\domotica\domotica\Resources\lightbulb_empty.png")
Lbl.Text = NaamLamp & " is Uit"
Catch ex As Exception
MsgBox("Foutmelding:" & vbNewLine & ex.Message)
End Try
End If
End Sub[/CPP]

Ik heb het niet kunnen testen omdat ik niet goed weet hoe ik met serial ports om moet gaan.

MartinJM


[edit]
Hangt het niet af van de codes op de arduino of het wel of niet kan?
[/edit]

 

[frankythys01]

he

Bedankt ik ga de code is proberen

 

[frankythys01]

Supper het werkt bedankt is toch weeral een regel of 50 code minder