Penjelasan Mengenai Function

 Assalamu'alaikum Wr. Wb

Kali ini saya akan mengulas tugas kuliah tentang Function. Tugas tersebut meliputi :
1. Function dengan return value berupa array sekaligus menambahkan nilai rata-rata
2. Overloading Function
3. Function-function bawaan

Ok. Mari kita mulai dari yang pertama :)

Function dengan Return Value berupa Array

Dosen memberikan saya koding seperti di bawah ini

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)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

    End Sub

Dengan form seperti ini

Kemudian tugas saya yaitu untuk menjelaskan dan menambahkan nilai rata-rata
jadi pada form saya menambah textbox lagi dan label. sehingga tampilan form menjadi di bawah ini

Sedikit saya jelaskan tentang aplikasi ini. aplikasi ini berguna untuk menampilkan total jumlah nilai, nilai terbesar, nilai terkecil, dan nilai rata-rata. Aplikasi ini merupakan salah satu jenis function dimana nilai balik yang dihasilkan berupa array. Data yang dimasukkan merupakan sekelompok data yaitu dua atau lebih data. Pada contoh ini data yang diinputkan sebanyak 10 data. Dengan indeks dimulai dari 0 sampai dengan 9. Dimana pendeklarasian dengan type data As Single, karena data yang dimasukkan berkelompok.
Untuk koding sudah saya tampilkan di atas. jika kita telusuri, pada koding terjadi sedikit kesalahan yaitu :

kesalahan ada pada tanda > dan <. Yang benar adalah

Kemudian untuk menampilkan nilai rata-rata ada penambahan pada beberapa bagian diantaranya :

 lalu rumus yang ditambahkan

ket : args.length untuk banyaknya data

Kemudian kita menambahkan textbox lagi

Jika semuanya sudah diperbaiki, sekarang kita run. Maka hasil runningnya seperti di bawah ini

Overloading Function





Dosen memberikan saya koding seperti di bawah ini

 

 Saya akan memberikan sedikit penjelasan. Pada overloading function terdiri beberapa function yang mempunyai nama sama, tetapi parameternya berbeda. Dalam parameter tersebut bisa berbeda jumlahnya ataupun berbeda type datanya. Dalam overloading justru diharuskan memiliki parameter yang berbeda.
Pada contoh yang diberikan, nama function Function hitung. Kebetulan type data yang digunakan sama yaitu sama-sama Integer. Yang berbeda adalah jumlah parameternya.
Pada function pertama ada 2 parameter yakni --> bil1 dan bil2 
Sedangkan pada function yang ke-dua ada 3 parameter yakni --> bil1, bil2, dan bil3.
Proses yang dilalui saat running yaitu :
1. Jika kita tekan tombol button1, perintah akan mengecek data yang jumlahnya sama dengan jumlah parameter. 
2. Data mengecek type data yang sama atau yang paling mendekati.
3. Setelah itu baru nilai balik ditampilkan.
Kalau melihat pada soal, di bawah adalah hasil running 

Dapat dilihat bahwa hasil running menunjukan angka 6. Angka 6 tersebut didapat dari pemanggilan TextBox1.Text = hitung(1, 2, 3) Dimana saat di run, data mengecek pada jumlah parameter yang sama maka masuk pada function yang ke-dua. kemudian masuk pada rumus hitung = bil1 + bil2 + bil3. Sehingga 1 + 2 + 3 = 6

Macam-macam Function Bawaan
  

Di dalam visual basic 2010 sebenarnya banyak sekali function-function yang sudah terpadu dalam bahasa pemrograman ini, dan contohnya adalah sebagai berikut :

Asc()
Mengembalikan nilai integer dari parameter yang berupa karakter, bisa dibilang akan menghasilkan kode ASCII dari karakter yang dijadikan parameter

AscW()
sama seperti Asc() hanya saja parameter yang dgunakan adalah bertipe string

BeginInvoke()
Mengeksekusi sebuah thread secara spesifik

CallByName()
Mengeksekusi sebuah method dalam sebauah objek, atau mengeset atau mengembalikan sebuah property dari sebuah objek

CBool()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe boolean

CByte()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data byte

CChar()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data character

CDate()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data date

CDbl()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data double

CDec()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data decimal

Choose()
Memilih dan mengembalikan sebuah nilai dari sekumpulan argument

Chr()
Mengembalikan sebuah karakter dari kode/parameter yang digunakan

ChrW()
sama seperti Chr

CInt()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data integer

