Visual Basic 6: Náhodnosť čísel

Gregory House

Caute. Viem ze je o tom plny internet ale kdekolvek som hladal nikdy mi to bud neslo alebo som tomu neporozumel a preto som sa rozhodol dat to sem. Mam Label1 a Command1. Ked kliknem na Command1, potrebujem, aby sa v Label1 nahodne generovali cisla od 1 po 6. Vyuzil som tuto funkciu:

Kód: Vybrať všetko

Private Sub Command1_Click()
Label1.Caption = Int(Rnd * 6)
Select Case Label1
Case 0
Label1.Caption = "1"
Case 1
Label1.Caption = "2"
Case 2
Label1.Caption = "3"
Case 3
Label1.Caption = "4"
Case 4
Label1.Caption = "5"
Case 5
Label1.Caption = "6"
End Select
End Sub

ale zakazdym ked spustim program a klikam na Command1 sa cisla ukazuju takto: 5, 4, 4, 2, 2, 5, 1, 5, 5, 5, 1,...
Potrebujem aby ste mi napisali kod, aby sa nikdy alebo len velmi zriedka opakovalo to iste poradie nahodosti ked sa program spusti a dalej potrebujem aby sa malokedy opakovali tie iste cisla za sebou. Dakujem

ešte pred generovaním si pridaj do programu (na začiatok tej procedúry) príkaz Randomize

Gregory House

audiotrack napísal:ešte pred generovaním si pridaj do programu (na začiatok tej procedúry) príkaz Randomize

Velmi ti dakujem. Moc si mi pomohol, este raz dik-