• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

DEMOz

Ramdomize & Do Loop

3 mensagens neste tópico

Boas,

Tenho este código mas quando o ínicio numca mais para...

Private Sub cmdjogar_Click()

Dim a As Integer

Do

a = ramdomize

Loop Until a >= 1 And a <= 5

End Sub

Alguém me sabe explicar porquê ?

O meu objectivo é aparecer um número entre 1 e 5, aleatoriamente gerado pelo computador, numa TextBox.

Cumps, Obrigado.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Basta isto:

Num=Rnd()*5

Ps: Foi retirado da seguinte página http://scriptbrasil.com.br/forum/index.php?showtopic=85968 ou vais à http://msdn.microsoft.com/pt-br/library/8zedbtdt.aspx

De momento não estou em casa, e onde estou não tenho VB...

Quando chegar a casa vou exprimentar e depois digo qualquer coisa.

Sempre pensei que tive-se de usar a "validação de dados" mas pelos visto só numa InputBox é que tenho, para validar os dados inseridos pelo utilizador, não é ?

Cumps.

1º EDIT:

É mesmo isto! Obrigado...

Só uma coisa assim fica a gerar números >=0 e <=5 eu queria >=1 e <=5.

Tentei fazer assim;

Num = Rnd 1 * 5

Num = Rnd() 1 * 5

Ambas dão erro.

Num = Rnd(1) * 5

Assim não dá erro, mas gera o "0" na mesma.. =\

Como posso fazer para não gerar o "0" ?

Cumps

2º EDIT:

Dim a As Integer

Randomize
a = Rnd() * 4 + 1

Ora aqui está, este código, gera um número entre "1" e "5", sem gerar o "0".

Obrigado pela ajuda...

Cumps.

RESOLVIDO!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora