QBASICBOOK.ru: сайт про QB64

Ниже представлен комментированный пример исходного кода, рисующий изображение графика функций с масштабированием и указанием начала координат относительно левого верхнего угла экрана:

---

1. SCREEN 12 'rezhim ekrana
2. CLS 'ochistka ekrana
3. DIM OX AS INTEGER 'nachalo koordinat otnositelno ekrana po OX
4. DIM OY AS INTEGER 'nachalo koordinat otnositelno ekrana po OY
5. OX = 325: OY = 225
6. 'dlina i vysota ekrana
7. DIM W, H AS INTEGER
8. 'izmenyat v sluchaye smeny rezhima ekrana
9. W = 640 'dlina
10. H = 480 'vysota
11. 'koordinaty tochek v yedinitsakh
12. DIM X, Y AS SINGLE
13. 'koordinaty tochek na ekrane
14. DIM PX AS INTEGER
15. DIM PY AS INTEGER
16. 'koefitsiyent preobrazovaniya yedinitsy v tochki ekrana
17. 'ili prosto masshtab
18. DIM K AS SINGLE
19. K = 50 'masshtab
20. 'koordinaty predydushchikh tochek na ekrane
21. DIM PREVPX AS INTEGER
22. DIM PREVPY AS INTEGER
23. 'risuyem osi
24. LINE (0, OY)-(W, OY), 7
25. LINE (OX, 0)-(OX, H), 7
26. DIM I AS INTEGER 'peremennaya dlya tsikla
27. DIM TSVET AS INTEGER 'peremennaya dlya tsveta grafika
28. TSVET = 4
29. FOR I = 0 TO W
30.     X = (I - OX) / K 'preobrazovniye iz koordinat tochek v ekrane v yedinitsy
31.     Y = COS(X) 'ZDES MOZHETE ISPRAVIT NA SVOYU FUNKTSIYU
32.     'preobrazovniye iz yedinits v koordinaty tochek v ekrane
33.     PX = I
34.     PY = -Y * K + OY
35.     'yesli tekushchiy shag tsikla yavlyayetsya pervym...
36.     'to koordinaty predydushchikh tochek schitat tekushchimi
37.     IF I = 0 THEN
38.         PREVPX = PX: PREVPY = PY
39.     END IF
40.     'risuyet liniyu ot predydushchey tochki k tekushchey
41.     LINE (PREVPX, PREVPY)-(PX, PY), TSVET
42.     'zapominayet predydushchiye tochki
43.     PREVPX = PX
44.     PREVPY = PY
45. NEXT

---

Рисунок 1 – Исходный текст графопостроителя

Рисунок 2 – Графопостроитель с возможностью масштабирования

Спасибо за прочтение этой статьи.