ВУЗ:
Составители:
89
", дата " & D. Дата
End Sub
Строчек в программе стало немного больше, но она более понятна для чтения и,
самое главное, больше защищена от ошибок. Попробуйте в Pro10 в строке, предна-
значенной для ввода значения вязкости ввести название пласта или дату – програм-
ма отработает, как ни в чем не бывало. А теперь сделаем то же самое в Pro38 – про-
грамма выдаст сообщение об ошибке. В более сложных программах это преимуще-
ство еще ощутимее. Например, введем значение вязкостей для трех пластов Само-
тлорского месторождения нефти. Вместо переменной D из Pro38 введем массив
Самотлорское, а чтобы не писать каждый раз так много букв, используем инструк-
цию With. В этом случае у переменных пользовательского типа данных можно пи-
сать только имена полей после точки.
Sub Pro39()
Dim Самотлорское(3) As ВязкостьНефти
With Самотлорское(1)
.Пласт = "АВ1"
.Значение = 7.5
. Дата = #3/21/1989#
MsgBox “Пласт ” & .Пласт & ", вязкость " & . Значение & “ мПа*с” & _
", дата " & . Дата
End With
With Самотлорское(1)
.Пласт = "АВ1"
.Значение = 18.2
. Дата = #4/22/1989#
MsgBox “Пласт ” & .Пласт & ", вязкость " & . Значение & “ мПа*с” & _
", дата " & . Дата
End With
With Самотлорское(1)
.Пласт = "АВ1"
.Значение = 5.7
. Дата = #5/23/1989#
MsgBox “Пласт ” & .Пласт & ", вязкость " & . Значение & “ мПа*с” & _
", дата " & . Дата
End With
End Sub
2.10.2. Пользовательские классы
Мы уже упоминали, что объекты объединяются в семейства или коллекции, ко-
торые имеют общие свойства и методы. В объектно-ориентированном программи-
ровании (ООП) такие структуры называют классами, а входящие в них элементы
называют экземплярами класса. В классе определяются общие свойства и общие
Страницы
- « первая
- ‹ предыдущая
- …
- 88
- 89
- 90
- 91
- 92
- …
- следующая ›
- последняя »
