Hallo,
ich wollte für meine klasse ein sitzplan programm erstellen und kommt nicht weiter da die random namen sich immer wieder wiederholen weis jemand was man machen kann das jeder name nur einmal vorkommt?
PS: weis jemand wie man einstellt das man selber immer nur neben ausgesucheten personen sitzt?
Danke im Vorraus
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox12.Clear()
TextBox13.Clear()
TextBox14.Clear()
TextBox15.Clear()
TextBox16.Clear()
TextBox17.Clear()
TextBox18.Clear()
TextBox19.Clear()
TextBox20.Clear()
TextBox21.Clear()
TextBox22.Clear()
TextBox23.Clear()
TextBox24.Clear()
TextBox25.Clear()
Dim randomizer As New Random
Dim vornamen(26) As String
vornamen(0) = "Leonardo"
vornamen(1) = "Jonas"
vornamen(2) = "Niklas"
vornamen(3) = "Julia"
vornamen(4) = "Eila"
vornamen(5) = "Matthias"
vornamen(6) = "Julius"
vornamen(7) = "Tim F."
vornamen(8) = "Lucy"
vornamen(9) = "Simon"
vornamen(10) = "Michael"
vornamen(11) = "Tim K."
vornamen(12) = "Kevin"
vornamen(13) = "Katja"
vornamen(14) = "Manuel"
vornamen(15) = "Clemence"
vornamen(16) = "Emilio"
vornamen(17) = "Marcel"
vornamen(18) = "Marian"
vornamen(19) = "Jana"
vornamen(20) = "Tobias"
vornamen(21) = "Magdalena"
vornamen(22) = "Sarah"
vornamen(23) = "Vincent"
vornamen(24) = "Christian"
vornamen(25) = "Leon"
vornamen(26) = "Paul"
TextBox2.Text = vornamen(randomizer.Next(0, 26))
TextBox3.Text = vornamen(randomizer.Next(0, 26))
TextBox4.Text = vornamen(randomizer.Next(0, 26))
TextBox5.Text = vornamen(randomizer.Next(0, 26))
TextBox6.Text = vornamen(randomizer.Next(0, 26))
TextBox7.Text = vornamen(randomizer.Next(0, 26))
TextBox8.Text = vornamen(randomizer.Next(0, 26))
TextBox9.Text = vornamen(randomizer.Next(0, 26))
TextBox10.Text = vornamen(randomizer.Next(0, 26))
TextBox11.Text = vornamen(randomizer.Next(0, 26))
TextBox12.Text = vornamen(randomizer.Next(0, 26))
TextBox13.Text = vornamen(randomizer.Next(0, 26))
TextBox14.Text = vornamen(randomizer.Next(0, 26))
TextBox15.Text = vornamen(randomizer.Next(0, 26))
TextBox16.Text = vornamen(randomizer.Next(0, 26))
TextBox17.Text = vornamen(randomizer.Next(0, 26))
TextBox18.Text = vornamen(randomizer.Next(0, 26))
TextBox19.Text = vornamen(randomizer.Next(0, 26))
TextBox20.Text = vornamen(randomizer.Next(0, 26))
TextBox21.Text = vornamen(randomizer.Next(0, 26))
TextBox22.Text = vornamen(randomizer.Next(0, 26))
TextBox23.Text = vornamen(randomizer.Next(0, 26))
TextBox24.Text = vornamen(randomizer.Next(0, 26))
TextBox25.Text = vornamen(randomizer.Next(0, 26))
TextBox26.Text = vornamen(randomizer.Next(0, 26))
End Sub
End Class
ich wollte für meine klasse ein sitzplan programm erstellen und kommt nicht weiter da die random namen sich immer wieder wiederholen weis jemand was man machen kann das jeder name nur einmal vorkommt?
PS: weis jemand wie man einstellt das man selber immer nur neben ausgesucheten personen sitzt?
Danke im Vorraus
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox12.Clear()
TextBox13.Clear()
TextBox14.Clear()
TextBox15.Clear()
TextBox16.Clear()
TextBox17.Clear()
TextBox18.Clear()
TextBox19.Clear()
TextBox20.Clear()
TextBox21.Clear()
TextBox22.Clear()
TextBox23.Clear()
TextBox24.Clear()
TextBox25.Clear()
Dim randomizer As New Random
Dim vornamen(26) As String
vornamen(0) = "Leonardo"
vornamen(1) = "Jonas"
vornamen(2) = "Niklas"
vornamen(3) = "Julia"
vornamen(4) = "Eila"
vornamen(5) = "Matthias"
vornamen(6) = "Julius"
vornamen(7) = "Tim F."
vornamen(8) = "Lucy"
vornamen(9) = "Simon"
vornamen(10) = "Michael"
vornamen(11) = "Tim K."
vornamen(12) = "Kevin"
vornamen(13) = "Katja"
vornamen(14) = "Manuel"
vornamen(15) = "Clemence"
vornamen(16) = "Emilio"
vornamen(17) = "Marcel"
vornamen(18) = "Marian"
vornamen(19) = "Jana"
vornamen(20) = "Tobias"
vornamen(21) = "Magdalena"
vornamen(22) = "Sarah"
vornamen(23) = "Vincent"
vornamen(24) = "Christian"
vornamen(25) = "Leon"
vornamen(26) = "Paul"
TextBox2.Text = vornamen(randomizer.Next(0, 26))
TextBox3.Text = vornamen(randomizer.Next(0, 26))
TextBox4.Text = vornamen(randomizer.Next(0, 26))
TextBox5.Text = vornamen(randomizer.Next(0, 26))
TextBox6.Text = vornamen(randomizer.Next(0, 26))
TextBox7.Text = vornamen(randomizer.Next(0, 26))
TextBox8.Text = vornamen(randomizer.Next(0, 26))
TextBox9.Text = vornamen(randomizer.Next(0, 26))
TextBox10.Text = vornamen(randomizer.Next(0, 26))
TextBox11.Text = vornamen(randomizer.Next(0, 26))
TextBox12.Text = vornamen(randomizer.Next(0, 26))
TextBox13.Text = vornamen(randomizer.Next(0, 26))
TextBox14.Text = vornamen(randomizer.Next(0, 26))
TextBox15.Text = vornamen(randomizer.Next(0, 26))
TextBox16.Text = vornamen(randomizer.Next(0, 26))
TextBox17.Text = vornamen(randomizer.Next(0, 26))
TextBox18.Text = vornamen(randomizer.Next(0, 26))
TextBox19.Text = vornamen(randomizer.Next(0, 26))
TextBox20.Text = vornamen(randomizer.Next(0, 26))
TextBox21.Text = vornamen(randomizer.Next(0, 26))
TextBox22.Text = vornamen(randomizer.Next(0, 26))
TextBox23.Text = vornamen(randomizer.Next(0, 26))
TextBox24.Text = vornamen(randomizer.Next(0, 26))
TextBox25.Text = vornamen(randomizer.Next(0, 26))
TextBox26.Text = vornamen(randomizer.Next(0, 26))
End Sub
End Class