Разработка приложения в среде программирования VISUAL BASIC (стр. 2 из 2)
' хранятся как картинки в соответствующих элементах массива 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 Вывод всех данных об автомобиле
Полная информация об автомобиле.