Design Cover Cd

Design Cover Buku

PROGRAM PENJUALAN SEPATU (VISUAL STUDIO 2012)

Halooooooooooooooo........

Selamat membaca ya buat kalian yang mau tau gimana sih cara membuat program penjualan sepatu menggunakan aplikasi Visual Studio 2012. Tujuan dibuatnya program ini pastinya untuk mempermudah user dalam aktivitas jual beli selain itu tujuan dibuatnya program ini untuk tugas UAS juga:D
Untuk Langkah pertama buat database di Aplikasi Ms.Access :

1.   Buka Microsoft access 2010, kemudian create “Blank Database” kalian.

2.  Membuat tabel. Untuk membuat tabel dan mengisi data di tabel, klik kanan   pada “tabel1” –> klik “desaign view” –> tabelnya diberi nama.

3.   Setelah tabel diberi nama, langsung aja di isi tabel terserah kalian dan jangan lupa disave tabelnya. Contoh tabel yang sudah buat.

Pada tb_1 dibuat untuk menampilkan list dari sepatu baik harga, ukuran, jenis, dll. sedangkan tb_2 dibuat untuk menampilkan data yang telah disimpan.

Disini pada aplikasi Visual Studio 2012 kita dapat membuat design web sesuai dengan minat kita. Saya menggunakan beberapa tools salah satunya Label untuk pemberian Text, TextBox untuk pengisian kolom dan Button untuk membuat tombol. Nah ini design yang saya buat

Source kode :

A. New

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox1.Focus()

    End Sub

B. Save

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

        Dim sql As String = "INSERT INTO tb_2 VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')"

        oConn.Open()

        oCmd.Connection = oConn

        oCmd.CommandText = sql

        oCmd.ExecuteNonQuery()

    End Sub 

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

        Response.Redirect("Form1_Irma_161011400026.aspx")

D. Show List

Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Response.Redirect("Form3_Irma_161011400026.aspx")

    End Sub

Menampilkan dan Mengkoneksikan database dari Ms.Acces menggunakan Grid View. Tabel pertama digunakan untuk menapilkan daftar harga sepatu dan table kedua untuk menampilkan save data yang telah di input oleh user.

Cara Koneksi dari Ms.Access :

1.    Buka Database Explorer

2.    Pilih Add Connection

3.    Akan terbuka sebuah Window Explorer, kita pilih database yang akan kita gunakan dalam pembuatan aplikasi kita. saya menggunakan database bernama DBSepatu.accdb, lalu klik Open.

4.    Terakhir, dibagian sebelah kiri, tepatnya dibagian Database Explorer akan tampil semua yang ada didalam Database tersebut, seperti Tables, Function, dll

Hasil Run

Hasil Save 

Hasil daftar harga

Source kode

Imports System.Data

Imports System.Data.OleDb

Public Class From2

    Inherits System.Web.UI.Page

    Private constring As String = ConfigurationManager.ConnectionStrings("Db_2ConnectionString").ConnectionString

    Private oConn As New OleDbConnection(constring)

    'Private oTbl As New DataTable

    'Private xReader As SqlDataReader

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

        Dim sql As String = "INSERT INTO tb_2 VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')"

        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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox1.Focus()

    End Sub

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

        Response.Redirect("Form1_Irma_161011400026.aspx")

    End Sub

    Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Response.Redirect("Form3_Irma_16101140026.aspx")

    End Sub

End Class

FLOW CHART

Membuat Program Sederhana Menggunakan Visual Studio (Aplikasi Penjualan Sepatu)

Microsoft Visual Studio merupakan sebuah perangkat lunak lengkap (suite) yang dapat digunakan untuk melakukan pengembangan aplikasi, baik itu aplikasi bisnis, aplikasi personal, ataupun komponen aplikasinya, dalam bentuk aplikasi console, aplikasi Windows, ataupun aplikasi web. Aplikasi penjualan sepatu ini dibuat dan dirancang untuk memudahkan/mengefisienkan user dalam menjalani pekerjaan, aplikasi ini didesign khusus sesuai kebutuhan user. Terdapat beberapa menu pada aplikasi ini sebagai berikut :

1. Tampilan Utama

Pada tampilan menu utama terdapat tombol Show Collections, Buy Now dan Exit.

            a. Show collections

Pada tampilan awal terdapat tombol show collection, tombol ini dibuat menggunakan button > Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click

        ShowImage.Visible = True

         b. Buy now

Sama dengan show collection tombol Buy Now ini menggunakan button > Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Aritmatika.Visible = True

        Me.Visible = False

    End Sub

    

b. Exit

Pada tombol exit > Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Me.Close()

    End Sub

2. Form Show image

            Pada menu ini terdapat tombol radio button yang berfungsi untuk memilih jenis sepatu, selain tombol radio button terdapat pula menu Back, Buy dan Exit.

a.   Radio button

digunakan untuk pemilihan gambar sepatu. Terdapat 5 item sepatu pada aplikasi. Radio button > Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

PictureBox2.Image = System.Drawing.Image.FromFile("D:\backup\data kuliah\SMESTER.4\Program2\pictUTS\1.jpg")

 

End Sub

        Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

  PictureBox2.Image = System.Drawing.Image.FromFile("D:\backup\data kuliah\SMESTER.4\Program2\pictUTS\2.jpg")

 

        End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged

