Visual Basic

PHP, Java, JavaScript, XML, XHTML, HTML, CSS, ASP, Delphi, Assembly, LaTeX, C, UML, Flash, Perl, SQL, Python, Zope, Pascal, WML. Se conhece mais de 3 siglas referidas, este é o forum para si.

Moderadores: Administradores, Moderadores

Visual Basic

Mensagempor HummerH2 » Domingo Fev 06, 2005 2:35

Boas Cambada, :)

Cenário:

1 Botão de comando
1 text

É o seguinte pretendo saber qual é o codigo para quando clicar no botão de comando aparecer aliatóriamente um número entre 1 e 6 no text.

Sorry pessoal é mesmo básico mas n me lembro... já :roll: e :roll: e népiah...

Agradeço post's a ajudarem aqui o jê :D

Comprimentos ao pessoal!
HummerH2
Novato
Novato
 
Mensagens: 16
Registado: Segunda Jan 17, 2005 13:50

Mensagempor _black_bird » Domingo Fev 06, 2005 15:17

Eu tou sem o vb instalado mas axo k é assim.

dim n as integer
Randomize Timer
n=int(Rnd * 6) + 1
saida.text = n
end sub
_black_bird
Membro de Ouro
Membro de Ouro
 
Mensagens: 981
Registado: Sexta Jan 17, 2003 22:06
Localização: Matosinhos

Mensagempor Radeon » Segunda Fev 07, 2005 10:01

É isso mesmo que o blackbird disse....

_black_bird pk usas Randomize timer e n só Randomize é que se houver diferença gostava de saber...

Abraços
Radeon
Membro de Prata
Membro de Prata
 
Mensagens: 129
Registado: Segunda Jan 17, 2005 10:09

Mensagempor _black_bird » Segunda Fev 07, 2005 13:58

Existe. É diferenca pk ele assim comeca a contar dependendo da hora do teu relogio ( ou algo assim parecido ). Mas na versao 6 já n é necessario pk ele faz automaticamente...na faculdade como se usava o 5 dava jeito usar.
_black_bird
Membro de Ouro
Membro de Ouro
 
Mensagens: 981
Registado: Sexta Jan 17, 2003 22:06
Localização: Matosinhos

Mensagempor _black_bird » Terça Fev 08, 2005 17:01

Em resposta ao teu mail...como queres para + k 1 numero (disses-te 2), axo melhor usares uma list. Exemplo

Dim n as integer
Dim ngerar as integer
Randomize Timer
Lstlist.clear
For n = 1 to 2
Ngerar = int (6 * Rnd) + 1
Lstlist.additem ngerar
Next n
End sub
_black_bird
Membro de Ouro
Membro de Ouro
 
Mensagens: 981
Registado: Sexta Jan 17, 2003 22:06
Localização: Matosinhos

Mensagempor Radeon » Terça Fev 08, 2005 19:31

Brigadao BlackBird por responderes...

Como uso a versão 6 então parece que n é necessário :lol:
Radeon
Membro de Prata
Membro de Prata
 
Mensagens: 129
Registado: Segunda Jan 17, 2005 10:09

Mensagempor _black_bird » Terça Fev 08, 2005 21:48

+ Alguma coisa apita.... se eu souber eu respondo :wink:
_black_bird
Membro de Ouro
Membro de Ouro
 
Mensagens: 981
Registado: Sexta Jan 17, 2003 22:06
Localização: Matosinhos

Resposta ao Randomize

Mensagempor JonPaula » Sexta Fev 11, 2005 13:22

Boas. É assim, apesar de não saber a diferença, eu sugeria utilizares o comando RND em vez do Randomize (se usares o VB6 )

Da seguinte forma:

Private Sub Botao_Click()
dim valor as integer

valor = int(rnd*6)
text1.text = valor

end sub

Eu fa-lo-ia assim, suponho que é muito mais simples. :P
JonPaula
Novato
Novato
 
Mensagens: 2
Registado: Sexta Fev 11, 2005 13:02

Re: Resposta ao Randomize

Mensagempor moisex » Sexta Fev 11, 2005 13:37

JonPaula Escreveu:Boas. É assim, apesar de não saber a diferença, eu sugeria utilizares o comando RND em vez do Randomize (se usares o VB6 )

Da seguinte forma:

Private Sub Botao_Click()
dim valor as integer

valor = int(rnd*6)
text1.text = valor

end sub

Eu fa-lo-ia assim, suponho que é muito mais simples. :P


Correcto mas com o randomize por trás ainda é melhor
ex:

Private Sub Botao_Click()
dim valor as integer
RANDOMIZE
valor = int(rnd*6)
text1.text = valor

end sub

em numeros pequenos mal se nota mas se for em 10000000 por exemplo sem o randomize verás que aparecem quase sempre os mesmos.
moisex
Membro de Prata
Membro de Prata
 
Mensagens: 386
Registado: Sexta Dez 03, 2004 10:03
Localização: VN GAIA - FEUP

Mensagempor _black_bird » Sexta Fev 11, 2005 15:21

Sim eu pelo menos considero essencial a introducao do Randomize, se não é como o moisex, vem quase sempre os mesmos numeros.
_black_bird
Membro de Ouro
Membro de Ouro
 
Mensagens: 981
Registado: Sexta Jan 17, 2003 22:06
Localização: Matosinhos

Mensagempor dbbm » Sexta Fev 11, 2005 20:12

Concordo com _black_bird
Sem o Randomize() , o rnd() pode começar a dar números repetidos, é importante meter
dbbm
Aprendiz
Aprendiz
 
Mensagens: 47
Registado: Quinta Mai 27, 2004 13:34


Voltar para Programação

Quem está ligado:

Utilizador a ver este Fórum: Nenhum utilizador registado e 1 visitante

cron