Program Penjualan Barang Elektronik

TUTORIAL MEMBUAT APLIKASI FORUM PENJUALAN ELEKTRONIK DENGAN VISUAL STUDIO 2012

Assalamualaikum Wr.wb

Ketemu dengan saya lagi setelah sekian lama vakum,  disini saya akan menjelaskan bagaimana cara membuat Program Penjualan Barang Elektronik dengan menggunakan aplikasi Visual Studio 2012.

Oke langsung aja....

1. Langkah pertama  buka software visual basic 2010
2. Tunggu sampai tampilan windows visual basic 2010 muncul,
    Lalu pilih new project pada start page.     



3.  Pilih windows form application, tentukan file location di direktori yg anda inginkan,
Pada kolom name, ketikan nama file terserah yg anda inginkan, lalu klik OK.

 

4.  Dan buatlah rangkaian form seperti ini

5.  Rubah properties semua object tools sebagai berikut

Object	Design Name	Text
Label1	Text	Toko Barang Elektronik
Label2	Text	Nama
Label3	Text	Alamat
Label4	Text	Barang
Label5	Text	Jumlah
Label6	Text	Harga
Label7	Text	Bayar
Label8	Text	Kembali
TextBox	Tnama
TextBox	Talamat
ComboBox	ComboBox1
TextBox	Text1
TextBox	Text2
TextBox	Text3
TextBox	Text4
Button1	Button1	Total
Button2	Button2	Reset
Button3	Button3	Cetak
Button4	Button4	Simpan
Button5	Button5	Keluar

6.  Setelah semua properties dirubah, mulailah membuat coding dengan cara klik dua kali pada toolkit yang akan diberi source code / perintah.

ComboBox1

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

        If ComboBox1.Text = "Kulkas" Then

            Text2.Text = Val(Text1.Text) * 15000000

        ElseIf ComboBox1.Text = "TV" Then

            Text2.Text = Val(Text1.Text) * 2000000

        ElseIf ComboBox1.Text = "DVD" Then

            Text2.Text = Val(Text1.Text) * 1000000

        ElseIf ComboBox1.Text = "Sound" Then

            Text2.Text = Val(Text1.Text) * 800000

        ElseIf ComboBox1.Text = "Kipas" Then

            Text2.Text = Val(Text1.Text) * 200000

        ElseIf ComboBox1.Text = "Mesin Cuci" Then

            Text2.Text = Val(Text1.Text) * 5000000

        ElseIf ComboBox1.Text = "Komputer" Then

            Text2.Text = Val(Text1.Text) * 20000000

        End If

    End Sub

Selanjutnya klik dua kali pada From untuk mengAdd data pada ComboBox

From1

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

        ComboBox1.Items.Add("Kulkas")

        ComboBox1.Items.Add("TV")

        ComboBox1.Items.Add("DVD")

        ComboBox1.Items.Add("Sound")

        ComboBox1.Items.Add("Kipas")

        ComboBox1.Items.Add("Mesin Cuci")

        ComboBox1.Items.Add("Komputer")

    End Sub

Selanjutnya klik dua kali pada TextBox1 untuk memsukan jumlah barang dan secara otomatis jumlah harga akan muncut

Text1

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Text1.TextChanged

        If ComboBox1.Text = "Kulkas" Then

            Text2.Text = Val(Text1.Text) * 15000000

        ElseIf ComboBox1.Text = "TV" Then

            Text2.Text = Val(Text1.Text) * 2000000

        ElseIf ComboBox1.Text = "DVD" Then

            Text2.Text = Val(Text1.Text) * 1000000

        ElseIf ComboBox1.Text = "Sound" Then

            Text2.Text = Val(Text1.Text) * 800000

        ElseIf ComboBox1.Text = "Kipas" Then

            Text2.Text = Val(Text1.Text) * 200000

        ElseIf ComboBox1.Text = "Mesin Cuci" Then

            Text2.Text = Val(Text1.Text) * 5000000

        ElseIf ComboBox1.Text = "Komputer" Then

            Text2.Text = Val(Text1.Text) * 20000000

        End If

    End Sub

