vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Min / Max Werte 
Autor: Butzemann
Datum: 09.10.09 11:16
Hallo ihr lieben Menschen,

ich bin Schüler an einer Schule für Wirtschaftsinformatik, und Programmieren ist sehr Neu für mich.

Unsere Aufgabe war es, mithilfe von If...Then...Else...Prüfungsschleifen und Verschachtelungen aus einer Eingabemaske von drei Feldern die a) kleinste Zahl und b) größte Zahl zu ermitteln wenn man einen bestimmten Button drückt und in einem Label auszugeben.

Soweit kein Problem, ich bin wohl nicht gänzlich Untalentiert. Den Code habe ich mal unten angehängt.

Meine Frage ist aber nun, gibt es einen Befehl, der aus einer Anzahl von Zahlen Automatisch den kleinsten oder größten Werte ermittelt? Ähnlich wie es bei Excel mit dem Min / Max Befehl funktioniert?

Vielen Dank für die Antworten im Vorraus.

Andy 



Public Class Form1
 
    Dim zahl1, zahl2, zahl3, ergebnis1, ergebnis2 As Double
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 
        If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) And IsNumeric( _
          TextBox3.Text) Then
            zahl1 = CDbl(TextBox1.Text)
            zahl2 = CDbl(TextBox2.Text)
            zahl3 = CDbl(TextBox3.Text)
 
            If zahl1 > zahl2 Then
                If zahl1 > zahl3 Then
                    ergebnis1 = zahl1
                Else
                    ergebnis1 = zahl2
                End If
            Else
                If zahl2 > zahl3 Then
                    ergebnis1 = zahl2
                Else
                    ergebnis1 = zahl3
                End If
            End If
            Label1.Text = ergebnis1.ToString
 
        Else
            MsgBox("Bitte nur nummerische Werte eingeben")
            Exit Sub
 
        End If
    End Sub
 
 
 
 
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) And IsNumeric( _
        TextBox3.Text) Then
            zahl1 = CDbl(TextBox1.Text)
            zahl2 = CDbl(TextBox2.Text)
            zahl3 = CDbl(TextBox3.Text)
 
            If zahl1 < zahl2 Then
                If zahl1 < zahl3 Then
                    ergebnis2 = zahl1
                Else
                    ergebnis2 = zahl3
                End If
            Else
                If zahl2 < zahl3 Then
                    ergebnis2 = zahl2
                Else
                    ergebnis2 = zahl3
                End If
            End If
            Label2.Text = ergebnis2.ToString
 
        Else
            MsgBox("Bitte nur nummerische Werte eingeben")
        End If
 
    End Sub
End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Min / Max Werte1.976Butzemann09.10.09 11:16
Re: Min / Max Werte872ModeratorRalf Ehlert09.10.09 11:27
Re: Min / Max Werte852GPM09.10.09 12:25

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel