Compartilhar via

Como criar um procedimento (Visual Basic)

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

Um procedimento não pode conter outro procedimento, portanto, suas instruções iniciais e finais devem estar fora de qualquer outro procedimento.

Se você tiver um código que execute a mesma tarefa em locais diferentes, você poderá escrever a tarefa uma vez como um procedimento e 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 instrução Sub, seguida de uma instrução End Sub.

  2. Na instrução Sub , 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 instrução Function, seguida de uma instrução End Function.

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

  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 em que o código antigo tenha acesso a ele.

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

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

Exemplo

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

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

Consulte também

  • Last updated on