Bevezetés miért Lazarus annyira népszerű, feladat programkód - látványtervezés Lazarus
Lazarus - szabad szoftver fejlesztői környezet, nyílt forráskódú fordító Free Pascal (gyakran rövidítve FPC-- freeware Pascal programozási nyelv fordító) az Object Pascal. Az integrált fejlesztői környezet lehetővé teszi, hogy cross-platform alkalmazás fejlesztés Delphi-szerű környezetben. Abban a pillanatban, ez az egyetlen eszköz a gyors alkalmazás fejlesztés (RAD), amely lehetővé teszi, hogy a Delphi-programozók létre alkalmazásokat grafikus felhasználói felület Linux (és más nem-Windows) rendszerek.
A rendszer segítségével a vizuális programozási technológiát alkalmazunk, a Lazarus, akkor lehet építeni a felületet a jövőbeni programok a speciális alkatrészeket, amelyek megfelelnek a különböző tulajdonságok. Ezek száma komponenseket elég nagy. Mindegyik tartalmaz egy kész szoftver kódot, és minden szükséges munkát adatokat, amely megmenti a programozó a létrehozása, amit már korábban létrehozott. Egy ilyen program így nézne ki az eljárásokról, amelyek nem rendelkeznek a szervezetben.
Írjunk programot, építés alatt álló poligon vizuális programozási technológia Lazarus programozási környezetben. Méret számokat kell függ a távolság a sokszög, hogy a központ egyik végpontja. Szögek száma és távolsága a központtól a sokszög egyik végpont a felhasználó által megadott.
Osztályba tartozó, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Példák a program működésének
A használt módszerek és eljárások a programban
eljárás Panel1MouseDown (Sender: TObject; gomb: TMouseButton;
Shift: TShiftState; X, Y: Integer)
Ebben az eljárásban, akkor ellenőrizze az adatok érvényességét, és ha az adatokat helyesen adta, majd az építőiparban a szám.
Helyességét ellenőrizni egy feltételes ha. Ha a sugarak számát 0-t vagy a hossza sugarak lépett 0 vagy 1 vagy 2, az ablak jelenik meg a szöveg: „érvénytelen adat!”.
procedureTForm1.Edit1KeyPress (Sender: TObject; Varkey: char) procedureTForm1.Edit2KeyPress (Sender: TObject; Varkey: char)
Ezekben az eljárásokban, kérünk, hogy milyen típusú karaktert, hogy a felhasználó beléphet. Mivel a program a munka, meg kell adnia a számot, akkor ezek az eljárások lehetővé teszik, hogy adja csak számokat.
procedureTForm1.Edit1Change (Sender: TObject) procedureTForm1.Edit2Change (Sender: TObject)
Ezekben az eljárásokban, ellenőrizni fogjuk a jelenlétét adatok sorokba és Edit1 Edit2. Ha a beírt szöveg nem üres, akkor a program fut, különben egy ablak jelenik meg a szöveg: „adja meg az összes adatot!”.
Színének meghatározásában a sort:
színek: = RGBToColor (random (255), random (255), random (255)); Panel1.Canvas.Pen.Color: = színek;
Ezek a csapatok feladata a választott ceruza szín fordul elő, hogy véletlenszerűen.
Meghatározása a kitöltés színe:
Ez a csapat kiválasztásáért felelős kitöltőszínének a vásznon. Ebben az esetben használjuk a fehér színt.
Ez a módszer vonalat rajzol koordinátáit (x1, y1), hogy egy pont koordinátái (x2, y2)
Metódushívás a következő:
Metódushívás ez a probléma a következő:
Panel1.Canvas.Line (x + Kerek (d * Cos (a * i)), y + Kerek (d * sin (a * i)), x + forduló (d * Cos (a * (i + 1)) ), y + Kerek (d * sin (a * (i + 1))));