Aracılığıyla paylaş

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

Bir prosedürü başlangıç bildirimi deyimi (Sub veya Function) ile bitiş bildirimi deyimi (End Sub veya End Function) arasına almanız gerekir. Prosedürün tüm kodu bu ifadeler 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 tüm yordamların dışında, bir Sub deyimi ve ardından bir End Sub deyimi kullanın.

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

  3. Prosedürün kod ifadelerini Sub ve End Sub ifadeleri arasına yerleştirin.

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

  1. Diğer tüm yordamların dışında, bir Function deyimi ve ardından bir End Function deyimi kullanın.

  2. Function deyiminde, önce Function anahtar kelimesini ve yordamın adını, sonra parantez içinde parametre listesini ve ardından dönüş değerinin veri türünü belirten bir As yan tümcesi kullanın.

  3. Prosedürün kod ifadelerini Function ve End Function ifadeleri arasına yerleştirin.

  4. Bir Return deyimi kullanarak değeri çağıran koda döndürün.

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

  1. Yeni yordamı, eski kodun erişim sağlayabileceği bir noktada tanımladığınızdan emin olun.

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

  3. Eğer yordamınız bir değer döndüren bir Function yordamsa, çağıran deyiminizin döndürülen değerle, örneğin bir değişkende depolamak gibi, bir eylem gerçekleştirdiğinden emin olun; aksi halde değer kaybolacaktır.

Ö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 bakınız

  • Last updated on