Федеральное агентство по образованию

Федеральное государственное образовательное учреждение среднего профессионального образования

«Уральский радиотехнический колледж им. А.С. Попова»


Разработка приложения в среде программирования VISUAL BASIC

«Информатор автосалона КОЛЕСНИЦА»

Курсовая работа

по дисциплине « Предметно-ориентированное программное обеспечение»

Нормоконтролер: ___________ «__»_______2010

Руководитель: _____________ «__»_______2010 Разработчик: _____________ В.И. Филипов «__»_______2010

2010

Содержание

Введение

Темой этой курсовой работы является разработка приложения, помогающего посетителю салона по продаже автомобилей, ознакомиться с видом и техническими характеристиками представленных автомобилей.

В данной работе необходимо реализовать следующую задачу: создание базы данных по автомобилям. Для разработки приложения я выбрал программу VISUAL BASIC 6.0.

Базами данных (БД) называют электронные хранилища информации, доступ к которым осуществляется с одного или нескольких компьютеров. Обычно БД создается для хранения и доступа к данным, содержащим сведения о некоторой предметной области, то есть некоторой области человеческой деятельности.

Задачи:

• 
  Показ технических характеристик выбранной модели.
  
• 
  Вывод на экран фотографии автомобиля.
  

У программы есть разные методы решения, можно использовать вложенные циклы без процедур, но тогда программа будет трудновоспринимаемой, с использованием процедур алгоритм становится проще.

Я выбрал этот метод, так как он наиболее эффективен и выполняет поставленную задачу в полной мере.

1 Постановка задачи

База данных позволяет получить подробные сведения об автомобилях, выставленных на продажу.

Требования к программе:

1. 
   Возможность выбора текстовых данных и просмотра изображений;
   
2. 
   При функционировании программа должна работать на сравнительно слабых аппаратных ресурсах;
   
3. 
   При работе с базой данных время отклика программы не должно превышать норм человеко-машинного интерфейса (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. Я разработал программу, которая помогает покупателю, интересующемуся выбором автомобилей. Программа проста в эксплуатации и не требует специального программного обеспечения, материальных затрат и дополнительного привлечения специалистов. Это способствует снижению затрат и значительно упрощает работу людей, занимающихся продажей автомобилей.

Поставленные передо мной цели и задачи выполнены: разработана простая в использовании и нужная программа, которая в дальнейшем может предоставляться потенциальным покупателям в качестве программы – информера и в качестве рекламы.

Список использованных источников

1. 
   Электронный учебник по Visual Basic 6.0., 2004.
   

2 Брайан Сайлер, Джефф Споттс. Использование Visual Basic 6.0.Издательский дом «Вильямс». 1999 г. 832 с.

Приложение


Рис. 1 Начало работы с программой

На рис. 1 изображено начало работы с программой. Пользователю предлагается сделать выбор интересующего типа автомобиля.



Рис.2 Выбор фирмы-изготовителя

После выбора фирмы предлагается модель из присутствующих в продаже.



Рис.3 Выбор информации об автомобиле

На рис.3 пользователь может выбрать интересующие данные и изображение автомобиля.



Рис.4 Вывод всех данных об автомобиле

Полная информация об автомобиле.