Sdílet prostřednictvím

Postupy: Vytvoření procedury (Visual Basic)

  • Článek

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. Sub V příkazu postupujte podle klíčového Sub slova s názvem procedury a pak seznam 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 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á nebo Function proceduruSub.

  3. Pokud je Function vaším postupem vrácená hodnota, ujistěte se, že volající příkaz provede akci s vrácenou hodnotou, jako je uložení do proměnné nebo jinak hodnota bude 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é