Tugas Visual Basic Pertemuan 8

Function dengan Return Value Berupa Array

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

        Dim hasil(3) As Single

Keterangan :  Memesan variabel hasil berjumlah 3 yaitu : hasil(0),

hasil(1),

hasil(3).

    

 Dim i As Integer

        For i = 0 To UBound(args)

Keterangan: Mendeklarasikan variabel i sebgai integer dan perualangan i sebanyak array yang telah dipesan.     

  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

Keterangan:  Jika i= 0 maka hasil(1) = args jumlah indexnya, begitupun juga hasil(2).

Jika hasil(1) < args(i) maka hasil(1) = hasil args(i)nya. Begitupun juga hasil(2) > args(i) maka hasil(2) = args(i).

Seterusnya akan mengulang sampai jumlah indexs array.

    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)

Keterangan :  Button 1 memesan variable statistik.

Pada textbox 1 untuk menampilkan jumlah keseluruhan dari array yang telah dipesan diatas.

Textbox2 untuk menampilkan angka terbesar dari array itu.

Textbox3 untuk menampilkan angka terkecil dari array itu.

1. Muncul total = 55 itu berasal dari keseluruhan jumlah array ”fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)”

2. Muncul terbesar = 10 yaitu bilangan terbesar dari array tersebut adalah 10

3. Muncul terkecil = 1 yaitu dari bilangan terkecil dari array tersebut adalah 1

Analisa Overloading Function

Public Class Form6

    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

Keterangan : Dalam program ini dideklarasikan lebih dari satu fungsi.

Fungsi hitung disini untuk menampung penjumlahan array dari beberapa fungsi, namun yang akan ditampilkan pada textbox hanya fungsi terakhir tergantung angka yang telah dipesan.

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

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

End Sub

End Class

Keterangan : Angka 1 dideklarasikan untuk bil1, angka 2 untuk bil2, angka 3 untuk bil3, dan sebenarnya masih bisa ditambahkan sesuai keinginan.

MACAM-MACAM FUNGSI BAWAAN

a.       MsgBox() Function

Untuk menampilkan suatu pesan baik itu dengan cara mengklik suatu tombol atau suatu perintah dari suatu ekspresi.

b.      The InputBox() Function

Untuk menampilkan pesan dimana user bisa memasukkan suatu teks atau nilai kedalam form.

c.       The Mid Function

Untuk mengambil teks dari suatu kata yang berada di tengah.

d.      The Right Function

Untuk mengambil teks dari suatu kata dari kanan.

e.      The Left Function

Untuk mengambil teks dari suatu kata dari kiri.

f.        The Trim Function

Untuk mengatur space kosong pada kedua sisi dari suatu kata.

g.       The Ltrim Function

Untuk menghapus space kosong pada bagian kiri suatu teks.

h.      The Rtrim Function

Untuk menghapus space kosong pada bagian kanan suatu teks.

i.         The lnStr Function

Untuk mengetahui panjang suatu string.

j.        The Ucase and The Lcase Function

The Ucase function berfungsi mengubah semua karakter menjadi huruf kapital semua, dan sebaliknya dengan Lcase, yaitu mengubah semua karakter menjadi huruf kecil semua.

k.       The Chr and The Asc Functions

The Chr berfungsi mengubah ASCII Code ke string dan sebaliknya dengan The Asc, yaitu mengubah  Karakter atau string atau simbol ke ASCII Code.

l.         The Abs Function

Mengembalikan nilai absolut dari suatu angka yang diberikan.

m.    The Exp Function

Eksponensi (pangkat) nilai.

n.      The Fix Function

Untuk membulatkan suatu bilangan desimal.

o.      The Int Function

Mengubah suatu angka ke integer atau sama saja dengan the fix function.

p.      The Log Function

Untuk mendapatkan nilai algoritma dari suatu angka.

q.      The Rnd() Function

Untuk mengacak suatu perintah.

r.        The Round Function

Untuk mengatur tempat nilai desimal yang kita inginkan.

s.       The Format Function

Untuk memformat fungsi dimana ia menampilkan nilai angka. Style argumentnya bermacam-macam yaitu general number, fixed, standard, currency, percent)

t.        Predefined Formats of date and time

Untuk mengatur tanggal dan waktu.