Vydělávej až 160.000 Kč měsíčně! Akreditované rekvalifikační kurzy s garancí práce od 0 Kč. Více informací.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.
Avatar
Tomas
Člen
Avatar
Tomas:22.3.2017 15:43

Zdravím,
potrebujem vytvoriť generátor náhodných čísel, kde prostredníctvom jedného tlačidla mi do troch textboxov vyhodí 3 rôzne čísla z troch rôznych intervalov. Mám urobený takýto kód, ktorý funguje.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Randomize()
        Dim rndnumber As Random
        Dim number As Integer
        rndnumber = New Random
        number = rndnumber.Next(1, 35)
        TextBox1.Text = number.ToString()
        Dim rndnumber2 As Random
        Dim number2 As Integer
        rndnumber2 = New Random
        number2 = rndnumber2.Next(1, 25 - 2)
        TextBox2.Text = number2.ToString()
        Dim rndnumber3 As Random
        Dim number3 As Integer
        rndnumber3 = New Random
        number3 = rndnumber3.Next(1, 25 - 5)
        TextBox3.Text = number3.ToString()
    End Sub

Avšak potreboval by som to ošetriť tak, aby napr. číslo 5 sa v textboxe 1 opakovalo po 15 kliknutí na generate. Je to možné nejako ošetriť? Samozrejme to potrebujem pri každom textboxe.
Ďakujem

 
Odpovědět
22.3.2017 15:43
Avatar
HONZ4
Člen
Avatar
Odpovídá na Tomas
HONZ4:22.3.2017 18:26

Vyrobíš si počítadlo (int), které při kliknutí vynuluješ vždy když padne 5. V případě že padne jiné číslo než 5 navýšíš jeho počet. Při každém kliknutí budeš kontrolovat stav počítadla, když bude > 14 tak místo generování čísla vrátíš 5 a vynuluješ počítadlo.

Editováno 22.3.2017 18:28
 
Nahoru Odpovědět
22.3.2017 18:26
Avatar
HONZ4
Člen
Avatar
HONZ4:22.3.2017 18:36

Důležitá věc: nevytvářej po každé nový Random, ale jeden statický při startu aplikace a pak už jen volej .Next(). Tak jak to máš, to nebude fungovat správně!

Editováno 22.3.2017 18:38
 
Nahoru Odpovědět
22.3.2017 18:36
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 3 zpráv z 3.