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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  gerar numeros aleatorios
ThorKing
não registrado
ENUNCIADA !
Postada em 18/01/2007 13:46 hs   
Boa tarde,
Sou novo no mundo do vc e to pensando em fazer um programa tipo um gerenciador de escalas de trabalho por ex:
 
usuario joão ae gera um numero aleatorio para que ele trabalhe  as teria que poder definir os numeros tipo 6,8,12,16 é um exemplo ae ele vai gerar um numero aleatorio entre o 6,8,12,16 que significaria a hora que ele vai trabalgar teria como?
 
pesquisei e achei a função randomise eu acho que é isso! mas nao sei como passar os parametros para definir os numeros aleatorios se alguem puder ajudar agradeceria muito.
 
obrigado
   
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/01/2007 10:31 hs         
Public Function Randomico(Minimo as Double, Maximo as Double) as Double
Dim Valor As Double
Valor = Int((Maximo * Rnd) + Minimo)
Randomico = Valor
End Function
 
   
thorking
não registrado
ENUNCIADA !
Postada em 19/01/2007 18:45 hs   
lol parece até facil ehhehe muito obrigado meu amigo! vou testar aki depois.
Se não for abusar teria como comentar as linhas do codigo?
   
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 22/01/2007 08:56 hs         
Public Function Randomico(Minimo as Double, Maximo as Double) as Double 'Declaração da Função, dois parâmentros passados ByVal
Dim Valor As Double 'Variável para receber o número randomico
Valor = Int((Maximo * Rnd) + Minimo) 'Calculando um número randômico entre mínimo e máximo
Randomico = Valor  'Atribuindo retorno da função
End Function
   
thorking
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 24/01/2007 21:26 hs            
Puts cara vlw mesmo!Emoções

http://www.forcehacker.kit.net
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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