Gjuha e programimit Turbo Pascal ju lejon të vizatoni grafikisht forma të ndryshme në ekran. Çdo objekt grafik mund të ndërtohet duke përdorur pikat, vijat, harqet. Pascal përdor një mënyrë grafike raster me një rezolucion të ekranit 640 x 480. Vizatimi konsiston në vendosjen e koordinatave të pikave të fillimit dhe fundit të objektit që do të shfaqet në procedurat grafike. Ngjyra e objektit, trashësia e vijave, si dhe stili i tyre, vendosen gjithashtu si parametra të procedurave grafike. Për të vizatuar duke përdorur softuer, duhet të lidhni modulin grafik Pascal.
E nevojshme
Mjedisi i programimit Turbo Pascal
Udhëzimet
Hapi 1
Çmontoni objektin e specifikuar të vizatimit në elementët përbërës të tij. Zgjidhni linjat individuale, harqet, qarqet, drejtkëndëshat dhe pikat. Këto janë forma që mund të vizatohen duke përdorur procedurat Turbo Pascal.
Hapi 2
Në fillim të kodit të programit, lidhni modulin grafik. Për ta bërë këtë, shkruaj një rresht si kjo: përdor grafikun. Tjetra, krijoni variabla të plotë për të iniciuar mënyrën grafike: var gdet, gm: integer.
Hapi 3
Në trupin e programit, pas fjalës kyçe start, inicializoni ndryshoret, duke i caktuar njërës prej tyre një vlerë zero, dhe tjetrës vlerën e zbulimit. Tjetra, tregoni fillimin e mënyrës së vizatimit grafik, futni një vijë të formës: iniciagra (gdet, gm, ). Pastroni pajisjen e ekranit: cleardevice.
Hapi 4
Vendosni ngjyrën e sfondit për vizatimin dhe ngjyrën e vijës së objekteve që do të vizatohen. Përdorni procedurat SetBkColor (e bardhë) dhe SetColor (8) për këtë. Ngjyra që do të caktohet tregohet në kllapa. Në total, Pascal përdor 16 ngjyra, dhe secila prej tyre specifikohet ose nga një numër ose nga një fjalë nga një tabelë e veçantë me ngjyra.
Hapi 5
Imagjinoni një grafik me ekran me boshtin x nga e majta në të djathtë dhe boshtin y nga lart poshtë. Në origjinë të këtij sistemi koordinativ, domethënë, në këndin e sipërm të majtë të ekranit, është koordinata (0, 0). Llogaritni koordinatat e pozicionit të dëshiruar të objektit të parë grafik. Specifikoni të gjitha koordinatat për vizatimin e figurave në këtë sistem të veçantë.
Hapi 6
Vizato një vijë duke përdorur vijën e procedurës (x, y, x1, y1), ku koordinatat x, y janë pika fillestare e vijës, dhe x1, y1 është fundi i saj. Ndryshoni trashësinë ose llojin e linjës nëse është e nevojshme. Për ta bërë këtë, përdorni procedurën SetLineStyle (0, 0, NormWidth). Parametri i parë i procedurës mund të ndryshojë vijën duke e bërë atë një vijë, ose një vijë me pika - ndryshoni këtë numër në 1 ose 2. Parametri i tretë përcakton trashësinë e linjave. Si parazgjedhje, parametri NormWidth është vendosur gjithmonë - vija të holla, për linjat e trasha të vendosura ThickWidth. Lloji i rreshtit të ndryshuar do të vizatohet pas thirrjes së kësaj procedure.
Hapi 7
Vendosni një pikë në ekran duke përdorur procedurën PutPixel (x, y, ngjyra), këtu x dhe y janë gjithashtu koordinatat e pikës, dhe ngjyra është ngjyra e saj. Para se të vizatoni një formë të mbyllur, mund të vendosni mbushjen e saj. Për ta bërë këtë, thirrni procedurën SetFillStyle (EmptyFill, 0), ku parametri i parë specifikon mbushjen solide të formës, dhe i dyti specifikon ngjyrën e mbushjes.
Hapi 8
Një formë drejtkëndëshe vizatohet duke përdorur procedurën Rectangle (x, y, x2, y2) - koordinatat vendosin cepat e sipërm të majtë dhe të djathtë të formës. Për të vizatuar një rreth, shkruaj drejtëzën Rrethi (x, y, R), ku x, y, R janë koordinatat e qendrës dhe rrezja e rrethit, gjithashtu në pixel. Një elips është më e vështirë për tu vizatuar, përdoren shumë më shumë parametra për këtë: Elipsi (x, y, BegA, EndA, RX, RY). Këtu x, y është e njëjta qendër e elipsës, dhe BegA dhe EndA tregojnë këndin në të cilin duhet të filloni dhe mbaroni harkun eliptik. Variablat RX, RY përcaktojnë përkatësisht rrezen e elipsës përgjatë boshteve x dhe y.
Hapi 9
Nëse keni një formë të caktuar, e cila është më e lehtë për tu vizatuar në segmente të ndara, përdorni procedurat MoveTo dhe LineTo për këtë. Së pari, lëvizni kursorin aktual në pikën që dëshironi: MoveTo (x, y). Pastaj vizatoni një vijë nga ajo në pikën tjetër LineTo (x1, y1) dhe përsëri vizatoni një vijë të drejtë LineTo (x2, y2) dhe kështu me radhë derisa të merrni formën origjinale.
Hapi 10
Në fund të vizatimit në kodin e programit, mbyllni mënyrën grafike me vijën: closegrafi. Përfundoni pjesën e programit, si zakonisht, me fjalën fund. Tani kodi mund të përpilohet dhe ekzekutohet.
