Nahodne cisla – .NET – Fórum – Programujte.com

zdravim ... mam aplikáciu na generovanie nahodnych cisel... da sa nastavit rozsah a pocet cisel.. a kod je nasledovný 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pocet As Integer = NumericUpDown1.Value
        Dim test As Integer = 0
        If CheckBox1.Checked = False Then
            Do Until pocet = 0
                test = Int((NumericUpDown3.Value - (NumericUpDown2.Value)) * Rnd() + NumericUpDown2.Value)
                If ListBox1.Items.Contains(test) Then
                Else
                    ListBox1.Items.Add(test)
                    pocet = pocet - 1
                End If
            Loop
        Else
            Do Until pocet = 0
                test = Int(NumericUpDown3.Value * Rnd() + NumericUpDown2.Value)
                ListBox1.Items.Add(test)
                pocet = pocet - 1
            Loop
        End If
    End Sub

okrem tohoto kodu je tam uz iba vycistenie listoboxu do ktoreho sa cisla ukladaju... zaškrtnutý checkbox1 znamená že sa čísla môžu opakovat. ... zo zaciatku slo všetko dobre ale ked nastavim pocet cisel na viac ako 5 tak sa to zasekne dost cudným sposobom ... nevyhodí to ani chybu ani to neprestane reagovat proste zamrzne. prosim poradte dakujem.

Možná máš zadaný malý rozsah čísel, tak se nemůže najít další volné číslo a výpočet se opakuje stále dokola.

Například generuješ čísla od 1 do 6 a necháš si jich vygenerovat 10 s podmínkou, že se nesmí opakovat. Prostě tam chybí ukončení v případě, že už další čísla vygenerovat nejdou.

jaj ze mi to nedoslo ... aj tak moc díky