ARCHIV

Loyd-puzzle ala Lazarus 2. diel

V tomto druhom diely konečne dokončíme náš hlavolam, vložíme zbytok zdrojového kódu a môžme sa pustiť do hrania, skladania hlavolamu.
Na konci článku je tarball na stihanutie ktorý obsahuje funkčný projekt pre Lazarus so všetkými nastaveniami.

2.8.2010 00:00 | Sebastián Kunec | Články autora | přečteno 5010×

Kde sme to skončili ?

Po prvom diely by náš projekt mal byť spustitelný, mal by obsahovať hlavičky precedur a deklarovanie premmenných.
Po spustení by mal vyzerať takto:

Zdrojový kód

Za Impementation vložíme nasledujúci kód:
//Funkcia kontroluje ci Paneli sú na správnom mieste //ak ano reseult:=true function konec:boolean; var pocet,cyklus:integer; begin pocet:=0; cyklus:=0; for i:= 1 to 3 do for j:= 1 to 3 do begin inc(cyklus); if cislo[i,j]=cyklus then inc(pocet); end; if pocet=8 then result:=true else result:=false; end; //procedura zisti poziciu kazdeho panelu a potom ho vykresli procedure vykreslenie; var x,y:integer; begin x:=panel[1].x;y:=panel[1].y; form1.Panel1.Left:=((50*x)+1)-50;form1.Panel1.top:=((50*y)+1)-50; x:=panel[2].x;y:=panel[2].y; form1.Panel2.Left:=((50*x)+1)-50;form1.Panel2.top:=((50*y)+1)-50; x:=panel[3].x;y:=panel[3].y; form1.Panel3.Left:=((50*x)+1)-50;form1.Panel3.top:=((50*y)+1)-50; x:=panel[4].x;y:=panel[4].y; form1.Panel4.Left:=((50*x)+1)-50;form1.Panel4.top:=((50*y)+1)-50; x:=panel[5].x;y:=panel[5].y; form1.Panel5.Left:=((50*x)+1)-50;form1.Panel5.top:=((50*y)+1)-50; x:=panel[6].x;y:=panel[6].y; form1.Panel6.Left:=((50*x)+1)-50;form1.Panel6.top:=((50*y)+1)-50; x:=panel[7].x;y:=panel[7].y; form1.Panel7.Left:=((50*x)+1)-50;form1.Panel7.top:=((50*y)+1)-50; x:=panel[8].x;y:=panel[8].y; form1.Panel8.Left:=((50*x)+1)-50;form1.Panel8.top:=((50*y)+1)-50; end; //uvolni vsetky pozicie procedure volne; begin for i:= 1 to 3 do for j:= 1 to 3 do obsadene[i,j]:=false; end; //Rozmiestni dane panely po formulari procedure rozmiestnenie; var pocet,x,y:integer; begin pocet:=1; while pocet<>9 do begin x:=random(3)+1; y:=random(3)+1; if (obsadene[y,x]=false) and ((x<>3) or (y<>3)) then begin panel[pocet].x:=x; panel[pocet].y:=y; obsadene[y,x]:=true; cislo[y,x]:=pocet; inc(pocet); end; end; end;
V zdrojovom kóde sú aj komentáre takže kto by chcel pochopiť kódu malo by mu to stačiť, kód sám o sebe je dosť jednoduchý tak aby každý kdo chce ho mohol upravovať kód
Aj po tomto kroku by mal byť program spustitelný, pridali sme funkcie a procedúryle zatial sme ich nikde nevolali.

Procedúry

Procedúru TForm1.FormCreate ktorú sme si vytvorili minule upravte tak aby vyzerala ako tá nižšie uvedená.
procedure TForm1.FormCreate(Sender: TObject); begin form1.Timer1.Enabled:=false;//vypnutie casovaca randomize;//nahodne generovanie cisel volne;//vsetky pozizie nastavit na volne rozmiestnenie;//rozmiestnenie panelov vykreslenie;//vykreslenie panelov cas:=0;form1.Timer1.Enabled:=true; //spustenie casovaca end;
Do hlavičiek ktoré už máte vytvorené vložte obsahy týchto procedúr tak aby sa hlavičky zhodovali stými vašimi a v konečnom dôsledku kód vyzeral tak ako je tu:

procedure TForm1.MenuItem1Click(Sender: TObject); begin volne; rozmiestnenie; vykreslenie; cas:=0; end; procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin panel1.BeginDrag(true); p:=panel[1].x; q:=panel[1].y; end; procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin panel2.BeginDrag(true); p:=panel[2].x; q:=panel[2].y; end; procedure TForm1.Panel3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin panel3.BeginDrag(true); p:=panel[3].x; q:=panel[3].y end; procedure TForm1.Panel4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin panel4.BeginDrag(true); p:=panel[4].x; q:=panel[4].y; end; procedure TForm1.Panel5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin panel5.BeginDrag(true); p:=panel[5].x; q:=panel[5].y; end; procedure TForm1.Panel6MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin panel6.BeginDrag(true); p:=panel[6].x; q:=panel[6].y; end; procedure TForm1.Panel7MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin panel7.BeginDrag(true); p:=panel[7].x; q:=panel[7].y; end; procedure TForm1.Panel8MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin panel8.BeginDrag(true); p:=panel[8].x; q:=panel[8].y; end; procedure TForm1.Timer1Timer(Sender: TObject); begin cas:=cas+form1.Timer1.Interval; end; procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer); var a,b:integer; begin if source is tpanel then begin a:=(x div 50)+1; b:=(y div 50)+1; if (abs((p+q)-(a+b))=1) and (obsadene[b,a]=false) then begin tpanel(source).left:=(a-1)*50+1 ; tpanel(source).top:=(b-1)*50+1; obsadene[b,a]:=true; obsadene[q,p]:=false; panel[cislo[q,p]].x:=a; panel[cislo[q,p]].y:=b; cislo[b,a]:=cislo[q,p]; cislo[q,p]:=0; if konec then begin showmessage('Vyhral si! tvoj cas je '+floattostr(cas/1000)+' sec'); form1.Timer1.Enabled:=false; end; end; end; end; procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin accept:=(source is tpanel); end;

Obrázky z hry

Záver

Dúfam že sa vám hlavolam páči, nieje veľmi tažký a na chvíľu určite pobaví.
Ovláda sa veľmi jednoducho myšou a to tak že, na panel ktorý chcete presunúť kliknete a pustíte na voľnom políčku.
Pre tých ktorým sa nechcelo vytvárať si svoj projekt si môžete funčný projekt stihanuť tu alebo zahrať hru napríklad na tejto stranke tu.

Verze pro tisk