[Video-Aula]Criando um Sorteador

[paulinipaquiel 6]

-Introdução:

 

Bem, o codigo usado não foi feito por mim, quem quiser saber.

Eu irei ensinar, na video-aula, como fazer um programa que sorteia numeros. Muito usado para eventos . A Cod vai ficar no final do tópico.

-Video-Aula:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

!

 

 

-Codigo Usado:

 

Var

 

a: array[0..5] of integer;

 

i: Integer;

 

begin

 

for i:= 0 to 5 do

begin

 

a:= random(50)*

 

 

 

Edit1.Text:= FloatToStr (random(50))*

 

 

 

end;

-Modificando o limite:

 

Para modificar o limite de numero para sortear. É simples, na linha:

 

a:= random(50)*

 

 

Edit1.Text:= FloatToStr (random(50))*

 

Modifique o 50, do random das duas linhas.

Pode ser: 100, 200, oque quiser!

 

~~~~~~~~

 

sorteador de nomes, fonte: Owner'

var

i, x:integer;

s:string;

begin

s:=edit2.Text;

x:=listbox1.Count;

randomize;

i:=random(x-1);

begin

If listbox1.Items.Text>'' then

begin

edit2.text:=listbox1.Items.strings;

messageBoxA(handle,Pchar('Parabéns: '+(Pchar(edit2.text))),Pchar('Parabéns'),64);

end

else

messageboxA(handle,'O campo esta vazio','Erro',64);

end;

end;

 

[Owner 8]

Eu fiz um sorteador de nomes !

Códigos muito parecidos, vou postar meu tópico ( que o Dragon me ajudou ):

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[paulinipaquiel 6]

Eu fiz um sorteador de nomes !

Códigos muito parecidos, vou postar meu tópico ( que o Dragon me ajudou ):

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

posso adicionar ao topico?

[Owner 8]

Pode sim !

Mas coloque os creditos para o Dragon Boss !

Esse codigo é mais completo.

[belinhas218 0]

Olha esse tuto me interessou eu vou criar um topico passa la e me responde? D:

 

 

edit : agradecido por ser o unico programa delphi7 a me interessar

[DragonBoss 9]

voce me odeia mesmo e eu te odeio, mas, odios a parte, vamos a programaçao:

 

isso nao é realmente random, pode perceber que se vc fizer isso, fechar o programa, abrir de novo, e fechar, os numeros vao ser sempre sequenciais, mas, com uma palavrinha da pra deixar realmente random .. outra coisa, nao entendi o uso das variaveis ae =P... o resultado final do edit seria soh o random msmo... ou seja, da pra deixar o code assim:

 

o code ficaria assim ( com a adiçao da palavra randomize pra deixar realmente random ):

 

begin

randomize;

Edit1.Text:= FloatToStr (random(50));

end;

 

flw, abraçs

[paulinipaquiel 6]

voce me odeia mesmo e eu te odeio, mas, odios a parte, vamos a programaçao:

 

isso nao é realmente random, pode perceber que se vc fizer isso, fechar o programa, abrir de novo, e fechar, os numeros vao ser sempre sequenciais, mas, com uma palavrinha da pra deixar realmente random .. outra coisa, nao entendi o uso das variaveis ae =P... o resultado final do edit seria soh o random msmo... ou seja, da pra deixar o code assim:

 

o code ficaria assim ( com a adiçao da palavra randomize pra deixar realmente random ):

 

 

 

flw, abraçs

 

Eu nao te odeio aushauh' ,

 

So assim eu testei aqi em um injetor e tava normalzin

[belinhas218 0]

esse comando foi tão simples '-' vb ta perdendo de 100x0 x.x

 

pelas minhas habilidades em vb eu nunca vi um comando tão simples quando ;randomize x.x