Hallo Community,
ich habe eine Routine zum mischen von Karten geschrieben und wollte einfach mal von euch hören, ob der Code besser gestaltet werden kann oder ob er so eigentlich recht gut ist. Er funktioniert, kann der so bleiben? hier der Code:
Für Programmiertechnische Tipps wäre ich dankbar
ich habe eine Routine zum mischen von Karten geschrieben und wollte einfach mal von euch hören, ob der Code besser gestaltet werden kann oder ob er so eigentlich recht gut ist. Er funktioniert, kann der so bleiben? hier der Code:
VB.NET-Quellcode
- Imports System.Text
- Public Class Form1
- Private Sub Karten_mischen_Click(sender As Object, e As EventArgs) Handles Karten_mischen.Click
- Dim lst_Inhalt As New List(Of String) ' Neue Liste, welche im weiteren Code dynamisch befüllt wird
- Dim rnd_Zufallszahl As New Random ' Deklaration einer neuen Zufallszahl
- Dim i_Zufallsspeicher As Integer = 0 ' Zwischenspeicher für die Zufallszahl
- Dim Stringspeicher As New StringBuilder("") ' Verkettet die verschiedenen Möglichkeiten
- RichTextBox1.Clear() ' Löscht den Text in der Rich Text Box
- For i = 0 To 51 ' Beispiel für dynamische Füllung mittels Schleife
- lst_Inhalt.Add((i + 1).ToString & " ") ' Beispiel für dynamische Füllung mittels Schleife
- Next ' Beispiel für dynamische Füllung mittels Schleife
- For i = 0 To 51 ' Beginn der Zufallsschleife ... Maximum der To Schleife entspricht im Beispiel den gesamten 52 Karten. Wert kann festgelegt werden
- i_Zufallsspeicher = rnd_Zufallszahl.Next(0, lst_Inhalt.Count) ' Generierung der Zufallszahl mit Zwischenspeicherung in i_Zufallsspeicher
- Stringspeicher.Append((i) + 1 & " - " & lst_Inhalt.Item(i_Zufallsspeicher) & vbCrLf) ' Den Ausgabestring um den ermittelten String erweitern
- lst_Inhalt.RemoveAt(i_Zufallsspeicher) ' Um Mehrfachverwendung auszuschliessen wird der selbe String in der ListOf gelöscht
- Next ' Nächsten String ermitteln bis Ende
- RichTextBox1.Text = Stringspeicher.ToString ' Anzeige des gemischten Ergebnisses
- End Sub
- End Class
Für Programmiertechnische Tipps wäre ich dankbar
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Schocklage“ ()