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
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
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