cw 5 Grafika

background image

Grafika

Należy utworzyć nowy projekt, rozmieścić obiekty na formatce według wzoru
przedstawionego poniżej.


Zadeklarować zmienn, która będzą potrzebne w dalszej części programu.

Dim x1, x2, y1, y2, l, t, w, r, rl, x3, y3 As Integer
Dim e As Double

Funkcje Clik przycisków będą miały za zadanie jedynie uruchamiać odpowiedni Timer i
ustawiać właściwość Interval oraz wyłączać działanie innych. Poniżej przedstawiony jest kod
uruchamiający działanie pierwszego Timera (odpowiedzialnego za rysowanie linii).

Timer1.Interval = 10
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False

background image


Kod odpowiedzialny za rysowanie linii (należy wstawić w procedurze Timer obiektu Timer1).

Picture1.Cls
t = t + 1
x2 = Picture1.Width / 2 + l * Cos(t / 30)
y2 = Picture1.Height / 2 + l * Sin(t / 30)
Picture1.Line (x1, y1)-(x2, y2), QBColor(9)


Do narysowania elipsy należy posłużyć się następującym kodem:

Picture1.Cls
r = r + 10
r1 = 1370
If r > r1 Then
x3 = 0.2 * Picture1.Width + 0.7 * Rnd * Picture1.Width
y3 = 0.2 * Picture1.Height + 0.7 * Rnd * Picture1.Height
r = 0
End If
e = 2 * Cos(4.7 * r / r1)
Picture1.Circle (x3, y3), r, QBColor(9), , , e

background image

If x3 < 1500 Then
x3 = 1500
End If
If y3 < 1500 Then
y3 = 1500
End If
If x3 > 4500 Then
x3 = 4500
End If
If y3 > 4000 Then
y3 = 4000
End If



Zadanie
Zaprogramować działanie przycisków: Prostokąt, Okrąg


Wyszukiwarka

Podobne podstrony:
Rysunek techniczny ćw 2, Grafika komputerowa
Rysunek techniczny ćw 1, Grafika komputerowa
2 rysowanie i grafika ćw sprawdzające
Ćw rzuty Monge'a GiG 2008 9, Studia, grafika
Rysunek techniczny ćw 3, Nauka, Grafika komputerowa
grafika cw 1, pwsz, Grafika
ćw 4 Profil podłużny cieku
biofiza cw 31
Kinezyterapia ćw synergistyczne
Cw 1 ! komorki
Pedagogika ćw Dydaktyka
Cw 3 patologie wybrane aspekty

więcej podobnych podstron