Полезные аргументы / VBA для чайников / Библиотека (книги, учебники и журналы) / В помощь Веб-Мастеру

Обложка
Аннотация

Стив Каммингс i

Книги автора: VBA для чайников

/ White Cat i

Книги автора: Введение в Python Описание языка PascalABC.NET S. D. F. Справочкик по JavaScript Справочник по CSS Справочник по PHP Справочник по Flash Язык программирования Euphoria. Справочное руководство Программирование на Java Основы программирования на Java Графика DirectX в Delphi VBA для чайников Мир InterBase. Архитектура, администрирование и разработка приложений баз данных в InterBase/FireBird/Yaffil Фундаментальные алгоритмы и структуры данных в Delphi Курс "Язык программирования PHP"

Книга: VBA для чайников

Полезные аргументы

Но если аргументы так похожи на обычные переменные, зачем же вообще их использовать? В действительности их можно и не использовать - все, что делают аргументы, можно сделать с помощью обычных переменных. Но аргументы упрощают использование процедур и восприятие программного кода.

Пришло время рассмотреть пару примеров для сравнения. Сначала рассмотрим процедуры, использующие аргументы Модель и ГодВылуска для передачи значений:


Public Sub ВызывающаяПроцедура()
    ДоходОтСтаройМашины = ПродажаСтаройМашины[Rambler _
    Classic,1962)
End Sub
Public Function ПродажаСтаройМашины(Модель As String, _
                    ГодВыпуска As Integer)
    Dim ВозрастнойФактор As Integer
    Dim ЦеновойФактор As Single
    ВозрастнойФактор = ГодВыпуска - 1900
    If Модель = Rambler Classic Then
    
        
            
                
                    
                        
                            
                            
                            
                        
                    
                
            
            
	    

        ЦеновойФактор = .001
    Else If Модель = Dodge Dart Then
        ЦеновойФактор = .005
    Else If ...
        (другие операторы)
    End If
    ПродажаСтаройМашины = ВозрастнойФактор * _
    ЦеновойФактор * 1000
    

End Function

Здесь процедура с именем ВызывающаяПроцедура использует процедуру типа Function с именем ПродажаСтаройМашины для вычисления результата с именем

ДоходСтСтаройМашины. Раз процедура типа Function использует аргументы, вы можете сообщить ей непосредственно, какую машину вы продаете и какого она года выпуска.

Теперь рассмотрим две процедуры, выполняющие ту же работу без аргументов. Заметим, что в данном случае необходимо объявить две переменные на уровне модуля, вне процедур, чтобы этими переменными могли пользоваться обе процедуры.


Dim Модель As String
Dim ГодВыпуска As Integer
Public Sub ВызывающаяПроцедура2()
    Модель = Dodge Dart
    ГодВыпуска = 1963
    ДоходОтСтаройМашины = ПродажаСтаройМашины2()
End Sub
Public function ПродажаСтаройМашины 2()
    Dim ВозрастнойФактор As Integer
    Dim ЦеновойФактор As Single
    
        
            
                
                    
                        
                            
                            
                            
                        
                    
                
            
            
	    

    If Модель = Rambler Classic Then
        ЦеновойФактор = .001
    Else If Модель = Dodge Dart Then
        ЦеновойФактор = .005
    Else If ...
        (другие операторы)
    End If
    ПродажаСтаройМашины = ВозрастнойФактор * _
    ЦеновойФактор * 1000
End Function

Оглавление книги

Оглавление статьи/книги

Похожие страницы