xsicex

Nun ein wenig anspruchsvolleres Programm.
Es geht wieder auf das Prinzip des Vorgängers zurück. Nur das es jetzt das Maximum, Minimum und den Durschnitt anzeigt.

Denn schließlich verfügt VB über weit mehr Steuerelemente wie Label, Button oder Textbox.

Wir öffnen eine neue Windows Form. Und fügen folgende Steuerlemente ein : 4 Label, 4 Textboxen, 1 Listbox und 3 Buttons

Als erstes deklarieren wir unsere VARIABELN

Zitat:

Private Arr() As Double Private max, min As Double Private av As String

Ich lasse nun die ganzen unötigen Bilder wo welcher Code reinkommt. Wenn man bei den anderen Tutorials aufgepasst hat, weiß man das jetzt.
Wenn nicht schreibt bidde eure Frage.

Nun geht es weiter.

Wir schreiben nun einen Sub. Dieser kommt unter unsere Deklarationen.

Zitat:

Private Sub berechne() Dim sum As Double = arr(0) min = arr(0) max = arr(1) Dim n As Integer = arr.Length - 1 For i As Integer = 1 To n If arr(i) > max Then max = arr(i) Else If arr(i) < min Then min = arr(i) End if sum +=arr(i) Next i sum = sum / (n + 1) av = sum.ToString("#0.00" End sub

Huiii ziemlich viel für den anfang was ?.
Die einzelne Vorgänge werde ich später erklären.
Nun geht es weiter.

Nun gehen wir in den Designermodus zurück und machen auf unseren Button1, den wir "Dazufügen" nennen ,einen Doppelklick -> Codemenü
Nun schreiben wir für den Button diesen Code.

Zitat:

Listbox1.Items.Add(Textbox1.Text) Textbox1.Text = String.Empty

Das wars schon für diesen Button. Gehen wir weiter auf den Button 2 zu. Den wir "Berechnen" nennen. Wir gehen ins Codemenü zum Button 2

Dort fügen wir das ein :

Zitat:

Dim n As Integer = Listbox1.Items.Count If n > 0 Then ReDim arr(n - 1) For i As Integer = 0 To n- 1 Try arr(i) = Convert.ToDouble(Listbox1.Items(i)) Catch ex As Exception Msgbox("Fehler" End Try Next i berechne() Textbox2.Text = max Textbox3.Text = min Textbox4.Text = av End if End Sub

Und nun nur noch den Lösch button -> Codemenü zum Button3

Zitat:

Listbox1.Items.Clear() arr = Nothing Textbox1.Text = String.Empty Textbox2.Text = "" Textbox3.Text = "" Textbox4.TExt = ""

Und hier nochmal den kompletten SourceCode

Zitat:

Public Class Form1 Private Arr() As Double Private max, min As Double Private av As String Private Sub berechne() Dim sum As Double = arr(0) min = arr(0) max = arr(1) Dim n As Integer = arr.Length - 1 For i As Integer = 1 To n If arr(i) > max Then max = arr(i) Else If arr(i) < min Then min = arr(i) End If sum += arr(i) Next i sum = sum / (n + 1) av = sum.ToString("#0.00" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Add(TextBox1.Text) TextBox1.Text = String.Empty End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim n As Integer = ListBox1.Items.Count If n > 0 Then ReDim Arr(n - 1) For i As Integer = 0 To n - 1 Try Arr(i) = Convert.ToDouble(ListBox1.Items(i)) Catch ex As Exception MsgBox("Fehler" End Try Next i berechne() TextBox2.Text = max TextBox3.Text = min TextBox4.Text = av End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ListBox1.Items.Clear() Arr = Nothing TextBox1.Text = String.Empty TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" End Sub End Class

MFG Bagplatt