UAS Lab. SMBD

1.Penjelasan Aplikasi

Aplikasi ini digunakan untuk input Judul Buku Baru,Update Status Buku apakah tersedia atau tidak,melakukan Pembaruan mengenai informasi Buku dalam sebuah Database Perpustakaan.

2.Screenshot Dtabase dan Table

3.Perintah Stored Procedure

ALTER PROCEDURE [dbo].[TambahBuku]
-- Add the parameters for the stored procedure here
@KodeBuku varchar(10),@NamaBuku varchar(50),@Pengarang char(10),@Status char(10),@TanggalKembali date
AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON

    INSERT INTO Table_Buku ('KodeBuku','NamaBuku','Pengarang','Status','TanggalKembali') VALUES (@KodeBuku,@NamaBuku,@Pengarang,@Status,@TanggalKembali)

end

4.Screenshot Desain

5.Source Code

Imports System.Data
Imports System.Data.SqlClient


Public Class MenuUtama
    Inherits System.Web.UI.Page

    Public constring As String = ConfigurationManager.ConnectionStrings("PerpustakaanConnectionString").ConnectionString
    Public oConn As New SqlConnection(constring)
    Public oTbl As New DataTable
    Public xReader As SqlDataReader

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sql As String = "INSERT INTO Tabel_Buku VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
        Dim oCmd As New SqlCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim hapus = MsgBox("Konfirmasi", MsgBoxStyle.YesNo, "Hapus")

        If hapus = vbYes Then
            oConn.Close()
            oConn.Open()
            Dim delet As String = "DELETE FROM Tabel_Buku where KodeBuku ='" + TextBox1.Text + "'"
            Dim oCmd As New SqlCommand
            oConn.Close()
            oConn.Open()
            oCmd.Connection = oConn
            oCmd.CommandText = delet
            oCmd.ExecuteNonQuery()
            MsgBox("Data Sudah Terhapus", vbArchive)

            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""


        End If
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim sql As String = " UPDATE Tabel_Buku set NamaBuku  ='" & TextBox2.Text & "', Pengarang = '" & TextBox3.Text & "', Status = " & TextBox4.Text & ", TanggalKembali = '" & TextBox5.Text & "' where KodeBuku = '" & TextBox1.Text & "'"
        Dim oCmd As New SqlCommand
        oConn.Close()
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        oConn.Close()
        oConn.Open()
        Dim Cmd As New SqlCommand("SELECT * FROM Tabel_Buku where KodeBuku ='" + TextBox1.Text + "'", oConn)
        xReader = Cmd.ExecuteReader
        If xReader.HasRows Then
            xReader.Read()
            TextBox2.Text = xReader("NamaBuku")
            TextBox3.Text = xReader("Pengarang")
            TextBox4.Text = xReader("Status")
            TextBox5.Text = xReader("TanggalKembali")


        Else
            MsgBox("Buku Tidak Ada")
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""

            Exit Sub
        End If
        xReader.Close()
    End Sub

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Response.Redirect("MenuView.aspx")
    End Sub

End Class

Tugas UTS Lab. SMBD

1.Tahapan Normalisasi

1NF

NPM→NamaMahasiswa,KodeMK,NamaMK,Nilai1,Nilai2,Nilai3,Nilai4,NilaiRataRata

2NF

NPM→NamaMahasiswa,KodeMK,NamaMK

KodeMK→Nilai1,Nilai2,Nilai3,Nilai4,NilaiRataRata

3NF

NPM→NamaMahasiswa,KodeMK,NilaiRataRata

KodeMK→NamaMK

NilaiRataRata→Nilai1,Nilai2,Nilai3,Nilai4

Database Normalisasi

2.Screenshot & Source Code

Imports System.Data

Imports System.Data.OleDb