cLng()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data long

CObj()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe objek

Contains()
Mengembalikan sebuah nilai apakah control yang dimaksud adalah anak/turunan dari sebuah control

CreateGraphics()
Membuat System,Drawing.Graphics pada sebuah control

CSByte()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data SByte

CShort()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data short

CSng()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data Single

CStr()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data String

CUInt()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data UInteger

CULng()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data ULong

CurDir()
Mnegembalikan sebuah string yang menggambarkan sebuah path

CUShort()
Mengkonversi sebuah ekspresi/parameternya menjadi tipe data UShort

DoDragDrop()
Memulai aksi drag and drop

Environ()
Mengembalikan string yang menunjukan operasi sitem yang bekerja

EOF()
Mengembalikan niai true jika akhir dari file sudah tercapai

Err()
Memuat informasi tentang Run Time Error

ErrorToString()
Mengembalikan pesan error yang terkoresponden dengan nomer error

FreeFile()
Mengembalikan sebuah nilai integer yang menggambarkan nomer urut dari file berikutnya yang tersedia untukdigunakan untuk fungsi FileOpen

GetChar()
Mengembalikan nilai char dari suatu index sebuah string

GetTopLevel()
Mengembalikan nilai true jika sebuah control berada pada level tertinggi

GetType()
Mendapatkan System.Type dari instance yang aktif

Hex()
Mengembalikan sebuah string yang menampilkan nilai heksadesimal dari parameter yang digunkan

Hour()
Mengembalika sebuah angka dari 0 hingga 23 yang menandakan jam dalam 1 hari

Int()
Mengembalikan senuah porsi integer dari sebuah angka

IsArray()
Mengembalikan sebuah pernyataan apakah parameter merupakan array atau bukan

IsDate()
Mengembalikan sebuah pernyataan apakah parameter merupakan date atau bukan

LBound()
Mengembalikan indeks dari batas terbawah sebuah array

LCase()
Mengembalikan string ataupun character yang sudah diubah ke lowercase

Len()
Mengembalikan sebuah angka yang menunjukkan panjangnya sebuah string

Mid()
Mengembalikan string yang berada di tengah kata

Minute()
Mengembalikan angka dari 1 sampai 59 dalam satu jam

Month()
Mengembalikan angka dari 1 sampai 12 dalam satu tahun

MsgBox()
Mengembalikan sebuah objek berupa message box

Oct()
Mengembalikan sebuah string yang menampilkan nilai octal dari parameter yang digunkan

QBColor()
Mengembalikan kode warna RGB dari angka pada parameter yang digunakan

Rnd()
Mengembalikan sebuah angka bertipe single yang telah diacak

 

Assalamu'alaikum  Wr.Wb

Saya akan memaparkan tugas pada pertemuan ke- 7 mengenai "Menu & Toolbar" mata kuliah "Pemrograman Visual" yang diampu oleh Dosen Bp.Nandang Hermanto.

Dalam tugas kali ini terdapat tiga persolan yang harus diselesaikan yaitu :

1. Buat agar posisi toolbar berada di bawah menu.
2. Menambahkan library agar lebih interaktif.
3. Buat menu tampilan tile horizontal, vertical, dan cascade.

Untuk menjawab semua persoalan di atas. Pertama kita buat form baru. Kemudian tambahkan menu dengan menggunakan  menu strip pada Toolbox kelompok Menus & Toolbar. Isikan sesuai keinginan.
Untuk menambahkan Toolbar pilih Toolstrip pada Toolbox kelompok Menus & Toolbar. Isikan textnya sesuai keinginan.
--> Tampilan awal

Mengaitkan form dengan menu yang kita inginkan
Contoh pada aplikasi saya. Saat ditekan menu Profile->Data Diri muncul form yang berisikan data diri.

Tampilan saat membuaka form secara bersamaan

Menampilkan dua form secara vertikal

Menampilkan dua form secara horizontal

Menampilkan form secara cascade

Untuk source code aplikasi tersebut secara keseluruhan adalah sebagai berikut

Public Class Form1

    Private Sub Lat1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lat1ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()

    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Form3.MdiParent = Me
        Form3.Show()

    End Sub

    Private Sub YayaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YayaToolStripMenuItem.Click

        Form4.Show()

    End Sub

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

    End Sub

    Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

   
End Class

*Sekian yang saya bisa paparkan kali ini. Untuk soal no.2 belum bisa saya selesaikan. Mohon maaf. Terima Kasih :)