ALT PROGRAMLAR

Konu: ALT PROGRAMLAR Cuma Ağus. 20, 2010 6:09 pm

Örnek :
Form1_Declaration Event’ına aşağıdaki Kod’u yazalım.
Sub kare()
Dim a,
b As Integer
a = InputBox("Sayıyı
Gir")
b = a * a
MsgBox(a & " sayısının karesi :" & b
End Sub

Form’un
Load olayına da aşağıdaki kodu yazalım:
Call
kare()
=========================================================================
Şimdi de girilen üç sayının ortalamasını alan
Sub Procedure’ünü oluşturmak

için¸ Form1_Declaration Event’ına aşağıdaki
kodu yazalım;

Sub ortalama(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer)

Dim
ortalama As Integer
= (a + b + c) / 3

MsgBox(" Sayıların Ortlaması : " &
ortalama)
End Sub

Bu kodu
çağırmak için aşağıdaki kodu Button’un_Tıklama olayına yazalım.

ortalama(50, 30,
90)

================================KADİR SELEN==========================================

» Bir Bilgisayar İçin Olması Gereken Tüm Programlar ; Özel Arşivimden ..