Public Class Input_Nilai

    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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        TxtRata.Text = (Txt1.Text + Txt2.Text + Txt3.Text + Txt4.Text) / 4

        Dim sql As String = "INSERT INTO TABEL_MAHASISWA VALUES('" & TxtNPM.Text & "','" & TxtNama.Text & "','" & TxtKode.Text & "','" & TxtMK.Text & "','" & TxtRata.Text & "')"

        Dim oCmd As New OleDbCommand

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        oConn.Close()

        oConn.Open()

        Dim Cmd As New OleDbCommand("SELECT * FROM TABEL_MAHASISWA WHERE NPM = " + TxtNPM.Text + "", oConn)

        xReader = Cmd.ExecuteReader

        If xReader.HasRows Then

            xReader.Read()

            TxtNama.Text = xReader("NamaMahasiswa")

            TxtKode.Text = xReader("KodeMK")

            TxtMK.Text = xReader("NamaMK")

            TxtRata.Text = xReader("NilaiRataRata")

        Else

            MsgBox("NPM yang Anda Masukkan Salah!")

            TxtNama.Text = ""

            TxtNPM.Text = ""

            TxtKode.Text = ""

            TxtMK.Text = ""

            TxtRata.Text = ""

            Exit Sub

        End If

    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        TxtRata.Text = (Txt1.Text + Txt2.Text + Txt3.Text + Txt4.Text) / 4

        Dim sql As String = "UPDATE TABEL_MAHASISWA set NamaMahasiswa = '" & TxtNama.Text & "', KodeMK = '" & TxtKode.Text & "',NamaMK = '" & TxtNama.Text & "',NilaiRataRata = '" & TxtRata.Text & "' where NPM = '" & TxtNPM.Text & "'"

        Dim oCmd As New OleDbCommand

        oConn.Close()

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Dim hapus = MsgBox("Konfirmasi Hapus", MsgBoxStyle.YesNo, "Hapus")

        If hapus = vbYes Then

            oConn.Close()

            oConn.Open()

            Dim delete As String = "DELETE FROM TABEL_MAHASISWA where NPM = " + TxtNPM.Text + ""

            Dim ocmd As New OleDbCommand

            oConn.Close()

            oConn.Open()

            ocmd.Connection = oConn

            ocmd.CommandText = delete

            ocmd.ExecuteNonQuery()

            MsgBox("Berhasil Terhapus", vbArchive)

            TxtNama.Text = ""

            TxtNPM.Text = ""

            TxtKode.Text = ""

            TxtMK.Text = ""

            TxtRata.Text = ""

        End If

    End Sub

End Class

TUGAS UAS PEMROGRAMAN BISNIS 2

1.Penjelasan Aplikasi

Aplikasi ini bernama Persediaan Gudang.Fungsi dari Aplikasi ini adalah mencatat Persediaan yang akan disimpan di Gudang.Input dari Aplikasi ini yaitu:Kode Barang,Nama Barang,Jenis Barang,Jumlah dan Nomor Rak,untuk Lokasi Penyimpanan dari Barang otomatis ditentukan berdasarkan Jenis Barang tersebut.Untuk menggunakan aplikasi ini,User wajib memasukkan ID dan Psawword,jika login sebagai Manager,user dapat memiliki akses untuk input data,edit,hapus,lihat dan cetak,jika login sebagai Auditor,User hanya memiliki akses untuk melihat dan mencetak.

2.Source Code

Source Code di Login Form

Public Class Form4

   

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "Gudang" Then
            TextBox2.Text = "gudang"
            MsgBox("Login Sebagai Admin Gudang")
            Utama.Show()
           

        ElseIf TextBox1.Text = "Audit" Then
            TextBox2.Text = "audit"
            MsgBox("Login Sebagai Auditor")
            Form5.Show()
         

        End If
    End Sub
End Class

Source Code di Form Utama

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

