Web Application Go Smart

Selamat berjumpa kembali dengan saya ,di Project Kali ini saya membuat Program Les Bimbel yang saya beri nama "GoSmart Bimbel". Project ini merupakan program aplikasi berbasis web. Di aplikasi ini pebimbel di sarankan mendaftarkan diri dahulu sebelum mengikuti bimbel dan pebimbel pun dapat melihat materi ,hari dan jam yang tersedia.

Langsung saja ,ini flowchart dari program saya 

 

Dan ini Database yang saya gunakan. Karena dalam tugas uas kali ini web application nya terhubung dengan database.



Ini tampilan program saya beserta code : 



Public Class WebUtama_161011400067_Steffi_Antoni
    Inherits System.Web.UI.Page

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

    End Sub

    Protected Sub Daftar_Click(sender As Object, e As EventArgs) Handles Daftar.Click
        Response.Redirect("WebDaftar_161011400067_Steffi_Antoni.aspx")
    End Sub

    Protected Sub Materi_Click(sender As Object, e As EventArgs) Handles Materi.Click
        Response.Redirect("ListMateri_161011400067_Steffi_Antoni.aspx")
    End Sub

    Protected Sub CekData_Click(sender As Object, e As EventArgs) Handles CekData.Click
        Response.Redirect("ListData_161011400067_Steffi_Antoni.aspx")
    End Sub
End Class

 

Imports System.Data
Imports System.Data.OleDb
Public Class WebDaftar_161011400067_Steffi_Antoni
    Inherits System.Web.UI.Page
    Private constring As String = ConfigurationManager.ConnectionStrings("Steffi_BimbelConnectionString").ConnectionString
    Private oConn As New OleDbConnection(constring)
    Private oTbl As New DataTable
    Private xReader As OleDbDataReader
    Dim oCmd As New OleDbCommand
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub DropDownList4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DropMateri.SelectedIndexChanged
       
    End Sub

    Protected Sub Simpan_Click(sender As Object, e As EventArgs) Handles Simpan.Click
        Dim sql As String = "INSERT INTO tb_Data VALUES ('" & DropID.Text & "','" & TextNama.Text & "','" & DropUmur.Text & "','" & DropPendidikan.Text & "','" & DropMateri.Text & "')"

        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()

    End Sub

    Protected Sub Kembali_Click(sender As Object, e As EventArgs) Handles Kembali.Click
        Response.Redirect("WebUtama_161011400067_Steffi Antoni.aspx")
    End Sub
End Class



Imports System.Data
Imports System.Data.OleDb

Public Class ListData_161011400067_Steffi_Antoni
    Inherits System.Web.UI.Page
    Private cinn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Nafriyu\Documents\Steffi_Bimbel"
    Private constring As String = ConfigurationManager.ConnectionStrings("Steffi_BimbelConnectionString").ConnectionString
    Private oConn As New OleDbConnection(constring)
    Private oTbl As New DataTable
    Private xReader As OleDbDataReader
    Private tabel1 As OleDbDataAdapter

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

    Protected Sub Cari_Click(sender As Object, e As EventArgs) Handles Cari.Click
        oConn.Open()
        Dim tabel1 As New OleDbDataAdapter("SELECT * FROM tb_Data where ID_Bimbel LIKE '%" + IdBimbel.Text + "%';", oConn)
        Dim tabel2 As New DataSet()
        tabel2.Clear()
        tabel1.Fill(tabel2, "tb_Data")
        GridView1.DataSource = (tabel2.Tables("tb_Data"))
        GridView1.DataBind()
        oConn.Close()
        IdBimbel.Text = ""
    End Sub

    Protected Sub Kembali_Click(sender As Object, e As EventArgs) Handles Kembali.Click
        Response.Redirect("WebUtama_161011400067_Steffi Antoni.aspx")
    End Sub
End Class

 

Public Class ListMateri_161011400067_Steffi_Antoni
    Inherits System.Web.UI.Page

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

    End Sub

    Protected Sub ButtonBack_Click(sender As Object, e As EventArgs) Handles ButtonBack.Click
        Response.Redirect("WebUtama_161011400067_Steffi Antoni.aspx")
    End Sub
End Class

Lalu ini hasil run nya 

  



 



Sekian dari saya , sampai bertemu di pertemuan selanjutnya ..

Program Kasir Cafe Gue dengan VB.NET

Program Kasir Cafe Gue dengan VB.NET

