Hallo Leute!
Bitte um eure Hilfe, ich steh ziemlich an!
Ich möchte, abhängig von einem Temperaturwert, den Hintergrund eines Textfeldes einfärben.
Dies habe ich mit Case versucht...
Leider werden die einzelnen Case-Fälle nicht angesprungen, auch wenn der Temperaturwert dies zulassen würde.
Ich denke, es liegt am Komma...
Habe schon einige Varianten der Konvertierung von String auf Double probiert, aber nix funzt.
Und natürlich habe ich mir einige diesbezügliche Beiträge hier im Forum angesehen, aber das bringt mich bei meinem konkreten Problemchen doch nicht weiter!
*Topic verschoben*
Bitte um eure Hilfe, ich steh ziemlich an!
Ich möchte, abhängig von einem Temperaturwert, den Hintergrund eines Textfeldes einfärben.
Dies habe ich mit Case versucht...
Leider werden die einzelnen Case-Fälle nicht angesprungen, auch wenn der Temperaturwert dies zulassen würde.
Ich denke, es liegt am Komma...
Habe schon einige Varianten der Konvertierung von String auf Double probiert, aber nix funzt.
Und natürlich habe ich mir einige diesbezügliche Beiträge hier im Forum angesehen, aber das bringt mich bei meinem konkreten Problemchen doch nicht weiter!
VB.NET-Quellcode
- empf_data = streamr.ReadLine()
- empf_str = Split(empf_data, ";")
- For empf_str_count = 0 To 1
- Select Case empf_str_count
- Case 0
- Me.TextBox151.Text = empf_str(empf_str_count)
- Temp_Wert = empf_str(empf_str_count)
- 'Temp_Wert_d = Convert.ToDecimal(Temp_Wert)
- 'Temp_Wert_d = CDbl(Temp_Wert)
- Temp_Wert_d = Double.Parse(Temp_Wert, Globalization.NumberStyles.AllowDecimalPoint)
- Select Case Temp_Wert_d
- Case (Temp_Wert_d > 22.0 And Temp_Wert_d < 22.99) 'WARNWERT TEMP.
- Me.TextBox151.BackColor = Color.Orange
- Case Temp_Wert_d > 24.0 'ALARMWERT TEMP.
- Me.TextBox151.BackColor = Color.Red
- 'Hier SMS versenden!
- End Select
- Case 1
- Me.TextBox152.Text = empf_str(empf_str_count) 'Zeitpunkt letzte Messung
- End Select
- Next
*Topic verschoben*