Public Class Utama
    Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Tugas Uas PemBis\Gudang.accdb"
    Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)
    Dim xreader As OleDbDataReader

    Private Sub BtnTambah_Click(sender As Object, e As EventArgs) Handles BtnTambah.Click
        If ComboBox1.Text = "Padat" Then
            Label3.Text = "SEKTOR 1"
        ElseIf ComboBox1.Text = "Cair" Then
            Label3.Text = "SEKTOR 2"
        ElseIf ComboBox1.Text = "Gas" Then
            Label3.Text = "SEKTOR 3"
        End If
        objekkoneksi.Close()
        objekkoneksi.Open()
        Dim tambah As String = "INSERT INTO Gudang values('" & TxtKode.Text & "','" & TxtNama.Text & "','" & ComboBox1.Text & "','" & TxtJumlah.Text & "','" & Label3.Text & "','" & TxtNomor.Text & "' )"
        Dim ocmd = New OleDbCommand(tambah, objekkoneksi)
        ocmd.ExecuteNonQuery()
        objekkoneksi.Close()
        MsgBox("Berhasil Disimpan!")
        TxtJumlah.Text = ""
        TxtKode.Text = ""
        TxtNama.Text = ""
        TxtNomor.Text = ""
        ComboBox1.Text = ""
        Label3.Text = ""

    End Sub

    Private Sub BtnCari_Click(sender As Object, e As EventArgs) Handles BtnCari.Click
        Dim VKode = InputBox("Masukkan Kode Barang!")
        objekkoneksi.Close()
        objekkoneksi.Open()
        Dim ocmd As New OleDbCommand("SELECT * FROM Gudang where KodeBarang = '" + VKode + "'", objekkoneksi)
        xreader = ocmd.ExecuteReader

        If xreader.HasRows Then
            xreader.Read()
            TxtNama.Text = xreader("NamaBarang")
            TxtKode.Text = xreader("KodeBarang")
            TxtNomor.Text = xreader("NomorRak")
            TxtJumlah.Text = xreader("Jumlah")
            ComboBox1.Text = xreader("JenisBarang")
            Label3.Text = xreader("LokasiPenyimpanan")

        Else
            MsgBox("Barang Tidak Ada!")
            Exit Sub

        End If
        xreader.Close()
    End Sub

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

    Private Sub BtnPerbarui_Click(sender As Object, e As EventArgs) Handles BtnPerbarui.Click
        Dim sql As String = "update Gudang set NamaBarang='" + TxtNama.Text + "',JenisBarang = '" + ComboBox1.Text + "',Jumlah = '" + TxtJumlah.Text + "',LokasiPenyimpanan = '" + Label3.Text + "',NomorRak = '" + TxtNomor.Text + "' where KodeBarang = '" + TxtKode.Text + "'"
        Dim ocmd As New OleDbCommand
        objekkoneksi.Close()
        objekkoneksi.Open()
        ocmd.Connection = objekkoneksi
        ocmd.CommandText = sql
        ocmd.ExecuteNonQuery()
        MsgBox("Berhasil Diperbarui!")
        TxtJumlah.Text = ""
        TxtKode.Text = ""
        TxtNama.Text = ""
        TxtNomor.Text = ""
        ComboBox1.Text = ""
        Label3.Text = ""

    End Sub

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

    Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
        Dim hapus = MsgBox("Konfirmasi", MsgBoxStyle.YesNo, "Hapus Data Ini?")
        If hapus = vbYes Then
            objekkoneksi.Close()
            objekkoneksi.Open()
            Dim delete As String = "DELETE FROM Gudang where KodeBarang = '" + TxtKode.Text + "'"
            Dim oCmd As New OleDbCommand
            objekkoneksi.Close()
            objekkoneksi.Open()
            oCmd.Connection = objekkoneksi
            oCmd.CommandText = delete
            oCmd.ExecuteNonQuery()
            MsgBox("Data Berhasil Dihapus!")
            TxtJumlah.Text = ""
            TxtKode.Text = ""
            TxtNama.Text = ""
            TxtNomor.Text = ""
            ComboBox1.Text = ""
            Label3.Text = ""


        End If
    End Sub

    Private Sub TxtKode_LostFocus(sender As Object, e As EventArgs) Handles TxtKode.LostFocus
        objekkoneksi.Close()
        objekkoneksi.Open()
        Dim Cmd As New OleDbCommand("SELECT * FROM Gudang where KodeBarang = '" + TxtKode.Text + "'", objekkoneksi)

        xreader = Cmd.ExecuteReader
        If xreader.HasRows Then
            Dim MKode = MsgBox("Silahkan Input Barang Lain!", MsgBoxStyle.OkOnly, "Barang Sudah Terdaftar")
        End If

    End Sub

 
 
