Hallo Leute,
Wenn ich den Code hier aufrufe, bekomme ich folgenden Fehler den ich nit fixen kann:
Dazu wird mir die Zeile 45 und 56 als Fehlerhaft angezeigt.
Vielleicht könnt ihr mir ja mal wieder helfen
Wenn ich den Code hier aufrufe, bekomme ich folgenden Fehler den ich nit fixen kann:
Dazu wird mir die Zeile 45 und 56 als Fehlerhaft angezeigt.
Vielleicht könnt ihr mir ja mal wieder helfen
VB.NET-Quellcode
- Private Sub set_vscroll()
- Dim NewLargeChange As Short
- Dim zimmer_temp_wert As Object
- Dim stunde As Short
- Dim heizkreis As Short
- Dim wochentag As Short
- wochentag = select_wochentag()
- heizkreis = select_heizkreis()
- If (heizkreis = Boiler) Then
- Label3.Text = "60 50 40 30 20 10 5"
- Else
- Label3.Text = "23 22 21 20 19 18 17"
- End If
- For stunde = 0 To 23
- Label4(stunde).Text = CStr(stunde)
- zimmer_temp_wert = zimmer_temp_soll(heizkreis, wochentag, stunde)
- If (heizkreis = Boiler) Then
- VScroll1(stunde).SmallChange = 2
- NewLargeChange = 8
- VScroll1(stunde).Maximum = VScroll1(stunde).Maximum + NewLargeChange - VScroll1(stunde).LargeChange
- VScroll1(stunde).LargeChange = NewLargeChange
- VScroll1(stunde).Maximum = (10 + VScroll1(stunde).LargeChange - 1)
- VScroll1(stunde).Minimum = 60
- Else
- VScroll1(stunde).SmallChange = 1
- NewLargeChange = 2
- VScroll1(stunde).Maximum = VScroll1(stunde).Maximum + NewLargeChange - VScroll1(stunde).LargeChange
- VScroll1(stunde).LargeChange = NewLargeChange
- VScroll1(stunde).Maximum = (17 + VScroll1(stunde).LargeChange - 1)
- VScroll1(stunde).Minimum = 23
- End If
- If (heizkreis <> Boiler) Then
- If (zimmer_temp_wert < 17) Then zimmer_temp_wert = 17
- If (zimmer_temp_wert > 23) Then zimmer_temp_wert = 23
- VScroll1(stunde).Value = zimmer_temp_wert
- zimmer_temp_soll(heizkreis, wochentag, stunde) = zimmer_temp_wert
- Command3.Text = "auf 17 Grad setzen"
- Else
- If (zimmer_temp_wert < 20) Then zimmer_temp_wert = 20
- If (zimmer_temp_wert > 60) Then zimmer_temp_wert = 60
- VScroll1(stunde).Value = zimmer_temp_wert
- zimmer_temp_soll(heizkreis, wochentag, stunde) = zimmer_temp_wert
- Command3.Text = "auf 45 Grad setzen"
- End If
- Next stunde
- End Sub