Hallo,
bin gerade dabei für meine Tochter ein Programm zu entwickeln zum lernen der Vergangenheitsformen.
Jetzt würde ich gerne aber noch eine Funktion einbauen, bei der sich die Pronomen (ich, du, er) zufällig generieren lässt.
Der folgende Code funktioniert, aber er ist ewig lang, wenn ich das ganze für ca. 90 Wörter wiederholen müsste.
Wichtig zum Verständnis: Jede Spalte ist gleich aufgebaut:
Label mit dem Wort (Name: Wort1), Pronomen1 (Wort1_Pro1), Textfeld, Pronomen2 (Wort1_Pro2), Textfeld, Pronomen3 (Wort1_Pro3), Textfeld
Ich hoffe es ist zu verstehen und jemand kann mir helfen diesen Code oben zu vereinfachen.
bin gerade dabei für meine Tochter ein Programm zu entwickeln zum lernen der Vergangenheitsformen.
Jetzt würde ich gerne aber noch eine Funktion einbauen, bei der sich die Pronomen (ich, du, er) zufällig generieren lässt.
Der folgende Code funktioniert, aber er ist ewig lang, wenn ich das ganze für ca. 90 Wörter wiederholen müsste.
VB.NET-Quellcode
- 'Zufallspronomen einfügen:
- '1 = ich
- '2 = du
- '3 = er
- '4 = wir
- '5 = sie (alle)
- Dim random As New Random
- My.Settings.Wort1 = random.Next(1, 6)
- My.Settings.Wort2 = random.Next(1, 6)
- My.Settings.Wort3 = random.Next(1, 6)
- If My.Settings.Wort1 = 1 Then
- Wort1_Pro1.Text = "ich"
- Wort1_Pro2.Text = "ich"
- Wort1_Pro3.Text = "ich"
- End If
- If My.Settings.Wort1 = 2 Then
- Wort1_Pro1.Text = "du"
- Wort1_Pro2.Text = "du"
- Wort1_Pro3.Text = "du"
- End If
- If My.Settings.Wort1 = 3 Then
- Wort1_Pro1.Text = "er"
- Wort1_Pro2.Text = "er"
- Wort1_Pro3.Text = "er"
- End If
- If My.Settings.Wort1 = 4 Then
- Wort1_Pro1.Text = "wir"
- Wort1_Pro2.Text = "wir"
- Wort1_Pro3.Text = "wir"
- End If
- If My.Settings.Wort1 = 5 Then
- Wort1_Pro1.Text = "sie"
- Wort1_Pro2.Text = "sie"
- Wort1_Pro3.Text = "sie"
- End If
Wichtig zum Verständnis: Jede Spalte ist gleich aufgebaut:
Label mit dem Wort (Name: Wort1), Pronomen1 (Wort1_Pro1), Textfeld, Pronomen2 (Wort1_Pro2), Textfeld, Pronomen3 (Wort1_Pro3), Textfeld
Ich hoffe es ist zu verstehen und jemand kann mir helfen diesen Code oben zu vereinfachen.