Visual Lanjutan Praktek 5 Kasus 1 (Procedure dan Function)

Public Class Rafif_kas1
    'rafif karunia rahman 2017230174
    Sub satu()
        Me.ComboBox1.Items.Add("Islam")
        Me.ComboBox1.Items.Add("Kristen Protestan")
        Me.ComboBox1.Items.Add("Kristen Katolic")
        Me.ComboBox1.Items.Add("Hindu")
        Me.ComboBox1.Items.Add("Buddha")
    End Sub

    Sub dua()
        Me.ComboBox2.Items.Add("Manajemen Informatika")
        Me.ComboBox2.Items.Add("Teknik Informatika")
        Me.ComboBox2.Items.Add("Sistem Informatika")
    End Sub

    Sub tiga()
        Me.ComboBox3.Items.Add("D1")
        Me.ComboBox3.Items.Add("D2")
        Me.ComboBox3.Items.Add("D3")
        Me.ComboBox3.Items.Add("D4")
        Me.ComboBox3.Items.Add("S1")
        Me.ComboBox3.Items.Add("S2")
        Me.ComboBox3.Items.Add("S3")

    End Sub
    Sub empat()
        Me.ListBox1.Items.Add("Bandung")
        Me.ListBox1.Items.Add("Depok")
        Me.ListBox1.Items.Add("Jakarta")
        Me.ListBox1.Items.Add("Bekasi")
        Me.ListBox1.Items.Add("Manado")
        Me.ListBox1.Items.Add("Medan")
        Me.ListBox1.BackColor = Color.Silver
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pesan As String
        pesan = MsgBox("Yakin keluar??", vbYesNo, "konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "isnaa"
        satu()
        dua()
        tiga()
        empat()
    End Sub
End Class

Visual Lanjutan Rangkuman Teori 5

Procedure dan Function di Visual Basic

Procedure

apa itu Procedure? 

Procedure adalah sebuah blok program yang didalamnya kita dapat menuliskan koding - koding program. Ada 2 jenis procedure, yang pertama procedure yang sifatnya lokal dan yang kedua, procedure bersifat global, perbedaan keduanya ada pada penggunaaan kata Public dan Private, untuk procedure yang bersifat lokal (atau private) maka procedure hanya dikenal dilingkungan form itu sendiri, tidak bisa diakses oleh form lain. 

General Procedure

General Procedure adalah procedure yang ditulis pada bagian general sebuah form. Pada General procedure kita dapa mendefiniskan sendiri nama dan procedure tersebut. General procedure biasanya dipanggil dari event procedure. Bentuk sebuah general procedure adalah sebagai berikut :

[Public|Private] Sub <Nama_Procedure>(Parameter)
<Pernyataan>
...........
<Pernyataaan>
End Sub

Jika Anda tidak menuliskan kata kunci Public atau Private dari General Procedure, secara default general procedure tersebut adalah general procedure Public. Jika Anda menggunakan kata kunci private pada awal general procedure, maka general procedure tersebut sama sekali tidak bisa diakses atau dipanggil Sedangkan Procedure Public, biasa dipanggil dari form lain. Untuk mengakses atau memanggil Procedure Public cara yang digunakan adalah menggunakan perintah Call. Seperti ini bentuk perintahnya

Call <Nama_Procedure>(Parameter>

atau cukup 

Call <Nama_Procedure>


Berikut ini contoh penggunaan Procedure Umum

Sub Salam ( Nama as String)

         Msgbox "Halo Semua" & Nama

End Sub


Private Sub cmdSalam_Click()

'memanggil procedure umum
Call Salam(txtNama.text)

End Sub


Event Procedure

Event procedure adalah procedure dari setiap event pada objek. Event procedure akan dijalankan sewaktu event pada program dijalankan.  Contoh dari even procedure adalah Form_Load atau text1_LostFocus. 

Function

Function hampir memiliki kesamaan dengan procedure, hanya saja jika pada procedure tidak ada nilai kembalian (return value) maka di function terdapat nilai kembalian. Function dapat anda buat sendiri atau dapat membawa function yang sudah disediakan oleh Visual Basic. Nilai kembalian ini harus ditampung pada sebuah variabel, ingat bahasa pemrograman mana pun pasti mengggunakan varibel sementara untuk menampung nilai. Letak function sama seperti pada general procedure, yaitu pada bagian generla dari form. Bentuk sebuah function adalah sebagai berikut.

[Public|Private] Sub <Nama_Function> (Parameter) As <Tipe_Data>

<Pernyataan>

................

<Pernyataaan>

End Function

Untuk kata kunci Public dan Private pada function, kegunaannya sama seperti pada procedure. 

Contoh sebuah function adalah sebagai berikut :

Function Kuadrat (Nilai As Integer) As Integer
Kuadrat = Nilai * Nilai
End FUnction

Pada Function memiliki sebuah nilai masukan dan mengembalikan nilai bertipe Integer. Pada function tersebut dilakukan proses pengkuadratan dari nilai yang dimasukan ke dalam function. Nilai kembalian dari function adalah hasil pengkuadaratan nilai yang dimasukan ke dalam function.Untuk mengakses atau memanggil sebuah procedure, caranya sebagai berikut :

<Nama_Variabel_penampung> = <Nama_Function> (Parameter)

Contoh sebagai berikut:

Tamp = Kuadrat (10)

Untuk mengakses atau memanggil function yang ada pada Visual Basic sama seperti function yang Anda buat sendiri.  Contoh dari function yang ada pada Visula Basic adalah function Len(<string>). Function Len berfungsi untuk menghitung jumlah karakter dari string, sedangkan uCase mengkonversi huruf kecil menjadi huruf besar.

Visual Lanjutan Praktek 4 Kasus 1 (Array 2 Dimensi)

Public Class Rafif_kas2
    'rafif karunia rahman
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin nih mo keluar??", vbYesNo, "konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub kasusaarray_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Focus()
        Dim arr(4, 1) As String
        arr(0, 0) = "ID"
        arr(0, 1) = "NAMA"
        arr(1, 0) = "JENIS KELAMIN "
        arr(1, 1) = "JABATAN"
        arr(2, 0) = "ALAMAT"
        arr(2, 1) = "TTL"
        arr(3, 0) = "TELP/HP"
        arr(3, 1) = "EMAIL"
        arr(4, 0) = "Laki-laki"
        arr(4, 1) = "Perempuan"
        ListView1.GridLines = True
        ListView1.View = View.Details
        For baris = 0 To 1
            For kolom = 0 To 1
                ListView1.Columns.Add(arr(baris, kolom), 100)
            Next kolom
        Next baris
        For baris = 4 To 4
            For kolom = 0 To 1
                ComboBox1.Items.Add(arr(baris, kolom))
            Next kolom
        Next baris
        ListView1.Columns.Add("Alamat", 125)
        ListView1.Columns.Add("TTL", 105)
        ListView1.Columns.Add("TELP/HP", 105)
        ListView1.Columns.Add("EMAIL", 110)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr(7) As String
        arr(0) = TextBox1.Text
        arr(1) = TextBox2.Text
        arr(2) = ComboBox1.Text
        arr(3) = TextBox3.Text
        arr(4) = TextBox4.Text
        arr(5) = TextBox5.Text
        arr(6) = TextBox6.Text
        arr(7) = TextBox7.Text
        Dim listitem As ListViewItem
        listitem = New ListViewItem
        listitem = ListView1.Items.Add(arr(0))
        listitem.SubItems.Add(arr(1))
        listitem.SubItems.Add(arr(2))
        listitem.SubItems.Add(arr(3))
        listitem.SubItems.Add(arr(4))
        listitem.SubItems.Add(arr(5))
        listitem.SubItems.Add(arr(6))
        listitem.SubItems.Add(arr(7))
        TextBox2.Clear()
        ComboBox1.SelectedIndex = -1
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox1.Focus()
        TextBox1.Clear()
    End Sub
End Class

Visual Lanjutan Teori 1 Kasus 1 (Array)

Public Class Rafif_kas1
    'rafif karunia rahman 2017230174
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin nih mo keluar??", vbYesNo, "konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Isnaakasus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.Columns.Add("Barang", 155)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim barang(0) As String
        barang(0) = TextBox1.Text

        Dim list As New ListViewItem
        list = ListView1.Items.Add(barang(0))

        TextBox1.Text = ""
        TextBox1.Focus()
    End Sub
End Class

Visual Lanjutan Praktek 4 Latihan 3 (Array 2 Dimensi)

Public Class Rafif_lat3
    'rafif karunia rahman 2017230174
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin nih mo keluar??", vbYesNo, "konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        TextBox6.Text = Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text)
        TextBox7.Text = FormatNumber((TextBox6.Text) / 3)
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        TextBox6.Text = Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text)
        TextBox7.Text = FormatNumber((TextBox6.Text) / 3)
    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        TextBox6.Text = Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text)
        TextBox7.Text = FormatNumber((TextBox6.Text) / 3)
    End Sub

    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        If TextBox7.Text >= 90 Then
            TextBox8.Text = "A"
        ElseIf TextBox7.Text >= 80 Then
            TextBox8.Text = "B"
        ElseIf TextBox7.Text >= 70 Then
            TextBox8.Text = "C"
        ElseIf TextBox7.Text < 70 Then
            TextBox8.Text = "D"
        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr(5) As String
        arr(0) = TextBox1.Text
        arr(1) = TextBox2.Text
        arr(2) = TextBox6.Text
        arr(3) = TextBox7.Text
        arr(4) = TextBox8.Text
        arr(5) = TextBox9.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))
        list.SubItems.Add(arr(4))
        list.SubItems.Add(arr(5))
        TextBox1.Text = Val(TextBox1.Text) + 1
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox8.Clear()
        TextBox9.Clear()
        TextBox2.Focus()
    End Sub

    Private Sub array3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox2.Focus()
        Dim arr(1, 2) As String
        arr(0, 0) = "NIS"
        arr(0, 1) = "Nama"
        arr(0, 2) = "Jumlah"
        arr(1, 0) = "Rata Rata"
        arr(1, 1) = "Grade"
        arr(1, 2) = "Keterangan"
        ListView1.GridLines = True
        ListView1.View = View.Details
        For baris = 0 To 1
            For kolom = 0 To 2
                ListView1.Columns.Add(arr(baris, kolom), 85)
            Next
        Next
        TextBox1.ReadOnly = True
        TextBox1.Text = "2017230174"
    End Sub

