Lazarus - gratuit mediu de dezvoltare de software cu compilator open source Free Pascal (adesea abreviat FPC-- freeware compilator Pascal limbaj de programare) în Object Pascal. Mediul de dezvoltare integrat oferă o oportunitate pentru dezvoltarea aplicațiilor cross-platform într-un mediu asemănător cu Delphi. În momentul de față, acesta este singurul instrument de dezvoltare rapidă a aplicațiilor (RAD), care permite Delphi-programatori a crea aplicații cu o interfață grafică cu utilizatorul pentru Linux (și alte non-Windows) sisteme.
Cu ajutorul tehnologiei de programare vizuală implementată în Lazarus, este posibilă construirea interfeței programelor viitoare de la componente speciale care implementează proprietăți diferite. Numărul acestor componente este suficient de mare. Fiecare dintre ele conține codul de program gata și toate datele necesare pentru muncă, ceea ce îi eliberează pe programator să creeze ceea ce a fost deja creat. Acest program va arata ca un set de proceduri care nu au un corp.
Scrieți un program care construiește un poligon folosind tehnologia programării vizuale în mediul de programare Lazarus. Dimensiunea figurinei ar trebui să depindă de distanța de la centrul poligonului la unul dintre punctele sale extreme. Numărul de unghiuri și distanța de la centrul poligonului la unul dintre punctele sale extreme sunt introduse de utilizator.
Classes, SysUtils, FileUtil, Formulare, Controale, Grafică, Dialoguri, ExtCtrls,
Exemple de funcționare a programului
Metodele și procedurile utilizate în program
Procedură Panel1MouseDown (Expeditor: TObject; Buton: TMouseButton;
Schimbare: TShiftState; X, Y: Integer)
În această procedură, verificăm corectitudinea datelor introduse și, dacă datele sunt corect introduse, executăm construcția figurii.
Verificăm validitatea cu operatorul condițional dacă. Dacă numărul de raze este 0 sau lungimea razei este 0 sau 1 sau 2, atunci apare o fereastră cu textul: "S-au introdus date incorecte!"
procedureTForm1.Edit1KeyPress (Expeditor: TObject; Varkey: char) procedureTForm1.Edit2KeyPress (Expeditor: TObject; Varkey: char)
În aceste proceduri, specificăm tipul de caractere pe care utilizatorul le poate introduce. Deoarece programul trebuie să introducă numere, aceste proceduri vă permit să introduceți numai numere.
procedureTForm1.Edit1Change (Expeditor: TObject) procedureTForm1.Edit2Change (Expeditor: TObject)
În aceste proceduri, verificăm prezența datelor în liniile Edit1 și Edit2. Dacă liniile de intrare nu sunt goale, atunci programul este executat în continuare, altfel apare fereastra cu textul: "Nu sunt introduse toate datele!"
Determinarea culorii liniei:
Culori: = RGBToColor (aleator (255), aleatoriu (255), aleatoriu (255)); Panel1.Canvas.Pen.Color: = culori;
Aceste comenzi sunt responsabile pentru alegerea culorii creionului, care se întâmplă în mod aleatoriu.
Completați definiția culorii:
Această comandă este responsabilă pentru selectarea culorii de umplere a pânzei. În acest caz, folosim o culoare albă.
Această metodă trasează o linie dreaptă dintr-un punct cu coordonate (x1, y1) într-un punct cu coordonate (x2, y2)
Apelul de metodă arată astfel:
Invocarea metodei în această sarcină arată astfel:
Panel1.Canvas.Line (x + Round (d * Cos (a i *)), y + Round (d * Sin (a i *)), x + Round (d * Cos (a * (i + 1)) ), y + rotundă (d * Sin (a * (i + 1))));
Articole similare
Trimiteți-le prietenilor: