ARIF_MUJIB

TUGAS

A. FUNCTION DENGAN RETURN VALUE BERUPA ARRAY

Langkah-langkah

a. Desain form seperti dibawah ini:

b. Lalu masukan listing programnya seperti dibawah ini;

PublicClassForm4

PrivateFunction fstat(ByValParamArray args() AsObject) AsSingle()

Dim hasil(3) AsSingle

Dim i AsInteger

For i = 0 To UBound(args)

hasil(0) = hasil(0) + args(i)

If i = 0 Then

hasil(1) = args(i)

hasil(2) = args(i)

EndIf

If hasil(1) > args(i) Then hasil(1) = args(i)

If hasil(2) < args(i) Then hasil(2) = args(i)

Next i

Return hasil

EndFunction

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim statistik AsSingle() = fstat(21, 12, 4, 8, 7, 20, 5)

TextBox1.Text = statistik(0)

TextBox2.Text = statistik(1)

TextBox3.Text = statistik(2)

EndSub

EndClass

c. Kemudian di run,Setelah di Run klik tombol hitung hasilnya seperti berikut:

B. OVERLOADING FUNCTION

Langkah-langkah

a. Desain form seperti dibawah ini

PublicClassForm5

Function hitung(ByVal bil1 AsInteger, ByVal bil2 AsInteger) AsInteger

hitung = bil1 + bil2

EndFunction

Function hitung(ByVal bil1 AsInteger, ByVal bil2 AsInteger, ByVal bil3 AsInteger) AsInteger

hitung = bil1 + bil2 + bil3

EndFunction

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = hitung(23, 10, 30)

EndSub

EndClass

b. Setelah di run dan di klik hitung hasilnya seperti dibawah ini:

Halaman