Algoritmizatsia_i_programmirovanie / Напеч / лаба 2
.docxЗадание
Изобразить на экране вращение правильного треугольника вокруг своего центра.
Исходная форма с элементами контроля
Form1
Picture1
Label1
Label2
Text1
Text2
Command1
Command2
Timer1
Текст программы
Private Sub Timer1_Timer()
Picture1.Cls
r = 567 * Val(Text1.Text)
w = Val(Text2.Text)
t = t + Timer1.Interval / 1000
f = w * t
x = r * Cos(f)
y = r * Sin(f)
xc = Picture1.Width / 2
yc = Picture1.Height / 2
X1 = r * Cos(f + 2 * 3.14 / 3)
Y1 = r * Sin(f + 2 * 3.14 / 3)
X2 = r * Cos(f + (4 * 3.14) / 3)
Y2 = r * Sin(f + (4 * 3.14) / 3)
Picture1.Line (xc + x, yc - y)-(xc + X1, yc - Y1), RGB(250, 100, 0)
Picture1.Line (xc + X1, yc - Y1)-(xc + X2, yc - Y2), RGB(250, 100, 0)
Picture1.Line (xc + X2, yc - Y2)-(xc + x, yc - y), RGB(250, 100, 0)
Picture1.Circle (xc, yc), 15
End Sub
Private Sub Command1_Click()
Timer1.Interval = 0
End Sub
Private Sub Command2_Click()
Timer1.Interval = 50
End Sub
Измененные свойства
Form Form1
Caption = "Движение правильного треугольника вокруг своего центра"
ClientHeight = 6450
ClientLeft = 60
ClientTop = 450
ClientWidth = 9630
LinkTopic = "Form1"
ScaleHeight = 6450
ScaleWidth = 9630
StartUpPosition = 3 'Windows Default
TextBox Text2
Height = 375
Left = 7080
TabIndex = 4
Top = 960
Width = 1215
TextBox Text1
Height = 375
Left = 7080
TabIndex = 3
Top = 120
Width = 1215
CommandButton Command2
Caption = "Продолжить"
Height = 495
Left = 6480
TabIndex = 2
Top = 5280
Width = 1935
CommandButton Command1
Caption = "Пауза"
Height = 495
Left = 6480
TabIndex = 1
Top = 4560
Width = 1935
Timer Timer1
Interval = 50
Left = 8760
Top = 5400
PictureBox Picture1
Height = 5655
Left = 480
ScaleHeight = 5595
ScaleWidth = 5355
TabIndex = 0
Top = 120
Width = 5415
Label Label2
Caption = "w="
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 204
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6480
TabIndex = 6
Top = 960
Width = 495
Label Label1
Caption = "a="
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 204
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6480
TabIndex = 5
Top = 120
Width = 495
Полученные результаты