Calculator pentru Delphi
Pentru a învăța cum să scrie programe pe Delphi, unele cărți sunt puține. Cunoașterea vine cu practica.
Un începător în Delphi este dificil de învățat și de scris ceva. Trebuie să începem cu programe simple. Și așa, scriem un calculator.
Partea întâi: creați și înnobilați forma programului.
Open Delphi, File => Noua aplicație. Vedem ferestrele Form1 și Unit1.pas în fața noastră. Acum vom lucra cu Form1.
În primul rând, reducem dimensiunea formularului. Nu avem nevoie de o fereastră uriașă. Apoi vom arunca butoane pe el.
În acest stadiu este necesar să fii arhitect, să aranjezi componentele astfel încât să fie frumos și să fie convenabil pentru utilizator.
Editarea, împodobirea, modificarea dimensiunii și stilului fontului. În final, obținem ceva de genul:
Setați Edit1 la proprietatea ReadOnly = true astfel încât utilizatorul să nu se hrănească acolo și să nu scrie nimic în plus.
De asemenea, faceți clic pe fila Win32 din paleta componente, căutați XPmanifest acolo și pur și simplu lăsați-o pe formular. Acest lucru este necesar pentru ca butoanele noastre să aibă o formă și un stil frumos.
Setați proprietatea Form1 BorderStyle în bsSingle, astfel încât calculatorul nostru să nu poată fi redimensionat, extinzându-se dincolo de margini.
Modificați forma proprietăților VertScrollBar și HorzScrollBar. Setați-le la Visible = false. Deoarece pot apărea pe anumite teme Windows.
În BorderIcons eliminați biMinimize și biMaximize.
Avem:
Partea a doua: scriem codul programului.
Apăsați tasta Shift și selectați toate butoanele numerice din formular. de la zero la nouă. Acum faceți clic pe fila Evenimente din inspectorul de obiecte și faceți clic de două ori pe onclick.
Am primit un program de tratare a evenimentului onclick. Acest lucru este necesar pentru a nu scrie manualul pentru fiecare buton separat.
Acum trebuie să aflați ce buton a apăsat utilizatorul. Pentru aceasta avem un lucru atât de util ca Sender.
Vom scrie o variabilă locală de octet de tip, o numim btn. După ce începeți să scrieți:
Ca rezultat, variabila btn este egală cu valoarea butonului apăsat.
Verificați valoarea Edit1.text. Dacă este zero, ștergeți zero și introduceți valoarea butonului apăsat acolo. În caz contrar, îl atribuim dreptului:
Și acum să ne gândim cum va avea loc calculul. Utilizatorul introduce o valoare, apasă butonul cu operațiunea, apoi introduce o altă valoare și apasă "egal". Deci?
Creăm manipulatori pentru operații de multiplicare, divizare, scădere și adăugare.
Presupunem o variabilă globală care va păstra, ca atare, operația selectată în sine.
O altă variabilă globală trebuie să stocăm prima valoare introdusă.
În dispozitivul de operare scrieți totul acolo. De asemenea, elimină Edit1.
Acum scriem handler pentru butonul "=".
Verificăm ce operație am ales. Extragem a doua valoare din Edit1.
Realizați operația selectată. Nu uitați de reguli simple. De exemplu, nu puteți împărți cu zero.
Returnați rezultatul la Edit1.
Să presupunem că, dacă utilizatorul a făcut o greșeală atunci când a introdus o valoare, trebuie să-l activați pentru a șterge datele din Edit1.
Pentru a face acest lucru, creați un handler pentru Form1 - onkeypress.
De exemplu, ștergerea va avea loc când faceți clic pe BackSpace.
Valoarea char a acestei chei este - # 8.
Pentru o funcționare corectă este necesar să puneți proprietatea KeyPreview în Form1 la adevărat.
Articole similare
Trimiteți-le prietenilor: