USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Numeros aleatórios
RAF
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 29/09/2004 12:41 hs         
Gostaria de ajuda para gerar numeros aleatórios, mas que eu possa remover um numero desta faixa.
Ex:gerar um numero de 1 a 9 ,mas que que o 5 não entre nas possibilidades de exibir.
 
Obrigado.
   
JoãoCarlosjr
não registrado
ENUNCIADA !
Postada em 29/09/2004 13:00 hs   
cara vc pode tentar assim:
 
Dim Num As Integer
    Text1 = ""
voltar:
    Num = Int((9 * rnd) + 1)
    If Num = 5 Then
        GoTo voltar
    End If
    Text1.Text = Num
 
 
T+
   
RAF
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 01/10/2004 08:29 hs         
João Carlos,
 
muito obrigado problema resolvido.
   
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 01/10/2004 08:53 hs            

Adicione o comando randomize antes do rdn

voltar:
    Randomize
    Num = Int((9 * Rnd) + 1)
    If Num = 5 Then
        GoTo voltar
    End If
    MsgBox Num

 

Faça o teste com e sem o randomize.

   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página