Bingo
Publicado por Akesha (3 intervenciones) el 18/11/2001 15:40:30
Hola, estoy haciendo el codigo para un bingo, mi problema es que no se como hacer para que cuando saco los numeros aleatorios no me los repita, puede que sea una tonteria pero es que no consigo hacerlo, me pone los numeros en un carton, pero no se como hacer que no se repitan, he hecho lo siguiente:
for i=0 to 14 'son 15 casillas, las he hecho como matriz de controles, de texto
numero=cdbl(rnd)
digito=val(mid(numero,6,2))
carton(i)=digito
next
carton(i) es una matriz de una dimension ya declarada, supongo que tendre que hacer un IF y con otra variable ir almacenando los numeros que aparecen y preguntar que si es repetido que vuelva a sacar otro, a pesar de que seguramente es asi no se como plasmarlo en el codigo, si alguien me puede echar una mano estare muy agradecida. Saludos
for i=0 to 14 'son 15 casillas, las he hecho como matriz de controles, de texto
numero=cdbl(rnd)
digito=val(mid(numero,6,2))
carton(i)=digito
next
carton(i) es una matriz de una dimension ya declarada, supongo que tendre que hacer un IF y con otra variable ir almacenando los numeros que aparecen y preguntar que si es repetido que vuelva a sacar otro, a pesar de que seguramente es asi no se como plasmarlo en el codigo, si alguien me puede echar una mano estare muy agradecida. Saludos
Valora esta pregunta
0