LINUX SOFTWARE

Zdravím čitateľov takže dnes dokončíme Míny ktoré sme začali v minulom dieli kto je mimo obraz môže si článok pozrieť tu Míny(1). Doplníme zdrojové kódy upravíme jemne vzhľad programu a môžeme hrať.

29.4.2010 00:00 | Sebastián Kunec | přečteno 7115×

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í.

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

Lazarus-Míny(2)

Úprava formulára

Události/Events

Final step

Záver