ARCHIV

Lazarus-Míny(1)

Zdravím všetkých čitateľov, ako som sľúbil v minulom diely dnes sa pozrieme na to ako si spraviť vlasné míny v Lazarovi. V dvoch dieloch si predstavíme hlavnú kostru mín. Nebude to nič náročné dostanete istý základ ktorý si môžete sami vylepšiť podľa vlastnej kreativity. Pre tých ktorý s Lazarusom nepracovali odporúčam aby si pozreli tento článok Lazarus IDE

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

Ako začať?

Vo väčšine projketov je vždy dobré najprv si projekt premysliet, poprípade napísať hlavné body na papier a ujasnisť si isté kroky. Tí ktorí programujú vedia, že to ušetrí mnoho času pri neskorších úpravách a prepisovaní kódu.
A teraz späť k mínam. Najprv si do formulára vložíme potrebné objekty.
Do formulára vložíme objekty tak že klikneme na objekt (tým ho vyberieme) a potom klikneme do formulára ale tlačítko myši nepúštame ho hneď, ešte pred tým musíme zvoliť veľkosť objektu(ako keď kreslíte obdlžník v grafickom editore..):

3x TImage cesta:Panel s objektami->Additional->TImage

1x TTimer cesta:Panel s objektami->System->TTimer

1x TBitBtn cesta:Panel s objektami->Additional->TBitBtn

1x TLabel cesta:Panel s objektami->Standard->TLabel

Váš formulár s inšpektorom objektov by mal vyzerať nejak takto:

Tak a už to len nakódiť..

Aby nevyzeralo že je toho veľa rozkúskujeme si to začneme trochu od konca a vysvetlíme si časti kódu aby ste si ho mohli neskôr sami upravovať.
Začneme TTimerom. Stáči že na objekt vo formulári 2x klikneme a Lazarus nám spraví hlavičku. Do ktorej vložíme nasledujúci kód.

Globálne premenné

Na začiatok kódu je potrebné zadefinovať premenné s ktorými bude mocť pracovať každá funkcia. Vložte nasledujúci kód tak aby správne sedel to znamená na začiatok kódu medzi var a implementation Malo by to vyzerať takto.

Skúste si spustiť projekt malo by byť všetko v poriadku. Ak nastane chyba skúste si kroky prejsť ešte raz. Prípadne si stiahnite celý projekt na konci článku je link.

Vytvorenie obrázkov

Kedže budeme pracovať s TImage ktorý je určený na kreslenie nastal čas si vytvoriť vlastné obrázky pre svoje míny. Obrázky vložte do súboru s projektom.
Alebo si stiahnite moje obrázky ktoré su nižšie prípadne celý projekt na konci článku kde ich nájdete tiež.

TForm1.FormCreate

Tak a teraz s čistým svedomím môžeme vložiť ďalšiu časť kódu do formulára do hlavnej funckie/procedúry TForm1.FormCreate ktorá sa spúšťa hneď ako prvá. To isté je aj v jazyku C, ale tam sa tá funkcia volá main(). Niektoré funkcie sú zakomentované kedže ich ešte nemáme zadefinovavé a pri preklade by nám robili problémy. Preto keď si ich doplníme sami si ich odkomentujte.

procedure TForm1.FormCreate(Sender: TObject);
begin
uz:=false;
vlajky:=10;   //počet možných vlajok na ozna4enie miesta s minou
form1.image3.canvas.Font.Height:=20;      //nastavenie veľkosti image3
form1.image3.canvas.FillRect(image3.ClientRect); //vymazanie image3
form1.Image3.canvas.TextOut(1,1,inttostr(vlajky)); //vypis poctu vlajok
form1.image2.canvas.FillRect(image2.ClientRect);
form1.image2.canvas.Font.Height:=20;

//načítanie obrazkov
flag:=tbitmap.create;
flag.loadfromfile('flag.bmp');
mine:=tbitmap.create;
mine.loadfromfile('mine.bmp');
tlacidlo2:=tbitmap.create;
tlacidlo2.loadfromfile('tlacidlo2.bmp');
tlacidlo:=tbitmap.create;
tlacidlo.loadfromfile('tlacidlo.bmp');
ciste:=tbitmap.create;
ciste.loadfromfile('ciste.bmp');
one:=tbitmap.create;
one.loadfromfile('One.bmp');
two:=tbitmap.create;
two.loadfromfile('Two.bmp');
three:=tbitmap.create;
three.loadfromfile('Three.bmp');
four:=tbitmap.create;
four.loadfromfile('Four.bmp');
five:=tbitmap.create;
five.loadfromfile('five.bmp');
form1.BitBtn1.Glyph.LoadFromFile('smile.bmp');

cas:=0;//vynulovanie pociatocneho casu
form1.Image2.canvas.TextOut(1,1,inttostr(cas));
konec:=false;

//vynuluj;
//rozmiestnenie;

//krtlacidlo ;
//vokoli;
end;

Náš formulár pred a po spustení by mal vyzerať nejak takto:

Zhrnutie

V dnešnom diely sme si načrtli hlavnú kostru nášho programu. Mnohí určite vidia akým smerom sa to bude uberať a dolaďovať. V ďalšom diely budeme vkladať zdrojové kódy teda pridáme funckionalitu, jemne zlepšíme výzor programu a na záver zverejním kompletný funkčný projekt míny.

Verze pro tisk


DISKUZE Nejsou žádné diskuzní příspěvky u dané položky. 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