Partilhar via

Como: Criar um procedimento (Visual Basic)

Você delimita 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 está entre essas declarações.

Um procedimento não pode conter outro procedimento, pelo que as suas declarações iniciais e finais devem estar fora de qualquer outro procedimento.

Se você tiver um código que executa a mesma tarefa em locais diferentes, poderá escrever a tarefa uma vez como um procedimento e, em seguida, chamá-la de locais diferentes em seu código.

Para criar um procedimento que não retorna um valor

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

  2. Sub Na instrução, siga a Sub palavra-chave com o nome do procedimento e, em seguida, a lista de parâmetros entre parênteses.

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

Para criar um procedimento que retorna um valor

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

  2. Function Na instrução, siga a Function palavra-chave com o nome do procedimento, em seguida, a lista de parâmetros entre parênteses e, em seguida, uma As cláusula especificando o tipo de dados do valor de retorno.

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

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

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

  1. Certifique-se de definir o novo procedimento em um local onde o código antigo tenha acesso a ele.

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

  3. Se o procedimento for um Function que retorna um valor, certifique-se de que sua instrução de chamada execute uma ação com o valor retornado, como armazená-lo em uma variável, caso contrário, o valor será perdido.

Exemplo

O procedimento a seguir Function calcula o lado mais longo, ou hipotenusa, de um triângulo retângulo, dados os valores para os outros dois lados:

Function Hypotenuse(side1 As Double, side2 As Double) As Double
    Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function

Ver também

  • Last updated on