End Class

3.Screenshot

Tugas UTS Pemrograman Bisnis II

Aplikasi Input Slip Gaji

Aplikasi ini digunakan untuk menginput Slip Gaji karyawan.Untuk menggunakan aplikasi ini,pengguna cukup memasukkan Nama,Nomot Induk Pegawai,Status dan Jumlah Anak,setela itu,hanya dengan menekan tombol simpan,maka aplikasi ini otomatis menghitung Gaji Kotor,berapa tunjangan untuk anak dan istri/suami,berapa potongan untuk Iuran JAMSOSTEK,Iuran Pensiun dan Iuran Koperasi.Setelah itu aplikasi ini juga otomatis menghitung berapa Pajak Penghasilan dan Gaji Bersih,lalu otomatis menyimpan sebagai Slip Gaji dalam bentuk Word.Adapun tunjangan bagi yang sudah berkeluarga,untuk suami/istri Rp,1.500.000,untuk 1 anak sebesar Rp,1.500.000,untuk 2 anak sebesar Rp,2.500.000.Iuran JAMSOSTEK sebesar 1,5% dari Gaji Pokok,Iuran Pensiun 2,5% dari Gaji Pokok,dan Iuran Koperasi tergantung dari jabatan karyawan.

Source Code

Public Class Form1
    Dim excelapp As New Microsoft.Office.Interop.Excel.Application
    Dim myexcelbook As Microsoft.Office.Interop.Excel.Workbook
    Dim wordapp As New Microsoft.Office.Interop.Word.Application
    Dim mywordbook As New Microsoft.Office.Interop.Word.Document
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       

        If ComboBox1.Text = "Manager" Then
            LblGajiPokok.Text = "20000000"
        ElseIf ComboBox1.Text = "Assistant Manager" Then
            LblGajiPokok.Text = "16000000"
        ElseIf ComboBox1.Text = "Manager Keuangan" Then
            LblGajiPokok.Text = "14000000"
        ElseIf ComboBox1.Text = "Manager Pemasaran" Then
            LblGajiPokok.Text = "13000000"
        ElseIf ComboBox1.Text = "Supervisor" Then
            LblGajiPokok.Text = "10000000"
        ElseIf ComboBox1.Text = "Staff Supervisor" Then
            LblGajiPokok.Text = "8000000"
        End If

     

        If CheckBox1.Checked Then
            LblKawin.Text = "1500000"
        ElseIf CheckBox2.Checked Then
            LblKawin.Text = "0"

        End If

       

        If RadioButton1.Checked Then
            LblAnak.Text = "0"
        ElseIf RadioButton2.Checked Then
            LblAnak.Text = "1500000"
        ElseIf RadioButton3.Checked Then
            LblAnak.Text = "2500000"
        End If

     
        LblJAMSOS.Text = 0.015 * (Val(LblGajiPokok.Text))
     
       
        LblLembur.Text = (Val(TxtLembur.Text)) * 150000

        If ComboBox1.Text = "Manager" Then
            LblTransport.Text = 0.05 * LblGajiPokok.Text
            LblListrik.Text = 0.05 * LblGajiPokok.Text
            LblKoperasi.Text = 0.03 * LblGajiPokok.Text
        ElseIf ComboBox1.Text = "Assistant Manager" Then
            LblTransport.Text = 0.04 * LblGajiPokok.Text
            LblListrik.Text = 0.04 * LblGajiPokok.Text
            LblKoperasi.Text = 0.025 * LblGajiPokok.Text
        ElseIf ComboBox1.Text = "Manager Keuangan" Then
            LblTransport.Text = 0.03 * LblGajiPokok.Text
            LblListrik.Text = 0.03 * LblGajiPokok.Text
            LblKoperasi.Text = 0.02 * LblGajiPokok.Text
        ElseIf ComboBox1.Text = "Manager Pemasaran" Then
            LblTransport.Text = 0.02 * LblGajiPokok.Text
            LblListrik.Text = 0.02 * LblGajiPokok.Text
            LblKoperasi.Text = 0.015 * LblGajiPokok.Text
        ElseIf ComboBox1.Text = "Supervisor" Then
            LblTransport.Text = 0.015 * LblGajiPokok.Text
            LblListrik.Text = 0.015 * LblGajiPokok.Text
            LblKoperasi.Text = 0.01 * LblGajiPokok.Text
        ElseIf ComboBox1.Text = "Staff Supervisor" Then
            LblTransport.Text = 0.01 * LblGajiPokok.Text
            LblListrik.Text = 0.01 * LblGajiPokok.Text
            LblKoperasi.Text = 0.05 * LblGajiPokok.Text
        End If

        LblPensiun.Text = 0.025 * (Val(LblGajiPokok.Text))

        LblAbsen.Text = (Val(TxtAbsen.Text)) * 200000
        LblTerlambat.Text = (Val(TxtTerlambat.Text)) * 10000

        LblGajiKotor.Text = ((Val(LblGajiPokok.Text)) + (Val(LblKawin.Text)) + (Val(LblAnak.Text)) + (Val(LblLembur.Text)) + (Val(LblListrik.Text)) + (Val(LblTransport.Text))) - ((Val(LblJAMSOS.Text)) + (Val(LblPensiun.Text)) + (Val(LblKoperasi.Text)) + (Val(LblTerlambat.Text)) + (Val(LblAbsen.Text)))
        LblPajak.Text = 0.1 * (Val(LblGajiKotor.Text))
        LblGajiBersih.Text = ((Val(LblGajiKotor.Text)) - (Val(LblPajak.Text)))

        mywordbook = wordapp.Documents.Open("E:\Hailuk\Semester 3\Pemrograman Bisnis\Tugas UTS\Slip Gaji.docx")
        mywordbook.Bookmarks("Nama").Select()
        wordapp.Selection.TypeText(TxtNama.Text)
        mywordbook.Bookmarks("NIP").Select()
        wordapp.Selection.TypeText(TxtNIP.Text)
        mywordbook.Bookmarks("Jabatan").Select()
        wordapp.Selection.TypeText(ComboBox1.Text)
        mywordbook.Bookmarks("GajiPokok").Select()
        wordapp.Selection.TypeText(Val(LblGajiPokok.Text))
        mywordbook.Bookmarks("Anak").Select()
        wordapp.Selection.TypeText(Val(LblAnak.Text))
        mywordbook.Bookmarks("Kawin").Select()
        wordapp.Selection.TypeText(Val(LblKawin.Text))
        mywordbook.Bookmarks("Transport").Select()
        wordapp.Selection.TypeText(Val(LblTransport.Text))
        mywordbook.Bookmarks("Lembur").Select()
        wordapp.Selection.TypeText(Val(LblLembur.Text))
        mywordbook.Bookmarks("ListrikAir").Select()
        wordapp.Selection.TypeText(Val(LblListrik.Text))
        mywordbook.Bookmarks("Jamsostek").Select()
        wordapp.Selection.TypeText(LblJAMSOS.Text)
        mywordbook.Bookmarks("Koperasi").Select()
        wordapp.Selection.TypeText(LblKoperasi.Text)
        mywordbook.Bookmarks("Pensiun").Select()
        wordapp.Selection.TypeText(LblPensiun.Text)
        mywordbook.Bookmarks("Terlambat").Select()
        wordapp.Selection.TypeText(Val(LblTerlambat.Text))
        mywordbook.Bookmarks("Absen").Select()
        wordapp.Selection.TypeText(Val(LblAbsen.Text))

        mywordbook.Bookmarks("GajiKotor").Select()
        wordapp.Selection.TypeText(LblGajiKotor.Text)

        mywordbook.Bookmarks("Pajak").Select()
        wordapp.Selection.TypeText(LblPajak.Text)

        mywordbook.Bookmarks("GajiBersih").Select()
        wordapp.Selection.TypeText(LblGajiBersih.Text)
        mywordbook.SaveAs2("E:\Hailuk\Semester 3\Pemrograman Bisnis\" + TxtNIP.Text + "" + TxtNama.Text + ".docx")

        MsgBox("Jangan Lupa Cek Kembali Slip Gaji Sebelum Cetak!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, " Slip Gaji Telah Tersimpan")

        myexcelbook = excelapp.Workbooks.Open("E:\Hailuk\Semester 3\Pemrograman Bisnis\Tugas UTS\Slip Gaji.xlsx")
        excelapp.Range("C3").Value = TxtNama.Text
        excelapp.Range("C4").Value = TxtNIP.Text
        excelapp.Range("C5").Value = ComboBox1.Text
        excelapp.Range("C7").Value = LblGajiPokok.Text
        excelapp.Range("C10").Value = LblKawin.Text
        excelapp.Range("C11").Value = LblAnak.Text
        excelapp.Range("C12").Value = LblLembur.Text
        excelapp.Range("C13").Value = LblTransport.Text
        excelapp.Range("C14").Value = LblListrik.Text

        excelapp.Range("C17").Value = LblJAMSOS.Text
        excelapp.Range("C18").Value = LblPensiun.Text
        excelapp.Range("C19").Value = LblKoperasi.Text
        excelapp.Range("C20").Value = LblTerlambat.Text
        excelapp.Range("C21").Value = LblAbsen.Text

        excelapp.Range("C23").Value = LblGajiKotor.Text
        excelapp.Range("C24").Value = LblPajak.Text
        excelapp.Range("C26").Value = LblGajiBersih.Text
        myexcelbook.SaveAs("E:\Hailuk\Semester 3\Pemrograman Bisnis\" + TxtNIP.Text + "" + TxtNama.Text + ".xlsx")


    End Sub

 
 
End Class

Desain

Screenshot Ketika Running

UAS Pemrograman Bisnis 1 TSI 2015/2016

Penjelasan Aplikasi

Aplkasi Pemesanan Paket Wisata

Aplikasi ini digunakan untuk melakukan pemesanan Paket Wisata yang ditawarkan.Untuk menggunakan aplikasi ini sangat mudah,pengguna cukup memilih dari Paket WIsata yang ditawarkan dan mengnekan tombol pesan jika ingin melakukan pemesanan paket yang dipilih.Setelah Paket di pilih,pengguna akan diarahkan ke Form Pemesanan.Pada Form Pemesanan,pengguna diharuskan untuk mengisi Nama dan Nomor Handphone,memilih tanggal keberangkatan,memasukan berapa orang yang ikut dalam Paket Wisata dan memilih cara pembayaran secara tunai atau transfer bank.Untuk pembayaran tunai akan mendapatkan diskon sebesar 10%,untuk transfer bank akan mendapatkan diskon sebesar 20%.Setelah semua proses sebelumnya diselesaikan,pengguna diharuskan untuk menghitung  total harga dengan menekan tombol Hitung Harga dan melakukan pemesanan dengan menekan tombol Pesan. 

Source Code

Form Utama

Public Class FormUtama

    Private Sub MalangCityTourToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MalangCityTourToolStripMenuItem.Click

        Me.SendToBack()

        Malang.Show()

    End Sub

    Private Sub BromoMidnightTourToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BromoMidnightTourToolStripMenuItem.Click

        Me.SendToBack()

        Bromo.Show()

    End Sub

   

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Me.Close()

    End Sub

End Class

Form Malang City Tour

Public Class Malang

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        PictureBox1.Image = System.Drawing.Image.FromFile("E:\Hailuk\Semester 2\Pemrograman Bisnis\Project_UAS\mlg1.jpg")

        PictureBox2.Image = System.Drawing.Image.FromFile("E:\Hailuk\Semester 2\Pemrograman Bisnis\Project_UAS\mlg2.jpg")

        PictureBox3.Image = System.Drawing.Image.FromFile("E:\Hailuk\Semester 2\Pemrograman Bisnis\Project_UAS\mlg3.jpg")

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        FormPesan.Label2.Text = "150000"

        FormPesan.Label3.Text = "Malang City Tour"

        Me.Hide()

        FormPesan.ShowDialog()

    End Sub

   

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Me.SendToBack()

        FormUtama.Show()

        Me.Close()

    End Sub

End Class

Form Bromo Midnight Tour

Public Class Bromo

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        PictureBox1.Image = System.Drawing.Image.FromFile("E:\Hailuk\Semester 2\Pemrograman Bisnis\Project_UAS\brm1.jpg")

        PictureBox2.Image = System.Drawing.Image.FromFile("E:\Hailuk\Semester 2\Pemrograman Bisnis\Project_UAS\brm2.jpg")

        PictureBox3.Image = System.Drawing.Image.FromFile("E:\Hailuk\Semester 2\Pemrograman Bisnis\Project_UAS\brm3.jpg")

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        FormPesan.Label2.Text = "350000"

        FormPesan.Label3.Text = "Bromo Midnight Tour"

        Me.Hide()

        FormPesan.ShowDialog()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Me.SendToBack()

        FormUtama.Show()

        Me.Close()

    End Sub

End Class

Form Pemesanan

Public Class FormPesan

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If ComboBox2.Text = "Tunai" Then

            Label10.Text = (Val(Label2.Text) * 0.9) * Val(ComboBox1.Text)

            Label12.Text = "Selamat Anda Mendapatkan Diskon 10%"

        ElseIf ComboBox2.Text = "Transfer Bank" Then

            Label10.Text = (Val(Label2.Text) * 0.8) * Val(ComboBox1.Text)

            Label12.Text = "Selamat Anda Mendapatkan Diskon 20%"

        End If

    End Sub

   

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim var7 As Object

        Dim var6 As Object

        Dim var5 As Object

        Dim var4 As Object

        Dim var3 As Object

        Dim var2 As Object

        Dim var1 As Object

        Dim nofile As Short

        nofile = FreeFile()

        FileOpen(nofile, "E:\Hailuk\Semester 2\Pemrograman Bisnis\Project_UAS\Book1.csv", OpenMode.Append)

        var1 = Label3.Text

        var2 = TextBox1.Text

        var3 = TextBox2.Text

        var4 = ComboBox1.Text

        var5 = DateTimePicker1.Text

        var6 = ComboBox2.Text

        var7 = Label10.Text

        ListBox1.Items.Add(var1 & "--" & var2 & "--" & var3 & "--" & var4 & "-- hari" & var5 & "--" & var6 & "--" & var7 & "--")

        WriteLine(1, var1, var2, var3, var4, var5, var6, var7)

        FileClose(1)

        MsgBox(" Silahkan Tunggu SMS Konfirmasi Dari Kami", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, " Terimakasih Atas Kepercayaannya")

       

    End Sub

   

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Me.Close()

    End Sub

End Class

Screenshot Run Aplikasi