End Class

Visual Lanjutan Praktek 4 Latihan 2 (Array Dimensi 2)

Public Class Rafif_lat2
    'rafif karunia rahman
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin nih mo keluar??", vbYesNo, "konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr(7) As String
        arr(0) = TextBox1.Text
        arr(1) = TextBox2.Text
        arr(2) = ComboBox1.Text
        arr(3) = TextBox3.Text
        arr(4) = TextBox4.Text
        arr(5) = TextBox5.Text
        arr(6) = TextBox6.Text
        arr(7) = TextBox7.Text
        Dim listitem As ListViewItem
        listitem = New ListViewItem
        listitem = ListView1.Items.Add(arr(0))
        listitem.SubItems.Add(arr(1))
        listitem.SubItems.Add(arr(2))
        listitem.SubItems.Add(arr(3))
        listitem.SubItems.Add(arr(4))
        listitem.SubItems.Add(arr(5))
        listitem.SubItems.Add(arr(6))
        listitem.SubItems.Add(arr(7))
        TextBox2.Clear()
        ComboBox1.SelectedIndex = -1
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox1.Focus()
        TextBox1.Clear()
    End Sub

    Private Sub array2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim arr(4, 1) As String
        arr(0, 0) = "ID"
        arr(0, 1) = "NAMA"
        arr(1, 0) = "JENIS KELAMIN "
        arr(1, 1) = "JABATAN"
        arr(2, 0) = "ALAMAT"
        arr(2, 1) = "TTL"
        arr(3, 0) = "TELP/HP"
        arr(3, 1) = "EMAIL"
        arr(4, 0) = "Laki-laki"
        arr(4, 1) = "Perempuan"
        ListView1.GridLines = True
        ListView1.View = View.Details
        For baris = 0 To 1
            For kolom = 0 To 1
                ListView1.Columns.Add(arr(baris, kolom), 100)
            Next kolom
        Next baris
        For baris = 4 To 4
            For kolom = 0 To 1
                ComboBox1.Items.Add(arr(baris, kolom))
            Next kolom
        Next baris
        ListView1.Columns.Add("Alamat", 125)
        ListView1.Columns.Add("TTL", 105)
        ListView1.Columns.Add("TELP/HP", 105)
        ListView1.Columns.Add("EMAIL", 110)
    End Sub
End Class

Visual Lanjutan Praktek 4 Latihan1 (Array Dimensi 2)

Public Class Rafif_lat1
    'rafif karunia rahaman 2017230174
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin nih mo keluar??", vbYesNo, "konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub

    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.Clear()
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        TextBox2.Focus()
    End Sub

    Private Sub array11_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, 1) = "Nama"
        arr(1, 0) = "Jenis Kelamin"
        arr(1, 1) = "Status"
        arr(2, 0) = "Laki-laki-"
        arr(2, 1) = "Perempuan"
        arr(3, 0) = "Menikah"
        arr(3, 1) = "Belum Menikah"
        ListView1.GridLines = True
        ListView1.View = View.Details
        For baris = 0 To 1
            For kolom = 0 To 1
                ListView1.Columns.Add(arr(baris, kolom), 100)
            Next
        Next
        For baris = 2 To 2
            For kolom = 0 To 1
                ComboBox1.Items.Add(arr(baris, kolom))
            Next
        Next
        For baris = 3 To 3
            For kolom = 0 To 1
                ComboBox2.Items.Add(arr(baris, kolom))
            Next
        Next
        TextBox1.ReadOnly = True
        TextBox1.Text = "1"
        TextBox2.Focus()
    End Sub
End Class