Selamat datang di blog saya ,dan selamat berjumpa kembali setelah 2 semester tidak bertemu. Di semester 4 kali ini saya membuat program kasir sebuah Cafe. Dimana dalam program ini ,saya memakai Software Visual Studio dan juga saya memakai banyak toolbox di antaranya : 

• Label
• TextBox
• DateTimePicker
• ComboBox
• ListBox
• Button

Di program kali ini saya menggunakan 3 form. Dimana form awal adalah tampilan awal yang menampung 2 button yang akan mengarah ke 2 form lainnya yaitu Main Course dan Table.

Tampilan form tampilan awal :




Tampilan Form Main Course dan Table sama ,hanya berbeda di seksi Jasa dan Table.

 




Tampilan Word Table dan Main Course




Tampilan Excel Main Course dan Table



Source Code Pada Form Tampilan Awal

Terdapat 3 Button pada tampilan awal yaitu Main Course ,Table dan Exit.

Public Class FormWelcome

    Private Sub ButtonMainCourse_Click(sender As Object, e As EventArgs) Handles ButtonMainCourse.Click
        FormMainCourse.Visible = True
        Me.Hide()
    End Sub

    Private Sub Table_Click(sender As Object, e As EventArgs) Handles Table.Click
        FormTable.Visible = True
        Me.Hide()
    End Sub

    Private Sub Keluar_Click(sender As Object, e As EventArgs) Handles Keluar.Click
        Dim x = MsgBox("Apakah Anda yakin", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "Warning")
        If x = MsgBoxResult.Ok Then
            Me.Close()
        End If
    End Sub
End Class

Source Code untuk Form Main Course

Terdapat beberapa toolbox yang di beri kode di form ini. namun sebelumnya jangan lupa untuk menambahkan preference di Menu bar Project > Add Preference. Lalu pilih COM > Libraries .. Lalu centang Microsoft Word 16.0 Library dan Microsoft Excel 16.0 Library.

Lalu ketik code seperti ini :

 

Jika sudah ,Masukkan Code seperti ini di From_Main Course. Untuk mengisi item pada combobox yang saya gunakan.

Private Sub FormMainCourse_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Jasa.Items.Add("Pilih")
        Jasa.Items.Add("GO-JEK")
        Jasa.Items.Add("GRAB")

        Cashier.Items.Add("Pilih")
        Cashier.Items.Add("Sinta")
        Cashier.Items.Add("Nuri")
        Cashier.Items.Add("Asri")

        For No = 1 To 40
            NoAntri.Items.Add(No)
        Next

        Makanan.Items.Add("None")
        Makanan.Items.Add("Fried Rice Special")
        Makanan.Items.Add("Fried Rice Chicken")
        Makanan.Items.Add("Fried Rice Seafood")
        Makanan.Items.Add("Meatball Noodle")
        Makanan.Items.Add("Steak Chicken")
        Makanan.Items.Add("Steak Beef")

        Minuman.Items.Add("None")
        Minuman.Items.Add("Mineral Water")
        Minuman.Items.Add("Milkshake Choco")
        Minuman.Items.Add("Milkshake Vanilla")
        Minuman.Items.Add("Milkshake Mocca")
        Minuman.Items.Add("Hot Green Tea")
        Minuman.Items.Add("Iced Green Tea")

        Dessert.Items.Add("None")
        Dessert.Items.Add("Oreo Cake")
        Dessert.Items.Add("Soy Milk Pudding")
        Dessert.Items.Add("Ice Cream Waffle")
    End Sub

Dan Kode yang saya sisipkan di beberapa toolbox sebagai berikut :

Private Sub Jasa_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Jasa.SelectedIndexChanged
        Select Case Jasa.Text
            Case "GO-JEK"
                PictureJasa.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\gojek.jpeg")
            Case "GRAB"
                PictureJasa.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\grab.png")
        End Select
    End Sub

