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

Visual Lanjutan Teori 4 Latihan 3 (Array)

Public Class latihan3
    '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 latihan3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.GridLines = True
        ListView1.View = View.Details
        ListView1.Columns.Add("Nim")
        ListView1.Columns.Add("Nama")
        ListView1.Columns.Add("Alamat")
        TextBox1.Text = 1
        TextBox1.Focus()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr(3) As String
        arr(1) = TextBox1.Text
        arr(2) = TextBox2.Text
        arr(3) = TextBox3.Text

        Dim list_item As ListViewItem
        list_item = New ListViewItem
        list_item = ListView1.Items.Add(arr(1))
        list_item.SubItems.Add(arr(2))
        list_item.SubItems.Add(arr(3))

        TextBox1.Text = TextBox1.Text + 1
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox2.Focus()
    End Sub
End Class

Visual Lanjutan Teori 4 Latihan 2 (Array)

Public Class Latihan2
    '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 Latihan2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.Columns.Add("Nama", 155)
    End Sub

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

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

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

Visual Lanjutan Teori 4 Latihan 1 (Array)

Public Class Form1
    'rafif karunia rahman 2017230174
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim makan(3) As String
        makan(0) = "Nasi Goreng"
        makan(1) = "Ayam Goreng"
        makan(2) = "Nasi Rames"
        makan(3) = "Gado-Gado"
        For Each element As String In makan
            ComboBox1.Items.Add(element)
        Next
        ComboBox1.Text = "Menu Makanan"
    End Sub

    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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Visual Lanjutan Rangkuman Praktikum 4

Array 2 Dimensi

·      Pengertian

Array adalah sekumpulan dari variabel atau nilai - nilai yang memilki tipe data dan nama yang sama dalam suatu urutan tertentu. Letak atau posisi sebuah elemen array di tentukan oleh index.

Array 1 Dimensi adalah kumpulan - kumpulan elemen yang memiliki type data yang sama dan hanya memiliki satu indeks saja. Array 1 Dimensi dapat berupa sebuah vector, contoh cara membuat sebuah array di VB.NET

·       Fungsi

Array memungkinkan kita untuk menyimpan data ataupun referensi objek dengan jumlah yang banyak dan terindeks. Indeks dalam array menggunakan integer, indeks ini digunakan untuk menentukan urutan dari elemen-elemennya, dan urutan indeks array biasanya dimulai dengan indeks nol (0) pada elemen pertama, kemudian indeks satu (1) untuk elemen kedua, dan seterusnya. 

·      Cara Mendeklarasikan

Mendeklarasikan variabel array dengan type data tertentu caranya hampir sama dengan mendeklarasikan variabel pada umumnya. Hanya saja pada pendeklarasian variabel array biasanya menggunakan tanda kurung yang diletakkan setelah nama array. Berikut ini contoh pendeklarasian variabel array pada vb.net:

Dim Var_Array(n) as Tipe data

Keterangan :

Dim keyword untuk memulai mendeklarasikan variabel. Var_Array adalah variabel array yang akan dibuat. (n) Jumlah penampung yang kita pesan dengan nilai integer. Tipe data tipe data dari sebuah Variabel array.

Contoh pendeklarasian array Dim mhs (4) as String Dengna perantah deklarasi di atas kita mendeklarasikan nama variabel mhs dengan jumlah tampugan data 5, karena di VB pendeklarsian tersebut berarti dari 0-4, berjumlah 5 tampungan.

·       Bentuk Array 1 Dimensi

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

Untuk dapat lebih memahami bagaimana pendeklarasian array dan indeksnya mari kita lihat beberapa contoh berikut ini:

Contoh 1

Dim arr(0, 1) As String

        arr(0, 0) = "NIS"

        arr(0, 1) = "Nama Siswa"

Contoh 2

Dim arr(1, 1) As String

        arr(0, 0) = "NIS"

        arr(0, 1) = "Nama Siswa"

        arr(1, 0) = "Jenis Kelamin"

        arr(1, 1) = "No. HP"

Contoh 3

Dim arr(1, 2) As String

         arr(0, 0) = "NIS"

         arr(0, 1) = "Nama Siswa"

         arr(0, 2) = "TTL"

         arr(1, 0) = "Jenis Kelamain"

 arr(1, 1) = "No. HP"

 arr(1, 2) = "Alamat"

Contoh 4

Dim arr(2, 2) As String

         arr(0, 0) = "NIS"

         arr(0, 1) = "Nama Siswa"

         arr(0, 2) = "TTL"

         arr(1, 0) = "Jenis Kelamain"

 arr(1, 1) = "No. HP"

 arr(1, 2) = "Alamat"

 arr(2, 0) = "Hoby"

 arr(2, 1) = "Cita-cita"

 arr(2, 2) = "Motto

