Számológép delphi
Most nézzük egy példát: létrehozunk egy egyszerű számológép, 4 intézkedések az úgynevezett „minden gond nélkül”, azaz alkatrészek nélkül neveket változtatni halmazát, stb Egyszerűen és tömören. Meghatározza nem lehet több, könnyen érthető.
Létrehozhat különböző vizuális számológép rendszerek fejlesztése, például Lázár, Borland Delphi. Úgy véljük, a második lehetőség, a leghíresebb - Borland Delphi hetedik változat, például.
1. Start Delphi 7. hozzon létre egy új projektet. (File -> New -> VCL Form Application).
Elég csak 10 tartozékok (4 gombok, címkék 3, 3 beviteli mező). Szállás példa - lásd a képet a program. Tehát, előkészíti a következő formában:
a) Vegye TLabel komponens és tegyük (ez lesz a címe az „első számú”). Tehát legyen a címke, akkor shelkaem egyszer a címkén és az ablakon „Object Inspector” találja az ingatlan „Képaláírás”. A jobb van írva „Label1”. letöröljük és írni „első számú”. nyomja meg az Entert feltétlenül.
b) Vegyünk tSzerkesztés komponens és mintás helye alapján az „első számú”. Mi kattintson a komponenst tartalmaz, és csak elhelyezni. Hogy nincs felirat „Edit1”, megint megy ki az ablakon „Object Inspector”, és már megtalálni az ingatlan „szöveg”, és törölje azt.
c) lépés ismétlésével „(a)”, ugyanazt a komponenst figyelembe, helyét a modellt, majd a tulajdon „a felirata:” írni csak egy másik címmel - „A második szám”.
g) lépés megismétlése (b). helyezze a „második számú” vagyon „szöveg” tisztított újra.
d) Most hogy komponens "TButton". A mintákat a gombra, hogy állítsa be a méretet az egérrel. A tulajdon „a felirata:” write, például a „+” jel. Ismét veszi a kulcsot, ugyanazokat a lépéseket, de „a felirata:” write „-” jelet. És a fennmaradó 2 gomb: mindegy, csak „a felirata:” write „X” és „/” (szorzás és osztás).
e) Ismét ismételje vagy "(a)" vagy "(c)" - azok azonosak))). Ismét veszi a jelet, ismét „a felirata:” Most már levelet az „Eredmények”.
e) lépés ismétlésével "(b)" vagy "(d)" - ők is azonos. Ismét vesz tSzerkesztés. alá helyezi az „Eredmények”, az egyedi méret, az ingatlan „szöveg” tisztított újra.
g) kérésére lehet változtatni a nevét, a program nevére. Kattintson egy üres székre formában (nem tartozékok), és a tulajdon „a felirata:” írni, például „számológép”. És akkor lehet választani a háttér színét a „Color”.
Mould kész. Most a végrehajtás a programot.
Dupla klikk az egérrel a gombra a plusz, akkor át az ablakot kódot. Amint rákattint 2 alkalommal, Delphi létrehoz egy eljárást a komponens, azaz a reakció az esemény. Esemény a gomb - kattintson rá. Vannak a következő sorokat:
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
Kezdje el, fejét a 3 változó. Írja őket a VAR szakasz - a leíró részben változók (add kezdeni), és nevezni őket, például NUM1, num2, eredmény és típusa ezeket a változókat - egy egész szám (integer). Ezek a változók tárolja a számot. Így a kód nézne:
eljárás TForm1.Button1Click (Sender: TObject);
VAR
NUM1, num2, eredmény: integer;
kezdődik
Most, a legtöbb munka gomb között kezdődik és és. Először is rendelheti a változó értékét. Engedély, hogy az első területen, de! Felismerni azt a számot, használja a funkciót „StrToInt” (átalakíthatja a szöveget számok). Ez azt jelenti, amelynek értéke már bevezették az első menetek száma „valódi matematikai” számot. Mindez az már az első szám (ez az úgynevezett Edit1) és tulajdonságai „Text” (az a tény, hogy beléptünk). Ugyanez vonatkozik a második változó. Csak egy második mezőt az úgynevezett „Edit2” (ezek a nevek szabvány meghatározza a program tulajdonát képezik „neve”). Itt van a kód a változások:
eljárás TForm1.Button1Click (Sender: TObject);
VAR
NUM1, num2, eredmény: integer;
kezdődik
NUM1: = StrToInt (Edit1.Text);
num2: = StrToInt (Edit2.Text);
végén;
Amint megérted, ha megnyomja a plusz gomb, a számok összeadódnak. Ie akkor egyszerűen írjuk eredmény: = NUM1 + num2. Ez így van, hát legyen, meg kell ezt a kódot, de nem a „IntToStr” funkció (a transzferek egy karaktersorozatot a szövegben), akkor, amikor hozzá az 1. és 2. lesz 12 helyett 3. A tény az, hogy nem a Delphi ez növeli a karakterek 2 mezők egy sorban, nem veszik észre, hogy vannak olyan számok, és hogy kell matematikai műveleteket hajthat végre. Hogy a használt „IntToStr”. Az eredmény kiadási területen úgynevezett „Edit3” Most ő (vagy inkább a tulajdon „szöveg”), akkor rendelheti értéket kell alakítani egy sor, vagy inkább a változó „eredmény”. ahol az összeg tárolják.
Itt a kód kiegészítésekkel:
eljárás TForm1.Button1Click (Sender: TObject);
VAR
NUM1, num2, eredmény: integer;
kezdődik
NUM1: = StrToInt (Edit1.Text);
num2: = StrToInt (Edit2.Text);
Eredmény: = NUM1 + num2;
Edit3.Text: = IntToStr (eredmény);
végén;
Az első gomb készen áll! Run (F9) program adja a két szám, és kattintson a plusz. Munka? Ha minden rendben van, igen.
Mínusz szorzás és csupán néhány kattintással, és a változások az azonos jel. Elosztjuk egy kicsit. De az első, mínusz és szorzás:
1. Mínusz: mindent is, 2-szer a gombot a mínusz, távolítsa el a húrok, és kezdődik és. amelyek között a kurzor villog, másolja hoztuk létre az első darab kódot, ez és hol írta, hogy „eredmény: = NUM1 + num2” változás „+” és „-” (idézőjelek nélkül!). És mégis! Itt a kód:
eljárás TForm1.Button1Click (Sender: TObject);
VAR
NUM1, num2, eredmény: integer;
kezdődik
NUM1: = StrToInt (Edit1.Text);
num2: = StrToInt (Edit2.Text);
Eredmény: = NUM1-num2;
Edit3.Text: = IntToStr (eredmény);
végén;
2. szorzás. Ugyanez akciók, kattintsunk kétszer, és távolítsa el kezdődik, és a másolás és most is „*” (idézőjelek nélkül).
3. Az utolsó kilövellés - osztás. Semmi baj, minden egyszerű. Szintén kattintott 2-szer a gombot a szétválás, és távolítsa el ismét, és kezdjük, és illessze be. Nekem egy kicsit. Először - itt van:
NUM1, num2: integer;
eredmény: real;
Miért? Az a tény, hogy a szétválás gyakran szerzett tört számok. Integer nem tárolhat számos vesszővel, Real lehetővé. Ez egyszerű. Továbbá, ahol módosíthatja a jelei cselekvés között NUM1 és num2 tesz egy „/” (osztás). Végül, a változás összhangban Edit3.Text: = InToStr on FloatToStr. A funkció ugyanaz, csak a valós számokat.
gomb kód:
TForm1.Button1Click (Sender: TObject);
VAR
NUM1, num2: integer;
eredmény: real;
kezdődik
NUM1: = StrToInt (Edit1.Text);
num2: = StrToInt (Edit2.Text);
Eredmény: = NUM1 / num2;
Edit3.Text: = FloatToStr (eredmény);
végén;
A program futtatása és biztosítják, hogy minden olyan tevékenységet végeznek rendesen!
Ez az! Egy egyszerű számológép kész!
Mi nem világos - kérni!
Kompakt, könnyen kezelhető, egyszerű számológép, hogy végre 4 intézkedéseket.