Sdílet prostřednictvím

Postupy: Vytvoření procedury (Visual Basic)

Proceduru uzavřete mezi příkazem počáteční deklarace (Sub nebo Function) a koncovým příkazem deklarace (End Sub nebo End Function). Veškerý kód procedury leží mezi těmito příkazy.

Procedura nemůže obsahovat jinou proceduru, takže její počáteční a koncové příkazy musí být mimo jakoukoli jinou proceduru.

Pokud máte kód, který provádí stejný úkol na různých místech, můžete úkol napsat jednou jako proceduru a pak ho volat z různých míst v kódu.

Vytvoření procedury, která nevrací hodnotu

  1. Mimo jakoukoli jinou proceduru Sub použijte příkaz následovaný příkazem End Sub .

  2. Ve výrazu Sub použijte klíčové slovo Sub následované názvem procedury a seznamem jejích parametrů v závorkách.

  3. Umístěte příkazy kódu procedury mezi Sub příkazy a End Sub příkazy.

Vytvoření procedury, která vrací hodnotu

  1. Mimo jakoukoli jinou proceduru Function použijte příkaz následovaný příkazem End Function .

  2. Function V příkazu postupujte podle Function klíčového slova s názvem procedury, pak seznam parametrů v závorkách a potom As klauzuli určující datový typ návratové hodnoty.

  3. Umístěte příkazy kódu procedury mezi Function příkazy a End Function příkazy.

  4. Return Pomocí příkazu vrátíte hodnotu volajícímu kódu.

Propojení nového postupu se starými opakujícími se bloky kódu

  1. Nezapomeňte definovat nový postup na místě, kde k němu má starý kód přístup.

  2. Ve vašem starém, opakujícím se bloku kódu nahraďte příkazy, které provádějí opakující se úlohu, jediným příkazem, který volá proceduru Sub nebo Function.

  3. Pokud váš postup Function vrací hodnotu, ujistěte se, že volající příkaz provede akci s vrácenou hodnotou, například její uložení do proměnné, jinak bude hodnota ztracena.

Příklad

Následující Function postup vypočítá nejdelší stranu nebo hypotenuse pravého trojúhelníku vzhledem k hodnotám pro ostatní dvě strany:

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

Viz také

  • Last updated on