Na konci článku si môžete nájsť link s celým projektom míny.
V predošlej časti sme skončili s projektom ktorý vyzeral pred a po spustení následovňe:

Úprava formulára

Aby sa náš program podobal programu míny musíme si ho najprv vzhľadovo upraviť. Možte to urobiť aj podľa seba poprehadzujte objekty vo formulári alebo použite nižšie uvedený návod.
V inšpektorovy objektov kliknite na form1 a vykonajte nasledujúce úpravy.

width=188

height=256

BorderStyle=bsSingle

V inšpektorovy objektov kliknite na image1 a vykonajte nasledujúce úpravy.

width=180

height=180

left=0

top=72

V inšpektorovy objektov kliknite na image2 a vykonajte nasledujúce úpravy.

width=57

height=33

left=112

top=8

V inšpektorovy objektov kliknite na image3 a vykonajte nasledujúce úpravy.

width=41

height=33

left=0

top=8

V inšpektorovy objektov kliknite na label a vykonajte nasledujúce úpravy.

font->size=14

caption='s'

left=176

top=8

V inšpektorovy objektov kliknite na bitbtn a vykonajte nasledujúce úpravy.

caption=''

width=60

height=60

left=48

top=8

V inšpektorovy objektov kliknite na timer1 a vykonajte nasledujúce úpravy.

Enabled=false

Môžete vidieť že už to začína mať tie črty. Náš formulár pred a po spustení by mal vyzerať nejak takto:

Události/Events

Teraz musíme nastaviť aby v prípade kliknutia na image1 náš projekt zaregistroval že sa niečo deje a podľa toho aj konal. V inšpektorovy objektov kliknite na image1 a potom Events/Události.
Nájdeme možnosti:

OnMouseDown

OnMouseUp

Na obidve dvakrát kliknemne čo spôsobí že sa v zdrojovom kóde vytvoria hlavičky týchto objektov.
Do nich vložte nasledujúci kód malo by to vyzerať takto:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin sr:=(Y div 20); //suradnice kde sa nachádza prave myš ss:=(X div 20); form1.Timer1.enabled:=true; //kliknutím spustime časovač //ak sme klikli pravym tlacidlom mysi zaznacime kde sa objavi vlajka if (Shift=[ssright]) and (konec=false) and( navstivil[sr+1,ss+1]=false ) then begin if vlajka[sr+1,ss+1]=0 then begin vlajka[sr+1,ss+1]:=1;//zaznacenie vlajky image1.Canvas.Draw(ss*20,sr*20,flag);//nakreslenie vlajky dec(vlajky);//odpocitanie uz:=true; end else if vlajka[sr+1,ss+1]=1 then begin vlajka[sr+1,ss+1]:=0;//odobranie vlajky image1.Canvas.Draw(ss*20,sr*20,tlacidlo); inc(vlajky); uz:=true; end; end; //ak sme stlacili lave tlacitko mysi a este nieje koniec do pola zaznacime kam sme klikli if (Shift=[ssleft]) and (konec=false) and ( navstivil[sr+1,ss+1]=false ) and (vlajka[sr+1,ss+1]=0) then begin form1.image1.Canvas.Draw(ss*20,sr*20,tlacidlo2); end; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var r,s:integer; begin if (konec=false) and ( navstivil[sr+1,ss+1]=false )and (uz=false)then begin r:=(sr)+1; s:=(ss)+1; if pocetmin[r,s]=9 then begin form1.BitBtn1.Glyph.LoadFromFile('nosmile.bmp'); image1.Canvas.Draw(ss*20,sr*20,mine); konec:=true; form1.timer1.Enabled:=false; end else begin cistemiesta(r,s); kontrola; end; end; uz:=false; end;


To isté spravíme aj s tlačidlom BitBtn. Dvakrát klikneme vo formulári na toto tlačidlo vo formulári sa vytvorí hlavička a donej vložíme kód ako v predošlom príklade. V kóde sú odkomentované funkcie ktoré ešte nepoužívame v prípade že ich zadefinujeme môžte ich odkomentovať, prípadne vás na to prekladač upozorní. procedure TForm1.BitBtn1Click(Sender: TObject); begin //vynuluj; //rozmiestnenie; //vokoli; //krtlacidlo ; //nacitanie obrazka form1.BitBtn1.Glyph.LoadFromFile('smile.bmp'); //pri novej hre pocet vlajok je 10 vlajky:=10; form1.image3.canvas.FillRect(image3.ClientRect);//vymazanie plochy form1.Image3.canvas.TextOut(1,1,inttostr(vlajky));// konec:=false; timer1.Enabled:=false; cas:=0; form1.image2.canvas.FillRect(image2.ClientRect); form1.Image2.canvas.TextOut(1,1,inttostr(cas)); end;

Final step

