TUGAS 8

!--[if !mso]>

FUNCTION DENGAN RETURN VALUE BERUPA ARRAY

    Ø LISTING PROGRAM

Public Class Form1

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

        Dim hasil(3) As Single

        Dim i As Integer

        For i = 0 To UBound(args)

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

            If i = 0 Then

                hasil(1) = args(i)

                hasil(2) = args(i)

            End If

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

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

        Next i

        Return hasil

      End Function

      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)

       End Sub

       End Class

     Ø  TAMBAHAN CODING

        Tambahkan listing program berikut ini di button 1

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

 

   Ø DESAIN FORM

                   

SEBELUM DI RUN

     

SETELAH DI RUN

Penjelasan:

                Sub Program “Function” ini memberikan umpan balik berbentuk nilai, sehingga bisa mendapatkan hasil sesuai dengan isi programnya yang ingin dibuat.

Keterangan :

1.   ParamArray args() As Object) As Single()

   

         Pada kata “args()” adalah sebuah nama parameter array. Dan pada kata “single()” adalah sebuah type data ( semua itu adalah lambang dari array, dan harus di tambahkan jika menggunakan array)

2.      Dim hasil(3) As Single

        Dim i As Integer

        For i = 0 To UBound(args)

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

            If i = 0 Then

                hasil(1) = args(i)

                hasil(2) = args(i)

        Pada kata “ hasil(3)” merupakan sebuah parameter, terdapat 3 parameter, yaitu 0,1, dan 2

3.    

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

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

       Menentukan Terbesar dan Terkecil

4.     Return hasil

        Memanggil hasil

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

       Kata “single()” menunjukan bahwa tipe data digunakan lebih lebih dari 1 / untuk penggunaan array.

6.   TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

 Deklarasi program untuk menampilkan di textbox.

       

OVERLOADING FUNCTION

Ø    LISTING PROGRAM

Public Class Form2

    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

    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

End Class

Ø    Tambahan Coding

Tambahkan listing program berikut ini di button 1

        TextBox2.Text = hitung(1, 2)

        TextBox3.Text = hitung(0, 1)

      Ø   DESAIN FORM

SEBELUM  DI RUN

SETELAH DI RUN

(sebelumnya masih kosong di bagian  textboxnya , lalu klik Button1) maka akan muncul form berikut ini