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
