Краткое описание инструмента и ремесла программирования. Степанов А.Г - 72 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

72
Close #1
End Sub
Public Property Let Задать_размер_ведомости(ByVal Размер As Integer)
If Размер_ведомости = Размер Then
Else
If Размер_ведомости < Размер Then
Else
Call MsgBox("Размер ведомости будет сокращен до " _
& Str(Размер) & " элементов." & Chr(10) & Chr(13) _
& "Сокращенные значения будут утеряны.", _
vbOKOnly + vbExclamation, "Учебник")
End If
ReDim Ведомость(1 To Размер)
End If
End Property
Public Property Get Фамилия_И_О(ByVal Номер As Integer) As String
Фамилия_И_О = Ведомость(Номер).Фамилия_И_О
End Property
Public Property Let Фамилия_И_О(ByVal Номер As Integer, ByVal Новая_Фамилия _
As String)
Ведомость
(Номер).Фамилия_И_О = Новая_Фамилия
End Property
Public Property Get Начислено(ByVal Номер As Integer) As Currency
Начислено = Ведомость(Номер).Начислено_Ведомость
End Property
Public Property Let Начислено(ByVal Номер As Integer, ByVal Новое_Начислено _
As Currency)
Ведомость(Номер).Начислено_Ведомость = Новое_Начислено
End Property
Public Property Get Налог(ByVal Номер As Integer)
Налог = Ведомость(Номер).Налог_Ведомость
End Property
Public Property Get К_выдаче(ByVal Номер As Integer)
К_выдаче = Ведомость(Номер).К_выдаче_Ведомость
End Property
Public Sub Расчет(ByVal Ставка_налога)
Dim j As Integer
For j = 1 To Размер_
ведомости
Call (Ведомость(j).Начислено_Ведомость, Ставка_налога, _
Ведомость(j).Налог_Ведомость, Ведомость(j).К_выдаче_Ведомость)
Next
End Sub
После того, как класс создан, можно на его основе создавать конкретные
экземпляры, а также выполнять с ними различные действия. При написании
программ следует иметь в виду, что в языке VBA значения объявленных
свойств должны записываться и считываться через оператор присваивания.
Последний формальный параметр, заданный в функциях Property Let и Property
Set, указывается справа от оператора присваивания, а имя свойства
записывается слева с указанием принадлежности к объекту. Если функции
имеют более одного формального параметра, то все предыдущие указываются
в скобках в левой части оператора присваивания.
Пример 2.34. Программа, использующая некоторые свойства и методы
созданного класса, Ведомость_зарплаты.
Option Explicit

Страницы