| Скачать .docx |
Реферат: Диаграммы в Visual Basic
Введение
Развитие современной техники идёт по пути все большего усложнения конструкции вновь создаваемых изделий. При их создании используются все более сложные технологии и технологические процессы. Процесс проектирования новых изделий требует привлечения и использования новых нестандартных решений. Помимо этого, потоки информации, циркулирующие в мире, который нас окружает, огромны и имеют тенденцию к увеличению. Поэтому, настоящее время характеризуется массированным внедрением информационных технологий во все сферы жизни и деятельности человека, изменением роли и места персональных компьютеров в современном обществе. Из предмета профессиональной деятельности достаточно узкого круга специалистов в области точных наук они превратились в инструмент, используемый во всех отраслях производства, науке, быту и общественной жизни. Человек, умело и эффективно владеющий технологиями и информацией, имеет другой, новый стиль мышления, иначе подходит к оценке возникшей проблемы, к организации своей деятельности. Владение информационными технологиями ставится в современном мире в один ряд с такими качествами, как знание языков и умение рассуждать.
Возрастающая роль компьютерных технологий предоставляет пользователю новые возможности, которые способны повлиять на его образование, мировоззрение, количество и качество информации, с которой он имеет дело. Для руководителей, информационные технологии влияют на качество принимаемых решений и эффективность управления.
Следствием повышения производительности вычислительной техники является и усложнение программного обеспечения, которое ведет, в свою очередь, к повышению удобства и эффективности его использования.
Благодаря последним разработкам в области программных продуктов, обрабатывать большие объемы информации становится гораздо проще. Эргономика этих программных продуктов позволяет не тратить много времени на работу с данными, различные визуальные средства их представления дают возможность составить мнение, буквально, окинув данные взглядом.
Одним из таких визуальных средств являются диаграммы – графическое представление данных, позволяющее быстро оценить соотношение нескольких величин, представляющее собой геометрическое символьное изображение информации с применением различных приёмов техники визуализации.
О них и их создании с помощью программных средств и пойдет речь в настоящей работе.
1. Выбор среды разработки
Мы живем в удивительное время, и никогда еще оно не было более благоприятным для программистов на VisualBasic. VisualBasic всегда позволял упростить процесс написания программ для системы Windows, но на его превращение в настоящий язык профессиональной разработки программ и создание среды разработки потребовались годы. С помощью VisualBasic можно по-прежнему быстро писать программы для системы Windows, но, помимо этого, теперь можно также создавать приложения типа клиент / сервер и надежные приложения управления базами данных. В последней версии VisualBasic есть некоторые усовершенствования, которые значительно расширяют возможности программистов, разрабатывающих приложения для баз данных. Даже этого было бы достаточно для рекламы VisualBasic, но последние версии предоставляют гораздо более широкие возможности.
Для написания программного продукта будет использоваться наиболее популярная версия продукта – VisualBasic 6. Данный язык подходи как новичкам в программировании, так и для подготовленных пользователей, которые могут использовать стандартные компоненты Windows, элементы управления ActiveX, ADO, RDO и др. В данную версию продукта так же включены различные средства работы с графическим интерфейсом пользователя и графического представления информации (в том числе и, необходимые нам, средства для работы с диаграммами). Исходя из всех этих достоинств, считаю выбор среды VisualBasic 6 оптимальным для поставленной задачи.
2. Выбор аппаратных средств
Для функционирования разрабатываемого программного продукта необходим компьютер, работающий под управлением операционной системы из семейства Windows. Начиная с WindowsXP, минимальными системными требованиями являются:
– процессор с частотой от 233 МГц
– оперативная память объемом от 64 Мб
– видеоадаптер с поддержкой SuperVGA (разрешение экрана 800х600, глубина цвета – 16 бит)
– жесткий диск объемом от 5 Гб
– клавиатура / мышь
Рекомендуемые системные требования для функционирования WindowsXP, под которую разрабатывается программный продукт:
– процессор с частотой от 300 МГц
– оперативная память объемом от 128 Мб
– видеоадаптер с поддержкой SuperVGA (разрешение экрана 800х600, глубина цвета – 16 бит)
– жесткий диск объемом от 5 Гб
– клавиатура / мышь.
3. Описание интерфейса пользователя и возможностей программы
Разрабатываемый в ходе данной курсовой работы программный продукт предназначен для демонстрации возможностей VisualBasic по работе с диаграммами.
Общий вид главной формы программы приведен на рисунке 1.
При запуске программы, компонент MSFlexGrid заполняется списком товаров и случайными значениями цены на эти товары.
На форме присутствуют четыре кнопки, предназначенные для различных операций с этим списком товаров, а также кнопка закрытия формы и сохранения полученной диаграммы.
Рисунок 1. Общий вид главной формы программы
Кнопка «Случайные цены», как следует из названия, заполняет таблицу случайными значениями стоимости.
Кнопка «Упорядочить» приводит к упорядочиванию списка товаров по цене (пример на рисунке 2).
Нажатие на кнопку «Итого» приведет к подсчету суммы стоимостей всех товаров. Данная сумма будет отображаться в строке «Всего» таблицы.
Двойной клик мыши на любую ячейку стоимости товара приведет к открытию окна редактирования стоимости (см. рисунок 3).
Данный диалог также предусматривает проверку правильности ввода. Если будет введено нечисловое значение, оно будет преобразовано в ноль. Если значение не будет введено или будет тем же, то никаких изменений не произойдет.
Рисунок 2. Список товаров, упорядоченный по цене
После нажатия на кнопку «Диаграмма», данные из таблицы отобразятся в компоненте MSChart в виде диаграммы с соответствующими данными.
С помощью переключателей можно выбирать тип диаграммы:
– Плоская гистограмма (рисунок 4)
– Плоский график (рисунок 5)
– Объемная гистограмма (рисунок 6)
– Объемный график (рисунок 7)
Рисунок 3. Окно редактирования стоимости товара
Рисунок 4. Плоская гистограмма
Полученную диаграмму мы можем сохранить, нажав кнопку «Сохранить диаграмму». В открывшемся окне (приведено на рисунке 8), мы видим еще один пример диаграммы. Данная круговая диаграмма отображает количество занятого и свободного пространства на выбранном диске.
При выборе диска из выпадающего списка, обновляется информация в диаграмме, а также информация в подписи к диаграмме, содержащая точный объем свободного пространства на диске, в списке каталогов отображается существующая структура папок на этом диске.
Рисунок 5. Плоский график
Рисунок 6. Объемная гистограмма
После выбора нужного диска, двойным щелчком мыши выбирается нужная папка.
Нажатие на кнопку «Ок» запускает процедуру сохранения изображения, в которой подбирается имя для файла диаграммы. Если на диске достаточно места и подобрано имя для файла, он будет сохранен в выбранную папку, после чего будет выдано сообщение об успешном сохранении.
В случае, когда из выпадающего списка выбран неверный диск (например, дисковод без диска), будет выдано сообщение о том, что диск недоступен (см. рисунок 9).
Рисунок 7. Объемный график
Если в данном окне нажать кнопку «Отмена», то оно закроется, и диаграмма сохранена не будет.
На главной форме также присутствует кнопка «Закрыть», которая закрывает приложение.
4. Исходный код основных модулей программы
Ниже представлен код модуля, содержащего все процедуры, используемые в программе:
Option Explicit
' импортированныефункции
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
Sum = 0
' цикл подсчета суммы стоимости всех товаров
For i = 0 To 7
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)
Nexti
' вывод суммы в строку «Всего»
Form1.MSFlexGrid1. Col = 1
Form1.MSFlexGrid1. Row = 9
Form1.MSFlexGrid1. Text = Format$(Sum, «#0.00»)
End Sub
PublicSubColumn_Name()
' процедура заполняет таблицу информацией о продуктах
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 = «Стоимость, руб.»
' заполнение данными
For i = 0 To 8
Form1.MSFlexGrid1. Col = 0
Form1.MSFlexGrid1. Row = i + 1
Form1.MSFlexGrid1. Text = a(i)
Name_Tovar(i) = a(i)
Next i
' настройка диаграммы
Form1.MSChart1. Title = «Диаграмма стоимости товаров»
Form1.MSChart1. Plot. Axis(0).AxisTitle. Text = «Товары»
Form1.MSChart1. Plot. Axis(1).AxisTitle. Text = «Цена»
End Sub
Public Sub Column_Data()
' процедура заполняет графу цен случайными значениями
Dim i As Integer
Dim k As Integer
Form1.MSFlexGrid1. Col = 1
Randomize
For i = 1 To 8
k = Rnd(1) * 100
Form1.MSFlexGrid1. Row = i
Form1.MSFlexGrid1. Text = Format$(k, «#0.00»)
Next i
End Sub
Public Sub Sort()
' сортировка списка по-возрастанию цены
Dim i, k As Integer
Dim R As String ' временная переменная для хранения названия товара
Dim P As Currency ' временная переменная для хранения цены товара
For i = 0 To 7
Form1.MSFlexGrid1. Col = 1
Form1.MSFlexGrid1. Row = i + 1
Price(i) = Val (Form1.MSFlexGrid1. Text)
Next i
' сортировка
For k = 0 To 7
For i = 0 To 6
If Price(i) > Price (i + 1) Then
R = Name_Tovar(i)
P = Price(i)
Price(i) = Price (i + 1)
Name_Tovar(i) = Name_Tovar (i + 1)
Name_Tovar (i + 1) = R
Price (i + 1) = P
End If
Next i
Next k
' перезаполнение таблицы
For i = 0 To 7
Form1.MSFlexGrid1. Col = 0
Form1.MSFlexGrid1. Row = i + 1
Form1.MSFlexGrid1. Text = Name_Tovar(i)
Form1.MSFlexGrid1. Col = 1
Form1.MSFlexGrid1. Text = Format$(Price(i), «#0.00»)
Next i
End Sub
Public Sub MyChart()
' процедура отображения табличной информации на диаграмме
Dim i As Integer
Form1.MSChart1. ColumnCount = 1
Form1.MSChart1. RowCount = 8
For i = 1 To 8
Form1.MSChart1. Row = i
Form1.MSChart1. Data = Price (i – 1)
Form1.MSChart1. RowLabel = Name_Tovar (i – 1)
Next i
End Sub
Public Sub EditGridData()
' окно редактирования стоимости товара
Dim s As String
If Form1.MSFlexGrid1. Col = 1 Then
s = InputBox («Введите новую стоимость для товара» + Name_Tovar (Form1.MSFlexGrid1. Row – 1), «Изменениестоимости», Form1.MSFlexGrid1. Text)
If (s <> Form1.MSFlexGrid1. Text) And (Len(s) <> 0) Then
Form1.MSFlexGrid1. Text = s
End If
End If
End Sub
Public Sub UpdateChart()
' процедура выводит информацию о свободном месте на диске в mschart1
' создаем объекты файловой системы для получения информации о дисках
Dim fso As Object
Dim dr As Object
Set fso = CreateObject («Scripting. FileSystemObject»)
Set dr = fso. GetDrive (Mid(Dialog. Drive1. Drive, 1, 1))
' заполняем массив, который послужит источником данных для диаграммы
Dim arrData (0, 1 To 3)
arrData (0, 1) = «Диск» & Dialog. Drive1. Drive
arrData (0, 2) = dr. FreeSpace
arrData (0, 3) = dr. TotalSize – dr. FreeSpace
Dialog.MSChart1. ChartData = arrData
Dialog.lFreeSpace. Caption = «Свободно:» + Format$(dr. FreeSpace / 1048576, «#0.00») +» МБ»
End Sub
Public Sub SaveChart()
' сохраняем диаграмму в папку, выбранную пользователем
Dim i As Integer
Dim s As String
i = 0
Do
i = i + 1
s = Dialog. Dir1. Path + «\» + Format(i) +».bmp»
Loop While PathFileExists(s) = 1
Form1.MSChart1. EditCopy
SavePicture (Clipboard. GetData, s)
MsgBox(«Диаграмма сохранена в файл:» + s)
End Sub
Процедуры и функции из вышеописанного модуля вызываются по следующим событиям формы:
PrivateSubCommand1_Click()
' подсчитываем стоимость всех товаров
Summa
End Sub
Private Sub Command2_Click()
' упорядочиваем список товаров по стоимости
Sort
End Sub
Private Sub Command3_Click()
' отображаем таблицу в диаграмме
MyChart
Command5. Enabled = True
End Sub
Private Sub Command4_Click()
' генерируем случайные цены
Column_Data
End Sub
Private Sub Command5_Click()
' показываем диалог сохранения диаграммы
Dialog. Show 1
End Sub
Private Sub Command6_Click()
' завершаем работу приложения
End
EndSub
PrivateSubForm_Load()
' заполняем таблицу и выравниваем форму по центру экрана
Dim w, h As Integer
Column_Name
Column_Data
h = Screen. Height
w = Screen. Width
Form1. Left = (w – Form1. Width) / 2
If Form1. Left < 0 Then Form1. Left = 0
Form1. Top = (h – Form1. Height) / 2
If Form1. Top < 0 Then Form1. Top = 0
End Sub
Private Sub MSFlexGrid1_DblClick()
' открываем окно редактирования стоимости выбранного продукта
EditGridData
End Sub
Private Sub Option1_Click()
' изменяем тип диаграммы на 2DBar
MSChart1.chartType = VtChChartType2dBar
End Sub
Private Sub Option2_Click()
' изменяем тип диаграммы на 2DLine
MSChart1.chartType = VtChChartType2dLine
End Sub
Private Sub Option3_Click()
' изменяем тип диаграммы на 3DLine
MSChart1.chartType = VtChChartType3dLine
End Sub
Private Sub Option4_Click()
' изменяем тип диаграммы на 3DBar
MSChart1.chartType = VtChChartType3dBar
EndSub
Помимо главной формы, в проекте представлена диалоговая форма сохранения диаграммы. Исходныйкодмодуляимеетследующийвид:
Option Explicit
Private Sub CancelButton_Click()
' закрываем диалоговую форму
Me. Hide
End Sub
Private Sub Drive1_Change()
' при изменении диска, обновляем диаграмму и директорию в Dir1
On Error GoTo errmsg
Dir1. Path = Drive1. Drive
UpdateChart
Exit Sub
errmsg:
MsgBox («В данный момент выбранный диск недоступен»)
End Sub
Private Sub Form_Load()
' выравниваем форму по центру экрана
Dim w, h As Integer
h = Screen. Height
w = Screen. Width
Dialog. Left = (w – Dialog. Width) / 2
If Dialog. Left < 0 Then Dialog. Left = 0
Dialog. Top = (h – Dialog. Height) / 2
If Dialog. Top < 0 Then Dialog. Top = 0
UpdateChart
End Sub
PrivateSubOKButton_Click()
' сохраняем изображение в выбранной папке
SaveChart
Me. Hide
End Sub
Заключение
диаграмма программный язык интерфейс
В данной работе была создана программа, демонстрирующая основные возможности диаграмм. Для ее написания был использована среда разработки VisualBasic 6.0. В ходе работы были продемонстрированы основные возможности диаграмм, а также средства VisualBasic для их реализации. Была подтверждена простота и удобство создания приложений в среде VisualBasic.
Способ, которым информация представляется в диаграммах, позволяет быстро работать с большими объемами данных. Например, главная форма программы, представляет таблицу товаров и их стоимостей. Если бы человек искал товар с наибольшей стоимостью, ему пришлось бы перебирать весь список и сравнивать цены. В диаграмме же достаточно одного взгляда, чтобы выявить товар с наибольшей ценой и выделить его из списка. Если эту функцию может выполнить упорядочивание товаров по цене, то оценка разброса значений – критерий субъективный и диаграмма позволяет пользователю сделать этот вывод, всего лишь окинув ее взглядом.
Диаграмма на диалоговой форме сохранения изображения позволяет пользователю визуально оценить наличие свободного пространства на диске и решить куда сохранять файл.
Задача данного курсового проекта выполнена. Доказана польза и удобство использования диаграмм, представлены способы их реализации средствами VisualBasic.
Список использованной литературы
1. Браун С. VisualBasic 5 c самого начала – СПб: Питер, 1998
2. Иванов М.Н., Суворов С.В. Информатика Часть 2. Программирование. Учебно-методическое пособие – М.; МГИУ, 2004
3. Использование VisualBasic 6.: Пер. с англ. – К.; М.; СПб.: Издательский дом «Вильямс», 1999. – 608 с.
4. Материалы сайта www.visual2000.ru
5. Материалы сайта www.compress.ru
6. VisualBasic 6. Руководство разработчика: В 2 т.: Пер с англ. – К.: Издательская группа BHV, 2000. – Т 2 – 560 с.