Acum ne uităm la un exemplu de a crea un calculator simplu cu 4 acțiuni se numește „fără probleme“, adică componente fără a atribui nume schimba setul lor de proprietăți, etc. Pur și simplu și succint. Descris nu ar putea fi mai ușor de înțeles.
Puteți crea calculator vizual diferit în dezvoltarea de sisteme, de exemplu, Lazăr, Borland Delphi. Considerăm că a doua opțiune, cel mai faimos - saptea versiune Borland Delphi, de exemplu.
1. Porniți Delphi 7. a crea un nou proiect. (File -> New -> VCL Formular de cerere).
Avem nevoie de doar 10 componente (4 butoane, etichete 3, 3 din câmpul de introducere). Cazare exemplu - a se vedea programul de captură de ecran. Deci, se prepară forma:
a) Ia componentă TLabel și puneți-l (acest lucru va fi titlul de „primul număr“). Deci, pentru a apela această etichetă, ne shelkaem o dată pe eticheta noastră și în fereastra „Object Inspector“ găsi proprietatea „Legendă“. La dreapta este scris „Label1“. vom șterge și scrie „primul număr“. apăsați Enter în mod necesar.
b) Ia componenta tEditează și locul, de asemenea, model sub „primul număr“. Facem click pe componenta si care este doar plasat. Că nu a existat nici o inscripție „edit1“, vom merge din nou pe fereastra „Object Inspector“ și deja găsiți proprietatea „Text“ și clar-l.
c) Repetați pasul „(a)“, aceeași componentă avea, loc pe modelul și apoi în proprietatea „Caption“ a scrie doar un alt titlu - „Al doilea număr“.
g) repetarea etapei (b). plasează sub „al doilea număr de“ proprietate „Text“ din nou purificat.
d) Acum, ia componentei "TButton". Probele au fost plasate pe buton, pentru a regla dimensiunea unui mouse. În proprietatea „legenda“ scrie, de exemplu, semnul „+“. Din nou, să ia cheia, aceiași pași, dar în „legenda“ scriere „-“ semn. Și 2 butoane rămase: toate la fel, numai în „Caption“ a scrie „X“ și „/“ (înmulțirea și împărțirea).
e) Din nou, se repetă pasul sau "(a)" sau "(c)" - ele sunt aceleași))). Din nou, ia marca, din nou în „Caption“ Acum scrie deja „Rezultat“.
e) Repetați pasul "(b)" sau "(d)" - ele sunt aceleași. ia din nou tEditează. plasează sub „Rezultatelor“, dimensiunea personalizată, proprietatea „Text“ purificat din nou.
g) La cererea se poate schimba numele titlului programului. Faceți clic pe un formular scaun gol (fără componente) și în proprietatea „legenda“ scrie, de exemplu, „Calculator“. Și puteți alege culoarea de fundal în „Color“.
Mold este gata. Acum, punerea în aplicare a programului.
Dublu click cu mouse-ul pe butonul cu un plus, vă va transfera codul fereastră. De îndată ce faceți clic de 2 ori, Delphi va crea o procedură pentru componentă, și anume, reacție la eveniment. Eveniment pentru butonul - click pe ea. Există următoarele linii:
Procedura TForm1.Button1Click (Expeditor: TObject);
începe
Pentru a începe, ne îndreptăm din cele 3 variabile. le scrie în secțiunea VAR - o secțiune care descrie variabilele (adăugați pentru a începe) și numele lor, de exemplu, num1, num2, rezultat și tipul acestor variabile - un număr întreg (număr întreg). Aceste variabile vor păstra numărul. Așa cum s-ar arăta codul:
Procedura TForm1.Button1Click (Expeditor: TObject);
VAR
num1, num2, rezultat: întreg;
începe
Acum, cea mai mare parte butonul de lucru între începe și și. În primul rând, vom atribui valoarea variabilei. Permisiunea de a utiliza primul câmp, dar! Pentru a-l recunoaște ca număr, folosește funcția „StrToInt“ (convertește text la numere). Aceasta este, valoarea pe care le-am introdus în primul număr de spire număr „reale matematice“. Toate acestea sunt preluate din primul număr (este numit edit1) și proprietățile sale „text“ (faptul că am intrat). Același lucru este valabil și pentru a doua variabilă. Doar un al doilea câmp se numește „Edit2“ (aceste nume sunt standard, precizează programul lor, sunt proprietatea „Name“). Aici este codul cu modificările:
Procedura TForm1.Button1Click (Expeditor: TObject);
VAR
num1, num2, rezultat: întreg;
începe
num1: = StrToInt (Edit1.Text);
num2: = StrToInt (Edit2.Text);
se încheie;
După cum ați înțeles, atunci când apăsați pe butonul plus, numerele adăugate în sus. Ie puteți pur și simplu scrie rezultatul: = NUM1 + num2. Așa e, așa să fie, avem nevoie de acest cod, dar fără funcția „IntToStr“ (numărul de transferuri într-un șir de caractere în text) aveți atunci când se adaugă 1 și 2 va fi de 12 în loc de 3. Faptul este că, fără Delphi se va adăuga caracterele din 2 câmpuri într-o singură linie, fără să realizeze că există un număr și care au nevoie pentru a efectua operații matematice. Asta folosit „IntToStr“. câmpul de ieșire rezultat numit „Edit3“ Acum, el (sau mai degrabă proprietatea sa „Text“), vom atribui valoarea care urmează să fie transformată într-un șir de, sau mai degrabă „rezultatul“ variabilă. în cazul în care este stocat suma.
Aici este codul cu adăugări:
Procedura TForm1.Button1Click (Expeditor: TObject);
VAR
num1, num2, rezultat: întreg;
începe
num1: = StrToInt (Edit1.Text);
num2: = StrToInt (Edit2.Text);
Rezultatul: = num1 + num2;
Edit3.Text: = IntToStr (rezultat);
se încheie;
Primul buton este gata! Run (F9) de program, introduceți două numere și faceți clic pe un plus. De lucru? Dacă totul este corect, da.
Minus de multiplicare și necesită doar câteva clicuri de mouse, și modificări ale aceluiași semn. Împărțind un pic mai mult. Dar, mai întâi, minus și multiplicare:
1. Minus: totul, de asemenea, de 2 ori butonul cu minus, îndepărtați corzile și să înceapă și. între care clipește cursorul, copiați am creat prima bucată de cod, acesta și în cazul în care am scris „rezultat: = NUM1 + num2“ schimbare „+“ la „-“ (fără ghilimele!). Și totuși! Aici este codul:
Procedura TForm1.Button1Click (Expeditor: TObject);
VAR
num1, num2, rezultat: întreg;
începe
num1: = StrToInt (Edit1.Text);
num2: = StrToInt (Edit2.Text);
Rezultatul: = num1-num2;
Edit3.Text: = IntToStr (rezultat);
se încheie;
2. Pentru multiplicarea. Aceleași acțiuni, facem clic de două ori, și eliminați începe și, copiați și acum a pus „*“ (toate fără ghilimele).
3. Ultimul efort de viteză - diviziune. Absolut nimic greșit, totul este simplu. De asemenea, apasat de 2 ori butonul cu diviziunea, și se îndepărtează din nou și pentru a începe, și introduceți. Me un pic. În primul rând - aici este:
num1, num2: integer;
Rezultatul: real;
De ce? Faptul că diviziunea este adesea obținut numere fracționare. Integer nu se poate stoca un număr cu virgulă, Real permite. Este simplu. Mai mult, în cazul în care vom schimba semnele de acțiune între NUM1 și num2 pune un „/“ (diviziune). În cele din urmă, modificați în linie Edit3.Text: = InToStr pe FloatToStr. Funcția este aceeași, numai pentru numere reale.
Cod buton:
TForm1.Button1Click (Expeditor: TObject);
VAR
num1, num2: integer;
Rezultatul: real;
începe
num1: = StrToInt (Edit1.Text);
num2: = StrToInt (Edit2.Text);
Rezultatul: = num1 / num2;
Edit3.Text: = FloatToStr (rezultat);
se încheie;
Rulați programul și să se asigure că toate acțiunile sunt efectuate corect!
Asta este! Un calculator simplu este gata!
Ceea ce nu este clar - cere!
Compact, ușor de utilizat calculator, simplu pentru a efectua 4 acțiuni.