ARCHIV

Lazarus-Míny(2)

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 | Články autora | přečteno 7114×

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
Verze pro tisk

DISKUZE

widle 29.4.2010 19:36 Radim Kolář

Re: widle 6.5.2010 02:14 Aleš Hakl

Příspívat do diskuze mohou pouze registrovaní uživatelé.

Vyhledávání software

Vyhledávání článků

Rozšířené vyhledávání

Linux News

28.11.2018 23:56 /František Kučera
Prosincový sraz spolku OpenAlt se koná ve středu 5.12.2018 od 16:00 na adrese Zikova 1903/4, Praha 6. Tentokrát navštívíme organizaci CESNET. Na programu jsou dvě přednášky: Distribuované úložiště Ceph (Michal Strnad) a Plně šifrovaný disk na moderním systému (Ondřej Caletka). Následně se přesuneme do některé z nedalekých restaurací, kde budeme pokračovat v diskusi.
Komentářů: 1

12.11.2018 21:28 /Redakce Linuxsoft.cz
22. listopadu 2018 se koná v Praze na Karlově náměstí již pátý ročník konference s tématem Datová centra pro business, která nabídne odpovědi na aktuální a často řešené otázky: Jaké jsou aktuální trendy v oblasti datových center a jak je optimálně využít pro vlastní prospěch? Jak si zajistit odpovídající služby datových center? Podle jakých kritérií vybírat dodavatele služeb? Jak volit vhodné součásti infrastruktury při budování či rozšiřování vlastního datového centra? Jak efektivně datové centrum spravovat? Jak co nejlépe eliminovat možná rizika? apod. Příznivci LinuxSoftu mohou při registraci uplatnit kód LIN350, který jim přinese zvýhodněné vstupné s 50% slevou.
Přidat komentář

6.11.2018 2:04 /František Kučera
Říjnový pražský sraz spolku OpenAlt se koná v listopadu – již tento čtvrtek – 8. 11. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma umění a technologie, IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

4.10.2018 21:30 /Ondřej Čečák
LinuxDays 2018 již tento víkend, registrace je otevřená.
Přidat komentář

18.9.2018 23:30 /František Kučera
Zářijový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 20. 9. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

9.9.2018 14:15 /Redakce Linuxsoft.cz
20.9.2018 proběhne v pražském Kongresovém centru Vavruška konference Mobilní řešení pro business. Návštěvníci si vyslechnou mimo jiné přednášky na témata: Nejdůležitější aktuální trendy v oblasti mobilních technologií, správa a zabezpečení mobilních zařízení ve firmách, jak mobilně přistupovat k informačnímu systému firmy, kdy se vyplatí používat odolná mobilní zařízení nebo jak zabezpečit mobilní komunikaci.
Přidat komentář

12.8.2018 16:58 /František Kučera
Srpnový pražský sraz spolku OpenAlt se koná ve čtvrtek – 16. 8. 2018 od 19:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát jsou tématem srazu databáze prezentaci svého projektu si pro nás připravil Standa Dzik. Dále bude prostor, abychom probrali nápady na využití IoT a sítě The Things Network, případně další témata.
Přidat komentář

16.7.2018 1:05 /František Kučera
Červencový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 7. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát bude přednáška na téma: automatizační nástroj Ansible, kterou si připravil Martin Vicián.
Přidat komentář

Více ... Přidat zprávičku

Poslední diskuze

31.7.2023 14:13 / Linda Graham
iPhone Services

30.11.2022 9:32 / Kyle McDermott
Hosting download unavailable

13.12.2018 10:57 / Jan Mareš
Re: zavináč

2.12.2018 23:56 / František Kučera
Sraz

5.10.2018 17:12 / Jakub Kuljovsky
Re: Jaký kurz a software by jste doporučili pro začínajcího kodéra?

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2024) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze