[lm_Soft] Webtuga Jackpot 0.3

[lycosman]

Bom tal como o psp me pediu à 2 minutos a trás, aqui fica um gerador de números para o Euro Milhões. Atenção! Não me responsabilizo se não calhar, e se calhar a alguém, quero 20%, hã??? Tou pa ver...  

Webtuga Jackpot 0.3 for Windows

Webtuga Jackpot 0.3 for Linux

Webtuga Jackpot 0.3 for MacOSX

Webtuga Jackpot 0.3 Source Code

[PT-NGS-]

LOL.... espera pelos 20%.... LOL isso nunca calha a quem nos conhecemos..

[lycosman]

LOL.... espera pelos 20%.... LOL isso nunca calha a quem nos conhecemos..

Pois, mas não custa tentar...

[Teotónio Ricardo]

Esta versão é corrupta, ele pode gerar números iguais...
xD

Trabalha lycosman...

[lycosman]

Já não é... lol... xD

[radikal-rider]

Fica aqui prometido se eu ganhar dou-te 20% LycosMan.
Agora ter a sorte de ganhar é que me parece dificil lol

[Riey]

por mim podes ficar com os 100 %

nem jogo

lol

[psp]

Epá ganda LycosMan, lol, thanks.

[lycosman]

Desde já peço desculpa pelo erro muita estúpido que o programa tinha... Pressão infantil...  

Epá ganda LycosMan, lol, thanks.

Thanks...

Fica aqui prometido se eu ganhar dou-te 20% LycosMan.

Ora aqui está gente justa e honesta!! :boa:

[KTachyon]

Eu sugeria uma remodelaçãozita

Code Select Expand


  dim a(5), e1, e2 as integer

  dim n(5), s, i, j, k as integer

  dim rand as new Random

  dim dt as new Date

 

  // Dar uma nova seed ao gerador de números aleatórios

  rand.seed = dt.second

 



  // Hmm... esta parte pode ser trabalhada :)

  a(1) = rand.inRange(1, 50)

 

  do

a(2) = rand.inRange(1, 50)

  loop until a(2) <> a(1)

 

  do

a(3) = rand.inRange(1, 50)

  loop until a(3) <> a(1) and a(3) <> a(2)

 

  do

a(4) = rand.inRange(1, 50)

  loop until a(4) <> a(1) and a(4) <> a(2) and a(4) <> a(3)

 

  do

a(5) = rand.inRange(1, 50)

  loop until a(5) <> a(1) and a(5) <> a(2) and a(5) <> a(3) and a(5) <> a(4)

 

  e1 = rand.inRange(1, 9)

 

  do

e2 = rand.inRange(1, 9)

  loop until e2 e2 then

//Swap

s = e1

e1 = e2

e2 = s

  end if

 

  s = 0

 

  for i = 1 to 5

for j = 1 to 5

 if n(i) = 0 then

n(i) = a(j)

k = j

 elseif n(i) > a(j) then

n(i) = a(j)

k = j

 end if

next



a(k) = 99

  next

 

  sta1.caption= str(n(1))

  sta2.caption= str(n(2))

  sta3.caption= str(n(3))

  sta4.caption= str(n(4))

  sta5.caption= str(n(5))

  ste1.caption= str(e1)

  ste2.caption= str(e2)
Assim os números ficam ordenados e o \\'aleatório\\' é mais aleatório

[lycosman]

Como eu disse, fi-lo em 2 minutos....
E não percebi esta parte:

Code Select Expand


  loop until e2 e2 then
Como é que e2 pode ser maior e menor que e1 ao mesmo tempo? Acordei à 3 menutos mas não me está a entrar. E o copilador também não aceita, mas só me dá erro de type mismatch...

[lycosman]

Ah ok já percebi. O phpBB é que mete mal. Mas mesmo assim há um bug. Só depois de carregar 2 ou 3 vezes no botão é que os números mudam...

[lycosman]

Esqueçe já vi o problema. Tem que se carregar devagar...

Edit: Já está ai outra versão com as modificações do kahotic. Resolvi o problema do botão com um tempinho de espera...

[morzaban]

Esta versão é corrupta, ele pode gerar números iguais...
xD

Trabalha lycosman...

lol

É mesmo assim. O lycosman é que não quer dividir o prémio com ninguém.

[KTachyon]

Não percebi pk é k o código ficou mal... realmente, kdo eu copiei para cá n era nada dakilo k eu tinha. Aki vai o código de novo:

Code Select Expand


  dim a(5), e1, e2 as integer

  dim n(5), s, i, j, k as integer

  dim rand as new Random

  dim dt as new Date

 

  rand.seed = dt.second

 

  a(1) = rand.inRange(1, 50)

 

  do

a(2) = rand.inRange(1, 50)

  loop until a(2) <> a(1)

 

  do

a(3) = rand.inRange(1, 50)

  loop until a(3) <> a(1) and a(3) <> a(2)

 

  do

a(4) = rand.inRange(1, 50)

  loop until a(4) <> a(1) and a(4) <> a(2) and a(4) <> a(3)

 

  do

a(5) = rand.inRange(1, 50)

  loop until a(5) <> a(1) and a(5) <> a(2) and a(5) <> a(3) and a(5) <> a(4)

 

  e1 = rand.inRange(1, 9)

 

  do

e2 = rand.inRange(1, 9)

  loop until e2 <> e1

 

  //Sort

  if e1 > e2 then

//Swap

s = e1

e1 = e2

e2 = s

  end if

 

  s = 0

 

  for i = 1 to 5

for j = 1 to 5

 if n(i) = 0 then

n(i) = a(j)

k = j

 elseif n(i) > a(j) then

n(i) = a(j)

k = j

 end if

next



a(k) = 99

  next

 

  sta1.caption= str(n(1))

  sta2.caption= str(n(2))

  sta3.caption= str(n(3))

  sta4.caption= str(n(4))

  sta5.caption= str(n(5))

  ste1.caption= str(e1)

  ste2.caption= str(e2)
EDIT: Só consegui recorrendo aos HTML ASCII codes...