Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.96/468: Рейтинг темы: голосов - 468, средняя оценка - 4.96
10065 / 2622 / 84
Регистрация: 17.02.2009
Сообщений: 10,364
1

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

24.05.2009, 11:38. Показов 84615. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Графические методы позволяют изображать на объекте данного класса какой-нибудь геометрический элемент, например точку, отрезок, прямоугольник, овал и др.

Рассмотрим графические методы.

Scale (маштаб) метод маштабирования.С помощью метода можно задать необходимую или возможную декартовую систему координат
Preset (Point Set) Поместить точку. Позволяет изобразить на заданном обьекте точку в заданной системе координат,например,с помощью метода Scale
Line (линия, контур) Позволяет отобразить на заданном обьекте отрезок с заданными координатами его концов, а также прямоугольник с заданными декартовыми координатами его углов
Circle (круг,овал) Позволяет построить на заданном объекте круги,эллипсы,дуги,секторы с заданными координатами их центров
Cls (Clean Screen) Очистить экран или заданный объект
Shape (фигура) Графический объект-геометрическая фигура, которая задана целым числом от 0 до 5

Метод Scale. Метод можно применять к объектам класса - экранная форма и PictureBox - графическое окно. Объекты form и PictureBox имеют абсолютные координаты, которые измеряются в твипах и позволяют задать положение на экране для формы или положение на форме для графического окна, а также ширину и длину.

Экранная форма покрыта рядами точек. По умолчанию расстояние между точками составляет 120 твипов. В результате следует отметить, что абсолютные координаты выражаются большими числами, поэтому необходимо задать новую систему координат:
Visual Basic
1
<Имя Объекта> . Scale (<х1>, <у1>) - (<х2>,<у2>)
,где
х1,у1- новые координаты верхнего левого угла;
х2,y2- новые координаты нижнего правого угла окна формы, либо графического окна, в новой системе координат.

Например:
Visual Basic
1
Picture2. Scale (-15, 20) - (15, -20)
Новый масштаб составляет 30 условных единиц по ширине и 40 единиц по высоте.

Другой способ назначения новой системы координат в Visual Basic - это установка значений свойств объекта, которые относятся к категории Scale.

Например:
Scale Mode - модификация
Scale Width - ширина объекта
Scale Height - высота объекта
Scale Left - левый угол
Scale Top - верхний угол

Метод Pset. Применяется к тем же объектам, к которым применим метод Scale. Синтаксис записи метода следующий:
Visual Basic
1
<Имя Объекта> . Pset (<x>, <у>) [, <цвет>]
,где х, у - координаты точки.

Цвет - это число, которое задает тот или иной цвет. Если позиция «цвет» отсутствует, то по умолчанию цвет = 0. Если перед Pset не использовался метод Scale, то по умолчанию используются абсолютные координаты объекта.

Например:
Visual Basic
1
2
3
4
5
6
Dim a As Single
Rem График функции sin(a)
Pictures3. Scale (-12, 2) - (12, -2)
for a = -9 to 9 step 0.02
Picture3. Pset (a, sin (a)), vbRed
Next a
Чтобы изменить размер точек - «пятен» (например, увеличить), можно изменить параметр - ширина черчения Draw Width. Для объекта Picture - целое 1, 2. Изменить можно в процессе проектирования приложения или непосредственно вставить необходимую строку в программный код.

Например:
Visual Basic
1
Pictures. DrawWidth = 3
Метод Line. Применяется к тем же объектам, к которым применим метод Scale. Синтаксис записи метода следующий:

Visual Basic
1
<Имя Объекта> . Line [(<tx1>, <у1>) ] - (<х2>, < у2>)[. [<цвет>].[, <Флаг>] ]
,где:
x1, у1 – координаты справа или верхнего левого угла;
х2, y2 – координаты слева или нижнего левого угла.

Если имя объекта отсутствует, то по умолчанию используется экранная форма. В качестве параметра «цвет» используется либо константа, либо соответствующее ей числовое значение (см. следующую таблицу). Если параметр «цвет» отсутствует, то по умолчанию он совпадает с цветом края обрамления - параметр foreColor.

Таблица Описание цветовых констант
Код
Цвет 	 Константа 	 Число
Черный 	    vbBlack 	 0
Красный     vbRed 	 255
Зелёный     vbGreen 	 65 280
Желтый 	    vbYellow 	 65 535;
Синий 	    vbBlue 	 16 711 680
Сиреневый  vbMagenta  	 16 711 935
Голубой    vbCyan 	 16 776 960
Белый 	    vbWhite 	 16 777 215
Цвет может определяться значением аргументов функции RGB(x1, x2, х3), причем x1 - интенсивность красного, х2 - интенсивность зеленого, х3 - интенсивность синего, где хi изменяется в диапазоне от 0 до 255. Это позволяет создавать 256 х 256 х 256 различных оттенков.

