Pemrograman Visual Basic

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

Procedure Procedur   merupakan bagian dari pemrograman terstruktur, tetapi prosedur masih diperlukan dalam pemrograman berorientasi objek  untuk mempermudah pengembangan suatu program dengan membentuk blok program menjadi bagian dan fungsi tersendiri. Fungsi Procedure digunakan untuk penerapan tugas yang diulang-ulang, seperti perhitungan yang sering digunakan. Sub Procedure  intinya merupakan kumpulan code yang diawali dengan  Sub  dan diakhiri dengan  End Sub . Syntax :    [accessibility] Sub nama_pro sedur  ( parameter )                  statement                  End Sub Keterangan: -Accessibility   bisa berupa Public, Protected, Friend, Protected Friend, atau Private yang menentukan dari bagian mana saja sub tersebut dapat diakses. -Nama_prosedur   merupakan nama sub procedure yang penamaan nya harus sesuai dengan aturan penamaan dalam Visual Basic dan harus diawali dengan huruf atau underscore ( _ ). -Parameter   dideklarasikan sebagaim

Latihan 1 Menggunakan Procedure Berikut Source Codenya : Public Class proc1     'nadiahtami 2017230007     Private Sub gantitext(ByVal teksbaru As String)         TextBox1.Text = teksbaru     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         'btn pilih         gantitext("unsada")     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         'btn keluar         Dim pesan As String         pesan = MsgBox("Yakin ingin keluar?", vbYesNo, "Konfirmasi")         If pesan = vbYes Then             End         End If     End Sub End Class Latihan 2 Menggunakan Procedure Berikut Source Codenya : Public Class proc2     'nadiahtami 2017230007'     Private Sub TampilkanPeringatan(ByVal Pesan As String, ByVal Judul As String)         MessageBo

Latihan 1 Array Multidimensi Berikut Source Codenya : Public Class latihan4     'nadiahtami 2017230007'     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim arr(4) As String         arr(0) = TextBox1.Text         arr(1) = TextBox2.Text         arr(2) = ComboBox1.Text         arr(3) = ComboBox2.Text         Dim list As New ListViewItem         list = ListView1.Items.Add(arr(0))         list.SubItems.Add(arr(1))         list.SubItems.Add(arr(2))         list.SubItems.Add(arr(3))         TextBox1.Text = TextBox1.Text + 1         TextBox2.Text = ""         ComboBox1.Text = ""         ComboBox2.Text = ""         TextBox2.Focus()     End Sub     Private Sub latihan4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Dim arr(3, 1) As String         arr(0, 0) = "NIM"         arr(0,

Array               Array adalah sekumpulan nilai dengan tipe data yang sama dan saling berhubungan satu sama lain. Nah kita bisa mengambil setiap nilai yang ada didalam array tersebut menggunakan sebuah angka yang disebut index untuk membedakannya. Terus didalam array juga ada yang disebut dengan “Element”, element sendiri adalah nilai-nilai yang ada didalam array tersebut. Array Multidimensi              Array multidimensi merupakan sebuah variabel yang menyimpan sekumpulan data yang memiliki type data sama dan elemen yang akan diakses melalui banyak indeks. Array bentuk ini biasanya digunakan untuk merepresentasikan nilai dari sebuah tabel. BentukUmum : Dim Array[indeks,Indeks] As Tipe_Data Dim Array[indeks,indeks,indeks] As Tipe_Data Contoh : Berikut Source Codenya : Public Class latihan4     'nadiahtami 2017230007'     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim