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

Sign in to follow this  
DEMOz

Ramdomize & Do Loop

Recommended Posts

DEMOz

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.

Share this post


Link to post
Share on other sites
DEMOz

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!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.