7. Добавить к проекту еще одну форму (см. рис. 46) с заголовком окна «звезда» и свойством Name – zvezda. Установить на форме 2 командные кнопки со свойствами Caption: построить звезду и ОК соответственно. (Будьте внимательны! Звезду на форме не рисовать!) Записать следующий программный код для кнопки ОК:
Zvezda.Hide
menu.Enabled=True
Menu.SetFocus
8. Создать процедуру–функцию для построения правильной звезды с помощью метода формы Line и с использованием тригонометрических функций. Для этого следует открыть раздел программного кода GeneralDeclarations в окне редактора кодов программы для формы «звезда», где описать эту процедуру–функцию:
Private Function Postr_Zvezda()
Dim Pi, L, al, x0, y0, X1, Y1 as Single
Dim X2, Y2, x3, y3, x4, y4, x5, y5 as Single
ForeColor=&HFF ' цвет красный
Pi=3.1416:x0=1500:y0=1000:L=2000:al=36/180*Pi
X1=x0:Y1=y0
X2=X1+L:Y2=Y1:Line(X1,Y1)-(X2,Y2)
x3=X2-L*Cos(al):y3=Y2+L*Sin(al)
Line (X2,Y2)-(x3,y3)
x4=x3+L*Sin(al/2):y4=y3-L*Cos(al/2)
Line (x3,y3)-(x4,y4)
x5=x4+L*Sin(al/2):y5=y3
Line (x4,y4)-(x5,y5)
Line (x5,y5)-(X1,Y1)
End Function
Записать для кнопки построить звезду следующий программный код:
Dim zvezd As Double
|
|
zvezd=Postr_Zvezda()
9. Вернуться в главную форму «разработка меню». Вызвать окно редактора для команды меню звезда и записать следующий программный код:
Private Sub zvez_Click(Index As Integer)
Select Case Index
Case 0
menu.Enabled=False
Zvezda.Show
Case 1
End
End Select