xsicex

Es lebe der gute alte PAP kurz Programmablaufplan.
Vielleicht ist er etwas aus der Mode gekommen aber gerade für Anfänger eine Erleichterung.
Der PAP zeigt dem Anfänger was genau passiert. Und wie das Programm vorgeht.


Nun wollen wir ein wenig mehr forderndes Programm schreiben mit Hilfe von einem PAP.

Wir machen ein Programm in dem man 3 Zahlen eingeben kann. Das Programm sagt dann das kleinste und das größte am Schluss in einer MSGBOX -> (messengerbox) aus.


Gut zur Erklärung was diesen PAP angibt.

Am anfang Startet das Programm. Dann wartet es auf die Eingabe A. Wenn eine Zahl eingegeben wurde, wird diese Zahl als Eingabe A gespeichert. Anschließend wird A als max wert eingetragen.
Dann wartet es auf die 2 Eingabe. Wenn die eingabe B größer als max ist. Dann wird B der maximalwert. Wenn nicht macht das Programm weiter mit Eingabe C.
Als letztes überprüft das Programm Eingabe c mit max. Wenn c größer als max ist. Wird c Max. Am Schluss wird Max z.B. in einer MessageBox ausgegeben. Aber was hilft reden.
Schreiten wir zur Tat.

Wir Öffnen eine neue Form wie im Tutorial 1.

Als erstes ordnen wir 3 Textboxen und ein Button beliebig an.
Was für uns in entwicklungszwecken unnötig ist, ist für den Endbenutzer wichtig.
Also ziehen wir uns noch 3 Label auf die Form die wir "Eingabe A" , "Eingabe B", und "Eingabe C" nennen.

Nun gehen wir wieder ins Codefenster.
Am Anfang sollte alles wieder so aussehen :

Zitat:

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

Nun müssen wir uns 4 Variabeln deklarieren die unsere Eingaben zwischenspeichern. Dies geht so.

Wir springen mit unserer Maus über das FormLoad, aber bleiben unter dem "Public Class Form1.

Dort fügen wir dies ein.

Zitat:

Dim a, b, c, max As Integer

Dim -> sagt dem Programm das wir nun etwas deklarieren ect. wollen
a,b,c,max -> sind vom Entwickler gewählten Namen auf dessen der Wert gespeichert wird. Dies heist es könnte auch heißen g,f,h,e Was aber den Entwickler verwirrt.
Integer -> Dies bedeutet das der zu speichernde Wert eine Zahl sein muss

Wenn wir das gemacht haben sollte alles so aussehen :

Zitat:

Public Class Form1 Dim a, b, c, max As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

Wenn wir das gemacht haben, gehen wir wieder zurück in den DesignerModus, und machen einen Doppelklick auf den Button.
Wir werden in das Codefenster zurückgeschickt das jetzt so aussehen sollte :

Zitat:

Public Class Form1 Dim a, b, c, max As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Hier kommt unser Endcode rein End Sub End Class

Soweit so gut.
Nun sagen wir dem Button was passieren soll.
Es sollen die Werte von den Textboxen in unseren Variabeln a,b,c gespeichert werden. Das geht so.
Wir fügen im Button-Codebereich folgendes ein

Zitat:

a = Textbox1.Text b = Textbox2.Text c = Textbox3.Text

Dieser Code gibt an, dass die Inhälte von den Textboxen in den Variabeln gespeichert werden soll.

Nun geht es an den Haupteil, wo unser Programm überprüft welcher Wert der größte ist.

Wir gehen unter "c= Textbox3.Text".
Dort fügen wir als erstes folgendes ein.

Zitat:

max = a

Das sagt unserem Programm das max "a" ist. Also ist max der Wert der Textbox1.
Nun müssen wir überprüfen ob der Wert b größer als max ist. Das geht so

Zitat:

If b > max Then max = b End if

Dies ist eine "IF" abfrage. Sie fragt etwas ab, und gibt bei erfolgreicher/nichterfolgreicher abschließung ein Ereigniss ab.

Nun machen wir das gleiche bei c.

Zitat:

If c > max Then max = c End if

Was hier passiert muss ich wohl nicht mehr erklären.

Nun soll natürlich am Schluss ausgegeben werden welcher wert am höchsten ist.
Dies geht in der Kurzform z.B. in einer MessageBox(Msgbox)

Zitat:

Msgbox ("Der Wert ist " & max)

Ich entstuldige mich für dieses komische Zeichen vor max. ES MUSS EIN "UND"-Zeichen sein.

Unser kompletter Code sollte nun so aussehen :


Public Class Form1
Dim a, b, c, max As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Zitat:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click a = TextBox1.Text b = TextBox2.Text c = TextBox3.Text max = a If b > max Then max = b End If If c > max Then max = c End If MsgBox("Der Wert beträgt " & max) End Sub End Class

Der Code ausschnit mit dem Form load kann man bis zu End Form entfernen. Dann sieht alles so aus.

Zitat:

Public Class Form1 Dim a, b, c, max As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click a = TextBox1.Text b = TextBox2.Text c = TextBox3.Text max = a If b > max Then max = b End If If c > max Then max = c End If MsgBox("Der Wert beträgt " & max) End Sub End Class

Nur noch Debuggen und speichern.

MFG Bagplatt