Membuat Aplikasi Kasir Restoran

Assalam'mualaikum wr.wb
Salah satu tugas akhir Semester, dan untuk memenuhi kelengkapan nilai mata kuliah Pemograman 1 di STMIK ERESHA. Untuk penjelasannya penulis sudah membuat perancangannya di pekan uas lalu. 
   Progam yang telah di buat adalah Aplikasi Pembayaran Restoran, mungkin ini hanya program sederhana saja atau bisa dibilang program untuk progamer pemula. Deskripsi dari program ini adalah untuk user sudah bisa menyimpan data, menghapus data ,dan mengedit data yang sudah tersimpan. Dalam artian program yang saya sudah buat ini, user sudah bisa memanipulasi semua data yang akan di input/diberikan user dan sesuai keinginan nya.

Untuk pengoprasian nya ;
- Input data ,
- Proses,
- Simpan,
- Selesai
- Data yang sudah di simpan , sudah terkoneksi oleh database Ms. Acces


Yang akan saya berikan di Blog ini :
- Flow Chart (Gambar)
- Contoh Design (Gambar)
- Grid View (Gambar)
-Data Base (Gambar)
-Source Kode Button Cari
-Source Kode Button Tampil
-Source Kode Button Simpan
-Source Kode Button  Beli
-Hasil Run (Gambar)

• Flow Chart

•  Contoh Design

 

• Grid View

• Data Base 

•  Source Kode Button Cari 

  Protected Sub btncari_Click(sender As Object, e As EventArgs) Handles btncari.Click
        oConn.Close()
        oConn.Open()
        Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM Tableresto where Paket_Hemat =" & ddkode.SelectedValue() & "", oConn)
        xReader = ocmd.ExecuteReader
        If xReader.HasRows Then
            xReader.Read()
            txtmenu.Text = xReader("Menu")
            txtharga.Text = xReader("Harga")
        Else
            txtmenu.Text = "Nama menu Tidak ada"

        End If
        xReader.Close()

    End Sub

•  Source Kode Button Tampil

Protected Sub btntampil_Click(sender As Object, e As EventArgs) Handles btntampil.Click
        Response.Redirect("WebFormPEMBELI.aspx")
    End Sub 

•  Source Kode Button Simpan

 Protected Sub btnsimpan_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
        Dim sql As String = "INSERT INTO Tablepembeli VALUES ('" & txtnama.Text & "','" & ddkode.Text & "','" & txtmenu.Text & "','" & txtharga.Text & "','" & txtjumlah.Text & "','" & txttotalbayar.Text & "')"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()

    End Sub 

•  Source Kode Button  Beli

    Protected Sub btnbeli_Click(sender As Object, e As EventArgs) Handles btnbeli.Click

    End Sub

• Hasil Run

 

- Source Code WebFromBeli

Public Class WebFormBELI
    Inherits System.Web.UI.Page
    Private constring As String = ConfigurationManager.ConnectionStrings("ConnectionString2").ConnectionString
    Private oConn As New OleDbConnection(constring)
    Private xReader As OleDbDataReader

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

    End Sub

                Sekian Aplikasi Kasir Pembayaran Restowan, Mohon maaf masih banyak kesalahan di blog aplikasi saya. Karena saya masih pemula di codingan Program Aplikasi Visual Studio.

TERIMAKASIH

Membuat Program Sederhana Visual Studio

Cara membuat program sederhana data penjualan

• Pendahuluan

   Assalamualaikum wr.wb. Dengan menyebut nama tuhan , saya akan membuat program sederhana yg berjudul Program Penjualan Smartphone, dibuatnya program ini untuk menyelesaikan tugas dari mata kuliah Pemrograman 1. Berikut penjelasan saya atas program yang saya buat.

• Deskripsi

  Di program ini saya akan membuat aplikasi kasir untuk penjualan hp smartphone. Dimana di program ini ada beberapa textbox,combobox,button,picture, dan di program ini akan terhubung ke Ms. Word untuk mencetak hasil perhitungan dan terhubung pula ke Ms. Excel untuk menyimpan data hasil perhitungan. Penjelasan cara memakai aplikasi yang pertama masukan kode barang yg di beli kemudian akan muncul nama barang yg di beli dan akan muncul pula harga barang dan picture dari barang tersebut, kemudian masukan qtt barang yang ingin dibeli dan akan muncul total harga barang yang ingin dibeli, setelah itu masukan uang untuk pembayarannya dan klik hitung untuk menghitung kembalian dan kembalian pun akan muncul di text lalu klik kembali untuk mengeluarkan program tersebut.

• Desain  Program dan Kode Coding

-Desain Program Penjualan Smartphone

-Gambar untuk memasukan kode barang serta codingannya dibawah gambar untuk kode barang, nama barang, dan harga satuan 

