Ход работы. 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 – Свойства компонентов приложения «Столбиковая диаграмма»

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 " - получено двоек"