Tugas 5

Kodingnya sebagai berikut :

Public Class Form1

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

        Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

    End Sub

    Private Function fstat(ByVal ParamArray arg() As Object) As Single()

        Dim hasil(3) As Single

        Dim i As Integer

        For i = 0 To UBound(arg)

            hasil(0) = hasil(0) + arg(i)

            If i = 0 Then

                hasil(1) = arg(i)

                hasil(2) = arg(i)

            End If

            If hasil(1) < arg(i) Then hasil(1) = arg(i)

            If hasil(2) > arg(i) Then hasil(2) = arg(i)

        Next i

        Return hasil

    End Function

End Class

Pada If hasil(1) > arg(i) Then hasil(1) = arg(i)

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

Akan menghasilkan hasil yang salah bahkan terbalik, ditemukannya adalah nilai terbesarnya 1 dan terkecilnya 10, maka dari itu koding di atas d rubah jadi begini

If hasil(1) < arg(i) Then hasil(1) = arg(i)

If hasil(2) > arg(i) Then hasil(2) = arg(i)

Maksud dari koding di atas adalah,fstat mengandung angka 1,6,2,7,3,9,4,10,8,5 dan proses pengerjaannya , hsil 0 = hasil 0 + arg(1) dan hasil 1 = 1

Jika hasil 1 < dari arg(i), hasil 2 > dari arg(i)  maksudnya daftar di fstat, maka akan melakukan proses pengulangan terus , kembali ke atas dan kembali ke atas seterusnya sampai menemukan hasil yang benar yakni nilai terbesar 10 dan nilai terkecil 1 . 

 

 Overloading function

Public Class Form4

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

        TextBox1.Text = hitung(1, 2, 3)

    End Sub

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer

        hitung = bil1 + bil2

    End Function

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer

        hitung = bil1 + bil2 + bil3

    End Function

End Class

saat di tekan button hitung makan akan keluar hasilnya = 6.

Dikarenakan menjumlahkan bil1+bil2+bil3.