Діаграми у Visual Basic
Розвиток сучасної техніки йде шляхом дедалі більшого ускладнення конструкції новостворюваних виробів. При їх створенні використовуються дедалі складніші технології та технологічні процеси. Процес проектування нових виробів вимагає залучення та використання нових нестандартних рішень. Крім цього, потоки інформації, що циркулюють у світі, що оточує нас, величезні і мають тенденцію до збільшення. Тому, нині характеризується масованим використанням інформаційних технологій у всі сфери життя та діяльності, зміною ролі та місця персональних комп'ютерів у суспільстві. З предмета професійної діяльності досить вузького кола фахівців у галузі точних наук вони перетворилися на інструмент, що використовується у всіх галузях виробництва, науці, побуті та суспільному житті. Людина, що вміло і ефективно володіє технологіями та інформацією, має інший, новий стиль мислення, інакше підходить до оцінки проблеми, що виникла, до організації своєї діяльності. Володіння інформаційними технологіями ставиться в сучасному світі в один ряд з такими якостями, як знання мов та вміння міркувати.
Зростаюча роль комп'ютерних технологій надає користувачеві нові можливості, які здатні вплинути на його освіту, світогляд, кількість та якість інформації, з якою він має справу. Для керівників, інформаційні технології впливають на якість прийнятих рішень та ефективність управління.
Наслідком підвищення продуктивності обчислювальної техніки є і ускладнення програмного забезпечення, яке веде, своєю чергою, до підвищення зручності та ефективності його використання.
Завдяки останнім розробкам у галузі програмнихпродуктів обробляти великі обсяги інформації стає набагато простіше. Ергономіка цих програмних продуктів дозволяє не витрачати багато часу на роботу з даними, різні візуальні засоби їх подання дають можливість скласти думку буквально, окинувши дані поглядом.
Одним з таких візуальних засобів є діаграми – графічне представлення даних, що дозволяє швидко оцінити співвідношення кількох величин, що є геометричним символьним зображенням інформації із застосуванням різних прийомів техніки візуалізації.
Про них та їх створення за допомогою програмних засобів і йтиметься у цій роботі.
1. Вибір середовища розробки
Для написання програмного продукту буде використовуватися найбільш популярна версія продукту – VisualBasic 6. Дана мова підходь як новачкам у програмуванні, так і для підготовлених користувачів, які можуть використовувати стандартні компоненти Windows, елементи керування ActiveX, ADO, RDO та ін. ж включені різні засоби роботи з графічним інтерфейсом користувача та графічного представлення інформації (у тому числі й необхідні нам засоби для роботи з діаграмами). Виходячи з усіх цих переваг, вважаю вибір середовища VisualBasic 6 оптимальним для поставленого завдання.
2. Вибір апаратних засобів
Для функціонування програмного продукту, що розробляється, необхідний комп'ютер, який працює під керуванням операційної системи з сімейства Windows. Починаючи з WindowsXP, мінімальними системними вимогами є:
– процесор із частотою від 233 МГц
- Оперативна пам'ять об'ємом від 64 Мб
- Жорсткий диск об'ємом від 5 Гб
Рекомендовані системні вимоги для функціонування Windows XP,під яку розробляється програмний продукт:
– процесор із частотою від 300 МГц
- Оперативна пам'ять об'ємом від 128 Мб
- Жорсткий диск об'ємом від 5 Гб
3. Опис інтерфейсу користувача та можливостей програми
Програмний продукт, що розробляється в ході даної курсової роботи, призначений для демонстрації можливостей VisualBasic по роботі з діаграмами.
Загальний вигляд головної форми програми наведено малюнку 1.
При запуску програми компонент MSFlexGrid заповнюється списком товарів і випадковими значеннями ціни на ці товари.
На формі є чотири кнопки, призначені для різних операцій з цим списком товарів, а також кнопка закриття форми і збереження отриманої діаграми.
Рисунок 1. Загальний вигляд головної форми програми
Кнопка «Випадкові ціни», як випливає із назви, заповнює таблицю випадковими значеннями вартості.
Кнопка «Упорядкувати» призводить до впорядкування списку товарів за ціною (приклад малюнку 2).
Натискання на кнопку «Разом» призведе до підрахунку суми вартості всіх товарів. Ця сума відображатиметься у рядку «Всього» таблиці.
Подвійний клік миші на будь-яку комірку вартості товару призведе до відкриття вікна редагування вартості (див. рисунок 3).
Цей діалог також передбачає перевірку правильності введення. Якщо буде введено нечислове значення, воно буде перетворено на нуль. Якщо значення не буде введено або буде тим самим, жодних змін не відбудеться.
Малюнок 2. Список товарів, впорядкований за ціною
Після натискання на кнопку «Діаграма» дані з таблиці відобразяться в компоненті MSChart у вигляді діаграми з відповідними даними.
За допомогою перемикачів можна вибиратитип діаграми:
– Плоска гістограма (рисунок 4)
– Плоский графік (рисунок 5)
– Об'ємна гістограма (рисунок 6)
– Об'ємний графік (рисунок 7)
Рисунок 3. Вікно редагування вартості товару
Малюнок 4. Плоска гістограма
Отриману діаграму можна зберегти, натиснувши кнопку «Зберегти діаграму». У вікні (наведено на малюнку 8), ми бачимо ще один приклад діаграми. Ця кругова діаграма відображає кількість зайнятого та вільного простору на вибраному диску.
При виборі диска зі списку, оновлюється інформація в діаграмі, а також інформація в підписі до діаграми, що містить точний обсяг вільного простору на диску, у списку каталогів відображається існуюча структура папок на цьому диску.
Малюнок 5. Плоский графік
Малюнок 6. Об'ємна гістограма
Після вибору потрібного диска подвійним клацанням миші вибирається потрібна папка.
Натискання кнопки «Ок» запускає процедуру збереження зображення, в якій підбирається ім'я для файлу діаграми. Якщо на диску достатньо місця та підібрано ім'я для файлу, він буде збережений у вибрану папку, після чого буде видано повідомлення про успішне збереження.
Якщо з випадаючого списку вибрано неправильний диск (наприклад, дисковод без диска), буде видано повідомлення про те, що диск недоступний (див. малюнок 9).
Малюнок 7. Об'ємний графік
Якщо в цьому вікні натиснути кнопку «Скасувати», воно закриється, і діаграма збережена не буде.
На головній формі також є кнопка «Закрити», яка закриває програму.
4. Вихідний код основних модулів програми
Нижче наведено код модуля, що містить всепроцедури, що використовуються у програмі:
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" _
(ByVal pszPath As String) As Long
' змінні рівня проекту
Public Price(8) As Currency ' Масив цін на продукти
Public Name_Tovar(8) As String 'Масивназв продуктів
Public Sub Summa()
Dim i As Integer
Dim Sum As Currency
цикл підрахунку суми вартості всіх товарів
Form1.MSFlexGrid1. Col = 1
Form1.MSFlexGrid1. Row = i + 1
Price(i) = Val (Form1.MSFlexGrid1. Text)
Form1.MSFlexGrid1. Text = Format $ (Price (i), "# 0.00")
Sum = Sum + Price(i)
' виведення суми в рядок «Усього»
Form1.MSFlexGrid1. Col = 1
Form1.MSFlexGrid1. Row = 9
Form1.MSFlexGrid1. Text = Format $ (Sum, "# 0.00")
' процедура заповнює таблицю інформацією про продукти
Dim i As Integer
Dim a As Variant ' змінна для зберігання списку назв
a = Array (Торт Празький, Крупа гречана, Кава ЧІБО, Вафлі шоколадні, Банани, Яблука, Цукерки Коркунов, Сосиски молочні, Усього)
Form1.MSFlexGrid1. ColWidth(0) = 4200
Form1.MSFlexGrid1. ColWidth(1) = 3000
Form1.MSFlexGrid1. Col = 0
Form1.MSFlexGrid1. Row = 0
Form1.MSFlexGrid1. Text = «Товар»
Form1.MSFlexGrid1. Col = 1
Form1.MSFlexGrid1. Text = "Вартість, руб."
Form1.MSFlexGrid1. Col = 0
Form1.MSFlexGrid1. Row = i + 1
Form1.MSFlexGrid1. Text = a(i)
Form1.MSChart1. Title = "Діаграма вартості товарів"