zweistellige Zahlen über Buttons eingeben

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von fraju.

    zweistellige Zahlen über Buttons eingeben

    Hallo ich möchte über Button's eine zweistellige Zahl eingeben.

    Button 1 ist die 1, Button 2 ist die 2 usw. Die Zahl soll mindestens zwei Stellen haben (Es soll die Eingabe einer Temperatur werden also z.B. 35°C) Die Zahl soll nach der Eingabe über ein Label auf dem Bildschirm dargestellt werden.

    Wie kann man sowas realisieren?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thanas“ ()

    Thanas schrieb:

    ist irgendwie ganz einfach Danke

    und außerdem noch völlig ungeil.

    EIN Eventhandler reicht völlig.
    Nenn die buttons Button0 bis Button9 und dann:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. For i = 0 To 9
    3. Me.Controls("Button" & i.ToString).Text = i.ToString
    4. AddHandler Me.Controls("Button" & i.ToString).Click, AddressOf MyClick
    5. Next
    6. End Sub
    8. Private Sub MyClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    9. Label1.Text &= DirectCast(sender, Button).Text
    10. End Sub


    Sauber, elegant (imho) und ultrakurz

    Auch Anfänger sollten versuchen, es gleich "richtig" zu lernen. Dazu gehört auch, sich das "Problem" genau zu überlegen und nachzudenken, wie man es wohl am besten lösen könnte. DANN schreibt man den entsprechenden Code dazu.

    Was wird gewollt?
    Immer wenn ein Button geklickt wird, soll der Text des Buttons an den Text des Labels angehängt werden.
    Das "Click" Event bekommt (in sender) den Button übergeben, der das Event ausgelöst hat. Da die Funktion ansonsten für alle buttons gleich ist, reicht offensichtlich EIN eventhandler.
    EINEN Eventhandler für alle Buttons erzeugt man mit AddHandler.

    Das hat auch den vorteil, dass man zB die Überprüfung (label länge > 2) genau hier machen kann. Ansonsten müsste man das ja in jedem Button-Event prüfen. Und spätestens wenn man dann noch Buttons für Backspace, Clear, OK usw dazupackt wirds superunübersichtlich und damit fehleranfällig.

    Im Prinzip ist das mit dem AddHandler nix anderes als das "Control Array" aus VB6. Das hatte halt den Vorteil, dass einem die IDE das gleich vorgeschlagen hat. "Wollen Sie ein Control Array anlegen?"

    Nachtrag:
    Hier mal ein Beispiel, das zeigt, wie man sich das Leben einfacher machen kann:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private lbl As Label
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. Dim lp As New FlowLayoutPanel With {.Dock = DockStyle.Fill}
    8. Me.Controls.Add(lp)
    9. lbl = New Label With {.Name = "Temp"}
    10. lp.Controls.Add(lbl)
    11. For Each s As String In New String() {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "<", "CLR", "OK"}
    12. lp.Controls.Add(New Button With {.Text = s, .Name = "Button_" & s})
    13. AddHandler lp.Controls("Button_" & s).Click, AddressOf MyClick
    14. Next s
    16. End Sub
    18. Private Sub MyClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    19. Dim t As String = DirectCast(sender, Button).Text
    20. Select Case t
    21. Case "0" To "9"
    22. If lbl.Text.Length < 2 Then lbl.Text &= t
    23. Case "<"
    24. If lbl.Text.Length > 0 Then lbl.Text = lbl.Text.Substring(0, lbl.Text.Length - 1)
    25. Case "CLR"
    26. lbl.Text = String.Empty
    27. Case "OK"
    28. If lbl.Text.Length = 2 Then
    29. MachWasMitTemperatur(CInt(lbl.Text))
    30. End If
    31. End Select
    32. End Sub
    34. Private Sub MachWasMitTemperatur(ByVal tm As Integer)
    35. MessageBox.Show("Die Temperatur ist: " & tm.ToString)
    36. End Sub
    37. End Class


    Das ganze funktioniert OHNE das man irgendwelche Controls im Designer auf die Form zieht. Und ist natürlich nur als Beispiel gedacht!
    Daran sieht man schon mal, dass "richtiges" programmieren viel mehr ist als stupides Eventklicken im Designer und dass man durchaus SEHR viele Möglichkeiten in VB hat, um ein Problem elegant zu lösen.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „picoflop“ ()

    Trotzdem züchtet man so alle neuen User gleich zu Copy & Paste Kiddys heran.

    Meine Güte!
    Die C&P-Kiddies werden auch bei zwei kopierten Zeilen ihre Probleme bekommen, wenn sie nicht verstehen, was sie machen. Der Code von Picoflop ist doch das Schönste, was einem hier passieren kann.
    Jetzt gibt es hier nunmal das Grundlagen-Forum, da kann es doch nix besseres geben, als einen übersichtlichen Code zum durchackern zu bekommen.

    Für einen Anfänger (ich auch),sollte der Cod immer Lauffähig sein.
    Es kann sonnst passieren das es noch länger dauert,diesen lauffähig zu machen.

    ..aber es ist schön endlich mal Minicods zu sehen,aber bitte lauffähig,daran lernt man am besten.
    Das wird längerfristig das allgemeine Niveau heben.

    Gruß

Facebook
Telefonspende