UAS LAB SMBD

Saat ini saya akan menunjukkan cara membuat aplikasi berbasis asp.net. Aplikasi ini digunakan untuk mengelola transaksi pemesan kamar di sebuah Hostel.

Step 1
Buat database dari data-data yang dimiliki di Microsoft Access, seperti ini:

Step 2
Buat aplikasi di Visual Basic dengan asp.net yang jika dijalankan akan seperti ini;

Source Code
Berikut Source Code  yang digunakan untuk menjalankan aplikasi ini;

Imports System.Data
Imports System.Data.OleDb
Public Class WebForm1
    Inherits System.Web.UI.Page

    Public constring As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
    Public oConn As New OleDbConnection(constring)
    Public oTbl As New DataTable
    Public xReader As OleDbDataReader
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim sql As String = "INSERT INTO Table_Pelanggan VALUES ('" & TxtID.Text & "','" & TxtNama.Text & "','" & TxtNoReg.Text & "','" & TxtKode.Text & "')"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim hapus = MsgBox("Konfirmasi", MsgBoxStyle.YesNo, "Hapus")
        If hapus = vbYes Then
            oConn.Close()
            oConn.Open()
            Dim delete As String = "DELETE FROM Table_Pelanggan where ID_Pelnaggan =" + TxtID.Text + ""
            Dim oCmd As New OleDbCommand
            oConn.Close()
            oConn.Open()
            oCmd.Connection = oConn
            oCmd.CommandText = delete
            oCmd.ExecuteNonQuery()
            MsgBox("Sudah terhapus", vbArchive)

            TxtID.Text = ""
            TxtNama.Text = ""
            TxtNoReg.Text = ""
            TxtKode.Text = ""
        End If
    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim sql As String = "UPDATE Table_Pelanggan set ID_Pelanggan ='" & TxtID.Text & "', Nama_Pelanggan =" & TxtNama.Text & "', No_Registrasi =" & TxtNoReg.Text & "', Kode_Kamar =" & TxtKode.Text & "'"
        Dim oCmd As New OleDbCommand
        oConn.Close()
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        oConn.Close()
        oConn.Open()
        Dim Cmd As New OleDbCommand("SELECT * FROM Table_Pelanggan where ID_Pelanggan =" + TxtID.Text + "", oConn)
        xReader = Cmd.ExecuteReader
        If xReader.HasRows Then
            xReader.Read()
            TxtNama.Text = xReader("Nama_Pelanggan")
            TxtNoReg.Text = xReader("No_Registrasi")
            TxtKode.Text = xReader("Kode_Kamar")
        Else
            MsgBox("Kode Pelanggan Tidak Ada")
            TxtID.Text = ""
            TxtNama.Text = ""
            TxtNoReg.Text = ""
            TxtKode.Text = ""
        End If
        xReader.Close()
    End Sub
End Class

UTS Lab SMBD

1NF
Table_Pelanggan (ID_Pelanggan, Nama_Pelanggan, No_Registrasi, Tanggal_CheckIn, Kode_Kamar, Jenis, Durasi, Tarif, Total_Tarif)

