Moinsen,
und zwar kennt doch jeder das Würfelspiel Kniffel.
Bin jetzt dabei das en der Konsole zu programmieren, jedoch nur den oberen Teil des Kniffelblattes (Augenzahlen der Zahlen 1-6).
In der Konsole reizt es mich einfach mehr als in einer Windows-Form.
Hinweis : Der Einfachheit halber entscheidet man sich in meinem Programmchen schon vor dem zweiten Wurf für eine Zahl.
Das heißt, man kann nicht biem zweiten und drittel Wurf eine unterschiedliche Zahl auswählen, sondern wählt dann immer die gleich. (Es wären mir erstmal einfach zu viele If-Abzweigungen).
- außerdem bin ich erst bei den zahlen 1 und 2, das heißt 3-6 sind noch nicht funktionsfähig.
Mein Problem: geht es kürzer? vielliecht interessiert sich Jemand für das Projektchen und kann Abkürzungshinweise geben. Danke LG
und zwar kennt doch jeder das Würfelspiel Kniffel.
Bin jetzt dabei das en der Konsole zu programmieren, jedoch nur den oberen Teil des Kniffelblattes (Augenzahlen der Zahlen 1-6).
In der Konsole reizt es mich einfach mehr als in einer Windows-Form.
Hinweis : Der Einfachheit halber entscheidet man sich in meinem Programmchen schon vor dem zweiten Wurf für eine Zahl.
Das heißt, man kann nicht biem zweiten und drittel Wurf eine unterschiedliche Zahl auswählen, sondern wählt dann immer die gleich. (Es wären mir erstmal einfach zu viele If-Abzweigungen).
- außerdem bin ich erst bei den zahlen 1 und 2, das heißt 3-6 sind noch nicht funktionsfähig.
Mein Problem: geht es kürzer? vielliecht interessiert sich Jemand für das Projektchen und kann Abkürzungshinweise geben. Danke LG
VB.NET-Quellcode
- Module Module1
- 'erstemalwürfeln
- Public zufall As New Random
- Public ziffer As Integer
- Public ZL As New List(Of Integer)
- Public anzahlaneiner As Integer = 0
- Public anzahlanzweier As Integer = 0
- 'zweitesmalwürfeln
- Public auswahl As Integer
- Public ziffer02 As Integer
- Public anzahlaneiner02 As Integer = 0
- Public anzahlanzweier02 As Integer = 0
- 'drittesmalwürfeln
- Public anzahlaneiner03 As Integer = 0
- Public anzahlanzweier03 As Integer = 0
- Public Sub Erstesmalwürfeln()
- Console.WriteLine("Bitte Würfeln Sie jetzt: ")
- For i = 0 To 4
- ziffer = zufall.Next(1, 7)
- ZL.Add(ziffer)
- Console.Write(ziffer)
- Console.Write(" ")
- Next
- 'anzahl an zahlen festlegen
- For Each element As Integer In ZL
- Select Case element
- Case 1
- anzahlaneiner += 1
- Case 2
- anzahlanzweier += 1
- End Select
- Next
- Console.WriteLine()
- End Sub
- Public Sub zweitesmalwürfeln()
- ZL.Clear()
- Console.WriteLine("Bitte wählen Sie ihre Zahl aus:")
- auswahl = CInt(Console.ReadLine())
- If auswahl = 1 Then
- For i = 0 To 4 - anzahlaneiner
- ziffer02 = zufall.Next(1, 7)
- ZL.Add(ziffer02)
- Console.Write(ziffer02)
- Console.Write(" ")
- Next
- ElseIf auswahl = 2 Then
- For i = 0 To 4 - anzahlanzweier
- ziffer02 = zufall.Next(1, 7)
- ZL.Add(ziffer02)
- Console.Write(ziffer02)
- Console.Write(" ")
- Next
- End If
- 'anzahl an zahlen festlegen
- For Each element As Integer In ZL
- Select Case element
- Case 1
- anzahlaneiner02 += 1
- Case 2
- anzahlanzweier02 += 1
- End Select
- Next
- Console.WriteLine()
- End Sub
- Public Sub drittesmalwürfeln()
- ZL.Clear()
- Console.WriteLine("Bitte wählen Sie ihre Zahl aus:")
- auswahl = CInt(Console.ReadLine())
- If auswahl = 1 Then
- For i = 0 To 4 - anzahlaneiner - anzahlaneiner02
- ziffer02 = zufall.Next(1, 7)
- ZL.Add(ziffer02)
- Console.Write(ziffer02)
- Console.Write(" ")
- Next
- ElseIf auswahl = 2 Then
- For i = 0 To 4 - anzahlanzweier - anzahlanzweier02
- ziffer02 = zufall.Next(1, 7)
- ZL.Add(ziffer02)
- Console.Write(ziffer02)
- Console.Write(" ")
- Next
- End If
- 'anzahl an zahlen festlegen
- For Each element As Integer In ZL
- Select Case element
- Case 1
- anzahlaneiner03 += 1
- Case 2
- anzahlanzweier03 += 1
- End Select
- Next
- Console.WriteLine()
- End Sub
- Public Sub ergebnis()
- If auswahl = 1 Then
- Console.WriteLine("Sie haben die 1 so oft gewürfelt: " & anzahlaneiner + anzahlaneiner02 + anzahlaneiner03 & " dabei haben sie die Augenzahl " & _
- anzahlaneiner * 1 + anzahlaneiner02 * 1 + anzahlaneiner03 * 1 & " erreicht.")
- ElseIf auswahl = 2 Then
- Console.WriteLine("Sie haben die 2 so oft gewürfelt: " & anzahlanzweier + anzahlanzweier02 + anzahlanzweier03 & " dabei haben sie die Augenzahl " & _
- anzahlanzweier * 2 + anzahlanzweier02 * 2 + anzahlanzweier03 * 2 & " erreicht.")
- End If
- End Sub
- Sub main()
- Erstesmalwürfeln()
- zweitesmalwürfeln()
- drittesmalwürfeln()
- ergebnis()
- Console.readline()
- End Sub
- End Module
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Visual_Prog“ ()