Visual Lanjutan Rangkuman Teori 4

Array 1 Dimensi

·      Pengertian

Array adalah sekumpulan dari variabel atau nilai - nilai yang memilki tipe data dan nama yang sama dalam suatu urutan tertentu. Letak atau posisi sebuah elemen array di tentukan oleh index.

Array 1 Dimensi adalah kumpulan - kumpulan elemen yang memiliki type data yang sama dan hanya memiliki satu indeks saja. Array 1 Dimensi dapat berupa sebuah vector, contoh cara membuat sebuah array di VB.NET

·       Fungsi

Array memungkinkan kita untuk menyimpan data ataupun referensi objek dengan jumlah yang banyak dan terindeks. Indeks dalam array menggunakan integer, indeks ini digunakan untuk menentukan urutan dari elemen-elemennya, dan urutan indeks array biasanya dimulai dengan indeks nol (0) pada elemen pertama, kemudian indeks satu (1) untuk elemen kedua, dan seterusnya. 

·      Cara Mendeklarasikan

Mendeklarasikan variabel array dengan type data tertentu caranya hampir sama dengan mendeklarasikan variabel pada umumnya. Hanya saja pada pendeklarasian variabel array biasanya menggunakan tanda kurung yang diletakkan setelah nama array. Berikut ini contoh pendeklarasian variabel array pada vb.net:

Dim Var_Array(n) as Tipe data

Keterangan :

Dim keyword untuk memulai mendeklarasikan variabel. Var_Array adalah variabel array yang akan dibuat. (n) Jumlah penampung yang kita pesan dengan nilai integer. Tipe data tipe data dari sebuah Variabel array.

Contoh pendeklarasian array Dim mhs (4) as String Dengna perantah deklarasi di atas kita mendeklarasikan nama variabel mhs dengan jumlah tampugan data 5, karena di VB pendeklarsian tersebut berarti dari 0-4, berjumlah 5 tampungan.

·       Bentuk Array 1 Dimensi

Array satu dimensi adalah kumpulan elemen yang tersusun dalam suatu baris dengan tipe data yang sama. BentukUmum :

Dim Array[indeks] As Tipe_Data

Contoh : Dim Arr(2) As String

Arr(0) = Txtkodebarang.Text

Arr(1) = Txtnamabaramg.Text

Arr(2) = Txtjenisbarang.Text

Visual Lanjutan Teori 3 Latihan 7 (Mencari Bilangan Genap)

Public Class latihan7
        '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 Ingin 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 x, i As Integer
        x = Val(TextBox1.Text)
        i = 1
        x = x + 1
        ListBox1.Items.Clear()
        While i < 11
            If x Mod 2 = 0 Then
                ListBox1.Items.Add(x)
                i = i + 1
            End If
            x = x + 1
        End While
    End Sub

    Private Sub latihan7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Visual Lanjutan Teori 3 Latihan 6 (Perulangan While)

Public Class latihan6
        '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 Ingin 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 x As Integer
        x = 1
        While x <= 10
            ListBox1.Items.Add(x)
            x = x + 1
        End While
    End Sub

    Private Sub latihan6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Visual Lanjutan Teori 3 Latihan 5 (Nested For)

Public Class latihan5
    '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 Ingin 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 x, y As Integer
        For x = 1 To 3
            For y = 1 To 2
                ListBox1.Items.Add(x & y)
            Next y
        Next x
    End Sub

    Private Sub latihan5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Visual Lanjutan Teori 3 Latihan 4 (For Next)

Public Class latihan4
    'rafif karunia rahman 2017230174
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 1 To 7
            ListBox1.Items.Add(WeekdayName(i))
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub latihan4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Visual Lanjutan Teori 3 Latihan 3 (For Next)

Public Class latihan3
    '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 Ingin 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 x, y, i, hasil As Integer
        x = Val(TextBox1.Text)
        y = Val(TextBox2.Text)
        hasil = 1
        For i = 1 To y
            hasil = hasil * x
            On Error Resume Next
            TextBox3.Text = Str(hasil)
        Next
    End Sub

    Private Sub latihan3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Visual Lanjutan Teori 3 Latihan 2 (For Next)

Public Class latihan2
    '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 Ingin 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 x As Integer
        For x = 10 To 1 Step -1
            ListBox1.Items.Add(x)
        Next x
    End Sub

    Private Sub latihan2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Visual Lanjutan Teori 3 Latihan 1 (For Next)

Public Class latihan1
    '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 Ingin 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 x As Integer
        For x = 1 To 10
            ListBox1.Items.Add(x)
        Next x
    End Sub
End Class

