Федеральное агентство по образованию
Федеральное государственное образовательное учреждение среднего профессионального образования
«Уральский радиотехнический колледж им. А.С. Попова»
Разработка приложения в среде программирования VISUAL BASIC
«Информатор автосалона КОЛЕСНИЦА»
Курсовая работа
по дисциплине « Предметно-ориентированное программное обеспечение»
Нормоконтролер:
___________
«__»_______2010
Руководитель:
_____________
«__»_______2010
Разработчик:
_____________ В.И. Филипов
«__»_______2010
2010
Содержание
Введение
Темой этой курсовой работы является разработка приложения, помогающего посетителю салона по продаже автомобилей, ознакомиться с видом и техническими характеристиками представленных автомобилей.
В данной работе необходимо реализовать следующую задачу: создание базы данных по автомобилям. Для разработки приложения я выбрал программу VISUAL BASIC 6.0.
Базами данных (БД) называют электронные хранилища информации, доступ к которым осуществляется с одного или нескольких компьютеров. Обычно БД создается для хранения и доступа к данным, содержащим сведения о некоторой предметной области, то есть некоторой области человеческой деятельности.
Задачи:
Показ технических характеристик выбранной модели.
Вывод на экран фотографии автомобиля.
У программы есть разные методы решения, можно использовать вложенные циклы без процедур, но тогда программа будет трудновоспринимаемой, с использованием процедур алгоритм становится проще.
Я выбрал этот метод, так как он наиболее эффективен и выполняет поставленную задачу в полной мере.
1 Постановка задачи
База данных позволяет получить подробные сведения об автомобилях, выставленных на продажу.
Требования к программе:
Возможность выбора текстовых данных и просмотра изображений;
При функционировании программа должна работать на сравнительно слабых аппаратных ресурсах;
При работе с базой данных время отклика программы не должно превышать норм человеко-машинного интерфейса (2-3 сек.)
2 Этапы разработки
Этап первый – Анализ постановки задачи.
Дано задание разработать программу для ознакомления покупателей с товаром.
Целью решения задания является вывод данных запрошенных пользователем
Этап второй – Разработка.
Для решения необходимо записать строку, выбранную пользователем в переменную, с которой в дальнейшем будет работать программа.
Этап третий – Реализация
Методы решения данной задачи могут быть различными. Я выбрал метод решения задач с помощью процедуры, а именно рекурсивную процедуру.
На этом этапе также проводился перевод алгоритма на язык программирования VISUAL BASIC.
Этап четвертый – Тестирование.
На данном этапе проводилась тестирование программы в рабочих условиях в целях определения ее работоспособности, выявлялись недостатки.
Этап пятый – Отладка.
Редко программа начинает работать, так как надо. Это свидетельствует о том, что в программе есть ошибки. На этом этапе проводится процесс поиска и устранения ошибок и повторного тестирования.
3 Назначение и область применения
Программа предназначена для помощи будущему покупателю определить, какой автомобиль устраивает его по характеристикам и внешнему виду. Программа отображает краткую характеристику выбранного автомобиля, его фотографию, а также текущую прайсовую цену.
4 Технический проект
Для написания приложения был выбран язык Visual Basic операционной системы Windows.
Визуальная среда программирования VBA значительно упрощает процесс написания приложения для операционной системы Windows, так как представляет конечные классы структуры в виде специализированных визуальных и не визуальных компонентов. Программа VBA обладает хорошей комфортностью, надежностью, а также удобством в работе. Этот язык имеет обширные возможности по созданию пользовательского интерфейса, с широким набором функций, методов и свойств, которые служат для решения прикладных задач. В системе имеются развитые средства отладки, облегчающие разработку приложений.
Написание в среде программирования VBA компактно и нетребовательно к аппаратным и программным средствам компьютера, на котором оно используется.
5 Физическая структура программы
В таблице1 представлено описание всех файлов созданных при разработке приложения.
Таблица 1
Описание файлов
Файл
Характеристика
Project1.vdp
Исходный код проекта. Связывает все файлы, из которых состоит приложение.
Class1.cls
Модуль позволяет реализовать компоненты (свойства, поля, методы, события) класса.
Projectl.exe
Приложение. Содержит исполняемый файл для запуска приложения.
Form1.frm
Файл формы. Содержит в себе элементы управления, диалога и внешнего оформления.
6 Выбор и обоснование языка программирования Для реализации данной программы в качестве программного средства был выбран объектно-ориентированный язык программирования Visual Basic, в связи с тем, что: • среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса; • в языке существует большое количество средств, предназначенных для помощи и удобства программирования: встроенный отладчик, просмотр переменных и структур данных на лету, окно отладки, всплывающая подсказка при наборе текста программы. 7 Описание ошибок
Программирование является процессом творческим, поэтому неизбежны ошибки у программистов. Различают следующие типы ошибок:
— синтаксические ошибки;
— ошибки выполнения;
— ошибки в алгоритме программы.
В моей программе встречались синтаксические ошибки и ошибки в алгоритме.
Синтаксические ошибки в тексте программы обнаруживает компилятор, задача программиста только их исправить.
Алгоритмические ошибки трудны для исправления, поскольку никаких сообщений об ошибках не выдается. В поиске и исправлений ошибок программисту может оказать существенную помощь встроенный отладчик в среду разработки приложений Visual Basic.
8ЛистингForm1
Dim av As Class1
Dim v As String
Dim i As Integer, j As Integer
Private Sub Form_Load()
Set av = New Class1 ' av экземпляркласса
Combo1.AddItem «AUDI»
Combo1.AddItem «CITROEN»
Combo1.AddItem «FORD»
Combo1.AddItem «HONDA»
Combo1.AddItem «HYUNDAI»
Combo1.AddItem «JEEP»
Combo1.AddItem «LAND ROVER»
Combo1.AddItem «LEXSUS»
Combo1.AddItem «MITSUBISHI»
Combo1.AddItem «NISSAN»
Combo1.AddItem «PEUGEOT»
Combo1.AddItem «PORSCHE»
Combo1.AddItem «RENAULT»
' заполнение списка ComboBox с именем Combo2 предложениями для
' выбора данных в процедурах Property Get и Property Let
Combo2.AddItem «изображение»
Combo2.AddItem «технические параметры»
Combo2.AddItem "вседанные"
End Sub
Private Sub Form_Unload(cancel As Integer)
Set av = Nothing ' удаление объекта из памяти
End Sub
Private Sub Combo1_Click()
Label5.Visible = False ' сделать невидимыми элементы управления Label и Picture
For i = 0 To 12
Picture1(i).Visible = False
Picture2(i).Visible = False
Next
Dim ot As String 'переменнаядляхранениясообщений
av.firma = Combo1.Text ' значение поля firma объекта av взять из
' списка ComboBox с именем Combo1
av.avto = Option1(0).Value ' значение поля avto объекта av взять
' изполямассиваOptionButton
If av.Met1 = True Then
ot = " " & CStr(av.firma) & vbCrLf: ot = ot & " " & vbCrLf
ot = ot & " модель" & CStr(av.model) & vbCrLf: ot = ot & " " & vbCrLf
ot = ot & " ценав$ " & CStr(av.stoim) & vbCrLf: ot = ot & " " & vbCrLf
ot = ot & «Для получения более полной информации обращайтесь к ИНФОРМЕРУ»
MsgBox Title:=«Мы можем предложить», Prompt:=ot
Else
Label5.Visible = False
Picture1(Val(av.pict)).Visible = False ' аргументPicture1: (av.pict)
' определяет индекс элемента массива PictureBox
ot = «Приносим свои извинения, мы даём информацию для желающих купить автомобиль»
MsgBox Title:=«Автосалон КОЛЕСНИЦА», Prompt:=ot
End If
End Sub
Private Sub Combo2_Click()
av.varian = Combo2.Text ' см. процедуруProperty Let. Присваиваем
' свойству varian значение выбранные из списка ComboBox с именем Combo2
End Sub
Private Sub Command1_Click()
Label5.Visible = False
Label5.Caption = ""
For i = 0 To 12
Picture1(i).Visible = False
Picture2(i).Visible = False
Next
v = av.varian
av.avto = Option1(0).Value
If av.Met1 = True Then
Select Case v
Case «pict»
Picture1(Val(av.pict)).Visible = True
Case «text»
Picture2(Val(av.pict)).Visible = True ' техническиехарактеристики
' хранятся как картинки в соответствующих элементах массива PicrureBox2
Case «all»
Picture1(Val(av.pict)).Visible = True
Picture2(Val(av.pict)).Visible = True
Label5.Visible = True
Label5.Caption = CStr(av.firma) & " " & CStr(av.model) & vbCrLf & "ценав$ " & CStr(av.stoim)
End Select
Else
Picture1(Val(av.pict)).Visible = False
Picture2(Val(av.pict)).Visible = False
MsgBox Title:=«Автосалон КОЛЕСНИЦА», Prompt:=«Извините, мы даём информацию для желающих купить автомобиль»
End If
End Sub
ЛистингClass1
Public avto As Boolean
Public firma As String
Public model As String
Public stoim As String
Public pict As String
Dim var As String
Private Sub Class_Initialize() 'инициализируем поля класса
avto = False: firma = "": model = "": stoim = "": var = ""
End Sub
Public Function Met1()
If avto = True Then 'если нажата кнопка «да», то выполнить
model = Met2() 'процедуры Met2,Met3,Met4
stoim = Met3()
pict = Met4() 'поле pict определяет номера элементов массивов PictureBox
Met1 = True
Else 'иначе Met1=false и выводится сообщение
Met1 = False
End If
End Function
' после щелчка на кнопках Да/Нет (два переключателя OptionButton) и выбора
' фирмы из списка ComboBox c именем Combo1 определить марку автомобиля
Public Function Met2()
Select Case firma
Case «AUDI»: Met2 = «A6»
Case «CITROEN»: Met2 = «C5»
Case «FORD»: Met2 = «Focus»
Case «HONDA»: Met2 = «Accord»
Case «HYUNDAI»: Met2 = «Elanta»
Case «JEEP»: Met2 = «Grand Cherokee»
Case «LAND ROVER»: Met2 = «Land Rover Discovery»
Case «LEXSUS»: Met2 = «RX 330»
Case «MITSUBISHI»: Met2 = «Pajero III»
Case «NISSAN»: Met2 = «Primera(1.8)»
Case «PEUGEOT»: Met2 = «307XR»
Case «PORSCHE»: Met2 = «Cayenne»
Case «RENAULT»: Met2 = «Laguna II»
End Select
End Function
' определить стоимость автомобиля в долларах США
Public Function Met3()
Select Case firma
Case «AUDI»: Met3 = «41500»
Case «CITROEN»: Met3 = «20100»
Case «FORD»: Met3 = «12430»
Case «HONDA»: Met3 = «33900»
Case «HYUNDAI»: Met3 = «13790»
Case «JEEP»: Met3 = «41690»
Case «LAND ROVER»: Met3 = «40850»
Case «LEXSUS»: Met3 = «65500»
Case «MITSUBISHI»: Met3 = «56640»
Case «NISSAN»: Met3 = «25100»
Case «PEUGEOT»: Met3 = «13808»
Case «PORSCHE»: Met3 = «140500»
Case «RENAULT»: Met3 = «22900»
End Select
End Function
Public Function Met4()
' при выборе данных из списка ComboBox с именем Combo2
' (после щелчка на кнопке "OК" ) определяется номер элемента массива
' PictureBox, соответствующий выбранной фирме-изготовителю и
' на экран позднее выводится соответствующая фотография
' и/или технические характеристики автомобиля
Select Case firma
Case «AUDI»: Met4 = «0»
Case «CITROEN»: Met4 = «1»
Case «FORD»: Met4 = «2»
Case «HONDA»: Met4 = «3»
Case «HYUNDAI»: Met4 = «4»
Case «JEEP»: Met4 = «5»
Case «LAND ROVER»: Met4 = «6»
Case «LEXSUS»: Met4 = «7»
Case «MITSUBISHI»: Met4 = «8»
Case «NISSAN»: Met4 = «9»
Case «PEUGEOT»: Met4 = «10»
Case «PORSCHE»: Met4 = «11»
Case «RENAULT»: Met4 = «12»
End Select
End Function
' процедура Property Get — для считывания значения свойства
Public Property Get varian() As String
Select Case var
Case Is = 0: varian = «pict»
Case Is = 1: varian = «text»
Case Is = 2: varian = «all»
End Select
End Property
' процедура Property Let используется для задания значения свойства
Public Property Let varian(ByVal vNewValue As String)
Select Case vNewValue
Case «изображение»: var = 0
Case «технические параметры»: var = 1
Case Else: var = 2
End Select
End Property
Заключение
Во время выполнения курсовой, я закрепил свои знания в среде программирования Visual Basic. Я разработал программу, которая помогает покупателю, интересующемуся выбором автомобилей. Программа проста в эксплуатации и не требует специального программного обеспечения, материальных затрат и дополнительного привлечения специалистов. Это способствует снижению затрат и значительно упрощает работу людей, занимающихся продажей автомобилей.
Поставленные передо мной цели и задачи выполнены: разработана простая в использовании и нужная программа, которая в дальнейшем может предоставляться потенциальным покупателям в качестве программы – информера и в качестве рекламы.
Список использованных источников
Электронный учебник по Visual Basic 6.0., 2004.
2 Брайан Сайлер, Джефф Споттс. Использование Visual Basic 6.0.Издательский дом «Вильямс». 1999 г. 832 с.
Приложение
/>
Рис. 1 Начало работы с программой
На рис. 1 изображено начало работы с программой. Пользователю предлагается сделать выбор интересующего типа автомобиля.
/>
Рис.2 Выбор фирмы-изготовителя
После выбора фирмы предлагается модель из присутствующих в продаже.
/>
Рис.3 Выбор информации об автомобиле
На рис.3 пользователь может выбрать интересующие данные и изображение автомобиля.
/>
Рис.4 Вывод всех данных об автомобиле
Полная информация об автомобиле.