Реализация заданияПриводится проект, дающий справку желающим приобрести автомобиль. Создан класс Class1, содержащий компоненты, определяющие название фирмы-изготовителя, модель автомобиля, его стоимость, изображение автомобиля и следующие технические характеристики: · тип двигателя (бензин/дизель), · число цилиндров/рабочий объём, · система питания (карбюратор/впрыскивание), · мощность (л.с), · максимальная скорость (км/час), · разгон 0 - 100 (км/час)/сек, · привод (передний/задний/4х4). Далее создаётся экземпляр класса: Dim av As New Class1, использующий компоненты класса. Пользователю предлагается решить вопрос о необходимости покупки, выбрать фирму-изготовителя, ответить на вопрос о выводе изображения покупаемого автомобиля, либо его технических характеристик, либо обеих категорий одновременно (используются процедуры Property Get и Property Let, созданные в классе Class1), после чего программа адекватно реагирует: либо выводятся вышеперечисленные данные, либо выводится некоторое сообщение. Для реализации проекта нужно выполнить следующую последовательность действий: 1. добавить в стандартный проект модуль класса (Project -> Add Class Module -> Class Module -> Открыть), 2. создать: o методы класса. Четыре метода создаются в процедурах: Public Function Met1(), Public Function Met2(), Public Function Met3(), Public Function Met4() (Tools -> Add Procedure -> ввести имя { Met1, Met2, Met3, Met4}-> выбрать Function -> выбрать Public -> OК), o свойства класса. Свойства задаются с использованием процедур Property Get и Property Let (Tools -> Add Procedure?ввести имя (здесь - varian) -> выбрать Property -> выбрать Public -> OК), o поля класса - avto, firma, model, stoim, pict, var, см. ниже. 3. создать на форме: o два элемента управления ComboBox с именами Combo1 и Combo2, o два элемента управления CommandButton с именами Command1 и Cоmmand2; значению свойства Caption объектаCommand1 присвоить значение "OK", Cоmmand2 - "Exit", o элементы управления Label1 - Label4, значениям свойств Caption присвоить: Label1 - "Хотите ли Вы купить машину?", Label2 - "Выберите фирму-изготовитель", Label3 - "Хотите ли Вы увидеть изображение выбранного автомобиля или его технические характеристики?", Label4 - "", свойству Visible объекта Label4 присвоитьFalse, o массив элементов управления OptionButton (присвоить значения свойствам - Option1(0).Caption= "да",Option1(1).Caption= "нет"), o массивы элементов управления PictureBox: Picture1(0) - Picture1(12) и Picture2(0) - Picture(12). СвойствуVisible всех элементов управления присвоить значение False. Свойству Picture каждого элемента управления присвоить значение изображения соответствующего автомобиля и списка технических характеристик (эти списки создаются в приложении Excel, далее таблицы передаются в приложение Paint и сохраняются как рисунки). 4. ввести код в область класса (см. ниже "область проекта Class1"), 5. ввести код, данный ниже, в области: o General Declarations формы, o Combo1, событие Click, o Combo2, событие Click, o Command1, событие Click, o Command, событие Click, o Form, событие Load, o Form, событие Unload, 6. стартовать проект, получить справку о предполагаемой покупке. /////////////////////////////область проекта 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() ' Если пользователь нажал кнопку (OptionButton) - Да, то выполнить процедуры ' Met2, Met3, Met4, результатом выполнения которых является вывод данных: ' марка, стоимость, изображение и технические характеристики, иначе ' Met1 = False и выводится сообщение "Приносим свои извинения, мы даем ' информацию для желающих купить автомобиль" If avto = True Then model = Met2() stoim = Met3() pict = Met4() ' поле pict определяет номера элементов массивов ' PictureBox, см. Met4 Met1 = True Else 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 LTD" Case "LAND ROVER": Met2 = "Land Rover Discovery" Case "LEXSUS": Met2 = "RX330" Case "MITSUBISHI": Met2 = "Pajero III" Case "NISSAN": Met2 = "Primera(1.8)" Case "PEUGEOT": Met2 = "307 XR" Case "PORSCHE": Met2 = "Cayenne Turbo" 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 Let используется для задания значения свойства, ' Property Get - для считывания значения свойства Public Property Get varian() As String Select Case var Case Is = 0: varian = "pict" Case Is = 1: varian = "texn" Case Is = 2: varian = "all" End Select End Property 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 /////////////////////////////////область проекта Form1///////////////////////////// Dim av As Class1 ' av - экземпляр класса Dim v As String Dim i As Integer, j As Integer Private Sub Combo1_Click() ' сделать невидимыми элементы управления Label и Picture ' (формирующие фотографии, технические характеристики, фирму, ' марку и стоимость), для того, чтобы впоследствии на форму ' выводились только те из них, которые определяет своими ' действиями покупатель Label5.Visible = False 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 & "Для получения более полной информации обращайтесь_ по телефону 7077888" MsgBox Title:="Мы можем предложить", Prompt:=ot Else Label5.Visible = False Picture1(Val(av.pict)).Visible = False ' аргумент Picture1: (av.pict) ' определяет индекс элемента массива PictureBox ot = "Приносим свои извинения, мы даем информацию для желающих_ купить автомобиль" MsgBox Title:="Автосалон START", 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 ' см. процедуру Property Get. Переменной v присваиваем ' значение свойства varian объекта av av.avto = Option1(0).Value If av.Met1 = True Then Select Case v Case "pict" Picture1(Val(av.pict)).Visible = True Case "texn" Picture2(Val(av.pict)).Visible = True ' технические характеристики ' хранятся как изображения в соответствующих элементах ' массива PictureBox2 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:="Автосалон START", Prompt:="Приносим свои_ извинения, мы даем информацию для желающих купить автомобиль" End If End Sub Private Sub Command2_Click() MsgBox Title:="Автосалон START", Prompt: = "Мы всегда рады помочь!_ Будем рады новой встрече!" End ' выход из программы после сообщения MsgBox. End Sub Private Sub Form_Load() Set av = New Class1 ' описание объектной переменной дано выше ' заполнение списка ComboBox с именем Combo1 названиями фирм 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" ' заполнение списка 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
|