Visual Lanjutan PRAKTEK 3 Kasus 3 (For Next)

Public Class kasus3
    'RAFIF KARUNIA RAHMAN 2017230174
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim angka As Integer
        For angka = TextBox1.Text To TextBox2.Text
            If angka Mod 2 = 0 Then
                ListBox2.Items.Add(angka)
            Else
                ListBox1.Items.Add(angka)
            End If
        Next angka
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub kasus3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Visual Lanjutan PRAKTEK 3 Kasus 2 (For Next)

Public Class kasus2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
    Private Sub kasus2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Text = "-Tanggal-"
        ComboBox2.Text = "-Bulan-"
        ComboBox3.Text = "-Tahun-"
        For i = 1 To 31
            ComboBox1.Items.Add(Str(i))
        Next i
        For i = 1 To 12
            ComboBox2.Items.Add(MonthName(i))
        Next i
        For i = 1990 To Year(Now)
            ComboBox3.Items.Add(Str(i))
        Next i
    End Sub
End Class

Visual Lanjutan PRAKTEK 3 Kasus 2 (For Next)

Public Class kasus1
    'RAFIF KARUNIA RAHMAN
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 1 To 12
            ListBox1.Items.Add(MonthName(i))
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
End Class

Visual Lanjutan Rangkuman Praktek 3

1. Do While – Loop

Pengulangan Do While ... Loop merupakan loop yang sangat mirip dengan While ... End While. Yang membedakan Do While ... Loop dengan While ... End While adalah perintah Exit Do. Perintah tersebut adalah perintah untuk memaksa program menghentikan pengulangan sebelum pengulangan berakhir pada bentuk pengulangan Do While ... Loop.

2. Do – Loop While

Bentuk pengulangan Do ... Loop While berhenti jika kondisi telah bernilai salah (false). Selama kondisi masih bernilai benar (true), pengulangan akan dilakukan terus. Bentuk pengulangan Do ... Loop While merupakan bentuk pengulangan yang kondisinya terletak di akhir pengulangan.

3. Do Until – Loop

Bentuk pengulangan Do Until ... Loop hampir sama dengan pengulangan While ... End While dan Do While ... Loop. Perbedaannya adalah kalau pada pengulangan bentuk While ... End While dan Do While ... Loop pengulangan dihentikan pada waktu kondisi bernilai salah (false), sedangkan pada bentuk Do Until ... Loop pengulangan dihentikan pada waktu kondisi bernilai benar (true).

4. Do – Loop Until

Bentuk pengulangan Do ... Loop Until sama dengan bentuk Do ... Loop While. Pengulangan berhenti jika kondisi telah bernilai benar (true). Jadi selama kondisi masih bernilai salah (false), pengulangan akan dilakukan terus. Bentuk pengulangan Do ... Loop While merupakan pengulangan yang memeriksa kondisinya terletak di akhir pengulangan sehingga pengulangan minimal dilakukan 1 kali (mirip dengan Do ... Loop While).

Visual Lanjutan Rangkuman Teori 3

1. For-Next
Digunakan untuk mengulang perintah dalam jumlah yang ditentukan. pada for-next kita tidak perlu menuliskan kondisi yang akan yang akan di uji, tetapi cukup hanya memberikan nilai step awal dan akhir nilai.
Sintaks:
For variabel = nilai_awal To nilai_akhir
     ekspresi
Next
Keterangan :
variabel : nama integer yang digunakan untuk melakukan proses perulangan
nilai_awal : nilai awal suatu variabel untuk menentukan awal perulangan
nilai_akhir : nilai suatu variabel untu menentukan akhir dari perulangan
ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
-Membuat Teks “Visual Basic” sebanyak 10 pada Objek ListBox
Dim i As Integer
listbox1.Items.Clear()
For i = 1 to 10
    listbox1.Items.Add(“Visual Basic”)
Next

-Membuat Deret angka 1 sampai 10
Dim i As Integer
listbox1.Items.Clear()
For i = 1 to 10
    listbox1.Items.Add(i)
Next


2. Do-Loop
Perulangan Do…Loop digunakan untuk perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah ditetapkan.
Pemeriksaan Kondisi pada Do…Loop dapat dilakukan diawal dan diakhir.
Kondisi akan dijalankan pada dua keadaan yaitu Until dan While.

2.1. Do…Loop dengan Pemeriksaan diawal
-Do Until … Loop
Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.
Sintaks:
Do Until (Kondisi)
     ekspresi
Loop

Keterangan:
kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do Until i > 10
listbox1.Items.Add(i)
i=i+1
Loop

-Do While … Loop
Loop dengan do While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat (selama kondisi benar, statement akan dijalankan terus).
Sintaks:
Do While (Kondisi)
     ekspresi
