' хранятся как  картинки в соответствующих элементах  массива 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 Вывод всех данных об автомобиле

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