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