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

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

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

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

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

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.

Таблица Описание цветовых констант
Code
1
2
3
4
5
6
7
8
9
Цвет     Константа      Число
Черный        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
. Геометрический объект - применяется для изображения некоторых фигур, которые реализованы в этом объекте.
Code
1
2
3
4
5
6
7
8
9
Целое число от 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
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.05.2009, 11:38
Ответы с готовыми решениями:

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

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

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

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

Размер: 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
Запустим проект. Щелкнем по кнопке График.

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

Вместо использования при построении декартовых координат (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, получим массу замечательных картинок.

взято с festival.1september.ru
а вот сцыла на википедию
12
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
03.06.2009, 12:52
Помогаю со студенческими работами здесь

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

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.Можно ли запустить проект созданный раннее в Visual...


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

Или воспользуйтесь поиском по форуму:
2
Закрытая тема Создать тему
Новые блоги и статьи
YAFU@home — распределённые вычисления для математики. На CPU
Programma_Boinc 20.01.2026
YAFU@home — распределённые вычисления для математики. На CPU YAFU@home — это BOINC-проект, который занимается факторизацией больших чисел и исследованием aliquot-последовательностей. Звучит. . .
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru