Фигуры в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д