Фигуры в Visual Basic - VB (61050)

Формулировка задачи:

Задачи. 1. Подготовить приложение для изучения свойств объекта фигуры в соответствии с рисунком. Приложение должно работать следующим образом. Щелчок мышки на соответствующем переключателе должен автоматически изменять свойство фигуры. Если флажок помечен – форма имеет границу, в про-тивном случае – нет. По щелчку мыши на кнопке exit программа должна прекращать работу. 2.Добавить на форму задачи 1 шесть линеек прокрутки, каждая из которых меняет одну из компонент (red, green, blue) цветов backcolor, fillcolor у фигуры.

Решение задачи: «Фигуры в Visual Basic»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub DrawNGon(ByVal X As Long, ByVal Y As Long, ByVal Radius As Long, Optional ByVal Count As Long = 3)
    Dim Omega As Double
    Dim nX As Double, nY As Double, K As Long
    Dim Ox As Double, Oy As Double
    Dim Pt() As POINTAPI
    ReDim Pt(Count)
    Omega = 6.28318530717959 / Count
    Ox = 1: Oy = 0
    Pt(0).X = Ox * Radius + X: Pt(0).Y = Oy * Radius + Y
    For K = 1 To Count
        nX = Ox * Cos(Omega) - Oy * Sin(Omega)
        nY = Ox * Sin(Omega) + Oy * Cos(Omega)
        Pt(K).X = nX * Radius + X: Pt(K).Y = nY * Radius + Y
        Ox = nX: Oy = nY
    Next
    Polygon picDisplay.hdc, Pt(0), Count
End Sub
....
Private Sub DrawSix()
    DrawNGon picDisplay.ScaleWidth / 2, picDisplay.ScaleHeight / 2, picDisplay.ScaleWidth / 3, 4
End Sub