???
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 30 Antworten in diesem Thema. Der letzte Beitrag () ist von ChaosBernd.
-
-
-
so klappt der coder
so nun ist mein problem noch
ich will das der beim klick auf eine button alle textboxen geprüft werden
das problem ist aber das Dim Zahl schon existirt was muss ich machen damit der code trotzdem bei allen textboxen funktionirt???
guß olliDieser Beitrag wurde bereits 1 mal editiert, zuletzt von „oliver14800“ ()
-
ich will das der beim klick auf eine button alle textboxen geprüft werden
Mit schleifen solltest dich auskennen, am sonsten hier weiter:
[Allgemein] Entwickler-Ressourcen und Tools, Bücher und WebCasts -
Das kann gar eigentlich nicht funktionieren. Da du einen String mit einem Doublewert vergleichst O.o
Edit: OK also nu weiß ichs, die Funktion CDbl(String) konvertiert doch auch deutsches Format in englisches. Heißt also der String muss doch nicht mit Punkt sondern mit Komma angegeben werden
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dodo“ ()
-
oliver14800 schrieb:
Ich glaube nicht das du mit Schleifen klar kommst. Und für 5 Textboxen ist der Aufwand doch nicht so prickelnd
Mach das ganze 5 mal:
-
also so ??
klapt, irgend wie nicht
VB.NET-Quellcode
- 'PH:
- Dim Zahl As Double = CDbl(TextBox2.Text)
- If Zahl >= 1.0 And Zahl <= 2.0 Then
- Label1.Text = "OK"
- Else
- Label1.Text = "Warnung"
- End If
- 'KH
- Zahl = CDbl(TextBox3.Text)
- If Zahl >= 1.0 And Zahl <= 2.0 Then
- Label2.Text = "OK"
- Else
- Label2.Text = "Warnung"
- End If
- 'GH
- Zahl = CDbl(TextBox4.Text)
- If Zahl >= 1.0 And Zahl <= 2.0 Then
- Label3.Text = "OK"
- Else
- Label3.Text = "Warnung"
- End If
- 'Nitrit
- Zahl = CDbl(TextBox5.Text)
- If Zahl >= 1.0 And Zahl <= 2.0 Then
- Label4.Text = "OK"
- Else
- Label4.Text = "Warnung"
- End If
- 'Nitrat
- Zahl = CDbl(TextBox6.Text)
- If Zahl >= 1.0 And Zahl <= 2.0 Then
- Label5.Text = "OK"
- Else
- Label5.Text = "Warnung"
- End If
- 'Temperatur
- Zahl = CDbl(TextBox7.Text)
- If Zahl >= 1.0 And Zahl <= 2.0 Then
- Label6.Text = "OK"
- Else
- Label6.Text = "Warnung"
- End If
-
Und für was so eine große Code. Nimm For Each schleife, mit schleife läufst alles textboxen durch, prüfst ob ein Zahl in textbox steht. Wenn ein Zahl in textbox steht dann in datentyp Double konvertieren, danach vergleichen ob weninger oder größer eines vorgegebenes wertes, am sonsten weitere aktionen ausführen.
Die ganze aktion kannst alles in eine schleife ausführen ! -
Ich glaube nicht das du mit Schleifen klar kommst.
Und für 5 Textboxen ist der Aufwand doch nicht so prickelnd
(Fw 3.5 only) bzw.
Zum prüfen des Werte gibt es Double.TryParse(). -
-
Ok dann auch als Schleife.
Aber ich bezweifle das er damit klar kommt bzw. das er es versteht.
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- For Each Control As Control In Me.Controls
- If TypeOf Control Is TextBox Then
- Dim Zahl As Double = CDbl(Control.Text)
- Dim Name As String = CStr(Control.Tag)
- Dim Bericht As String = Nothing
- If Zahl >= 1.0 And Zahl <= 2.0 Then
- Bericht = "Der Wert ist OK " & Zahl
- Else
- Bericht = "Der Wert ist auserhalb " & Zahl
- End If
- For Each lbl As Control In Me.Controls
- If lbl.Name.Contains(Name) Then
- lbl.Text = Bericht
- End If
- Next
- End If
- Next
- End Sub
Im TAG der TextBoxen habe ich den Name des Label reingeschrieben, für den der Wert später bestimmt ist.
Das heist du schreibt in deine TextBox den TAG = Name des Zuständigen Label.
Beispiel:
TextBox1 -> Eigenschaften -> TAG -> Label1
Natürlich geht es auch anders und kürzer, aber man sollte es nicht übertreiben. Für einen Einsteiger ist das schon schwer nachzuvollziehen.Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ChaosBernd“ ()
-
Benutzer online 1
1 Besucher