Partilhar via


Como: Criar um procedimento

Você coloca um procedimento entre uma declaração inicial (Sub ou Function) e uma declaração final (End Sub ou End Function).Todo o código do procedimento fica entre essas duas declarações.

Um procedimento não pode conter outro procedimento, então suas declarações inicial e final devem ficar fora de qualquer outro procedimento.

Se você tem código que executa a mesma tarefa em pontos diferentes, você pode escrever a tarefa uma única vez como um procedimento e então chamá-lo de diferentes pontos do seu código.

Criar um procedimento que não retorna um valor.

  1. Fora de qualquer outro procedimento, utilize uma declaração Sub seguida de uma declaração End Sub.

  2. Na declaração Sub, siga a palava-chave Sub do nome do procedimento, e, em seguida, da lista de parâmetros em parênteses.

  3. Posicione as declarações de código do procedimento entre as declarações Sub e End Sub.

Para criar um crocedimento que retorna um valor

  1. Fora de qualquer outro procedimento, utilize uma declaração Function seguida de uma declaração End Function.

  2. Na declaração Function, depois da palavra-chave Function coloque o nome do procedimento, a lista de parâmetros entre parênteses, e finalmente uma cláusula As especificando o tipo de dados do valor de retorno.

  3. Posicione as declarações de código do procedimento entre as declarações Function e End Function.

  4. Use uma declaração Return para retornar o valor para o código de chamada.

Para conectar seu novo procedimento com os blocos antigos e repetitivos de código

  1. Garanta que você define o novo procedimento num lugar onde o código antigo tem acesso a ele.

  2. No seu bloco de código repetitivo antigo, substitua as declarações que executam a tarefa repetitiva com uma declaração única que chama o procedimento Sub ou Function.

  3. Se seu procedimento é uma Function que retorna um valor, garanta que sua declaração de chamada executa uma ação com o valor retornado, como armazená-lo numa variável, ou então seu valor será perdido.

Exemplo

O procedimento Function a seguir calcula o maior lado, ou hipotenusa, de um triângulo retângulo, dados os valores dos outros dois lados.

Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function

Consulte também

Tarefas

Como: Dividir grandes partes do código em partes menores

Conceitos

Procedimentos no Visual Basic

Subprocedimentos

Procedimentos de função

Procedimentos de Propriedade

Procedimentos de Operador

Parâmetros do procedimento e argumentos

Procedimentos recursiva

Sobrecarga de procedimento

Outros recursos

Programação orientada a objetos no Visual Basic