Algoritmizatsia_i_programmirovanie / 4 / 4 / ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
.docxЗадание.
Изобразить на экране вращение правильного треугольника вокруг своего центра.
Внешний вид формы представлен на рисунке 1.
1- Form1, 2-PictureBox1, 3-Timer1, 4-Label1, 5-Label2, 6-TextBox1, 7-TextBox2, 8-CommandButton1, 9-CommandButton2
Рисунок 1- Внешний вид формы
Текст программы:
Private Sub Command1_Click()
Timer1.Interval = 0
End Sub
Private Sub Command2_Click()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
L = 576 * Val(Text1.Text)
W = Val(Text2.Text)
Picture1.Cls
t = t + Timer1.Interval / 1000
p = 3.14
f = W * t
x = L * Cos(f)
y = L * Sin(f)
X1 = L * Cos(f + (2 * p) / 3)
Y1 = L * Sin(f + (2 * p) / 3)
X2 = L * Cos(f + (4 * p) / 3)
Y2 = L * Sin(f + (4 * p) / 3)
xc = Picture1.Width / 2
yc = Picture1.Height / 2
Picture1.Circle (xc, yc), 20
Picture1.Line (xc + x, yc - y)-(xc + X1, yc - Y1)
Picture1.Line (xc + X1, yc - Y1)-(xc + X2, yc - Y2)
Picture1.Line (xc + X2, yc - Y2)-(xc + x, yc - y)
End Sub
Полученные результаты приведены на рисунках 2 и 3.
Рисунок 2- Полученные результаты
Рисунок 3- Полученные результаты
Измененные свойства:
объект: Form1
Height=6495
Width=8760
объект: PictureBox1
Height=4935
Width=5655
Top=600
Left=240
объект: Label1
Caption=”L= ”
Height=375
Width=255
Top=2160
Left=6360
объект: Label2
Caption=”W= ”
Height=255
Width=255
Top=3240
Left=6240
объект: CommandButton1
Caption=”Зафиксировать ”
Height=615
Width=1695
Top=4240
Left=6240
объект: CommandButton2
Caption=”Продолжить”
Height=615
Width=1695
Top=5160
Left=6240
объект: Timer1
Top=360
Left=7920
Interval=10
объект: TextBox1
Height=375
Width=1335
Top=2040
Left=6600
объект: TextBox2
Height=375
Width=1335
Top=3120
Left=6600