Tugas 8 : FUNCTION DENGAN RETURN VALUE BERUPA ARRAY & MACAM-MACAM FI=UNCTION BAWAAN VB 2012

Buat Form seperti gambar di bawah ini :
dengan memasukkan 3 buah Label yang diberi nama Total, Terbesar dan terkecil kemudian masukkan TextBox 3 buah untuk isinya terakhir masukkan button 1 buah untuk prosesnya.
 
 setelah form jadi masukkan kose programnya :

Public Class Form1

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

        Dim hasil(3) As Single

        Dim a As Integer

        For a = 0 To UBound(args)

            hasil(0) = hasil(0) + args(a)

            If a = 0 Then

                hasil(1) = args(a)

                hasil(2) = args(a)

            End If

            If hasil(1) < args(a) Then hasil(1) = args(a)

            If hasil(2) > args(a) Then hasil(2) = args(a)

        Next a

        Return hasil

    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

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

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

    End Sub

End Class

Berdasarkan kode program diatas, saat Button 1 di klik maka program akan menjalankan proses penjumlahan angak yang kita masukkan dalam kode programnya hasil(0) = hasil(0) + args(a) ( Dim statistik As Single() = bebas(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)), mencari nilai terbesar dan terkecil
If hasil(1) < args(a) Then hasil(1) = args(a)

            If hasil(2) > args(a) Then hasil(2) = args(a)

dan 

Textbox1.text = statistik(0)  = textbox1 akan terisi dari nilai yang dihasilkan oleh proses hasil(0)

Textbox2.text = statistik(1) =  textbox2 akan terisi dari nilai yang dihasilkan oleh proses hasil(1)

Textbox3.text = statistik(2) = textbox3 akan terisi dari nilai yang dihasilkan oleh proses hasil(2)

 maka jika dijalankan maka hasilnya akan seperti gambar di bawah ini :

MACAM-MACAM FUNCTION BAWAAN VB 2010

1. Fungsi String

Left              → mengambil karakter dari sebelah kiri

Right            → mengambil karakter dari sebelah kanan

Mid              → mengambil karakter dari tengah

LTrim           → membuang semua semua awal spasi yang ada disebelah kiri

RTrim           → membuang semua semua awal spasi yang ada disebelah kanan

Trim              → membuang semua spasi yang ada disebelah kiri dan kanan

Len                → memberikan nilai balik integer sebagai panjang string

LCase            → mengubah string menjadi huruf kecil semua

UCase            → mengubah string menjadi huruf besar semua

Str (int)          → mengubah bilangan menjadi string (konversi)

Chr (Asscii)   → konversi dari nilai ascii menghasilkan karakter

2. Fungsi Matematika

Val (Str)                            → konversi string menjadi integer

Asc(Char)                         → konversi karakter menghasilkan nilai ascii

Abs(Number)                    → memberikan nilai mutlak dari suatu nilai negatif

Round(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimal

Sqr(Number)                     → memberikan hasil akar kuadrat dari suatu nilai

Tan()                                  → mengembalikan nilai tangen dari argument dalam radian

Cos()                                  → mengembalikan nilai cosinus dari argument dalam radian

Atn()                                  → mengembalikan nilai arc tangen dari argument dalam  bentuk radian

Long()                                → mengembalikan nilai logaritma dari argument

CInt()                                 → pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat

Fix()                                   → pemotongan suatu nilai decimal menjadi integer

Int()                                    → pembulatan ke bawah suatu nilai decimal

3. Fungsi Tanggal dan Waktu

Date()                                  → mengambil tanggal system komputer

IsDate                                  → memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggal

DateValue                           → konversi string menjadi date

D(Date),M(Date),Y(Date)  → memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahun

Time()                                 → mengambil waktu dari system komputer

H(Date),M(Date),S(Date)   → memberikan nilai integher dari variable date untuk jm, menit dan deik

TimeValue(str)                    → konversi string ke variable date