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
por 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á

e

e népiah...
Agradeço post's a ajudarem aqui o jê
Comprimentos ao pessoal!
-
HummerH2
- Novato

-
- Mensagens: 16
- Registado: Segunda Jan 17, 2005 13:50
por _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

-
- Mensagens: 981
- Registado: Sexta Jan 17, 2003 22:06
- Localização: Matosinhos
por 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

-
- Mensagens: 129
- Registado: Segunda Jan 17, 2005 10:09
por _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

-
- Mensagens: 981
- Registado: Sexta Jan 17, 2003 22:06
- Localização: Matosinhos
por _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

-
- Mensagens: 981
- Registado: Sexta Jan 17, 2003 22:06
- Localização: Matosinhos
por 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

-
Radeon
- Membro de Prata

-
- Mensagens: 129
- Registado: Segunda Jan 17, 2005 10:09
por _black_bird » Terça Fev 08, 2005 21:48
+ Alguma coisa apita.... se eu souber eu respondo

-
_black_bird
- Membro de Ouro

-
- Mensagens: 981
- Registado: Sexta Jan 17, 2003 22:06
- Localização: Matosinhos
por 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.

-
JonPaula
- Novato

-
- Mensagens: 2
- Registado: Sexta Fev 11, 2005 13:02
por 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.

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

-
- Mensagens: 386
- Registado: Sexta Dez 03, 2004 10:03
- Localização: VN GAIA - FEUP
por _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

-
- Mensagens: 981
- Registado: Sexta Jan 17, 2003 22:06
- Localização: Matosinhos
por 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

-
- 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