como fazer sorteio aleatório para batalhas no delphi
21/01/2016
0
[img:descricao=tabela]http://arquivo.devmedia.com.br/forum/imagem/469138-20160121-182504.jpg[/img]Galera preciso urgentemente de ajuda faz muito tempo que eu não tenho contato com o delphi e com essa nova verção piorou tudo preciso de ajuda pra criar um sorft simples que seja pra por em ordem os nomes dos competidores basicamente como na imagem ou pode ser uma list box por tanto que fiquem aleatoria as batalhas por favor me ajudem se quiserem me manda o projeto eu agradeço ou chama no whats 7581280112
Jhonny
Curtir tópico
+ 0
Responder
Post mais votado
24/01/2016
procedure TForm3.Button31Click(Sender: TObject);
const
N = 9;
var
I, L, M: Integer;
Num: array[0..N - 1] of Integer;
begin
// GERAR NUMEROS ALEATORIOS SEM REPETIÇÃO
Memo3.Clear;
for I := 0 to N - 1 do
Num[I] := I;
for I := N - 1 downto 1 do
begin
M := Random(I + 1);
while M = 0 do // EXCLUIR O ZERO
M := Random(I + 1);
L := Num[I];
Num[I] := Num[M];
Num[M] := L;
while num[i] = 8 do
num[i] := 0;
memo3.Lines.Append(inttostr(Num[i]));
end;
end;
procedure TForm3.Button32Click(Sender: TObject);
begin
button31.Click;
button31.Click;
button1.Caption := memo1.Lines[strtoint(memo3.Lines[0])];
button2.Caption := memo1.Lines[strtoint(memo3.Lines[1])];
button3.Caption := memo1.Lines[strtoint(memo3.Lines[2])];
button4.Caption := memo1.Lines[strtoint(memo3.Lines[3])];
button5.Caption := memo1.Lines[strtoint(memo3.Lines[4])];
button6.Caption := memo1.Lines[strtoint(memo3.Lines[5])];
button7.Caption := memo1.Lines[strtoint(memo3.Lines[6])];
button8.Caption := memo1.Lines[strtoint(memo3.Lines[7])];
end;
procedure TForm3.Button33Click(Sender: TObject);
begin
button31.Click;
button31.Click;
button16.Caption := memo2.Lines[strtoint(memo3.Lines[0])];
button17.Caption := memo2.Lines[strtoint(memo3.Lines[1])];
button18.Caption := memo2.Lines[strtoint(memo3.Lines[2])];
button19.Caption := memo2.Lines[strtoint(memo3.Lines[3])];
button20.Caption := memo2.Lines[strtoint(memo3.Lines[4])];
button21.Caption := memo2.Lines[strtoint(memo3.Lines[5])];
button22.Caption := memo2.Lines[strtoint(memo3.Lines[6])];
button23.Caption := memo2.Lines[strtoint(memo3.Lines[7])];
end;
Explicação : Dentro do memo3 vão ser jogados números alternados em varias linhas, sem repetir os números
dentro do memo1 e memo2 é onde vc digita 16 nomes de players sendo 8 no memo1 e 8 no memo2
dentro do espaço para cada player eu criei um button que recebe o nome da pessoa de forma sorteada.
Ae vai da sua criatividade criar por ex PdAtk pdDef Hp .... para cada button, espero ter ajudado abraços.
Obs: a função eu n desenvolvi eu encontrei na internet, os créditos não são meus.
const
N = 9;
var
I, L, M: Integer;
Num: array[0..N - 1] of Integer;
begin
// GERAR NUMEROS ALEATORIOS SEM REPETIÇÃO
Memo3.Clear;
for I := 0 to N - 1 do
Num[I] := I;
for I := N - 1 downto 1 do
begin
M := Random(I + 1);
while M = 0 do // EXCLUIR O ZERO
M := Random(I + 1);
L := Num[I];
Num[I] := Num[M];
Num[M] := L;
while num[i] = 8 do
num[i] := 0;
memo3.Lines.Append(inttostr(Num[i]));
end;
end;
procedure TForm3.Button32Click(Sender: TObject);
begin
button31.Click;
button31.Click;
button1.Caption := memo1.Lines[strtoint(memo3.Lines[0])];
button2.Caption := memo1.Lines[strtoint(memo3.Lines[1])];
button3.Caption := memo1.Lines[strtoint(memo3.Lines[2])];
button4.Caption := memo1.Lines[strtoint(memo3.Lines[3])];
button5.Caption := memo1.Lines[strtoint(memo3.Lines[4])];
button6.Caption := memo1.Lines[strtoint(memo3.Lines[5])];
button7.Caption := memo1.Lines[strtoint(memo3.Lines[6])];
button8.Caption := memo1.Lines[strtoint(memo3.Lines[7])];
end;
procedure TForm3.Button33Click(Sender: TObject);
begin
button31.Click;
button31.Click;
button16.Caption := memo2.Lines[strtoint(memo3.Lines[0])];
button17.Caption := memo2.Lines[strtoint(memo3.Lines[1])];
button18.Caption := memo2.Lines[strtoint(memo3.Lines[2])];
button19.Caption := memo2.Lines[strtoint(memo3.Lines[3])];
button20.Caption := memo2.Lines[strtoint(memo3.Lines[4])];
button21.Caption := memo2.Lines[strtoint(memo3.Lines[5])];
button22.Caption := memo2.Lines[strtoint(memo3.Lines[6])];
button23.Caption := memo2.Lines[strtoint(memo3.Lines[7])];
end;
Explicação : Dentro do memo3 vão ser jogados números alternados em varias linhas, sem repetir os números
dentro do memo1 e memo2 é onde vc digita 16 nomes de players sendo 8 no memo1 e 8 no memo2
dentro do espaço para cada player eu criei um button que recebe o nome da pessoa de forma sorteada.
Ae vai da sua criatividade criar por ex PdAtk pdDef Hp .... para cada button, espero ter ajudado abraços.
Obs: a função eu n desenvolvi eu encontrei na internet, os créditos não são meus.
Thiago
Responder
Mais Posts
24/01/2016
Jhonny
mano muito obrigado me manda seu whats ou face pra poder tirar umas duvidas
Grato
Grato
Responder
24/01/2016
Thiago
Pode tirar as duvidas por aqui mesmo é bom para todos pois assim quando suas dúvidas acabarem sempre fica no fórum um dia alguém pode precisar do mesmo conteúdo.
Responder
24/01/2016
Jhonny
é que eu não to conseguindo organizar os codigos cada um em seu lugar to todo perdido no novo delphi tem como me ajudar pelo teamviewer e eu grava enquanto estiver me ajudando e posto o video no forum
Responder
Clique aqui para fazer login e interagir na Comunidade :)