Loop

Keterangan:
kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do while i > 10
listbox1.Items.Add(i)
i=i+1
Loop

2.2. Do…Loop dengan Pemeriksaan diakhir
-Do … Loop Until
Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.
Sintaks:
Do
     ekspresi
Loop Until (Kondisi)

Keterangan:
kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do
listbox1.Items.Add(i)
i=i+1
Loop Until i > 10

-Do … Loop While
Loop dengan do While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat (selama kondisi benar, statement akan dijalankan terus).
Sintaks:
Do
     ekspresi
Loop While (Kondisi)

Keterangan:
kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.


3. While-End While
Perulangan While…End While tidak jauh berbeda dengan perulangan do … loop digunakan untuk perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah ditetapkan.
Sintaks:
While (Kondisi)
     ekspresi
End While

Keterangan:
kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
ListBox1.Items.Clear()
While i <= 10
    ListBox1.Items.Add(i)
    i = i + 1
End While

Visual Lanjutan PRAKTEK 2 Kasus 11(SWITCH CASE)

Public Class kasus11
'RAFIF KARUNIA RAHMAN
    Dim merk, ukuran As String
    Dim harga, jumlah, subtotal, diskon, tagihan, bayar, kembali As Integer
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim keyascii As Short = Asc(e.KeyChar)
        If (e.KeyChar Like "[A-Z,a-z]" _
            OrElse keyascii = Keys.Back _
            OrElse keyascii = Keys.Space _
            OrElse keyascii = Keys.Return _
            OrElse keyascii = Keys.Delete _
            ) Then
            keyascii = 0
        End If
        If (e.KeyChar = Chr(13)) Then
            ComboBox1.Focus()
        End If
        e.Handled = CBool(keyascii)
    End Sub
    Private Sub ComboBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox2.KeyPress
        Select Case ComboBox1.Text + ComboBox2.Text
            Case "IMP" + "XL"
                TextBox2.Text = 250000
            Case "IMP" + "L"
                TextBox2.Text = 240000
            Case "IMP" + "M"
                TextBox2.Text = 230000
            Case "Prada" + "XL"
                TextBox2.Text = 170000
            Case "Prada" + "L"
                TextBox2.Text = 160000
            Case "Prada" + "M"
                TextBox2.Text = 150000
            Case "Gucci" + "XL"
                TextBox2.Text = 280000
            Case "Gucci" + "L"
                TextBox2.Text = 270000
            Case "Gucci" + "M"
                TextBox2.Text = 260000
            Case "Loius" + "XL"
                TextBox2.Text = 360000
            Case "Loius" + "L"
                TextBox2.Text = 350000
            Case "Loius" + "M"
                TextBox2.Text = 340000
            Case "Denim" + "XL"
                TextBox2.Text = 130000
            Case "Denim" + "L"
                TextBox2.Text = 120000
            Case "Denim" + "M"
                TextBox2.Text = 110000
        End Select
        TextBox2.Focus()
    End Sub
    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True 'hanya bisa menginput angka
        If (e.KeyChar = Chr(13)) Then
            TextBox3.Focus()
        End If
    End Sub
    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True 'hanya bisa menginput angka
        If (e.KeyChar = Chr(13)) Then
            harga = TextBox2.Text
            jumlah = TextBox3.Text
            TextBox4.Text = harga * jumlah
            TextBox4.Focus()
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub
    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True 'hanya bisa menginput angka
        If (e.KeyChar = Chr(13)) Then
            subtotal = TextBox4.Text
            If subtotal >= 1000000 Then
                diskon = subtotal * (10 / 100)
            ElseIf subtotal >= 500000 And jumlah <= 1000000 Then
                diskon = subtotal * (7 / 100)
            ElseIf subtotal >= 200000 And jumlah <= 500000 Then
                diskon = subtotal * (4 / 100)
            Else
                diskon = 0
            End If
            TextBox5.Text = diskon
            TextBox5.Focus()
        End If
    End Sub
    Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True 'hanya bisa menginput angka
        If (e.KeyChar = Chr(13)) Then
            subtotal = TextBox4.Text
            diskon = TextBox5.Text
            tagihan = subtotal - diskon
            TextBox6.Focus()
        End If
        TextBox6.Text = tagihan
    End Sub
    Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True 'hanya bisa menginput angka
        If (e.KeyChar = Chr(13)) Then
            tagihan = TextBox6.Text
            bayar = TextBox7.Text
            TextBox8.Text = bayar - tagihan
        End If
    End Sub
    Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True 'hanya bisa menginput angka
        If (e.KeyChar = Chr(13)) Then
            TextBox7.Focus()
        End If
    End Sub

    Private Sub kasus11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class