1 / 47

Subprograms

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 .

rmims
Télécharger la présentation

Subprograms

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Subprograms Functions Procedures

  2. 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.

  3. 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.

  4. Subprogram Statements

  5. 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.

  6. Subprogram Statements

  7. 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.

  8. 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.

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

  10. Parameters 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.

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

  12. Parameters Value parameter:A parameterthat 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.

  13. Subprogram Parameters Coupling parameters ByVal 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 ByRef provides the address of the parameter to the subprogram. This creates a two way connection that carries data in both directions. Functions…

  14. 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.

  15. 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. PrivateFunction functionName (parameter list) _ As resultDataType‘ function body End Function

  16. Function Subprograms The parameter list may be empty, but the parentheses are required. PrivateFunction functionName () _ As resultDataType‘ function body End Function

  17. Function Subprograms PrivateFunction functionName _ () As resultDataTypefunction bodyReturn expression End Function A function must include a Return statement to specify which value is to be returned as its result.

  18. Function Subprograms PrivateFunction functionName () As resultDataType function bodyReturn 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.

  19. 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. • Use the keyword ByVal instead of Dim or Private

  20. Parameter Lists • 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.

  21. Parameter Lists • 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.

  22. Parameter Lists PrivateFunction Celsius_(ByVal Fahrenheit As Single)_As Single Return (Fahrenheit - 32) * 5 / 9 End Function

  23. Function Subprograms Since a function produces a value, it will appear on the right side of an assignment operator. PrivateFunction Celsius_(ByVal Fahrenheit As Single)As Single Return (Fahrenheit - 32) * 5 / 9 End Function ____________________________________________________ Private Sub cmdGo_Click ( ) Dim degrees As Single degrees = txtInput.Text txtOutput.Text = Celsius (degrees) End Sub Passes CONTROL

  24. Function Subprograms The parameter names in the subprogram declaration are local and need NOT be the same as the call. PrivateFunction Celsius_(ByVal Fahrenheit As Single)As Single Return (Fahrenheit - 32) * 5 / 9 End Function ____________________________________________________ Private Sub cmdGo_Click ( ) Dim degrees As Single degrees = txtInput.Text txtOutput.Text = Celsius (degrees) End Sub NOT the same

  25. Function Subprograms When the function is called the value of its argument is passed to a formal parameter. PrivateFunction Celsius (Fahrenheit) As Single Return (Fahrenheit - 32) * 5 / 9 End Function ____________________________________________________ Private Sub cmdGo_Click ( ) Dim degrees As Single Degrees = txtInput.Text txtOutput.Text = Celsius (degrees) End Sub Passes data

  26. Function Subprograms When the function is complete the result value is passed back to the calling statement. PrivateFunction Celsius (Fahrenheit) As Single Return (Fahrenheit - 32) * 5 / 9 End Function ____________________________________________________ Private Sub cmdGo_Click ( ) Dim degrees As Single Degrees = txtInput.Text txtOutput.Text = Celsius (degrees) End Sub Returns result Passes data

  27. Function Subprograms A function can have several arguments but should only produce a single value. PrivateFunction 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…

  28. 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 ProcedureName(argumentList) ‘ procedure body End Sub

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

  30. Procedure Subprograms These procedures can be called by name from another procedure. Private Sub convert() Dim degrees As Single degrees = txtInput.Text txtOutput.Text = (degrees - 32) * 5 / 9 End Sub __________________________ Private Sub cmdGo_Click () Call convert End Sub

  31. Procedure Subprograms Note that procedures perform actions, so to invoke them we simply call their name. Private Sub convert() Dim degrees As Single degrees = txtInput.Text txtOutput.Text = (degrees - 32) * 5 / 9 End Sub __________________________ Private Sub cmdGo_Click () Call convert End Sub Passes CONTROL

  32. Procedure Subprograms End Subpasses control back to the calling subprogram. Private Sub convert() Dim degrees As Single degrees = txtInput.Text txtOutput.Text = (degrees - 32) * 5 / 9 End Sub __________________________ Private Sub cmdGo_Click () Call convert End Sub Passes CONTROL Returns CONTROL

  33. Procedure Subprograms Sometimes it is necessary to send data to procedures. This is accomplished with a parameter list. Private Sub convert(ByVal degrees As Single) txtOutput.Text = (degrees - 32) * 5 / 9 End Sub ______________________________________ Private Sub cmdGo_Click () Dim temperature As Single temperature = txtInput.Text Call convert (temperature) End Sub

  34. Procedure Subprograms Data is passed from the Call to the argument. Private Sub convert(ByVal degrees As Single) txtOutput.Text = (degrees - 32) * 5 / 9 End Sub ______________________________________ Private Sub cmdGo_Click () Dim temperature As Single temperature = txtInput.Text Call convert (temperature) End Sub Passes data

  35. Procedure Subprograms Since the subprogram requires the data as input, it is passed ByVal. Private Sub convert(ByVal degrees As Single) txtOutput.Text = (degrees - 32) * 5 / 9 End Sub ______________________________________ Private Sub cmdGo_Click () Dim temperature As Single temperature = txtInput.Text Call convert (temperature) End Sub Passes data

  36. 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 ByRef.

  37. Subprogram Parameters Private Sub convert (ByVal F As Single,_ByRef C As Single) C = (F - 32) * 5 / 9 End Sub _______________________________ Private Sub cmdGo_Click() Dim degreesF As Single Dim degreesC As Single degreesF = txtStart.Text Call convert (degreesF, degreesC) txtOut.Text = degreesC End Sub

  38. Subprogram Parameters Notice how multiple arguments are passed from the Call statement: Private Sub convert (ByVal F, ByRef C) _______________________________ Callconvert (degreesF, degreesC) Arguments are listed in the same order they appear in the procedure header, separated by commas.

  39. Subprogram Parameters There are 2 things to note in the example: Private Sub convert (ByVal F, ByRef C)

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

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

  42. Side Effects Subprograms can produce dangerous side effects. For example: Private Function convert(ByRef F ) As Single Return (F - 32) * 5 / 9 F = F + 50 ‘why? is unimportant End Function _____________________________________ Private Sub cmdGo_Click() Dim degreesF As Single degreesF = txtIn.Text txtOut.Text = convert( degreesF ) txtIn.Text = degreesF End Sub

  43. Side Effects Sub cmdGo_Click()calls the convert function, couplingdegreesF with F. Private Function convert(ByRef F ) As Single Return (F - 32) * 5 / 9 F = F + 50 End Function _____________________________________ Private Sub cmdGo_Click() Dim degreesF As Single degreesF = txtIn.Text txtOut.Text = convert( degreesF ) txtIn.Text = degreesF End Sub

  44. Side Effects The function calculates a value which is passed back and assigned to txtOut.Text. Private Function convert(ByRef F ) As Single Return (F - 32) * 5 / 9 F = F + 50 End Function _____________________________________ Private Sub cmdGo_Click() Dim degreesF As Single degreesF = txtIn.Text txtOut.Text = convert( degreesF ) txtIn.Text = degreesF End Sub

  45. Side Effects A new value is assigned to F, which is coupled with degreesF . Private Function convert(ByRef F ) As Single Return (F - 32) * 5 / 9 F = F + 50 End Function _____________________________________ Private Sub cmdGo_Click() Dim degreesF As Single degreesF = txtIn.Text txtOut.Text = convert( degreesF ) txtIn.Text = degreesF End Sub Changes F And changes degreesF

  46. Side Effects For safety, parameters passed to functions should ALWAYS be stipulated as ByVal. Private Function convert (ByVal F ) As Single Return (F - 32) * 5 / 9 F = F + 50 End Function _____________________________________ Private Sub cmdGo_Click() Dim degreesF As Single degreesF = txtIn.Text txtOut.Text = convert( degreesF ) txtIn.Text = degreesF End Sub Changes F But NOT degreesF

  47. 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 ByRef.

More Related