Kasus 1 Berikut Source Codenya : Public Class kasus1 'nadiahtami 2017230007 Sub agama() ComboBox1.Items.Add("Islam") ComboBox1.Items.Add("Hindu") ComboBox1.Items.Add("Budha") ComboBox1.Items.Add("Kristen") End Sub Sub jurusan() ComboBox2.Items.Add("Teknik") ComboBox2.Items.Add("Sastra") ComboBox2.Items.Add("Manajemen") ComboBox2.Items.Add("Kelautan") End Sub Sub programstudi() ComboBox3.Items.Add("D3") ComboBox3.Items.Add("D4") ComboBox3.Items.Add("S1") ComboBox3.Items.Add("S2") ComboBox3.Items.Add("S3") End Sub Sub kota() ListBox1.Items.Add("Bekasi") ListBox1.Items.Add("Jakarta") ListBox1.Items.Add("Semarang"
Function Definisi Function adalah kumpulan code yang diawali dengan Function dan diakhiri dengan End Function. Function menjalankan kode diantaranya dan mengembalikan sebuah nilai, artinya sama seperti sub procedure tetapi function mengembalikan nilai. Syntax : [ accessibility ] Function nama_function [ paramater ] [As tipe_nilai ] statement End Function Keterangan: - Accessibility bisa berupa Public, Protected, Friend, Protected Friend, atau Private yang menentukan dari bagian mana saja function tersebut dapat diakses. - Nama_function merupakan nama function yang penamaan nya harus sesuai dengan aturan penamaan dalam Visual Basic dan harus diawali dengan huruf atau underscore ( _ ). - Parameter dideklarasikan sebagaimana kita mendeklarasikan variable. Sebuah function bisa memiliki parameter ataupun tidak. Parameter sub prosedur ada dua jenis yaitu ByVal dan ByRef. Pada parameter ByVal nilai hanya berubah pada prosedur ters