Subprograms Functions Procedures Subprograms A subprogram separates the

Subprograms Functions Procedures

Subprograms A subprogram separates the performance of some task from the rest of the program. Benefits: • “Divide and conquer“ – Tasks are broken down into pieces, each of which can be programmed separately. This is modularisation. • A subprogram can implement a piece of the calculation that is duplicated in different places. – Rather than duplicating the same code you can simply 'call' the subprogram.

Subprogram Statements A subprogram is a section of code with a name. That name can be used as a statement in another part of the program. When the name is encountered, the processing in the other part of the program halts while the named code is executed. This is an example of control coupling.

Subprogram Statements

Subprogram Statements There are times when the calling unit needs to give information to the subprogram to use in its processing. A parameter list is a list of the identifiers with which the subprogram is to work, along with the data types of each identifier. These are placed in parentheses beside the subprogram name.

Subprogram Statements

Parameters In general, a parameter is any factor that defines a system and determines (or limits) its performance. It is useful, however, to distinguish between those that are used in the definition of the subprogram and those that are used by the calling program.

Parameters The parameters in the declaration of a subprogram are formal parameters. Formal - relating to or involving outward form or structure. The parameters in the statement that calls a subprogram are actual parameters. Actual - being, existing, or acting at the present moment.

Parameters To avoid confusion between formal and actual parameters, and to shorten our references to them, we will adopt a different set of terms…

Parameters: Identifiers listed in parentheses beside the subprogram declaration; otherwise called formal parameters. Arguments: Identifiers listed in parentheses on the subprogram call; otherwise called actual parameters.

Subprogram Parameters The passing of control and data between subprograms is called coupling. Data coupling can occur in two ways: – – by value by reference

Parameters Value parameter: A parameter that expects a copy of its argument to be passed by the calling unit. Reference parameter: A parameter that expects the address of its argument to be passed by the calling unit.

Subprogram Parameters Coupling parameters By. Val provides the value of the parameter to the subprogram. The subprogram can use this value in calculations, but changes will NOT be passed back. In effect, there’s a one way connection. Coupling parameters By. Ref provides the address of the parameter to the subprogram. This creates a two way connection that carries data in both directions. Functions …

Function Subprograms A function is a subprogram that returns a value. We have already used many pre-defined functions, but it is also possible to declare our own.

Function Subprograms The header of a function declaration lists the function name, the parameters that it will receive, and the data type of its result. Private Function function. Name (parameter list) _ As result. Data. Type ‘ function body End Function

Function Subprograms The parameter list may be empty, but the parentheses are required. Private Function function. Name () _ As result. Data. Type ‘ function body End Function

Function Subprograms Private Function function. Name _ () As result. Data. Type function body Return expression End Function A function must include a Return statement to specify which value is to be returned as its result.

Function Subprograms Private Function function. Name () As result. Data. Type function body Return expression End Function The data type of the result is declared in the header. The expression that calculates the Return value must produce data of the specified type.

Parameter Lists The parameter list is very much like a list of declarations for variables used in the body of the function – with some important distinctions. 1. Use the keyword By. Val instead of Dim or Private

Parameter Lists 2. The variable will have already been assigned the value of whatever argument was specified in the function is call. The values of arguments are passed to parameters in the order in which they appear in the list.

Parameter Lists 3. The list is incomplete. Local variables needed for the function to do its job may be declared in the body of the function. The parameter list establishes a set of data connections between the calling routine and the function.

Parameter Lists Private Function Celsius_ (By. Val Fahrenheit As Single)_ As Single Return (Fahrenheit - 32) * 5 / 9 End Function

Function Subprograms Since a function produces a value, it will appear on the right side of an assignment operator. Private Function Celsius_ (By. Val Fahrenheit As Single) As Single Return (Fahrenheit - 32) * 5 / 9 End Function __________________________ Private Sub cmd. Go_Click ( ) Dim degrees As Single degrees = txt. Input. Text txt. Output. Text = Celsius (degrees) End Sub Passes CONTROL

Function Subprograms The parameter names in the subprogram declaration are local and need NOT be the same as the call. Private Function Celsius_ (By. Val Fahrenheit As Single) As Single Return (Fahrenheit - 32) * 5 / 9 End Function NOT the same __________________________ Private Sub cmd. Go_Click ( ) Dim degrees As Single degrees = txt. Input. Text txt. Output. Text = Celsius (degrees) End Sub

Function Subprograms When the function is called the value of its argument is passed to a formal parameter. Private Function Celsius (Fahrenheit) As Single Return (Fahrenheit - 32) * 5 / 9 End Function __________________________ Private Sub cmd. Go_Click ( ) Dim degrees As Single Passes data Degrees = txt. Input. Text txt. Output. Text = Celsius (degrees) End Sub

Function Subprograms When the function is complete the result value is passed back to the calling statement. Private Function Celsius (Fahrenheit) As Single Return (Fahrenheit - 32) * 5 / 9 End Function Returns result __________________________ Private Sub cmd. Go_Click ( ) Dim degrees As Single Passes data Degrees = txt. Input. Text txt. Output. Text = Celsius (degrees) End Sub

Function Subprograms A function can have several arguments but should only produce a single value. Private Function loops(first, last) As Integer Dim counter, loops As Integer loops = 0 For counter = first To last loops = loops + 1 Next Return loops End Function Procedures…

Procedure Subprograms A procedure is a subprogram that performs an action. We have already written many procedures that are called by an event, so the syntax is not new: Private Sub Procedure. Name(argument. List) ‘ procedure body End Sub

