Ir para o conteúdo
Platonic

[VBScript] PIN para telemóvel

Mensagens Recomendadas

Platonic    0
Platonic

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vbtipo    0
vbtipo

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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
David Pintassilgo    5
David Pintassilgo

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)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Platonic    0
Platonic

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
M@KO    1
M@KO

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)

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade