Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá!
Estou fazendo um simulador bem simples do sorteio da Megasena. Consegui fazer ele sortear randomicamente seis números dentro sessenta existentes.
Mas o que eu gostaria de fazer é, ao invés de quando sai um número repetido o programa buscar outro número randomizado, que ele simplesmente o exclua dos possíveis números a ser sorteados aquele que já saiu!
Veja abaixo o código que usei, após clicar no botão de comando:
var_cont = 10For var_cont = 10 To 1 Step -1 Randomizevar_rand = Int((60 Rnd) + 1)txt_n1 = var_randvar_cont = 1 For var_cont2 = 10 To 1 Step -1 var_rand = Int((60 Rnd) + 1) txt_n2 = var_rand If txt_n2 = txt_n1 Then var_cont2 = 10 Else var_cont2 = 1 For var_cont3 = 10 To 1 Step -1 Randomize var_rand = Int((60 Rnd) + 1) txt_n3 = var_rand If txt_n3 = txt_n1 Or txt_n3 = txt_n2 Then var_cont3 = 10 Else var_cont3 = 1 For var_cont4 = 10 To 1 Step -1 var_rand = Int((60 Rnd) + 1) txt_n4 = var_rand If txt_n4 = txt_n1 Or txt_n4 = txt_n2 Or txt_n4 = txt_n3 Then var_cont4 = 10 Else var_cont4 = 1 For var_cont5 = 10 To 1 Step -1 Randomize var_rand = Int((60 Rnd) + 1) txt_n5 = var_rand If txt_n5 = txt_n1 Or txt_n5 = txt_n2 Or txt_n5 = txt_n3 Or txt_n5 = txt_n4 Then var_cont5 = 10 Else var_cont5 = 1 For var_cont6 = 10 To 1 Step -1 var_rand = Int((60 Rnd) + 1) txt_n6 = var_rand If txt_n6 = txt_n1 Or txt_n6 = txt_n2 Or txt_n6 = txt_n3 Or txt_n6 = txt_n4 Or txt_n6 = txt_n5 Then var_cont6 = 10 Else var_cont6 = 1 End If Next var_cont6 End If Next var_cont5 End If Next var_cont4 End If Next var_cont3 End If Next var_cont2Next var_cont
Um grande abraço!
Carregando comentários...