Codingan untuk txt.Kode Barang : Public Class Form1

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = "B1" Then

            Txtbarang.Text = "ASUS"

            Txtharga.Text = "900000"

            PictureBox1.Image = Image.FromFile("C:\Users\ridhwan\Documents\ASUS.jpg")

        End If

        If ComboBox1.Text = "B2" Then

            Txtbarang.Text = "VIVO"

            Txtharga.Text = "1700000"

            PictureBox1.Image = Image.FromFile("C:\Users\ridhwan\Documents\index.jpg")

        End If

        If ComboBox1.Text = "B3" Then

            Txtbarang.Text = "SAMSUNG"

            Txtharga.Text = "1800000"

            PictureBox1.Image = Image.FromFile("C:\Users\ridhwan\Documents\samsung.jpg")

        End If

        If ComboBox1.Text = "B4" Then

            Txtbarang.Text = "XIAOMI"

            Txtharga.Text = "1550000"

            PictureBox1.Image = Image.FromFile("C:\Users\ridhwan\Documents\xiami.jpg")

        End If

        If ComboBox1.Text = "B5" Then

            Txtbarang.Text = "MITO"

            Txtharga.Text = "450000"

            PictureBox1.Image = Image.FromFile("C:\Users\ridhwan\Documents\mito.jpg")

        End If

    End Sub

Codingan untuk txt.Nama Barang : Private Sub Txtbarang_TextChanged(sender As Object, e As EventArgs) Handles Txtbarang.TextChanged

    End Sub

Codingan Untuk txt.Harga Satuan :  Private Sub Txtbarang_TextChanged(sender As Object, e As EventArgs) Handles Txtbarang.TextChanged

    End Sub

-Gambar Jika program di masukan Jumlah Barang dan Total harga akan keluar serta codinganya

Codingan Untuk Jumlah Barang : Private Sub Txtjumlah_TextChanged(sender As Object, e As EventArgs) Handles Txtjumlah.TextChanged

    End Sub

Codingan Untuk Total Harga : Private Sub Txttotal_TextChanged(sender As Object, e As EventArgs) Handles Txttotal.TextChanged

    End Sub

-Hasil Gambar untuk Button Hitung Txt.Total Bayar dan Button Bayar dan juga Txt.Kembalian serta codingannya

Codingan Untuk Button Hitung : Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click

        Txttotal.Text = Txtharga.Text * Txtjumlah.Text

    End Sub

Codingan Untuk Txt.Total Bayar : Private Sub Txtbayar_TextChanged(sender As Object, e As EventArgs) Handles Txtbayar.TextChanged

    End Sub

Codingan Untuk Button Bayar : Private Sub Btnbayar_Click_1(sender As Object, e As EventArgs) Handles Btnbayar.Click

        Txtkembali.Text = Txtbayar.Text - Txttotal.Text

    End Sub

Codingan Untuk Txt. Kembalian : Private Sub Txtkembali_TextChanged(sender As Object, e As EventArgs) Handles Txtkembali.TextChanged

    End Sub

-Gambar dari Button Simpan, Button Cetak, Button Kembali , Serta Codingannya

Codingan Untuk Button Simpan : Private Sub Btnsimpan_Click(sender As Object, e As EventArgs) Handles Btnsimpan.Click

        Dim AppExcelnya As New Excel.Application

        Dim ExcelWB As Excel.Workbook

        ExcelWB = AppExcelnya.Workbooks.Open("D:\UTS\billhp.xlsx")

        AppExcelnya.Range("C8").Value = ComboBox1.Text

        AppExcelnya.Range("D8").Value = Txtbarang.Text

        AppExcelnya.Range("E8").Value = Txtharga.Text

        AppExcelnya.Range("F8").Value = Txtjumlah.Text

        AppExcelnya.Range("G8").Value = Txttotal.Text

        AppExcelnya.Range("H8").Value = Txtbayar.Text

        AppExcelnya.Range("I8").Value = Txtkembali.Text

        ExcelWB.SaveAs("D:\UTS\billhpNew.xlsx")

        AppExcelnya.Visible = True

    End Sub

Codingan Untuk Button Cetak : Private Sub Btncetak_Click(sender As Object, e As EventArgs) Handles Btncetak.Click

        Dim Appnya As New Word.Application

        Dim Dokumennya As Word.Document

        Dokumennya = Appnya.Documents.Open("D:\UTS\biilhp.docx")

        Dokumennya.Bookmarks("kodebarang").Select()

        Appnya.Selection.TypeText(ComboBox1.Text)

        Dokumennya.Bookmarks("namabarang").Select()

        Appnya.Selection.TypeText(Txtbarang.Text)

        Dokumennya.Bookmarks("hargasatuan").Select()

        Appnya.Selection.TypeText(Txtharga.Text)

        Dokumennya.Bookmarks("jumlahbarang").Select()

        Appnya.Selection.TypeText(Txtjumlah.Text)

        Dokumennya.Bookmarks("totalharga").Select()

        Appnya.Selection.TypeText(Txttotal.Text)

        Dokumennya.Bookmarks("totalbayar").Select()

        Appnya.Selection.TypeText(Txtbayar.Text)

        Dokumennya.Bookmarks("kembalian").Select()

        Appnya.Selection.TypeText(Txtkembali.Text)

        Dokumennya.SaveAs("D:\UTS\biilhpNew.docx")

        Appnya.Visible = True

    End Sub

Codingan Untuk Button Kembali : Private Sub btnkembali_Click(sender As Object, e As EventArgs) Handles btnkembali.Click

        Me.Close()

    End Sub