Например:
RGB(0, 128, 0) - зеленый фон,
RGB(255, 255, 0) - желтый фон
RGB(0, 0, 64) - темно-синий фон

Флаг - одно из трех значений - результат применения метода: пусто - линия с координатами (х1, y1) и (х2, у2), лишняя запятая не отбрасывается;

В - контур прямоугольника с координатами (x1, y1) и (х2, у2); в свойствах объекта устанавливается стиль заполнения FillStyle = 1 (Transparent - прозрачный);

ВF - закрашенный прямоугольник с заданным цветом с координатами (х1; y1) и (х2, у2).Толщина линии отрезка или обводка прямоугольника по умолчанию равна 1. Чтобы увеличить толщину линии, необходимо изменить свойство DrawWidth.

Свойство DrawStyle определяет тип линии: является ли линия сплошной, пунктирной, двойной пунктирной и т. д. Допустимые значения можно установить в режиме проектирования.

Совместное использование Line и Print. Как сказано выше, метод Print используется в основном для вывода чисел и строк текста на объект. Синтаксис записи метода следующий:

Visual Basic
1
<Имя Объекта> . Print <Список вывода: последовательность фрагментов>
Метод Print можно использовать совместно с графическими методами. При этом строки и числа будут выводиться в том месте формы или графического окна, где закончилось рисование, - ниже или правее точки, на которой закончилось рисование. Цвет символов задается свойством foreColor.

Метод Shape
. Геометрический объект - применяется для изображения некоторых фигур, которые реализованы в этом объекте.
Код
Целое число от 0 до 5 	
0 	 rectangle 	 прямоугольник
1 	 square 	 квадрат
2 	 oval 	         овал
3 	 circle 	 круг
4 	  rounded      	 скругленый
         rectangle 	 прямоугольник
5 	  rounded      	 скругленный 
         square 	 квадрат
Цвет и прозрачность задают свойства backColor и backStyle. Свойства FillColor и FillStyle задают цвет и стиль заполнения фигуры. BorderStyle и BorderColor задают тип и цвет линии границы (прозрачная, штрих и др.).

Рисование круга
В следующем коде показано рисование круга в форме во время выполнения. В примере Visual Basic 6.0 используется метод Circle; он принимает координаты X и Y центральной точки, значение радиуса и, дополнительно, цвета как аргументы.
Visual Basic
1
2
3
4
Private Sub Form_Paint()
    ' Draw a 1000 twip diameter red circle
    Circle (500, 500), 500, vbRed
End Sub
Примечание. В Visual Basic 6.0 единицей измерения по умолчанию являются твипы
9
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2009, 11:38
Ответы с готовыми решениями:

Использование Visual Basic
Доброго времени суток! Возможно ли использовать использовать Visual Basicв коде проекта, если...

Использование библиотеки dll написанной в Visual Basic
Здравствуйте. Не получается использовать библиотеку написанную в VB. Вот так вызываю функцию...

Где бесплатно скачать учебник по Visual Basic 6 и Visual Basic .Net ?
Где бесплатно скачать учебник по Visual Basic 6 и Visual Basic .Net

Вычисление значений функции двух переменных в Visual Basic - Visual Basic
Помогите пожалуйста! В среде VB написать программу вычисления значений функции двух переменных....

1
10065 / 2622 / 84
Регистрация: 17.02.2009
Сообщений: 10,364
03.06.2009, 12:52  [ТС] 2
Полярные координаты. Обычно точки на плоскости представляют их декартовыми координатами. Но есть и другой способ определения расположения точек на плоскости – задание полярных координат.
Название: P1070149.jpg
Просмотров: 10741

Размер: 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
1
2
3
4
5
6
7
8
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
Запустим проект. Щелкнем по кнопке График.
Использование стандартных графических методов в Visual Basic

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

Вместо использования при построении декартовых координат (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
1
2
3
4
5
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, получим массу замечательных картинок.
Использование стандартных графических методов в Visual Basic

взято с festival.1september.ru
а вот сцыла на википедию
12
03.06.2009, 12:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2009, 12:52
Помогаю со студенческими работами здесь

Visual Basic 6 и Visual Basic .NET - в чем различия?
Visual Basic и Visual studio это не одно и тоже? если нет то в чём разница, по мимо оформления?

Visual Basic .Net и Visual Basic 6.0 - В чём разница
В общем возник вопрос: Visual Bisic.Net и Visual Basic - это два разных языка, или же .NET версия...

Реализация стандартных методов и классов
В документации описано только что делают конкретные методы и классы. А где тогда посмотреть как...

Отличия версий Visual Basic 6.0 от Visual Basic 6.5?
У меня 3 вопроса: 1.Чем отличается версия Visual Basic 6.0 от Visual Basic 6.5? 2.Можно ли...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Закрытая тема Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru