funcao em VB

Prévia do material em texto

DESENVOLVIMENTO DE SOFTWARE - PROFESSOR PITÁGORAS
AULA PRÁTICA: FUNÇÃO 
1) Usando Função
Module Module1
 Const Custo As Decimal = 100
 Const Taxa As Decimal = 0.04D
 Function GetTotalCusto() As Decimal
 Return Custo * (1 + Taxa)
 End Function
 Sub Main()
 Dim TotalCusto As Decimal = GetTotalCusto()
 Console.WriteLine(TotalCusto)
 End Sub
End Module
2) COMO CRIAR UMA FUNCÇÃO COM PARÂMETROS
Module Module1
 Sub Main()
 ShowMessage()
 End Sub
 Sub ShowMessage(Optional ByVal textoTela As String = "funcionou minha função!")
 System.Console.WriteLine(textoTela)
 End Sub
End Module
3) Passagem de parametros
Imports System
Public Module Teste1
 Public Function Add(ByVal Num1 As Integer, ByVal Num2 As Double) As Double
 Return Num1 + Num2
 End Function
 Public Function Add(ByVal Num2 As Double, ByVal Num1 As Integer) As Double
 Return Num1 - Num2
 End Function
 Sub Main()
 Dim Num3 As Double = Add(2, 4.2)
 Dim Num4 As Double = Add(4.2 , 2)
 Console.WriteLine("primeiro " & Num3)
 Console.WriteLine("segundo" & Num4)
 End Sub
End Module
4)COMO CRIAR UMA FUNÇÃO RECUSSIVA
Public Class Teste
 Public Sub Main
 Dim value As Integer = 12
 Dim i As Integer
 For i = 0 To value
 Console.WriteLine(i & "! = " & Fatorial(i))
 Next
 End Sub 
 
 Function Fatorial(ByVal x As Long) As Long
 If x <= 1 Then 
 Return 1
 Else
 Return x * Fatorial(x - 1)
 End If
 End Function 
End Class