Sorteio Em Vb

[Guest - Jean -]

olá pessoal, tenho que fazer um programa, um bingo para ser mais especifico, no que a cada vez que eu clicar em "sorteio", ele sorteasse uma sequencia de 6 numeros, e quando eu novamente clica-se em "sorteio", ele me desse uma nova sequencia de 6 numeros, porem enviando a sequencia anterior para a linha de baixo, mais uma coisa a cada sequencia que for sorteada não pode haver numeros repetidos, desde já obrigado

[Graymalkin]

Dê uma procurada no fórum e você encontrará vários tópicos sobre isso.

Abraços,

Graymalkin

[PedroBarreto]

aimgo é facil olhe:

Valor = Int((10 * Rnd) + 1) ' gera um valor sorteado entre 1 e 10.

If Valor = 1 Then

text1.text = 1

end if

e assim vai ate o 10

se voce quiser criar um jogo estilo o show do milhão é do mesmo geito mais voce tem que criar variaos frame com perguntas e respostas com optionbutton dai você fais o mesmo esquema assima so que ao invez de ser:

If Valor = 1 Then

text1.text = 1

end if

sera:

if valor = 1 then ' se o valor for um então:

frame1.visible = true ' o frame estara visivel

end if ' final do comando se

E para configurar os frames voce fais mais ou menos assim:

vamos supor que tenha apenas 2 respostas e a resposta 2 esta certa:

if option1.volue = true then

msgbox "errou"

end if

<---- não poderia haver um else aqui porque se a pessoa não seleciona-se nenhuma ele iria acertar

if option2.volue = true then

msgbox "acertou"

text1.text = text1.text + 1

end if

Valor = Int((10 * Rnd) + 1)

agora você pensa para criar seu bingo

Abraços