Randomico

Delphi

10/04/2003

Preciso obter um calor randomico entre 1 e 40.

usei assim

for i:= 0 to 40 do
edit1.text := IntToStr(Random(i));
end;

só q embaralha tudo


By Alemão

By Alemão

Curtidas 0

Respostas

Fbsouza

Fbsouza

10/04/2003

Não entendi :?:


GOSTEI 0
By Alemão

By Alemão

10/04/2003

To fazendo um jogo de truco.....

as cartas q os jogadores vao receber só podem estar entre 1 e 40, mas naum podem repetir....... sendo que essas cartas tem q ser randomicas..... não pode ter uma sequencia.....

E agora?


GOSTEI 0
Brunoroot

Brunoroot

10/04/2003

olha, pelo q eu entendi, vc precisa sortear um n.o entre 1 e 40, entaum, basta vc atribuir ao edit, random(40).

edit1.text:=inttostr(Random(40));

naum sei se ajudei, mas qualquer coisa....


GOSTEI 0
By Alemão

By Alemão

10/04/2003

so q o seguinte.....

são 13 edit,s......

e agora denovo?


GOSTEI 0
Brunoroot

Brunoroot

10/04/2003

Entaum é um jogo de baralho....
pq vc naum cria um vetor com 40 posições, e adiciona sequencialmente as cartas no vetor.
Crie um indice para apontar para o topo do baralho, para vc controlar as cartas que ainda est ao no baralho.

depois faça uma rotina para embaralhar este vetor.

eu tenho umas rotinas muito parecidas com essas, só q naum estou em casa, mas se quiser eu te mando.

ah!, naum entendi os 13 edits!!!

falô!


GOSTEI 0
By Alemão

By Alemão

10/04/2003

pode me mandar pra byalemao@bol.com.br

é q eu ia controlar as cartas q cada um tem no edit.....

tres edit´s para cada jogador.....

tipo no primeiro edit eu jogo o primeiro valor randomico.... no segundo outro valor randomico sendo q o primeiro naum pode ter....

e agora?


GOSTEI 0
POSTAR