Selanjutnya klik dua kali pada Button 

Total

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

        Text4.Text = Val(Text3.Text) - Val(Text2.Text)

    End Sub

Reset

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

        ComboBox1.ResetText()

        Text1.ResetText()

        Text2.ResetText()

        Text3.ResetText()

        Text4.ResetText()

        Talamat.ResetText()

        Tnama.ResetText()

    End Sub

7.  Mengkoneksikan Visual Studio dengan Ms.Word

Klik Project pada Visual Studio lalu pilih Add Reference..

Klik COM lalu cari Ms.Word jika sudah klik OK



8.  Membuat BookMark pada Ms.Word

Pertama buat seperti gambar dibawah lalu buat folder (C:\data\Tokoexcel.docx)

 

Jika sudah klik Insert > Bookmark lalu buat sepeti ini sesuai paraf atau nama  

9.  Memanggil Ms.Word pada Visual studio

Pertama Imports klik dua kali pada From aplikasi lalu masukan code berikut dipaling atas

Imports Word = Microsoft.Office.Interop.Word

Selanjutnya klik dua kali pada Button3 

Cetak

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

        Dim Appnya As New Word.Application

        Dim Dokumennya As Word.Document

        Dokumennya = Appnya.Documents.Open("C:\test\Toko.docx")

        Dokumennya.Bookmarks("Nama").Select()

        Appnya.Selection.TypeText(Tnama.Text)

        Dokumennya.Bookmarks("Alamat").Select()

        Appnya.Selection.TypeText(Talamat.Text)

        Dokumennya.Bookmarks("Barang").Select()

        Appnya.Selection.TypeText(ComboBox1.Text)

        Dokumennya.Bookmarks("Jumlah").Select()

        Appnya.Selection.TypeText(Text1.Text)

        Dokumennya.Bookmarks("Harga").Select()

        Appnya.Selection.TypeText(Text2.Text)

        Dokumennya.Bookmarks("Bayar").Select()

        Appnya.Selection.TypeText(Text3.Text)

        Dokumennya.Bookmarks("Kembali").Select()

        Appnya.Selection.TypeText(Text4.Text)

        Dokumennya.SaveAs("C:\test\TokoNew.docx")

        Appnya.Visible = True

    End Sub

Sekarang kita coba jalankan

Jika sukses maka data yang barusan kita input akan muncul di Word

 

10.  Mengkoneksikan Visual Studio dengan Ms.Excel

Klik Project pada Visual Studio lalu pilih Add Reference..

 

 

Klik COM lalu cari Ms.Excel jika sudah klik OK

11.  Membuat Table pada Excel

Pertama buat seperti gambar dibawah lalu buat folder (C:\data\Tokoexcel.xlsx)

12.  Memanggil Ms.Excel pada Visual studio

Pertama Imports klik dua kali pada From aplikasi lalu masukan code berikut dipaling atas

Imports Excel = Microsoft.Office.Interop.Excel

Selanjutnya klik dua kali pada Button4 

Simpan

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

        Dim AppExcelnya As New Excel.Application

        Dim ExcelWB As Excel.Workbook

        ExcelWB = AppExcelnya.Workbooks.Open("C:\test\Tokoexcel.xlsx")

        AppExcelnya.Range("C5").Value = Tnama.Text

        AppExcelnya.Range("D5").Value = Talamat.Text

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

        AppExcelnya.Range("F5").Value = Text1.Text

        AppExcelnya.Range("G5").Value = Text2.Text

        AppExcelnya.Range("H5").Value = Text3.Text

        AppExcelnya.Range("I5").Value = Text4.Text

        ExcelWB.SaveAs("C:\test\TokoexcelNew.xlsx")

        AppExcelnya.Visible = True

    End Sub

Sekarang kita coba jalankan

Jika sukses maka data yang barusan kita input akan muncul di Excel

Selesai sudah aplikasi yg kita buat, Mohon maaf apabila ada kata yg salah

Terima kasih