TUGAS 8

langkah pertama dalam membuat form adalah buka dan masuk visual basic dan buat form baru. Katakanlah form 1. Dalam form 1 , masukan 1 button , 3 label dan 3 text box. Atur sesuai perintah.

 

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)

  

Dan akan terlihat hasilnya seperti ini :

 

 

 

Kemudian yang overloading function :

Buat form baru dan di dalam form ada 1 label , 1 text box dan 1 button

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

Dan hasilnya seperti ini :

 

 

 

 

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

Dikarenakan menjumlahkan bil1+bil2+bil3.

Penjelasan sedikit mengenai fungsi :

Nmfu : nama function

Byrev : melewatkan parameter secara referensi

Byval : melewatkan parameter secara nilai

Optional : nilai parameter boleh tidak diisi

Paramarray : parameter berupa array

Namapara : nama parameter

Overloading function : beberapa function punya nama sama tp beda parameter.

Macam-macam function :

Function adalah sekumpulan statement dari visual basic yang diberi nama yang menghasilkan nilai balik.  Ada sejumlah fungsi-fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu TextBox menjadi tipe data numerik agar dapat digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitan dengan matematika, dll.

1)      Fungsi Numerik

a)      Fungsi konversi integer

b)      Fungsi konversi tipe data

c)      Fungsi konversi matematika

2)      Fungsi String

a)      Fungsi tanggal dan waktu

b)      Fungsi penghitung usia