Private Sub Makanan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Makanan.SelectedIndexChanged
        Select Case Makanan.Text
            Case "None"
                HargaMakanan.Text = "0"
                QtyMakanan.Text = "0"
                PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\none.jpg")
            Case "Fried Rice Special"
                HargaMakanan.Text = "20000"
                QtyMakanan.Text = ""
                PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\fried rice special.jpg")
            Case "Fried Rice Chicken"
                HargaMakanan.Text = "25000"
                QtyMakanan.Text = ""
                PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\fried rice chicken.jpg")
            Case "Fried Rice Seafood"
                HargaMakanan.Text = "30000"
                QtyMakanan.Text = ""
                PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\fried rice seafood.jpg")
            Case "Meatball Noodle"
                HargaMakanan.Text = "25000"
                QtyMakanan.Text = ""
                PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\meatball noodle.jpg")
            Case "Steak Chicken"
                HargaMakanan.Text = "35000"
                QtyMakanan.Text = ""
                PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\steak chicken.jpg")
            Case "Steak Beef"
                HargaMakanan.Text = "40000"
                QtyMakanan.Text = ""
                PictureBox1.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\steak beef.jpg")
        End Select
    End Sub

    Private Sub Minuman_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Minuman.SelectedIndexChanged
        Select Case Minuman.Text
            Case "None"
                HargaMinuman.Text = "0"
                QtyMinuman.Text = "0"
                PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\none.jpg")
            Case "Mineral Water"
                HargaMinuman.Text = "5000"
                QtyMinuman.Text = ""
                PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\mineral water.jpg")
            Case "Milkshake Choco"
                HargaMinuman.Text = "15000"
                QtyMinuman.Text = ""
                PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\milkshake choco.jpg")
            Case "Milkshake Vanilla"
                HargaMinuman.Text = "15000"
                QtyMinuman.Text = ""
                PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\milkshake vanilla.jpg")
            Case "Milkshake Mocca"
                HargaMinuman.Text = "15000"
                QtyMinuman.Text = ""
                PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\milkshake mocca.jpg")
            Case "Hot Green Tea"
                HargaMinuman.Text = "10000"
                QtyMinuman.Text = ""
                PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\hot green tea.jpg")
            Case "Iced Green Tea"
                HargaMinuman.Text = "10000"
                QtyMinuman.Text = ""
                PictureBox2.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\iced green tea.jpg")
        End Select
    End Sub

    Private Sub Dessert_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Dessert.SelectedIndexChanged
        Select Case Dessert.Text
            Case "None"
                HargaDessert.Text = "0"
                QtyDessert.Text = "0"
                PictureBox3.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\none.jpg")
            Case "Oreo Cake"
                HargaDessert.Text = "25000"
                QtyDessert.Text = ""
                PictureBox3.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\oreo cake.jpg")
            Case "Ice Cream Waffle"
                HargaDessert.Text = "30000"
                QtyDessert.Text = ""
                PictureBox3.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\ice cream waffle.jpg")
            Case "Soy Milk Pudding"
                HargaDessert.Text = "20000"
                QtyDessert.Text = ""
                PictureBox3.Image = System.Drawing.Image.FromFile("D:\UTS Steffi\soy milk pudding.png")
        End Select
    End Sub

        Private Sub Cek_Click(sender As Object, e As EventArgs) Handles Cek.Click
        TotalBayar.Text = (HargaMakanan.Text * QtyMakanan.Text) + (HargaMinuman.Text * QtyMinuman.Text) + (HargaDessert.Text * QtyDessert.Text)

        ListBox1.Items.Add("Welcome to Cafe Gue")
        ListBox1.Items.Add("")
        ListBox1.Items.Add("Memakai Jasa : " + Jasa.Text)
        ListBox1.Items.Add("Cashier : " + Cashier.Text)
        ListBox1.Items.Add("No Antrian : " + NoAntri.Text)
        ListBox1.Items.Add("Tanggal pemesanan : " + tanggal.Text)
        ListBox1.Items.Add("Makanan yang di pesan : " + QtyMakanan.Text + " " + Makanan.Text)
        ListBox1.Items.Add("Minuman yang di pesan : " + QtyMinuman.Text + " " + Minuman.Text)
        ListBox1.Items.Add("Dessert yang di pesan : " + QtyDessert.Text + " " + Dessert.Text)
        ListBox1.Items.Add("Total bayar : Rp." + TotalBayar.Text)
    End Sub

    Private Sub Hitung_Click(sender As Object, e As EventArgs) Handles Hitung.Click
        Kembalian.Text = Bayar.Text - TotalBayar.Text
        ListBox1.Items.Add("Uang yang di bayarkan : Rp." + Bayar.Text)
        ListBox1.Items.Add("Uang kembalian : Rp." + Kembalian.Text)
    End Sub

    Private Sub ButtonWord_Click(sender As Object, e As EventArgs) Handles ButtonWord.Click
        dokumennya = appnya.Documents.Open("D:\UTS Steffi\Main Course.docx")
        dokumennya.Bookmarks("Jasa").Select()
        appnya.Selection.TypeText(Jasa.Text)
        dokumennya.Bookmarks("Cashier").Select()
        appnya.Selection.TypeText(Cashier.Text)
        dokumennya.Bookmarks("Tanggal").Select()
        appnya.Selection.TypeText(tanggal.Text)
        dokumennya.Bookmarks("NoAntrian").Select()
        appnya.Selection.TypeText(NoAntri.Text)
        dokumennya.Bookmarks("Makanan").Select()
        appnya.Selection.TypeText(Makanan.Text)
        dokumennya.Bookmarks("JumlahMakanan").Select()
        appnya.Selection.TypeText(QtyMakanan.Text)
        dokumennya.Bookmarks("HargaMakanan").Select()
        appnya.Selection.TypeText(HargaMakanan.Text)
        dokumennya.Bookmarks("Minuman").Select()
        appnya.Selection.TypeText(Minuman.Text)
        dokumennya.Bookmarks("JumlahMinuman").Select()
        appnya.Selection.TypeText(QtyMinuman.Text)
        dokumennya.Bookmarks("HargaMinuman").Select()
        appnya.Selection.TypeText(HargaMinuman.Text)
        dokumennya.Bookmarks("Dessert").Select()
        appnya.Selection.TypeText(Dessert.Text)
        dokumennya.Bookmarks("JumlahDessert").Select()
        appnya.Selection.TypeText(QtyDessert.Text)
        dokumennya.Bookmarks("HargaDessert").Select()
        appnya.Selection.TypeText(HargaDessert.Text)
        dokumennya.Bookmarks("Total").Select()
        appnya.Selection.TypeText(TotalBayar.Text)
        dokumennya.Bookmarks("Bayar").Select()
        appnya.Selection.TypeText(Bayar.Text)
        dokumennya.Bookmarks("Kembalian").Select()
        appnya.Selection.TypeText(Kembalian.Text)
        MsgBox("Berhasil")
        dokumennya.SaveAs("D:\UTS Steffi\Main Course.docx")
        appnya.Visible = True
    End Sub

    Private Sub ButtonExcel_Click(sender As Object, e As EventArgs) Handles ButtonExcel.Click
        dokumenexcel = appexcelnya.Workbooks.Open("D:\UTS Steffi\Main Course.xlsx")
        appexcelnya.Range("E5").Value = NoAntri.Text
        appexcelnya.Range("E6").Value = tanggal.Text
        appexcelnya.Range("K5").Value = Cashier.Text
        appexcelnya.Range("K6").Value = Jasa.Text
        appexcelnya.Range("D11").Value = QtyMakanan.Text
        appexcelnya.Range("D12").Value = QtyMinuman.Text
        appexcelnya.Range("D13").Value = QtyDessert.Text
        appexcelnya.Range("F11").Value = Makanan.Text
        appexcelnya.Range("F12").Value = Minuman.Text
        appexcelnya.Range("F13").Value = Dessert.Text
        appexcelnya.Range("I11").Value = HargaMakanan.Text
        appexcelnya.Range("I12").Value = HargaMinuman.Text
        appexcelnya.Range("I13").Value = HargaDessert.Text
        appexcelnya.Range("I14").Value = TotalBayar.Text
        appexcelnya.Range("I15").Value = Bayar.Text
        appexcelnya.Range("I16").Value = Kembalian.Text
        dokumenexcel.SaveAs("D:\UTS Steffi\Main Course.xlsx")
        appexcelnya.Visible = True
    End Sub

    Private Sub Clear_Click(sender As Object, e As EventArgs) Handles Clear.Click
        Jasa.SelectedItem = "Pilih"
        Cashier.SelectedItem = "Pilih"
        NoAntri.Text = "1"
        Makanan.SelectedItem = "None"
        Minuman.SelectedItem = "None"
        Dessert.SelectedItem = "None"
        ListBox1.Items.Clear()
        TotalBayar.Text = ""
        Bayar.Text = ""
        Kembalian.Text = ""
        PictureJasa.Visible = False
    End Sub

    Private Sub Back_Click(sender As Object, e As EventArgs) Handles Back.Click
        FormWelcome.Visible = True
        Me.Hide()
    End Sub

Sekiranya saya hanya menampilkan source code dari Form Main Course karena perbedaan Form Main Course dan Form Table ,hanya terletak pada bagian ComboBox yang menampilkan Jasa dan Table.

Inilah hasil running programnya :

Terimakasih atas kesempatan yang telah di berikan kepada saya untuk dapat mengerjakan tugas UTS kali ini. Sampai berjumpa di kesempatan selanjutnya .. Bye bye