В VB можно строить изображения на следующих компонентах интерфейса:
· форма Form,
· графическое окно Picture Box.
Каждая графическая операция с этими компонентами использует систему координат области рисования. Система координат определяет местоположение точки в виде координат (x,y), где x – смещение точки по горизонтали, а y – смещение точки по вертикали. По умолчанию отсчет координаты x идет слева направо, а координаты y - сверху вниз
Начало отсчета x и y а также единицы измерения по x и y задаются свойствами компонента, настраиваемыми в окне свойств на этапе проектирования интерфейса программы.
Свойство ScaleMode задает единицы измерения и может принимать следующие значения
| Значение | Единицы измерения |
| 0 – User | Определяются пользователем путем задания координат верхнего левого угла, ширины и высоты поля рисования (свойства ScaleLeft, ScaleTop, ScaleWidth, ScaleHeight – см. ниже) |
| 1 – Twip | Твипы. Это единицы по умолчанию. В одном дюйме 1440 твипов. |
| 2 – Point | Пункты. В одном дюйме 72 пункта. |
| 3 – Pixel | Пикселы – точки телевизионного растра. Число пикселов на дюйм зависит от разрешения монитора и его размера. |
| 4 – Character | Символы. Один символ имеет высоту 1/6 дюйма и ширину 1/12 дюйма. |
| 5 – Inch | Дюймы. |
| 6 – Millimeter | Миллиметры. |
| 7 – Centimeter | Сантиметры. |
Свойство ScaleLeft задает координату x верхнего левого угла поля рисования.
Свойство ScaleTopt задает координату y верхнего левого угла поля рисования.
Свойство ScaleWidth задает ширину поля рисования и измеряется слева направо.
Свойство ScaleHight задает высоту поля рисования и измеряется сверху вниз.
Свойства ScaleLeft, ScaleTop, ScaleWidth, ScaleHeight могут принимать любые значения, в том числе дробные и отрицательные.Например, если необходимо, чтобы графическое окно Picture1 для вывода графика функции y=sin(x) имело координаты поля рисования по x от 0 до 6,28 и по y от –1 до +1 нужно установить свойства:
Picture1.ScaleLeft=0
Picture1.ScaleTop=+1
Picture1.ScaleWidth=6,28
Picture1.ScaleHight=-2
По умолчанию левый верхний угол имеет координаты (0,0), а ширина и высота поля рисования вычисляются автоматически в твипсах по размерам компонента на экране.
Управление цветом
Поле рисования имеет 2 основных цвета, заданных соответствующими свойствами:
BackColor – цвет фона, используется при очистке области рисования.
ForeColor - цвет переднего плана, используется при рисовании. Для рисования конкретным цветом предварительно нужно установить этот цвет на переднем плане, а затем вызывать методы рисования этим цветом.
Значение цвета задается встроенными константами VB, например: vbRed - красный, vbGreen – зеленый и т.д.
Для установки цвета используется операция присваивания, например, чтобы нарисовать в графическом окне Picture1 линию белого цвета на желтом фоне необходимо запрограммировать
Picture1.BackColor=vbYellow
Picture1.Cls
Picture1.ForeColor=vbWhite
Pictire.Line (0,0)-(100,100)
Графические методы
| Метод | Описание |
| Cls | Стирает все изображение в поле рисования |
| Pset | Рисует одну точку (пиксел) заданным цветом |
| Point | Возвращает цвет заданной точки (пиксела) |
| Line | Рисует линию, контурный или закрашенный прямоугольник |
| Circle | Рисует окружность, эллипс или дугу |
| PaintPicture | Выводит картинку из массива данных в произвольном месте |
Методом Cls можно в любой момент очистить поле рисования, которое закрашивается цветом фона (свойство BackColor):
· [ object ]. Cls
Без параметра object метод очищает всю экранную форму, в коде которой он исполняется.
Например, очистка поля рисования графического окна Picture1 с закраской в черный цвет:
Picture1.BackColor=vbBlack
Picture1.Cls
Метод Pset устанавливает цвет пиксела в заданной точке:
[ object ].Pset (x,y) [, color ]
Параметры x и y могут быть целыми, дробными или числовым выражением любой сложности.
Если цвет color не задан, по умолчанию используется цвет переднего плана (свойство ForeColor).
Например, нарисовать точку голубого цвета с координатами x=100, y=200 в графическом окне Picture1:
Picture1.Pset (100,200), vbBlue
Метод Line чертит линию между двумя точками с координатами (x1,y1) и (x2,y2):
Line (x1,y1) – (x2,y2) [, color ]
Или из предыдущей точки черчения в заданную точку с координатами (x2,y2):
Line – (x2,y2) [, color ]
Параметры x1,y1,x2,y2 могут быть целыми, дробными или числовым выражением любой сложности.
Если цвет color не задан, по умолчанию используется цвет переднего плана (свойство ForeColor).
Например, нарисовать линию синего цвета между точками (x=100, y=200) и (x=300, y=400) в графическом окне Picture1:
Picture1.Line (100,200) – (300,400), vbCyan
Порядок выполнения работы
2.1 Откройте проект Satm5.
2.2 Расположите ЭУ на форме frmSa:
· перейдите в окно Project Explorer и сделайте активной форму с именем frmSa,
· расположите на форме командную кнопку (по умолчанию будет создана кнопка с именем Command1),
· задайте ей свойства согласно таблице 2.1:
Таблица 2.1
| Объект | Свойство | Значение |
| Command1 | Name | CmdGrph |
| Caption | &Graph | |
| Font** | Arial, (полужирный) Bold,12 | |
| MousePoiter | NoDrop | |
| TabIndex |
2.3 Добавьте в проект новую форму – форму 3:
· перейдите в окно Project Explorer и убедитесь в том, что активна форма frmSa,
· выберите в строке менюсистемы программированияпункт Project,
· выполнитекоманду Add Form. В появившемся окне Add Form на закладке New предлагается по умолчанию Form,
· в окне Add Form нажмите кнопку Open. Обратите внимание на то, что в окне проекта появилась новая форма, которая по умолчанию называется Form1.
2.4 Для добавления в проект формы 4 и формы5 повторите п. 2.2.
2.5 Задайте свойства формам Form1, Form2 и Form3 согласно таблице 2.2. Переход от одной форме к другой осуществляйте двойным щелчком на пиктограмме формы в окне Project Explorer.
Таблица 2.2
| Объект | Свойство | Значение |
| Form1, Form3, Form2 | Height | |
| Width | ||
| Top | ||
| BoderStyle | 1- Fixed Single | |
| Form1 | Name | frmGrph1 |
| Caption | График зависимости давления от высоты | |
| Form2 | Name | frmGrph2 |
| Caption | График зависимости плотности от высоты | |
| Form3 | Name | frmGrph3 |
| Caption | Графики зависимости температуры и скорости звука от высоты |
2.6 Задайте пути для сохранения проекта в своей личной папке:
· перейдите в окно Project Explorer и убедитесь в том, что активна форма с именем frmSa,
· откройте меню File,
· в открывшемся диалоговом окне Save File As:
ü убедитесь, что открыта ваша личная папка на диске Z:,
ü укажите имя файла satm6-1, нажмите на кнопку “ Save “,
· перейдите в окно Project Explorer и сделайте активной форму с именем frmTabl,
ü сохраните форму с именем satm6-2,
· аналогичным образом сохраните формы frmGrph1, frmGrph2 и frmGrph3 соответственно с именами satm6-3 satm6-4 satm6-5.
· откройте меню File,
· выполните команду Save Project As,
· в открывшемся диалоговом окне Save Project As введите имя файла satm6 (по умолчанию оно будет satm5) и нажмите на кнопку “ Save “
2.7 Расположите ЭУ на форме frmGrph1:
· перейдите в окно Project Explorer и сделайте активной форму с именем frmGrph1,
· расположите на форме командные кнопки Command1, Command2 и Command3,
· задайте им свойства согласно таблице 2.3:
Таблица 2.3
| Объект | Свойство | Значение |
| Группа командных кнопок | Font** | Arial, (полужирный) Bold,11 |
| MousePoiter | NoDrop | |
| Command1 | Name | CmdCnl |
| Caption | &Cancel | |
| Cancel | True | |
| TabIndex | ||
| Command2 | Name | CmdNxt |
| Default | True | |
| Caption | &Next | |
| TabIndex | ||
| Command3 | Name | CmdExt |
| Caption | &Exit | |
| TabIndex |
2.7 Расположите ЭУ на формах frmGrph2 и frmGrph3
· перейдите в окно Project Explorer и сделайте активной форму с именем frmGrph2,
· выполните п. 2.6,
· повторите предыдущие пункты с соответствующими изменениями.
2.8 Создайте предварительный код для обработки нажатия кнопки Graph на форме frmSa:
· перейдите в окно Project Explorer и сделайте активной форму с именем frmSa,
· выполните двойной щелчек на кнопке Graph
· введите в тело процедуры Private Sub cmdGrph_Click( ) текст
FrmGrph1.Show
Me.Hide
2.9 Создайте коды для обработки нажатий кнопок на форме frmGrph1:
· перейдите в окно Project Explorer и сделайте активной форму с именем frmGrph1,
· выполните двойной щелчек на кнопке Cancel
· введите в тело процедуры Private Sub cmdCnl_Click() текст
End
· выполните двойной щелчек на кнопке Next
· введите в тело процедуры Private Sub cmdNxt_Click() текст
FrmGrph2.Show
Me.Hide
· выполните двойной щелчек на кнопке Exit
· введите в тело процедуры Private Sub cmdExt_Click() текст
frmSa.Show
Me.Hide
2.10 Создайте коды для обработки нажатий кнопок на формах frmGrph2 и frmGrph3 (повторите п 2.8 с соответствующими изменениями).
2.11 Протестируйте программу с пустыми формами
· запустите программу на выполнение в среде VB5.0,
· установите курсор на кнопку Graph и нажмите клавишу Enter – вызывается форма frmGrph1,
· установите курсор на кнопку Next и нажмите левую клавишу мыши. На экран выводится форма frmGrph2,
· установите курсор на кнопку Next и нажмите клавишу Enter. Форма frmGrph3 становится активной.
· нажмите клавишу Esc. Обратите внимание на то, что происходит выход из программы с удалением всех форм с экрана.
2.11 Разместите на форме frmGrph1 графическое окно для вывода графика зависимости давления от высоты (высота – по оси Y снизу вверх от 0 до 15000 м, давление - по оси X слева направо от 10000 до 110000 паскалей).
· перейдите в окно Project Explorer и сделайте активной форму frmGrph1,
· откройте форму frmGrph1 кнопкой View Object на панели инструментов Object Explorer (вторая слева),
· щелчком мыши выберите компонент PictureBox из палитры компонентов Toolbox (вторая слева кнопка в верхнем ряду палитры),
· при нажатой кнопке мыши нарисуйте на форме frmGrph1 прямоугольник графического окна максимально возможного размера,
· задайте свойства графического окна в соответствии с таблицей:
| Свойство | Значение |
| Name | PctP_h |
| ScaleMode | 0 – User |
| ScaleLeft | |
| ScaleTop | |
| ScaleWidth | |
| ScaleHight | -15000 |
| AutoRedraw | True |
· разместите вокруг графического окна надписи с указанием граничных значений высоты и давления:
· слева от левой вертикальной рамки внизу надпись «0 км»
· слева от левой вертикальной рамки вверху надпись «15 км»,
· снизу под нижней горизонтальной рамкой слева надпись «10000 па»,
· снизу под нижней горизонтальной рамкой справа надпись «110000 па»,
(точное положение, размер надписей и их шрифт выбрать самостоятельно, по аналогии с графиками функций, приведенными в литературе),
· сохраните обновленную форму кнопкой Save на панели инструментов VB.
2.12 Разместите на форме frmGrph2 графическое окно для вывода графика зависимости плотности от высоты (высота – по оси Y снизу вверх от 0 до 15000 м, плотность - по оси X слева направо от 0,2 до 1,25).
· перейдите в окно Project Explorer, сделайте активной форму frmGrph2, и откройте ее,
· выберите компонент PictureBox из палитры компонентов Toolbox и при нажатой кнопке мыши нарисуйте на форме frmGrph2 прямоугольник графического окна максимально возможного размера,
· задайте свойства графического окна в соответствии с таблицей:
| Свойство | Значение |
| Name | PctR_h |
| ScaleMode | 0 – User |
| ScaleLeft | 0,2 |
| ScaleTop | |
| ScaleWidth | 1,05 |
| ScaleHight | -15000 |
| AutoRedraw | True |
· разместите вокруг графического окна надписи с указанием граничных значений высоты и плотности:
· слева от левой вертикальной рамки внизу надпись «0 км»
· слева от левой вертикальной рамки вверху надпись «15 км»,
· снизу под нижней горизонтальной рамкой слева надпись «0,2»,
· снизу под нижней горизонтальной рамки справа надпись «1,25»,
(точное положение, размер надписей и их шрифт выбрать самостоятельно, по аналогии с графиками функций, приведенными в литературе),
· сохраните обновленную форму кнопкой Save на панели инструментов VB.
2.13 Разместите на форме frmGrph3 графическое окно для вывода графиков зависимостей температуры и скорости звука от высоты в одной системе координат (высота – по оси Y снизу вверх от 0 до 15000 м, скорость/температура - по оси X слева направо от 200 до 350).
· перейдите в окно Project Explorer, сделайте активной форму frmGrph3, и откройте ее,
· разместите компонент PictureBox из палитры компонентов Toolbox на форме frmGrph3 с максимально возможным размером,
· задайте свойства графического окна в соответствии с таблицей:
| Свойство | Значение |
| Name | PctA_h |
| ScaleMode | 0 – User |
| ScaleLeft | |
| ScaleTop | |
| ScaleWidth | |
| ScaleHight | -15000 |
| AutoRedraw | True |
· разместите вокруг графического окна надписи с указанием граничных значений высоты и скорости/температуры:
· слева от левой вертикальной рамки внизу надпись «0 км»
· слева от левой вертикальной рамки вверху надпись «15 км»,
· снизу под нижней горизонтальной рамкой слева надпись «200»,
· снизу под нижней горизонтальной рамки справа надпись «350»,
(точное положение, размер надписей и их шрифт выбрать самостоятельно, по аналогии с графиками функций, приведенными в литературе),
· сохраните обновленную форму кнопкой Save на панели инструментов VB.
2.14 Протестируйте программу с пустыми графиками
· запустите программу на выполнение в среде VB5.0,
· установите курсор на кнопку Graph и нажмите клавишу Enter – вызывается форма frmGrph1 с полем для рисования графика и надписями о граничных значениях высоты и давления,
· установите курсор на кнопку Next и нажмите левую клавишу мышки. На экран выводится форма frmGrph2 с полем для рисования графика и надписями о граничных значениях высоты и плотности,
· установите курсор на кнопку Next и нажмите клавишу Enter. На экран выводится форма frmGrph3 с полем для рисования графика и надписями о граничных значениях высоты и скорости звука/температуры,
· нажмите клавишу Esc. Обратите внимание на то, что происходит выход из программы с удалением всех форм с экрана.
2.15 Разработайте алгоритм и запрограммируйте построение графиков. Исходные данные для построения берутся из массива gsngSa(), сформированного в программе предыдущей лабораторной работы после расчета таблицы (при нажатии на кнопку Table на форме frmSa. Расположение данных в этом массиве:
gsngSa(1,к) – к-е значение высоты
gsngSa(2,к) – значение давления на к-й высоте
gsngSa(3,к) – значение плотности на к-й высоте
gsngSa(4,к) – значение температуры на к-й высоте
gsngSa(5,к) – значение скорости звука на к-й высоте
к = 1,2,…, n где n – количество элементов во втором измерении массива gshgSa(), которое можно получить используя функцию Ubound, возвращающую максимальный индекс элемента в массиве:
n = Ubound(gsngSa,2)-1
Массив gsngSa находится в модуле формы frmSa и доступен только внутри этого модуля, поэтому все построения необходимо программировать в этой форме - при обработке события нажатия на кнопку «Graph» на форме frmSa.
С учетом этого текст обработчика события будет иметь следующий вид:
Private Sub CmdGrph_Click()
Dim k As Integer
'ПОСТРОИТЬ ГРАФИКИ ДАВЛЕНИЯ, ПЛОТНОСТИ И ТЕМПЕРАТУРЫ
FrmGrph1.PctP_h.Cls ' очистить поле графика 1
FrmGrph1.PctP_h.ForeColor = vbGreen ' цвет графика 1 - зеленый
FrmGrph2.PctR_h.Cls ' очистить поле графика 2
FrmGrph2.PctR_h.ForeColor = vbRed ' цвет графика 2 - красный
FrmGrph3.PctA_h.Cls ' очистить поле графика 3
FrmGrph3.PctA_h.ForeColor = vbYellow ' цвет графика 3 - желтый
FrmGrph1.PctP_h.PSet (gsngSa(2, 1), gsngSa(1, 1)) ' нарисовать начальную
' точку графика 1
FrmGrph2.PctR_h.PSet (gsngSa(3, 1), gsngSa(1, 1)) ' нарисовать начальную
' точку графика 2
FrmGrph3.PctAh.PSet (gsngSa(4, 1), gsngSa(1, 1)) ' нарисовать начальную
' точку графика 3
For k = 2 To UBound(gsngSa, 2)-1 ' Цикл по остальным
' точкам из массива gsngSa
FrmGrph1.PctP_h.Line -(gsngSa(2, k), gsngSa(1, k)) ' нарисовать линию до
' очередной точки графика 1
FrmGrph2.PctR_h.Line -(gsngSa(3, k), gsngSa(1, k)) ' нарисовать линию до
очередной точки графика 2
FrmGrph3.PctA_h.Line -(gsngSa(4, k), gsngSa(1, k)) ' нарисовать линию до
' очередной точки графика 3
Next k
'ПОСТРОИТЬ ГРАФИК СКОРОСТИ ЗВУКА НА ПОЛЕ ГРАФИКА ТЕМПЕРАТУРЫ
FrmGrph3.PctA_h.ForeColor = vbCyan ' цвет графика 4 - синий
FrmGrph3.PctA_h.PSet (gsngSa(5, 1), gsngSa(1, 1)) ' нарисовать первую точку
' графика 4
For k = 2 To UBound(gsngSa, 2)-1 ' Цикл по остальным
' точкам из массива gsngSa
FrmGrph3.PctA_h.Line -(gsngSa(5, k), gsngSa(1, k)) ' нарисовать линию до
' очередной точки графика 4
Next k
Me.Hide
FrmGrph1.Show ' показать форму для
' графика давления
End Sub
2.16 Создайте полный код обработчика события нажатия на кнопку «Graph» на форме frmSa:
· перейдите в окно Project Explorer и сделайте активной форму с именем frmSa,
· выполните двойной щелчок на кнопке «Graph»
· перепишите текст обработчика события – процедуру Private Sub cmdGrph_Click() в соответствии с текстом, приведенным в п. 2.15. Комментарии в тексте программы можно не вводить.
· сохраните обновленную форму кнопкой Save на панели инструментов VB.
2.17 Сохраните разработанный проект.
2.18 Протестируйте программу
· запустите программу на выполнение в среде VB5.0
· задайте расчет для полного диапазона высот от 0 до 15000 м с шагом не более 1000 м
· введите данные кнопкой OK
· выполните расчет таблицы данных кнопкой Table
· выполните расчет графиков и просмотр первого графика кнопкой Graph
· просмотрите все графики, переходя с формы на форму кнопками Next
· убедитесь, что полученные графики не содержат ошибок:
· каждый график должен перекрывать весь диапазон высот
· каждый график должен перекрывать почти весь диапазон по горизонтали
· графики должны иметь плавный вид, без разрывов и прямых участков
· изменение физических величин с высотой должно соответствовать законам стандартной атмосферы.
2.19 Исправьте обнаруженные ошибки и сохраните проект.
2.20 Продемонстрируйте работу программы преподавателю и защитите работу, ответив на контрольные вопросы по теоретической части и тексту программы.
2.31 Закройте среду программирования
