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

Platonic

[VBScript] PIN para telemóvel

7 mensagens neste tópico

Aqui deixo um código que criei bastante simples que cria um PIN para o telemóvel aleatoriamente.

Código

dim numero(3)

randomize()

msgbox"Este programa irá criar de seguida um PIN para o teu telemóvel"

numero(0) = int(9*rnd())

numero(1) = int(9*rnd())

numero(2) = int(9*rnd())

numero(3) = int(9*rnd())

msgbox"O pin criado foi : " & numero(0) & numero(1) & numero(2) & numero(3)

msgbox"Script feito por Rúben Inácio"

Uma questão: existe maneira de fazer randomize só a uma variável? Tentei randomize numero() e não resultou :S

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Uma questão: existe maneira de fazer randomize só a uma variável? Tentei randomize numero() e não resultou :S

O que querias fazer era o randomize a um array completo, mas isso não é possível. Tens de fazer um rnd() para cada elemento do array.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Aqui deixo um código que criei bastante simples que cria um PIN para o telemóvel aleatoriamente.

Código

Uma questão: existe maneira de fazer randomize só a uma variável? Tentei randomize numero() e não resultou :S

Só se tu fizeres um randon a um array.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu segui um exemplo da aula que tive de programação. Como faço para fazer rnd() para cada elemento do array?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

E porque não assim?

randomize()
msgbox"Este programa irá criar de seguida um PIN para o teu telemóvel"
msgbox"O pin criado foi : " & int(9999*rnd())

Servia ou nem por isso? (não testei, não tenho office)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

E porque não assim?

randomize()
msgbox"Este programa irá criar de seguida um PIN para o teu telemóvel"
msgbox"O pin criado foi : " & int(9999*rnd())

Servia ou nem por isso? (não testei, não tenho office)

Porque assim ainda não aprendi :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Podes sempre usar um ciclo, FOR por exemplo, onde o X é o numero de campos de um array:

Dim numero(3)
for x = 0 to 3
     numero(x) = int(9 * Rnd())
next
msgbox " PIN = " & numero(0) & numero(1) & numero(2) & numero(3)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora