Использование стандартных графических методов в Visual Basic - VB - Ответ 181725

@БурундукЪ · 03.06.2009, 12:52 **[ТС]**

Полярные координаты. Обычно точки на плоскости представляют их декартовыми координатами. Но есть и другой способ определения расположения точек на плоскости – задание полярных координат.
Название: P1070149.jpg
Просмотров: 10733

Размер: 2.9 Кб

Название: P1070149.jpg
Просмотров: 10733

Размер: 2.9 Кб

В этом случае имеется единственная ось и некая точка на ней, называемая полюсом. Любую точку на плоскости теперь можно определить парой чисел (r, z), где r – расстояние от полюса и z – угол между осью и прямой, соединяющей полюс и данную точку (угол изменяется в направлении против часовой стрелки от оси).

Графики в полярных координатах. Функции, в которых используются полярные координаты, будем называть функциями в полярных координатах. Например, r = Sin(z) – функция в полярных координатах. Здесь для каждого значения z из некоторой заданной области строится точка с полярными координатами (r, z). Чтобы упростить построение, обратимся снова к декартовым координатам. Точка (r, z) в полярных координатах – это то же самое, что точка (r*Cos(z), r* Sin(z)) в декартовых координатах, и именно ее мы строим.

Проект «График функции в полярных координатах». Приступим к созданию проекта. В качестве примера рассмотрим построение графика функции r = Sin(8*z).

Разместим на форме frmGraph графическое окно picGraph, в котором будет строиться график, командную кнопку cmdGraph для реализации событийной процедуры построения графика и метку lbl1 для обозначения графического окна.

Для графического окна picGraph зададим удобную систему координат, учитывающую диапазоны изменения аргумента и функции, с помощью графического метода Scale. Для рисования точек графика воспользуемся методом PSet. Для очистки графического окна используем метод Cls.

Построение графика будет производиться с помощью цикла со счетчиком, в котором значение аргумента z будет меняться от 0 до 2π с шагом 0,001.

Введем программный код событийной процедуры cmdGraph_Click () для кнопки cmdGraph:

Visual Basic

Dim z, r As Single
Private Sub cmdGraph_Click ()
picGraph . Scale (-1.25, 1.25) - (1.25, -1.25)
For z = 0 To 2 * 3.14 Step 0.001
r = Sin (8 * z)
picGraph . PSet (r * Cos (z), r * Sin (z)), vbMagenta
Next z
End Sub

Запустим проект. Щелкнем по кнопке График.

Усовершенствуем наш проект.

Вместо использования при построении декартовых координат (r * Cos (z), r * Sin (z)), введем два дополнительных параметра a и b и построим (r * Cos (a * z), r * Sin (b * z)).

Разместим на форме два текстовых поля txtA и txtB для ввода значений переменных a и b и две метки lbl2 и lbl3 для обозначения текстовых полей (имен переменных и диапазона изменения их значений).

Внесем изменения в программный код событийной процедуры cmdGraph_Click ():
picGraph .

Visual Basic

1	PSet (r * Cos (Val (txtA . Text) * z), r * Sin (Val (txtB . Text) * z)), vbMagenta

Добавим две кнопки: cmdClear – для очистки текстовых полей и графического окна и cmdExit – для завершения работы приложения.

Введем программный код событийной процедуры для кнопки cmdClear:

Visual Basic

Private Sub cmdClear_Click ()
txtA . Text = ""
txtB . Text = ""
picGraph . Cls
End Sub

Для кнопки cmdExit код событийной процедуры следующий:

Visual Basic

1
2
3

Private Sub cmdExit_Click ()
End
End Sub

Запустим проект. Меняя значения a от 1 до 9 и значения b от 1 до 6, получим массу замечательных картинок.

взято с festival.1september.ru
а вот сцыла на википедию

Вернуться к обсуждению:
Использование стандартных графических методов в Visual Basic VB