Nasıl yapılır: Yordam Oluşturma (Visual Basic)

  • Makale

Bir yordamı başlangıç bildirimi deyimi (Sub veya ) ile bitiş bildirimi deyimi (End Sub veya Function) arasına almanız gerekirEnd Function. Yordamın tüm kodu bu deyimler arasında yer alır.

Bir yordam başka bir yordam içeremez, bu nedenle başlangıç ve bitiş deyimleri başka bir yordamın dışında olmalıdır.

Aynı görevi farklı yerlerde gerçekleştiren kodunuz varsa, görevi bir kez yordam olarak yazabilir ve ardından kodunuzda farklı yerlerden çağırabilirsiniz.

Değer döndürmeyen bir yordam oluşturmak için

  1. Diğer yordamların dışında deyimini Sub ve ardından deyimini End Sub kullanın.

  2. deyiminde Sub , yordamın Sub adıyla anahtar sözcüğünü, ardından parantez içinde parametre listesini izleyin.

  3. yordamın kod deyimlerini ve End Sub deyimleri arasına Sub yerleştirin.

Değer döndüren bir yordam oluşturmak için

  1. Diğer yordamların dışında deyimini Function ve ardından deyimini End Function kullanın.

  2. deyiminde Function , yordamın Function adıyla anahtar sözcüğünü, sonra parantez içinde parametre listesini ve ardından dönüş değerinin veri türünü belirten bir As yan tümcesini izleyin.

  3. yordamın kod deyimlerini ve End Function deyimleri arasına Function yerleştirin.

  4. Değerini çağıran koda döndürmek için deyimini Return kullanın.

Yeni yordamınızı eski, yinelenen kod bloklarına bağlamak için

  1. Yeni yordamı eski kodun eriştiği bir yerde tanımladığınızdan emin olun.

  2. Eski, yinelenen kod bloğunuzda, yinelenen görevi gerçekleştiren deyimleri veya Function yordamını çağıran Sub tek bir deyimle değiştirin.

  3. Yordamınız bir değer döndüren bir Function yordamsa, çağıran deyiminizin döndürülen değerle bir eylem gerçekleştirdiğinden emin olun, örneğin bir değişkende depolarsanız değer kaybolur.

Örnek

Aşağıdaki Function yordam, diğer iki kenarın değerleri göz önünde bulundurulduğunda sağ üçgenin en uzun tarafını veya hipotenüsünü hesaplar:

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

Ayrıca bkz.