Ход работы. Лабораторная работа №11. Построение графиков и диаграмм

ЛАБОРАТОРНАЯ РАБОТА №11. Построение графиков и диаграмм

Вопросы для контроля

1. Какие способы вывода графической информации в Visual Basic Вам известны?

2. Перечислите известные Вам методы (операторы), которые форма и/или компонент PictureBox использует при построении графических изображений.

3. Какой метод позволяет выводить текст на форме или компоненте PictureBox?

4. Можно ли менять шрифт надписей в ходе выполнения программы?

5. Что такое свойство Scale? Как оно задается и какие особенности имеет?

Цель работы: научиться использовать операторы рисования графических примитивов для рисования диаграмм и графиков функций

Команды для рисования графических примитивов также можно использовать для построения графиков функций и диаграмм. В данной лабораторной работе рассмотрены столбиковые и круговые диаграммы, а также построение графиков некоторых функций.

Задание 1. Составить программу, показывающую столбиковую диаграмму.

Постановка задачи.

Требуется составить программу, отображающую на экране столбиковую диаграмму для отображения процентных соотношений оценок за контрольную работу по какой-либо дисциплине. Примерный внешний вид формы представлен на Рис.11.1.

1. Создайте в папке Лабораторная_работа_№11 папку 11.1.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Расположите на форме 5 компонентов Label, 4 компонента TextBox, 2 компонента ComandButton и 1 компонент PictureBox.

5. Установите свойства компонентов в соответствии с Таблицей 11.1 (или ориентируясь на внешний вид формы).

Таблица 11.1 – Свойства компонентов приложения «Столбиковая диаграмма»

Компонент	Свойство	Значение
Form1	Caption	Столбиковая диаграмма по результатам оценок
Name	frmДиаграмма
Color, Font	По своему усмотрению
MinButton, MaxButton	False
Label1	Caption	Контрольная работа по ОАиП
Label2	Caption	Получено пятерок
Label3	Caption	Получено четверок
Label4	Caption	Получено троек
Label5	Caption	Получено двоек
Text1..Text4	Text
Command1	Caption	Построить диаграмму
Command2	Caption	Очистить

6. Щелкнув мышью два раза на кнопке «Построить диаграмму», напишите обработчик события Click (необходимые комментарии приведены после знака апострофа):

Private Sub Command1_Click()

'Получим данные из TextBox

X1 = Int(Text1.Text)

X2 = Int(Text2.Text)

X3 = Int(Text3.Text)

X4 = Int(Text4.Text)

'найдем общее количество оценок

Y = X1 + X2 + X3 + X4

'Зададим шкалу PictureBox в зависимости от Y

Picture1.Scale (0, Y)-(6, 0)

'построим столбики

Picture1.Line (1, 0)-(2, X1), vbRed, BF

Picture1.Line (2, 0)-(3, X2), vbGreen, BF

Picture1.Line (3, 0)-(4, X3), vbBlue, BF

Picture1.Line (4, 0)-(5, X4), vbMagenta, BF

'Настройки шрифта для вывода процентных соотношений

Picture1.FontBold = True

Picture1.FontSize = 12

'Рассчитаем и покажем на столбиках проценты

Picture1.CurrentX = 1.1

Picture1.CurrentY = 3

Picture1.Print Round(X1 * 100 / Y); "%"

Picture1.CurrentX = 2.1

Picture1.CurrentY = 3

Picture1.Print Round(X2 * 100 / Y); "%"

Picture1.CurrentX = 3.1

Picture1.CurrentY = 3

Picture1.Print Round(X3 * 100 / Y); "%"

Picture1.CurrentX = 4.1

Picture1.CurrentY = 3

Picture1.Print Round(X4 * 100 / Y); "%"

'Выведем "легенду" диаграммы

Picture1.Line (1.4, Y - 1.3)-(1.8, Y - 2.3), vbRed, BF

Picture1.Line (1.4, Y - 3.3)-(1.8, Y - 4.3), vbGreen, BF

Picture1.Line (1.4, Y - 5.3)-(1.8, Y - 6.3), vbBlue, BF

Picture1.Line (1.4, Y - 7.3)-(1.8, Y - 8.3), vbMagenta, BF

'Вывод текстовых подписей "легенды"

Picture1.CurrentX = 2

Picture1.CurrentY = Y - 1

Picture1.Print " - получено пятерок"

Picture1.CurrentX = 2

Picture1.CurrentY = Y - 3

Picture1.Print " - получено четверок"

Picture1.CurrentX = 2

Picture1.CurrentY = Y - 5

Picture1.Print " - получено троек"

Picture1.CurrentX = 2

Picture1.CurrentY = Y - 7

Picture1.Print " - получено двоек"

Дата добавления: 2014-12-23