Ход работы. 1. Создайте в папке Лабораторная_работа_№11 папку 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 " - получено двоек"