Введение
Развитиесовременной техники идёт по пути все большего усложнения конструкции вновьсоздаваемых изделий. При их создании используются все более сложные технологиии технологические процессы. Процесс проектирования новых изделий требуетпривлечения и использования новых нестандартных решений. Помимо этого, потокиинформации, циркулирующие в мире, который нас окружает, огромны и имеюттенденцию к увеличению. Поэтому, настоящее время характеризуется массированнымвнедрением информационных технологий во все сферы жизни и деятельностичеловека, изменением роли и места персональных компьютеров в современномобществе. Из предмета профессиональной деятельности достаточно узкого круга специалистовв области точных наук они превратились в инструмент, используемый во всехотраслях производства, науке, быту и общественной жизни. Человек, умело иэффективно владеющий технологиями и информацией, имеет другой, новый стильмышления, иначе подходит к оценке возникшей проблемы, к организации своейдеятельности. Владение информационными технологиями ставится в современном мирев один ряд с такими качествами, как знание языков и умение рассуждать.
Возрастающаяроль компьютерных технологий предоставляет пользователю новые возможности,которые способны повлиять на его образование, мировоззрение, количество икачество информации, с которой он имеет дело. Для руководителей, информационныетехнологии влияют на качество принимаемых решений и эффективность управления.
Следствиемповышения производительности вычислительной техники является и усложнение программногообеспечения, которое ведет, в свою очередь, к повышению удобства иэффективности его использования.
Благодаряпоследним разработкам в области программных продуктов, обрабатывать большиеобъемы информации становится гораздо проще. Эргономика этих программныхпродуктов позволяет не тратить много времени на работу с данными, различныевизуальные средства их представления дают возможность составить мнение,буквально, окинув данные взглядом.
Одним изтаких визуальных средств являются диаграммы – графическое представление данных,позволяющее быстро оценить соотношение нескольких величин, представляющее собойгеометрическое символьное изображение информации с применением различныхприёмов техники визуализации.
О них и ихсоздании с помощью программных средств и пойдет речь в настоящей работе.
1. Выборсреды разработки
Мы живем вудивительное время, и никогда еще оно не было более благоприятным дляпрограммистов на Visual Basic. Visual Basic всегда позволял упростить процесс написания программ для системы Windows, но на его превращение внастоящий язык профессиональной разработки программ и создание среды разработкипотребовались годы. С помощью Visual Basic можно по-прежнему быстро писать программы для системы Windows, но, помимо этого, теперьможно также создавать приложения типа клиент / сервер и надежныеприложения управления базами данных. В последней версии Visual Basic есть некоторые усовершенствования,которые значительно расширяют возможности программистов, разрабатывающих приложениядля баз данных. Даже этого было бы достаточно для рекламы Visual Basic, но последние версиипредоставляют гораздо более широкие возможности.
Длянаписания программного продукта будет использоваться наиболее популярная версияпродукта – Visual Basic 6. Данный язык подходи как новичкам в программировании, так и дляподготовленных пользователей, которые могут использовать стандартные компонентыWindows,элементы управления Active X, ADO, RDO и др. В данную версию продукта так же включены различные средстваработы с графическим интерфейсом пользователя и графического представленияинформации (в том числе и, необходимые нам, средства для работы с диаграммами).Исходя из всех этих достоинств, считаю выбор среды Visual Basic 6 оптимальным для поставленнойзадачи.
2. Выбор аппаратныхсредств
Дляфункционирования разрабатываемого программного продукта необходим компьютер,работающий под управлением операционной системы из семейства Windows. Начиная с Windows XP, минимальными системнымитребованиями являются:
– процессорс частотой от 233 МГц
– оперативнаяпамять объемом от 64 Мб
– видеоадаптерс поддержкой Super VGA (разрешение экрана 800х600, глубина цвета – 16 бит)
– жесткийдиск объемом от 5 Гб
– клавиатура /мышь
Рекомендуемыесистемные требования для функционирования Windows XP, под которуюразрабатывается программный продукт:
– процессорс частотой от 300 МГц
– оперативнаяпамять объемом от 128 Мб
– видеоадаптерс поддержкой Super VGA (разрешение экрана 800х600, глубина цвета – 16 бит)
– жесткийдиск объемом от 5 Гб
– клавиатура /мышь.
3. Описаниеинтерфейса пользователя и возможностей программы
Разрабатываемыйв ходе данной курсовой работы программный продукт предназначен для демонстрациивозможностей Visual Basic по работе с диаграммами.
Общий видглавной формы программы приведен на рисунке 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
'переменные уровня проекта
PublicPrice(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)
Next i
' вывод суммыв строку «Всего»
Form1.MSFlexGrid1. Col = 1
Form1.MSFlexGrid1. Row = 9
Form1.MSFlexGrid1. Text = Format$(Sum, «#0.00»)
End Sub
Public Sub Column_Name()
' процедуразаполняет таблицу информацией о продуктах
Dim i AsInteger
Dim a AsVariant ' переменная для хранения списка названий
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 AsInteger
Dim R AsString ' временная переменная для хранения названия товара
Dim P AsCurrency ' временная переменная для хранения цены товара
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 = 0To 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 AsString
IfForm1.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
Процедуры ифункции из вышеописанного модуля вызываются по следующим событиям формы:
Private Sub Command1_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
End Sub
Private Sub Form_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
Form1. Top = (h – Form1. Height) / 2
If Form1. Top
End Sub
Private Sub MSFlexGrid1_DblClick()
' открываемокно редактирования стоимости выбранного продукта
EditGridData
End Sub
Private Sub Option1_Click()
' изменяемтип диаграммы на 2D Bar
MSChart1.chartType = VtChChartType2dBar
End Sub
Private Sub Option2_Click()
' изменяемтип диаграммы на 2D Line
MSChart1.chartType = VtChChartType2dLine
End Sub
Private Sub Option3_Click()
' изменяемтип диаграммы на 3D Line
MSChart1.chartType = VtChChartType3dLine
End Sub
Private Sub Option4_Click()
' изменяемтип диаграммы на 3D Bar
MSChart1.chartType = VtChChartType3dBar
End Sub
Помимоглавной формы, в проекте представлена диалоговая форма сохранения диаграммы.Исходный код модуля имеет следующий вид:
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
Dialog. Top = (h – Dialog. Height) / 2
If Dialog. Top
UpdateChart
End Sub
Private Sub OKButton_Click()
' сохраняемизображение в выбранной папке
SaveChart
Me. Hide
End Sub
Заключение
диаграммапрограммный язык интерфейс
В даннойработе была создана программа, демонстрирующая основные возможности диаграмм.Для ее написания был использована среда разработки Visual Basic 6.0. В ходе работы былипродемонстрированы основные возможности диаграмм, а также средства Visual Basic для их реализации. Былаподтверждена простота и удобство создания приложений в среде Visual Basic.
Способ,которым информация представляется в диаграммах, позволяет быстро работать сбольшими объемами данных. Например, главная форма программы, представляеттаблицу товаров и их стоимостей. Если бы человек искал товар с наибольшейстоимостью, ему пришлось бы перебирать весь список и сравнивать цены. Вдиаграмме же достаточно одного взгляда, чтобы выявить товар с наибольшей ценойи выделить его из списка. Если эту функцию может выполнить упорядочиваниетоваров по цене, то оценка разброса значений – критерий субъективный идиаграмма позволяет пользователю сделать этот вывод, всего лишь окинув еевзглядом.
Диаграммана диалоговой форме сохранения изображения позволяет пользователю визуальнооценить наличие свободного пространства на диске и решить куда сохранять файл.
Задачаданного курсового проекта выполнена. Доказана польза и удобство использованиядиаграмм, представлены способы их реализации средствами Visual Basic.
Список использованнойлитературы
1. Браун С. Visual Basic 5 c самого начала – СПб: Питер, 1998
2. Иванов М.Н., Суворов С.В. ИнформатикаЧасть 2. Программирование. Учебно-методическое пособие – М.; МГИУ, 2004
3. Использование Visual Basic 6.: Пер. с англ. – К.; М.;СПб.: Издательский дом «Вильямс», 1999. – 608 с.
4. Материалы сайта www.visual2000.ru
5. Материалы сайтаwww.compress.ru
6. Visual Basic 6. Руководстворазработчика: В 2 т.: Пер с англ. – К.: Издательская группа BHV, 2000. – Т 2 – 560 с.