Už sa blížime k záveru a teda vložíme drvivú vetšinu kódu ktorá je nezbytná k fungovaniu nášho projektu. V zdrojovom kóde nájdete aj jemné vysvetlenie fungovania kódu. Ako môžete vidieť hoci je to pomerne malý projekt vytvorenie nakódenie a ladenie trvá určite nezanedbateľnú časovú jednotku.
Medzi Implementation a FormCreate vložíme nasledujúci kód:
//funkcia vypočíta koľko mín sa nachádza okolo bodu r,s function pocet(r,s:integer):integer; var pocett,i,j:integer; begin pocett:=0; for i:= r-1 to r+1 do for j:= s-1 to s+1 do begin if (i>0)and(j>0) and (i<10) and (j<10) then begin if pocetmin[i,j]=9 then inc(pocett); end end; result:=pocett; end; procedure vokoli; //funkcia zistuje kolko min je v okoli budu r,s var s,r:integer; begin for r:=1 to 9 do for s:= 1 to 9 do begin if (pocetmin[r,s]=9) then else if (pocetmin[r,s]=0) then pocetmin[r,s]:=pocet(r,s); end; end; procedure vynuluj; var i,j:integer; begin //vynulovanie pocitadiel for i:= 1 to 9 do for j:= 1 to 9 do begin vlajka[i,j]:=0; pocetmin[i,j]:=0; navstivil[i,j]:=false; end; end; procedure krtlacidlo; var i,j:integer; begin //kreslenie tlacidiel for i:= 1 to 9 do for j:= 1 to 9 do form1.image1.canvas.Draw(j*20-20,i*20-20,tlacidlo); end; procedure rozmiestnenie; var r,s,pocett:integer; begin randomize;//pouzitie funkcie pre naozaj nahodne cisla pocett:=0; while (pocett<=9) do begin r:=random(9)+1; s:=random(9)+1; if pocetmin[r,s]=0 then begin inc(pocett); pocetmin[r,s]:=9;end; end; end; procedure cistemiesta(r,s:integer); begin //vypise kolko min sa nachadza okolo policka r,s if (r>0)and(s>0) and (r<10) and (s<10) and ( navstivil[r,s]=false ) then begin if pocetmin[r,s]=1 then begin form1.image1.canvas.draw((s-1)*20,(r-1)*20,one); navstivil[r,s]:=true; end else if pocetmin[r,s]=2 then begin form1.image1.canvas.draw((s-1)*20,(r-1)*20,two) ;navstivil[r,s]:=true; end else if pocetmin[r,s]=3 then begin form1.image1.canvas.draw((s-1)*20,(r-1)*20,three); navstivil[r,s]:=true;end else if pocetmin[r,s]=4 then begin form1.image1.canvas.draw((s-1)*20,(r-1)*20,four) ; navstivil[r,s]:=true; end else if pocetmin[r,s]=5 then begin form1.image1.canvas.draw((s-1)*20,(r-1)*20,five); navstivil[r,s]:=true; end else if pocetmin[r,s]=6 then begin form1.image1.canvas.draw((s-1)*20,(r-1)*20,six); navstivil[r,s]:=true; end else if pocetmin[r,s]=7 then begin form1.image1.canvas.draw((s-1)*20,(r-1)*20,seven) ; navstivil[r,s]:=true; end else if pocetmin[r,s]=8 then begin form1.image1.canvas.draw((s-1)*20,(r-1)*20,eight); navstivil[r,s]:=true; end else if pocetmin[r,s]=0 then begin form1.image1.canvas.draw((s-1)*20,(r-1)*20,ciste); navstivil[r,s]:=true; if navstivil[r-1,s-1]=false then begin cistemiesta(r-1,s-1); end; if navstivil[r-1,s]=false then begin cistemiesta(r-1,s); end; if navstivil[r-1,s+1]=false then begin cistemiesta(r-1,s+1); end; if navstivil[r,s-1]=false then begin cistemiesta(r,s-1); end; if navstivil[r,s+1]=false then begin cistemiesta(r,s+1); end; if navstivil[r+1,s-1]=false then begin cistemiesta(r+1,s-1); end; if navstivil[r+1,s]=false then begin cistemiesta(r+1,s); end; if navstivil[r+1,s+1]=false then begin cistemiesta(r+1,s+1); end; end; end; end; procedure krriesenie; var p,q:integer; begin for p:= 1 to 9 do for q:= 1 to 9 do begin if pocetmin[p,q]=9 then form1.image1.canvas.Draw((q-1)*20,(p-1)*20,mine) else if pocetmin[p,q]=1 then form1.image1.canvas.draw((q-1)*20,(p-1)*20,one) else if pocetmin[p,q]=2 then form1.image1.canvas.draw((q-1)*20,(p-1)*20,two) else if pocetmin[p,q]=3 then form1.image1.canvas.draw((q-1)*20,(p-1)*20,three) else if pocetmin[p,q]=4 then form1.image1.canvas.draw((q-1)*20,(p-1)*20,four) else if pocetmin[p,q]=5 then form1.image1.canvas.draw((q-1)*20,(p-1)*20,five) else if pocetmin[p,q]=6 then form1.image1.canvas.draw((q-1)*20,(p-1)*20,six) else if pocetmin[p,q]=7 then form1.image1.canvas.draw((q-1)*20,(p-1)*20,seven) else if pocetmin[p,q]=8 then form1.image1.canvas.draw((q-1)*20,(p-1)*20,eight) else if pocetmin[p,q]=0 then form1.image1.canvas.draw((q-1)*20,(p-1)*20,ciste); sleep(50); application.ProcessMessages; end; end; procedure kontrola; var r,s,pocett,pocett2:integer; begin pocett:=0; pocett2:=0; for r:= 1 to 9 do for s:= 1 to 9 do begin if (navstivil[r,s]=false) then inc(pocett2); if (navstivil[r,s]=false) and (pocetmin[r,s]=9) then inc(pocett); end; if pocett=pocett2 then begin showmessage('Gratulujem tvoj cas je '+inttostr(cas)+ ' sec.') ; form1.timer1.enabled:=false; end; end;

Záver

Po spustení by hra mala vyzerať takto:

Tak čo dodať dúfam že sa vám hra páči a že vás veľa nového naučila. Ak sa vám tam niečo nepozdáva len smelo do upravovania zlepšovania a rozvíjania mín. Tak ako v každom programe aj tu sa môže vyskytovať niekoľko chýb. A nakoniec sľubovaný link s funkčným projektom.Miny.tar.gz