[es] - random funkica u delphi-ju

osmica
Beograd

Član broj: 38009
Poruke: 74
*.matf.bg.ac.yu.

Sajt: www.imagenedthe.com

Profil

^{03.11.2004. u 15:10 - pre 236 meseci}

e ovako,imas interfejs,i na njemu se nalazi jedno dugme(btn klik) i imas panel na kome se nalazi 10 slicica(da smanjimo),Znaci fora je da na btnKlik slicice se izmesaju svaki put drugacije,npr.
na mestu gde je jedinica da bude 3 ili neki drugi br.,na mestu dvojke
da bude 5 itd...
Inace ja nov u ovome poceo sam da se "bavim" delfijem pre 7 meseci,nabavio sam dosta literature tj stiva za citanje,krenuo sam od samog pocetka,sad znam dosta stvari o osnovnim komponentama i jos nekim stvarima,ali imam jos
puno toga da naucim,ja ne znam kako si ti ucio,sam ili ti je neko pomagao?
Ali meni je mnogo tesko bez icije pomoci.Razmisljam da odem na neki kurs
ili neke casove,pa ako znas neke ljude sto daju casove ili drze neki kurs,javi mi ko su,pa da ih kontaktiram.
Imam jos jedno pitanje u vezi interneta,ja nisam from bg,nedavno sam dosao ovde na fax,pa bih hteo da se prikacim na net,bezicnim ili satelitskim putem jer ovde u stanu nemam tel liniju.Koja od ova dva nacina je najbolji,kao se krecu cene i ko to radi?
Hvala puno,pozdrav!

Ivan :)

Odgovor na temu

Milos D
Beograd

Član broj: 5621
Poruke: 280
*.ptt.yu.

+1 Profil

Re: random funkica u delphi-ju

^{03.11.2004. u 17:54 - pre 236 meseci}

Jedan nacin je da napravis listu slika, pa da nasumicno uzimas jednu po jednu iz liste i pozicioniras na panelu.

Code:

function randomInteger (const minval, maxval: integer): integer;
var range : integer;
begin
  range := maxval-minval+1;
  result := minval+trunc(random*range);
end;

procedure Razmesti;
var
lista: TList;
slika: TImage;
x, y, i: integer;

begin

lista := TList.Create; //TList je klasa bez koje se ne moze, vidi help

for i := 0 to Panel.ControlCount-1 do // controlcount je broj kontrola na panelu
  if Panel.Controls[i] is TImage // ako je i-ta kontrola TImage,
        then lista.Add (Panel.Controls[i]);  // dodaj u listu

for x := 0 to BrojSlikaPoHorizontali-1 do // e sad rasporedjivanje po panelu
  for y := 0 to BrojSlikaPoVertikali-1 do
    begin
      slika := TImage (lista[RandomInteger(0, lista.count-1)]); //Odaberi slucajnu sliku
      lista.Remove (slika); //izbaci sliku iz liste
      slika.left := Margina + x*(slika.width); // pozicioniraj
      slika.top := Margina + y*(slika.width);
    end;
lista.Free; //unisti listu
end;

Ovo je iz glave pa mozda ima neki kiks.

Odgovor na temu