2NF
Table_Pelanggan (ID_Pelanggan, Nama_Pelanggan
Table_Pemesanan (No_Registrasi, Tanggal_CheckIn, Jenis, Drasi, Tarif, Total_Tarif, Kode_Kamar, ID_Pelanggan)
Table_Kamar (Kode_Kamar, Jenis, Tarif)

3NF sama dengan 2NF

Source Code

Imports System.Data
Imports System.Data.OleDb
Public Class WebForm1
    Inherits System.Web.UI.Page

    Public constring As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
    Public oConn As New OleDbConnection(constring)
    Public oTbl As New DataTable
    Public xReader As OleDbDataReader
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim sql As String = "INSERT INTO Table_Pelanggan VALUES ('" & TxtID.Text & "','" & TxtNama.Text & "','" & TxtNoReg.Text & "','" & TxtKode.Text & "')"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim hapus = MsgBox("Konfirmasi", MsgBoxStyle.YesNo, "Hapus")
        If hapus = vbYes Then
            oConn.Close()
            oConn.Open()
            Dim delete As String = "DELETE FROM Table_Pelanggan where ID_Pelnaggan =" + TxtID.Text + ""
            Dim oCmd As New OleDbCommand
            oConn.Close()
            oConn.Open()
            oCmd.Connection = oConn
            oCmd.CommandText = delete
            oCmd.ExecuteNonQuery()
            MsgBox("Sudah terhapus", vbArchive)

            TxtID.Text = ""
            TxtNama.Text = ""
            TxtNoReg.Text = ""
            TxtKode.Text = ""
        End If
    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim sql As String = "UPDATE Table_Pelanggan set ID_Pelanggan ='" & TxtID.Text & "', Nama_Pelanggan =" & TxtNama.Text & "', No_Registrasi =" & TxtNoReg.Text & "', Kode_Kamar =" & TxtKode.Text & "'"
        Dim oCmd As New OleDbCommand
        oConn.Close()
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        oConn.Close()
        oConn.Open()
        Dim Cmd As New OleDbCommand("SELECT * FROM Table_Pelanggan where ID_Pelanggan =" + TxtID.Text + "", oConn)
        xReader = Cmd.ExecuteReader
        If xReader.HasRows Then
            xReader.Read()
            TxtNama.Text = xReader("Nama_Pelanggan")
            TxtNoReg.Text = xReader("No_Registrasi")
            TxtKode.Text = xReader("Kode_Kamar")
        Else
            MsgBox("Kode Pelanggan Tidak Ada")
            TxtID.Text = ""
            TxtNama.Text = ""
            TxtNoReg.Text = ""
            TxtKode.Text = ""
        End If
        xReader.Close()
    End Sub
End Class

Program Pembuka Access

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class Form1

    Dim xReader As OleDbDataReader
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.16.0;Data Source =C:\Users\Farah\Documents\DatabaseVelyPerpus.mdb"
    Dim Objek As New OleDb.OleDbConnection(Koneksi)


    Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
        If BtnAdd.Text = "Add" Then
            TxtKode.Text = ""
            TxtNamaBuku.Text = ""
            TxtJumlah.Text = ""
            TxtNamaPeminjam.Text = ""
            TxtTglPinjam.Text = ""
            TxtTglPengembalian.Text = ""
            TxtTglPengembalian.Focus()
            BtnAdd.Text = "Save"
        Else
            Objek.Open()
            Dim Add As String = "INSERT INTO Data Peminjaman values ('" & TxtKode.Text & "', '" & TxtNamaBuku.Text & "', '" & TxtJumlah.Text & "', '" & TxtNamaPeminjam.Text & "', '" & TxtTglPinjam.Text & "', '" & TxtTglPengembalian.Text & "')"
            Dim oCMD = New OleDbCommand(Add, Objek)

            oCMD.ExecuteNonQuery()
            Objek.Close()
            MsgBox("Sukses")
            BtnAdd.Text = "Add"
        End If
    End Sub

    Private Sub BtnFind_Click(sender As Object, e As EventArgs) Handles BtnFind.Click
        Dim Kode As String = InputBox("Masukkan Nama")
        If Not Len(Kode) = 0 Then
            Objek.Close()
            Objek.Open()

            Dim Cari As String = "SELECT * FROM Data Koleksi Buku where nama = '" + Kode + "'"
            Dim oCMD = New OleDbCommand(Cari, Objek)
            xReader = oCMD.ExecuteReader

            If xReader.HasRows Then
                xReader.Read()
                TxtKode.Text = xReader("Kode")
                TxtNamaBuku.Text = xReader("Nama Buku")
                TxtJumlah.Text = xReader("Jumlah")
                TxtNamaPeminjam.Text = xReader("Nama Peminjam")
                TxtTglPinjam.Text = xReader("Tanggal Peminjaman")
                TxtTglPengembalian.Text = xReader("Tanggal Pengembalian")

            Else
                MsgBox("Data Koleksi Buku" + Kode + "tidak ada")
                TxtKode.Text = ""
                TxtNamaBuku.Text = ""
                TxtJumlah.Text = ""
                TxtNamaPeminjam.Text = ""
                TxtTglPinjam.Text = ""
                TxtTglPengembalian.Focus()
            End If
        End If
    End Sub

    Private Sub BtnEdit_Click(sender As Object, e As EventArgs) Handles BtnEdit.Click
        Objek.Close()
        Objek.Open()
        Dim Ubah As String = "UPDATE Data Peminjaman set tipe = '" & TxtKode.Text & "', Kode Buku = '" & TxtNamaBuku.Text & "', Nama Buku = '" & TxtJumlah.Text & "', Jumlah Buku = '" & TxtNamaPeminjam.Text & "' , Nama Peminjam = '" & TxtTglPinjam.Text & "', where Tanggal Peminjaman = '" & TxtTglPengembalian.Text & "'"
        Dim oCMD = New OleDbCommand(Ubah, Objek)

        oCMD.ExecuteNonQuery()
        Objek.Close()
        MsgBox("Sukses")
    End Sub

    Private Sub btnView_Click(sender As Object, e As EventArgs) Handles BtnView.Click
        FormKoleksiData.Show()
    End Sub

    Private Sub BtnPrint_Click(sender As Object, e As EventArgs) Handles BtnPrint.Click
        Form2.Show()
    End Sub

    Private Sub BtnClose_Click(sender As Object, e As EventArgs) Handles BtnClose.Click
        Me.Close()
    End Sub

    Private Sub BtnDelete_Click(sender As Object, e As EventArgs) Handles BtnDelete.Click
        Objek.Close()
        Objek.Open()

        Dim Hapus As String = "DELETE FROM Data Peminjaman where tipe = '" & TxtKode.Text & "'"
        Dim oCMD = New OleDbCommand(Hapus, Objek)
        oCMD.ExecuteNonQuery()

        TxtKode.Text = ""
        TxtNamaBuku.Text = ""
        TxtJumlah.Text = ""
        TxtNamaPeminjam.Text = ""
        TxtTglPinjam.Text = ""
        TxtTglPengembalian.Focus()

        MsgBox("Data berhasil dihapus")
    End Sub
End Class

Membuat data transaksi laundry dengan VB (UTS)

Halo..
Saya akan memberitahu bagaimana membuat aplikasi untuk data transaksi dari sebuah perusahaan jasa laundry dengan menggunakan Visual Basic

Buat Design sesuai apa yang anda inginkan terlebih dahulu, misalnya seperti ini

Lalu buatlah data transaksis yang sama dalam word untuk menyimpan data, bisa dijadikan sebagai bukti nota misalnya seperti ini

Dalam Word jangan lupa untuk melakukan bookmark di setiap data yang akan di masukkan.

Untuk menyimpan data transaksi bagi data perusahaan pribadi anda sendiri, buatlah tabel data dalam excel seperti ini

Setelah itu simpan semua dan sambungkan kepada visual basic anda dengan cara add refence microsoft word dan microsoft excel

Berikut adalah source code yang saya gunakan dala aplikasi ini

Public Class Form1

    Dim ExcelAPP As New Microsoft.Office.Interop.Excel.Application

    Dim ExcelBook As New Microsoft.Office.Interop.Excel.Workbook

    Dim WordAPP As New Microsoft.Office.Interop.Word.Application

    Dim WordDoc As New Microsoft.Office.Interop.Word.Document

    Private Sub BtnHitung_Click(sender As Object, e As EventArgs) Handles BtnHitung.Click

        If ComboBoxJasa1.Text = "Biasa" Then

            TxtSatuan1.Text = "Kg" And TxtHarga1.Text = TxtBerat1.Text * 8000

        ElseIf ComboBoxJasa1.Text = "Cepat" Then

            TxtSatuan1.Text = "Kg" And TxtHarga1.Text = TxtBerat2.Text * 12000

        ElseIf ComboBoxJasa1.Text = "Dry Cleaning" Then

            TxtSatuan1.Text = "Pieces" And TxtHarga1.Text = TxtBerat2.Text * 16000

        ElseIf ComboBoxJasa2.Text = "Biasa" Then

            TxtSatuan2.Text = "Kg" And TxtHarga2.Text = TxtBerat2.Text * 8000

        ElseIf ComboBoxJasa2.Text = "Cepat" Then

            TxtSatuan2.Text = "Kg" And TxtHarga2.Text = TxtBerat2.Text * 12000

        ElseIf ComboBoxJasa2.Text = "Dry Cleaning" Then

            TxtSatuan2.Text = "Pieces" And TxtHarga2.Text = TxtBerat2.Text * 16000

        End If

        TxtTotal.Text = TxtHarga1.Text + TxtHarga2.Text

    End Sub

    Private Sub BtnCetak_Click(sender As Object, e As EventArgs) Handles BtnCetak.Click

        WordDoc = WordAPP.Docements.Open("C:\Users\Sony\Documents\UTS Lab Pemrograman\Data Transaksi Malika Laundry.docx")

        WordDoc.Bookmarks("nama").Select()

        WordAPP.Selection.TypeText(TxtNama.Text)

        WordDoc.Bookmarks("kode").Select()

        WordAPP.Selection.TypeText(TxtKode.Text)

        WordDoc.Bookmarks("nomor").Select()

        WordAPP.Selection.TypeText(TxtNomor.Text)

        WordDoc.Bookmarks("status").Select()

        WordAPP.Selection.TypeText(ComboBoxStatus.Text)

        WordDoc.Bookmarks("masuk").Select()

        WordAPP.Selection.TypeText(TxtMasuk.Text)

        WordDoc.Bookmarks("selesai").Select()

        WordAPP.Selection.TypeText(TxtSelesai.Text)

        WordDoc.Bookmarks("barang1").Select()

        WordAPP.Selection.TypeText(TxtBarang1.Text)

        WordDoc.Bookmarks("jasa1").Select()

        WordAPP.Selection.TypeText(ComboBoxJasa1.Text)

        WordDoc.Bookmarks("satuan1").Select()

        WordAPP.Selection.TypeText(TxtSatuan1.Text)

        WordDoc.Bookmarks("berat1").Select()

        WordAPP.Selection.TypeText(TxtBerat1.Text)

        WordDoc.Bookmarks("harga1").Select()

        WordAPP.Selection.TypeText(TxtHarga1.Text)

        WordDoc.Bookmarks("barang2").Select()

        WordAPP.Selection.TypeText(TxtBarang2.Text)

        WordDoc.Bookmarks("jasa2").Select()

        WordAPP.Selection.TypeText(ComboBoxJasa2.Text)

        WordDoc.Bookmarks("satuan2").Select()

        WordAPP.Selection.TypeText(TxtSatuan2.Text)

        WordDoc.Bookmarks("berat2").Select()

        WordAPP.Selection.TypeText(TxtBerat2.Text)

        WordDoc.Bookmarks("harga2").Select()

        WordAPP.Selection.TypeText(TxtHarga2.Text)

        WordDoc.Bookmarks("pewangi").Select()

        WordAPP.Selection.TypeText(ComboBoxWangi.Text)

        WordDoc.Bookmarks("catatan").Select()

        WordAPP.Selection.TypeText(RichTextBox1.Text)

        WordDoc.Bookmarks("total").Select()

        WordAPP.Selection.TypeText(TxtTotal.Text)

        WordDoc.SaveAs("C:\Users\Sony\Documents\UTS Lab Pemrograman\Data Transaksi Malika Laundry.docx")

        WordAPP.Visible = True

    End Sub

    Private Sub BtnSimpan_Click(sender As Object, e As EventArgs) Handles BtnSimpan.Click

        ExcelBook = ExcelAPP.Workbooks.Open("C:\Users\Sony\Documents\UTS Lab Pemrograman\Data Transaksi Malika Laundry.xlsx")

        ExcelAPP.Range("A4").Value = TxtNama.Text

        ExcelAPP.Range("B4").Value = TxtKode.Text

        ExcelAPP.Range("C4").Value = TxtNomor.Text

        ExcelAPP.Range("D4").Value = ComboBoxStatus.Text

        ExcelAPP.Range("E4").Value = TxtMasuk.Text

        ExcelAPP.Range("F4").Value = TxtSelesai.Text

        ExcelAPP.Range("G4").Value = TxtBarang1.Text

        ExcelAPP.Range("H4").Value = ComboBoxJasa1.Text

        ExcelAPP.Range("I4").Value = TxtSatuan1.Text

        ExcelAPP.Range("J4").Value = TxtBerat1.Text

        ExcelAPP.Range("K4").Value = TxtHarga1.Text

        ExcelAPP.Range("L4").Value = TxtBarang2.Text

        ExcelAPP.Range("M4").Value = ComboBoxJasa2.Text

        ExcelAPP.Range("N4").Value = TxtSatuan2.Text

        ExcelAPP.Range("O4").Value = TxtBerat2.Text

        ExcelAPP.Range("P4").Value = TxtHarga2.Text

        ExcelAPP.Range("Q4").Value = TxtTotal.Text

        ExcelBook.SaveAs("C:\Users\Sony\Documents\UTS Lab Pemrograman\Data Transaksi Malika Laundry.xlsx")

    End Sub

End Class

Anda akan menginput semua informasi atau data yang diperlukan.

Output pertama jika anda klik button Hitung, akan menghitung total harga keseluruhan yang harus dibayar oleh pelanggan

Output kedua jika anda klik button simpan, data akan otomatis berpindah atau masuk kedalam data transaksi dalam excel yang sudah anda buat.

Output kedua jika anda klik button cetak, data akan otomatis berpindah atau masuk kedalam data transaksi dalam word yang sudah anda buat.

Membuat Aplikasi Pembayaran dengan Visual Basic

Hai! Kali ini saya akan menunjukkan bagaimana membuat Aplikasi Pembayaran pada sebuah warung makan

Step 1 : Buatlah design form sesuai yang anda inginkan atau bisa membuat form seperti contoh ini dan jangan lupa untuk membuat file Excel CSV

ComboBox1 = Nama Kasir

DateTimePicker1 = menampilkan pilihan tanggal

ComboBox2 hingga ComboBox6 = Jenis pesanan makanan

TextBox1 hingga TextBox5 = Jumlah pesanan makanan

TextBox6 hingga TextBox10 = Harga pesanan makanan

TextBox11 = Total harga makanan

ComboBox7 hingga ComboBox11 = Jenis pesanan minuman

TextBox12 hingga TextBox16 = Jumlah pesanan minuman

TextBox17 hingga TextBox21 = Harga pesanan minuman

TextBox22 = Total harga minuman

TextBox23 = Total harga makanan dan minuman

TextBox24 = Bayar, jumlah uang yang di berikan customer

TextBox25 = Kembali, jumlah uang yang di berikan customer di kurang total harga makanan dan minuman

BtnTotal = Total harga makanan dan minuman

BtnHitung = menghasilkan TextBox25

BtnHapus = menghapus semua data

BtnSimpan = menyimpan data di excel dan akan muncul di ListBox1

Step 2 : Berikut Source Code dari aplikasi ini

Public Class Form1

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If ComboBox2.Text = "Nasi Goreng" Then
            TextBox6.Text = Val(TextBox1.Text) * 20000
        ElseIf ComboBox2.Text = "Bakso" Then
            TextBox6.Text = Val(TextBox1.Text) * 10000
        ElseIf ComboBox2.Text = "Mie Ayam Bakso" Then
            TextBox6.Text = Val(TextBox1.Text) * 15000
        ElseIf ComboBox2.Text = "Kwetiau" Then
            TextBox6.Text = Val(TextBox1.Text) * 12000
        Else
            TextBox6.Text = Val(TextBox1.Text) * 7000
        End If
    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        If ComboBox3.Text = "Nasi Goreng" Then
            TextBox7.Text = Val(TextBox2.Text) * 20000
        ElseIf ComboBox3.Text = "Bakso" Then
            TextBox7.Text = Val(TextBox2.Text) * 10000
        ElseIf ComboBox3.Text = "Mie Ayam Bakso" Then
            TextBox7.Text = Val(TextBox2.Text) * 15000
        ElseIf ComboBox3.Text = "Kwetiau" Then
            TextBox7.Text = Val(TextBox2.Text) * 12000
        Else
            TextBox7.Text = Val(TextBox2.Text) * 7000
        End If
    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
        If ComboBox4.Text = "Nasi Goreng" Then
            TextBox8.Text = Val(TextBox3.Text) * 20000
        ElseIf ComboBox4.Text = "Bakso" Then
            TextBox8.Text = Val(TextBox3.Text) * 10000
        ElseIf ComboBox4.Text = "Mie Ayam Bakso" Then
            TextBox8.Text = Val(TextBox3.Text) * 15000
        ElseIf ComboBox4.Text = "Kwetiau" Then
            TextBox8.Text = Val(TextBox3.Text) * 12000
        Else
            TextBox8.Text = Val(TextBox3.Text) * 7000
        End If
    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
        If ComboBox5.Text = "Nasi Goreng" Then
            TextBox9.Text = Val(TextBox4.Text) * 20000
        ElseIf ComboBox5.Text = "Bakso" Then
            TextBox9.Text = Val(TextBox4.Text * 10000
        ElseIf ComboBox5.Text = "Mie Ayam Bakso" Then
            TextBox9.Text = Val(TextBox4.Text * 15000
        ElseIf ComboBox5.Text = "Kwetiau" Then
            TextBox9.Text = Val(TextBox4.Text * 12000
        Else
            TextBox9.Text = Val(TextBox4.Text * 7000
        End If
    End Sub

    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
        If ComboBox6.Text = "Nasi Goreng" Then
            TextBox10.Text = Val(TextBox5.Text) * 20000
        ElseIf ComboBox6.Text = "Bakso" Then
            TextBox10.Text = Val(TextBox5.Text) * 10000
        ElseIf ComboBox6.Text = "Mie Ayam Bakso" Then
            TextBox10.Text = Val(TextBox5.Text) * 15000
        ElseIf ComboBox6.Text = "Kwetiau" Then
            TextBox10.Text = Val(TextBox5.Text) * 12000
        Else
            TextBox10.Text = Val(TextBox5.Text) * 7000
        End If
    End Sub

    Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles TextBox12.TextChanged
        If ComboBox7.Text = "Teh Botol" Then
            TextBox17.Text = Val(TextBox12.Text) * 4000
        ElseIf ComboBox7.Text = "Es Jeruk" Then
            TextBox17.Text = Val(TextBox12.Text) * 4000
        ElseIf ComboBox7.Text = "Es Campur" Then
            TextBox17.Text = Val(TextBox12.Text) * 8000
        ElseIf ComboBox7.Text = "Fanta Susu" Then
            TextBox17.Text = Val(TextBox12.Text) * 5000
        Else
            TextBox17.Text = Val(TextBox12.Text) * 3000
        End If
    End Sub

    Private Sub TextBox13_TextChanged(sender As Object, e As EventArgs) Handles TextBox13.TextChanged
        If ComboBox8.Text = "Teh Botol" Then
            TextBox18.Text = Val(TextBox13.Text) * 4000
        ElseIf ComboBox8.Text = "Es Jeruk" Then
            TextBox18.Text = Val(TextBox13.Text) * 4000
        ElseIf ComboBox8.Text = "Es Campur" Then
            TextBox18.Text = Val(TextBox13.Text) * 8000
        ElseIf ComboBox8.Text = "Fanta Susu" Then
            TextBox18.Text = Val(TextBox13.Text) * 5000
        Else
            TextBox18.Text = Val(TextBox13.Text) * 3000
        End If
    End Sub

    Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles TextBox14.TextChanged
        If ComboBox9.Text = "Teh Botol" Then
            TextBox19.Text = Val(TextBox14.Text) * 4000
        ElseIf ComboBox9.Text = "Es Jeruk" Then
            TextBox19.Text = Val(TextBox14.Text) * 4000
        ElseIf ComboBox9.Text = "Es Campur" Then
            TextBox19.Text = Val(TextBox14.Text) * 8000
        ElseIf ComboBox9.Text = "Fanta Susu" Then
            TextBox19.Text = Val(TextBox14.Text) * 5000
        Else
            TextBox17.Text = Val(TextBox12.Text) * 3000
        End If
    End Sub

    Private Sub TextBox15_TextChanged(sender As Object, e As EventArgs) Handles TextBox15.TextChanged
        If ComboBox10.Text = "Teh Botol" Then
            TextBox20.Text = Val(TextBox15.Text) * 4000
        ElseIf ComboBox10.Text = "Es Jeruk" Then
            TextBox20.Text = Val(TextBox15.Text) * 4000
        ElseIf ComboBox10.Text = "Es Campur" Then
            TextBox20.Text = Val(TextBox15.Text) * 8000
        ElseIf ComboBox10.Text = "Fanta Susu" Then
            TextBox20.Text = Val(TextBox15.Text) * 5000
        Else
            TextBox20.Text = Val(TextBox15.Text) * 3000
        End If
    End Sub

    Private Sub TextBox16_TextChanged(sender As Object, e As EventArgs) Handles TextBox16.TextChanged
        If ComboBox11.Text = "Teh Botol" Then
            TextBox21.Text = Val(TextBox16.Text) * 4000
        ElseIf ComboBox11.Text = "Es Jeruk" Then
            TextBox21.Text = Val(TextBox16.Text) * 4000
        ElseIf ComboBox11.Text = "Es Campur" Then
            TextBox21.Text = Val(TextBox16.Text) * 8000
        ElseIf ComboBox11.Text = "Fanta Susu" Then
            TextBox21.Text = Val(TextBox16.Text) * 5000
        Else
            TextBox21.Text = Val(TextBox16.Text) * 3000
        End If
    End Sub

    Private Sub BtnTotal_Click(sender As Object, e As EventArgs) Handles BtnTotal.Click
        TextBox11.Text = Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text) + Val(TextBox9.Text) + Val(TextBox10.Text)
        TextBox22.Text = Val(TextBox17.Text) + Val(TextBox18.Text) + Val(TextBox19.Text) + Val(TextBox20.Text) + Val(TextBox21.Text)
        TextBox23.Text = TextBox1.Text + TextBox22.Text
    End Sub

    Private Sub BtnHitung_Click(sender As Object, e As EventArgs) Handles BtnHitung.Click
        TextBox25.Text = TextBox24.Text - TextBox23.Text
    End Sub

    Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        ComboBox3.Text = ""
        ComboBox4.Text = ""
        ComboBox5.Text = ""
        ComboBox6.Text = ""
        ComboBox7.Text = ""
        ComboBox8.Text = ""
        ComboBox9.Text = ""
        ComboBox10.Text = ""
        ComboBox11.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox10.Text = ""
        TextBox11.Text = ""
        TextBox12.Text = ""
        TextBox13.Text = ""
        TextBox14.Text = ""
        TextBox15.Text = ""
        TextBox16.Text = ""
        TextBox17.Text = ""
        TextBox18.Text = ""
        TextBox19.Text = ""
        TextBox20.Text = ""
        TextBox21.Text = ""
        TextBox22.Text = ""
        TextBox23.Text = ""
        TextBox24.Text = ""
        TextBox25.Text = ""
        ListBox1.Text = ""
    End Sub

    Private Sub BtnSimpan_Click(sender As Object, e As EventArgs) Handles BtnSimpan.Click
        Dim nofile As Integer
        Dim var1, var2, var3, var4, var5, var6, var7 As String
        nofile = FreeFile()
        FileOpen(nofile, "C:\Users\Velly\Desktop\Data Transaksi Pembayaran.CSV", OpenMode.Append)

        var1 = ComboBox1.Text
        var2 = DateTimePicker1.Text
        var3 = ComboBox2.Text & ComboBox3.Text & ComboBox4.Text & ComboBox5.Text & ComboBox6.Text
        var4 = TextBox11.Text
        var5 = ComboBox7.Text & ComboBox8.Text & ComboBox9.Text & ComboBox10.Text & ComboBox11.Text
        var6 = TextBox22.Text
        var7 = TextBox23.Text

        ListBox1.Items.Add(var1 & "---" & var2 & "---" & var3 & "---" & var4 & "---" & var5 & "---" & var6 & "---" & var7 & "---")
        WriteLine(1, var1, var2, var3, var4, var5, var6, var7)
        FileClose(1)
    End Sub
End Class

 Step 3 : Berikut hasil ketika kita sudah input datanya