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