PictureBox2.Image = System.Drawing.Image.FromFile("D:\backup\data kuliah\SMESTER.4\Program2\pictUTS\3.jpg")

End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged

PictureBox2.Image = System.Drawing.Image.FromFile("D:\backup\data kuliah\SMESTER.4\Program2\pictUTS\4.jpg")

    End Sub

    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged

PictureBox2.Image = System.Drawing.Image.FromFile("D:\backup\data kuliah\SMESTER.4\Program2\pictUTS\5.jpg")

    End Sub

b.   Back

Tombol ini dibuat menggunakan Button > Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Me.Visible = False

        Form1.Visible = True

c.   Exit

Pada tombol exit > Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Me.Close()

    End Sub

Pada tombol exit > Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Me.Close()

    End Sub

3.  Form Buy Now

a. Item Kode   

   

Pada form Buy now dibuat menggunakan ComboBox terdapat kotak dialog Item_Kode, dimana menu tersebuat telah menyediakan beberapa kode yang dapat dipilih oleh user.

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

        If ComboBox1.Text = "001" Then

            TextBox3.Text = " Green Shoes "

            TextBox1.Text = " 200000"

        ElseIf ComboBox1.Text = "002" Then

            TextBox3.Text = " Flat Shoes "

            TextBox1.Text = " 500000"

        ElseIf ComboBox1.Text = "003" Then

            TextBox3.Text = " Rubi Shoes  "

            TextBox1.Text = " 250000"

        ElseIf ComboBox1.Text = "004" Then

            TextBox3.Text = " New Shoes "

            TextBox1.Text = " 400000"

        ElseIf ComboBox1.Text = "005" Then

            TextBox3.Text = " Black Shoes "

            TextBox1.Text = " 600000"

        End If

    End Sub

   

   b.  Calculate

Calculate untuk menghitung jumlah menggunakan Button Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

       TextBox4.Text = TextBox1.Text * TextBox5.Text

       End Sub

           c.    Diskon

Untuk tombol diskon menggunakan Checkbox >  Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            TextBox6.Text = TextBox4.Text * 0.05

        ElseIf TextBox6.Text = 0 Then

        End If

   

           d.    Total

Menggunakan Button > Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

       TextBox2.Text = TextBox4.Text - TextBox6.Text

    End Sub

          e.    Cash Back

       Fungsi tombol cash back untuk menghitung pembayaran dikurangi total     harga,menggunakan Button > Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

          f.    Print

Menu print disini mencetak hasil perhitungan yang telah user input, Menggunakan Button > Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Aplikasi As New word.Application

        Dim Filenya As New word.Document

        Filenya = Aplikasi.Documents.Open("D:\backup\data kuliah\SMESTER.4\Program2\uts.docx")

        Filenya.Bookmarks("Kode").Select()

        Aplikasi.Selection.TypeText(ComboBox1.Text)

        Filenya.Bookmarks("Name").Select()

        Aplikasi.Selection.TypeText(TextBox3.Text)

        Filenya.Bookmarks("Price").Select()

        Aplikasi.Selection.TypeText(TextBox1.Text)

        Filenya.Bookmarks("Items").Select()

        Aplikasi.Selection.TypeText(TextBox5.Text)

        Filenya.Bookmarks("Calculate").Select()

        Aplikasi.Selection.TypeText(TextBox4.Text)

        Filenya.Bookmarks("Discount").Select()

        Aplikasi.Selection.TypeText(TextBox6.Text)

        Filenya.Bookmarks("Total").Select()

        Aplikasi.Selection.TypeText(TextBox2.Text)

        Filenya.Bookmarks("pay").Select()

        Aplikasi.Selection.TypeText(textpayment.Text)

        Filenya.Bookmarks("spay").Select()

        Aplikasi.Selection.TypeText(payment.Text)

        Filenya.Bookmarks("cb").Select()

        Aplikasi.Selection.TypeText(cashback.Text)

        Filenya.SaveAs2("D:\backup\data kuliah\SMESTER.4\Program2\print.docx")

        MsgBox("Sukses")

        Aplikasi.Visible = True

    End Sub

          g.    Save

Menu save disini  untuk menyimpan data hasil penjualan. Menggunakan Button > 

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

        Dim Aplikasi As New excel.Application

        Dim Filenya As excel.Workbook

        Filenya = Aplikasi.Workbooks.Open("D:\backup\data kuliah\SMESTER.4\Program2\uts1.xlsx")

        Aplikasi.Range("B5").Value = ComboBox1.Text

        Aplikasi.Range("C5").Value = TextBox3.Text

        Aplikasi.Range("D5").Value = TextBox1.Text

        Aplikasi.Range("E5").Value = TextBox5.Text

        Aplikasi.Range("F5").Value = TextBox4.Text

        Aplikasi.Range("G5").Value = TextBox6.Text

        Aplikasi.Range("H5").Value = TextBox2.Text

        Aplikasi.Range("I5").Value = textpayment.Text

        Aplikasi.Range("J5").Value = payment.Text

        Aplikasi.Range("K5").Value = cashback.Text

        Filenya.SaveAs("D:\backup\data kuliah\SMESTER.4\Program2\utsnew.xlsx")

        MsgBox("Sukses")

        Aplikasi.Visible = True

    End Sub

Hasil Run