Procedure Subprograms But it is also possible to create procedures that are not associated with control events. must be included Private Sub convert() Dim degrees As Single degrees = txt. Input. Text txt. Output. Text = (degrees - 32) * 5 / 9 End Sub

Procedure Subprograms These procedures can be called by name from another procedure. Private Sub convert() Dim degrees As Single degrees = txt. Input. Text txt. Output. Text = (degrees - 32) * 5 / 9 End Sub _____________ Private Sub cmd. Go_Click () Call convert End Sub

Procedure Subprograms Note that procedures perform actions, so to invoke them we simply call their name. Private Sub convert() Dim degrees As Single degrees = txt. Input. Text txt. Output. Text = (degrees - 32) * 5 / 9 End Sub _____________ Private Sub cmd. Go_Click () Call convert Passes CONTROL End Sub

Procedure Subprograms End Sub passes control back to the calling subprogram. Private Sub convert() Dim degrees As Single degrees = txt. Input. Text txt. Output. Text = (degrees - 32) * 5 / 9 End Sub _____________ Private Sub cmd. Go_Click () Call convert Passes CONTROL End Sub Returns CONTROL

Procedure Subprograms Sometimes it is necessary to send data to procedures. This is accomplished with a parameter list. Private Sub convert(By. Val degrees As Single) txt. Output. Text = (degrees - 32) * 5 / 9 End Sub ___________________ Private Sub cmd. Go_Click () Dim temperature As Single temperature = txt. Input. Text Call convert (temperature) End Sub

Procedure Subprograms Data is passed from the Call to the argument. Private Sub convert(By. Val degrees As Single) txt. Output. Text = (degrees - 32) * 5 / 9 End Sub ___________________ Passes data Private Sub cmd. Go_Click () Dim temperature As Single temperature = txt. Input. Text Call convert (temperature) End Sub

Procedure Subprograms Since the subprogram requires the data as input, it is passed By. Val. Private Sub convert(By. Val degrees As Single) txt. Output. Text = (degrees - 32) * 5 / 9 End Sub ___________________ Passes data Private Sub cmd. Go_Click () Dim temperature As Single temperature = txt. Input. Text Call convert (temperature) End Sub

Subprogram Parameters Often a procedure subprogram will both receive data and return data. To return values to the calling routine, parameters must be declared as By. Ref.

Subprogram Parameters Private Sub convert (By. Val F As Single, _ By. Ref C As Single) C = (F - 32) * 5 / 9 End Sub ________________ Private Sub cmd. Go_Click() Dim degrees. F As Single Dim degrees. C As Single degrees. F = txt. Start. Text Call convert (degrees. F, degrees. C) txt. Out. Text = degrees. C End Sub

Subprogram Parameters Notice how multiple arguments are passed from the Call statement: Private Sub convert (By. Val F, By. Ref C) ________________ Call convert (degrees. F, degrees. C) Arguments are listed in the same order they appear in the procedure header, separated by commas.

Subprogram Parameters There are 2 things to note in the example: Private Sub convert (By. Val F, By. Ref C)

Subprogram Parameters There are 2 things to note in the example: Private Sub convert (By. Val F, By. Ref C) 1 1. More than one parameter can be used. Data is passed according to the ORDER of the parameters.

Subprogram Parameters There are 2 things to note in the example: 2 Private Sub convert (By. Val F, By. Ref C) 1 1. More than one parameter can be used. Data is passed according to the ORDER of the parameters. 2. It is not necessary to identify the data type in the parameter list (but is good practice).

Side Effects Subprograms can produce dangerous side effects. For example: Private Function convert(By. Ref F ) As Single Return (F - 32) * 5 / 9 F = F + 50 ‘why? is unimportant End Function ___________________ Private Sub cmd. Go_Click() Dim degrees. F As Single degrees. F = txt. In. Text txt. Out. Text = convert( degrees. F ) txt. In. Text = degrees. F End Sub

Side Effects Sub cmd. Go_Click() calls the convert function, coupling degrees. F with F. Private Function convert(By. Ref F ) As Single Return (F - 32) * 5 / 9 F = F + 50 End Function ___________________ Private Sub cmd. Go_Click() Dim degrees. F As Single degrees. F = txt. In. Text txt. Out. Text = convert( degrees. F ) txt. In. Text = degrees. F End Sub

Side Effects The function calculates a value which is passed back and assigned to txt. Out. Text. Private Function convert(By. Ref F ) As Single Return (F - 32) * 5 / 9 F = F + 50 End Function ___________________ Private Sub cmd. Go_Click() Dim degrees. F As Single degrees. F = txt. In. Text txt. Out. Text = convert( degrees. F ) txt. In. Text = degrees. F End Sub

Side Effects A new value is assigned to F, which is coupled with degrees. F. Private Function convert(By. Ref F ) As Single Return (F - 32) * 5 / 9 F = F + 50 End Function Changes F ___________________ Private Sub cmd. Go_Click() Dim degrees. F As Single And changes degrees. F = txt. In. Text txt. Out. Text = convert( degrees. F ) txt. In. Text = degrees. F End Sub

Side Effects For safety, parameters passed to functions should ALWAYS be stipulated as By. Val. Private Function convert (By. Val F ) As Single Return (F - 32) * 5 / 9 F = F + 50 End Function Changes F ___________________ But NOT degrees. F Private Sub cmd. Go_Click() Dim degrees. F As Single degrees. F = txt. In. Text txt. Out. Text = convert( degrees. F ) txt. In. Text = degrees. F End Sub

Side Effects Of course the same kind of thing can happen with procedure subprograms. The best practice is to declare only those parameters specifically needed to return data as By. Ref.