Programozás Delphi
Programozás Delphi. Példák munka alkatrészek VCL Delphi
Tehát itt az ideje, hogy kreatívan gondolkodjanak a lehetőségeket, amelyek alkatrészeket VCL Delphi. Egy korábbi cikkben már röviden megvitatta az alkatrészeket, a fülek Standard and kiegészítő. Mi alkalmazni ezt a tudást a gyakorlatban.
Sok kezdő programozók, akik ismerik a számukra új vizuális programozási nyelv, hozzon létre egy „Calculator” program. És igyekszünk létrehozni egy számológép, alkatrészek alkalmazásával, amelyek a lapok Standard and Kiegészítő.
Kezdeni, indítsa Delphi. Kész vagy? Most írjon a formában (Form1) cím „számológép”. Ehhez a Caption területén ellenőr tárgyak adja meg a szót állapotát. Közben, ahogy adja meg a szót, akkor automatikusan az előírt formában fejléc helyett címkék Form1. Most arra van szükség, hogy adjunk egy űrlapmezejére amelyek eredménye jelenik meg. Erre a célra kiválóan alkalmas Edit komponenst (beviteli mező), amely a Szabványos fülre. Add, hogy az űrlapot. Most a tulajdonságait állítsa az Object Inspector. Text tulajdonság értéke 0 (ez az ingatlan szöveget tartalmaz, amely a beviteli mező). Továbbá, a tulajdon ReadOnly (csak olvasható) hozzárendeli a true (igaz). Erre azért van szükség, hogy a művelet során a programunk a felhasználó nem tud belépni karakterek nélkül, közvetlenül a támogatás a gombok ezen a területen. Most adjuk hozzá a forma két a Button1 és Button2 könyvjelzők szabványos összetevőivel panel. Képaláírás ingatlan rendelni az első gomb „Reset”, a második „Exit”. Az első gomb visszaállítja a számítás eredményét, a második lehetővé teszi a kijáratot. Most meg kell adni még néhány gombot a számok és számtani. Ehhez nagyon jól illeszkedik SpeedButton gyorsbillentyűk. Megtalálja ezt a komponenst További lapjának a Component panel. Négy sorban hat gombok formájában. Az eredmény kell kinéznie, mint az alábbi ábra:
Most következetesen rendelheti Caption tulajdonság értékeket az egyes gombot: 0,1,2,3,4. valamint aritmetikai műveleteket és memóriával műveleteket:
Hadd magyarázzam, hogy a munka memória gombok lehetővé teszik, hogy emlékezzen bármilyen számot, majd átadják. A gombokat megfelelnek a következő műveleteket:
JV - törli a memóriát;
SP - így az értéke a memóriában;
N- -, hogy a számok a memóriában egy mínusz jel, és tegye meg a memória tartalmát;
P + -, hogy a számot a memóriában, és tegye meg a memória tartalmát.
Persze, akkor intézkedik a gombokat, ahogy tetszik. Végtére is, aki megteremti az alkalmazás, akkor vagy én?
Most mégis ez a legfontosabb dolog -, hogy írjon kódot. Igen, annak ellenére, hogy minden tudás a komponensek és tervezési szakértelem, van némi tennivaló, hogy megteremtse a kódot. Kezdjük egy egyszerű: írni a kódot a gomb visszaállítása és Kilépés. Azt már tudjuk, hogyan kell írni kódot az eseménykezelő „egy gomb megnyomásával.” Kattintson duplán a reset gombot (vagy kattints rá egyszer, majd menj ki az ablakon a Object Inspector, válasszuk a Könyvjelzők események (események) és a DoubleClick a dobozon jelzett OnClick). Most írjuk be a kódot újraindítás:
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
Edit1.Text: = '0';
végén;
Így rákattint egy gombra a beviteli mező Edit1 értéke 0-ra csökken.
Kilépés gomb írni a következő kódot:
eljárás TForm1.Button2Click (Sender: TObject);
kezdődik
Form1.Close;
végén;
Ha megnyomja ezt a gombot, a Form1 űrlap le van zárva. Most már a program futtatásával gomb megnyomásával
eljárás TForm1.SpeedButton3Click (Sender: TObject);
kezdődik
ha Edit1.Text<>„0”, akkor
Edit1.Text: = Edit1.Text + '9'
más
Edit1.Text: = '9';
végén;
Hadd magyarázzam a fenti kódot. Először vizsgáljuk meg az értéket a beviteli mezőbe. Ha az érték nulla, akkor meg kell egyszerűen írja be a kívánt számot a mezőbe nulla helyett. Ha nem nulla, akkor el kell rendelni a számot a jogot a meglévő szám.
A többi számgombok (gomb kivételével 0) levelet ugyanazt a kódot, mint a gombok 9 eltéréssel, hogy 9 helyett mindenütt szállít egy megfelelő számot a gomb nevét, például kulcsok 1:
eljárás TForm1.SpeedButton3Click (Sender: TObject);
kezdődik
ha Edit1.Text<>„0”, akkor
Edit1.Text: = Edit1.Text + '1'
más
Edit1.Text: = '1';
végén;
Most írjuk be a kódot egy gomb 0:
eljárás TForm1.SpeedButton19Click (Sender: TObject);
kezdődik
ha Edit1.Text<>„0”, akkor
Edit1.Text: = Edit1.Text + '0'
végén;
Itt nem írunk, ha a beviteli mező érdemes nulla, és rendeljen hozzá egy nullát a jobb, ha a mező értéke adja meg a nullától.
A program (
Most nyugodtan mondhatjuk, hogy a legegyszerűbb mögött. Az aritmetikai műveletek, és még inkább a memóriával nehezebb lesz. Nincs elég nélkül segédváltozókat. Úgy vélem, hogy az olvasó ismeri a Pascal nyelv, mert További elbeszélés célja az emberek, akik tudják, Pascal legalább az elsődleges szinten.
Mi meg a célt még tanulni dolgozni egész számokat. Próbáld felismerni az adagolási művelet két szám. Tehát, adjon meg egy értéket a beviteli mezőbe tudjuk. Most van szükség a + gomb megnyomásával tárolja az első szám változó, és a = gombot, hogy megjelenítse az eredményt hozzáadás a beviteli mezőbe. Első pillantásra meglehetősen egyszerű feladat. De lássuk:
Add a változót a változó deklarációs részben egység1 modul (ez az elején a modul lásd interface):
var
Form1: TForm1;
A: integer;
Legyen míg az egész (integer). Most meg kell, ha megnyomja a + gombot megjegyezni a számokat a beviteli mező egy változóban, és állítsa vissza a pályát, hogy adja meg (menjen egy egyszerű módon):
eljárás TForm1.SpeedButton22Click (Sender: TObject);
kezdődik
A: = StrToInt (Edit1.Text);
Edit1.Text: = '0';
végén;
StrToInt függvény a karakterláncot (String) egy egész szám (integer típus). Az inverz függvény (amely átalakítja egy egész értéket egy string) - ez IntToStr funkciót. Most, amikor rákattint a = gombot, továbbra is hozzáadni a megadott szám a korábban tárolt változó a:
eljárás TForm1.SpeedButton23Click (Sender: TObject);
kezdődik
Edit1.Text: = IntToStr (StrToInt (Edit1.Text) + a);
végén;
Így átalakítja a string egy számot adunk a változó egy, válthatja a számot egy string, és tegye az eredményt a beviteli mezőbe.
A szórakozás, akkor láthatjuk, milyen méretű a programot. Ez mindössze 319 KB .exe fájlt! Természetesen ez nem a 96 Kbyte szabványos Windows számológépet, de mégis: