Udostępnij za pośrednictwem


Jak: Utworzyć Procedurę (Visual Basic)

Należy ująć procedurę między instrukcją deklaracji początkowej (Sub lub Function) a końcową instrukcją deklaracji (End Sub lub End Function). Cały kod procedury znajduje się między tymi instrukcjami.

Procedura nie może zawierać innej procedury, więc jej instrukcje początkowe i końcowe muszą znajdować się poza inną procedurą.

Jeśli masz kod wykonujący to samo zadanie w różnych miejscach, możesz napisać zadanie raz jako procedurę, a następnie wywołać je z różnych miejsc w kodzie.

Aby utworzyć procedurę, która nie zwraca wartości

  1. Poza jakąkolwiek inną procedurą użyj instrukcji Sub, a następnie instrukcji End Sub.

  2. W instrukcji Sub umieść po słowie kluczowym Sub nazwę procedury, a następnie w nawiasach podaj listę parametrów.

  3. Umieść instrukcje kodu procedury między instrukcjami Sub i End Sub .

Aby utworzyć procedurę zwracającą wartość

  1. Poza jakąkolwiek inną procedurą użyj instrukcji Function, a następnie instrukcji End Function.

  2. W instrukcji Function najpierw użyj słowa kluczowego Function wraz z nazwą procedury, następnie umieść listę parametrów w nawiasach, a na końcu klauzulę As, która określa typ danych wartości zwracanej.

  3. Umieść instrukcje kodu procedury między instrukcjami Function i End Function .

  4. Użyj instrukcji Return, aby zwrócić wartość do kodu wywołującego.

Aby połączyć nową procedurę ze starymi, powtarzalnymi blokami kodu

  1. Upewnij się, że zdefiniowano nową procedurę w miejscu, w którym stary kod ma dostęp do tej procedury.

  2. W starym, powtarzalnym bloku kodu zastąp instrukcje wykonujące powtarzające się zadanie pojedynczą instrukcją, która wywołuje procedurę Sub or Function .

  3. Jeśli twoja procedura to Function, która zwraca wartość, upewnij się, że instrukcja wywołująca wykonuje jakąś akcję z tą wartością, na przykład przechowuje ją w zmiennej, w przeciwnym razie wartość zostanie utracona.

Przykład

Poniższa Function procedura oblicza najdłuższą stronę lub hipotenuse trójkąta prawego, biorąc pod uwagę wartości pozostałych dwóch stron:

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

Zobacz także