Untuk membuatnya item yang saya gunakan adalah
- Label
- Textbox
- Button
- ComboBox
- Dokumen Microsoft Word
Untuk poin harga dan total akan keluar secara otomatis. Kemudian anda dapat men-klik tombol bayar jika sudah selesai belanja, maka total pembayaran yang harus dibayar akan keluar otomatis dan begitu juga dengan pencatatan transaksi akan terbuat seperti ini
Untuk memperindah, pada form tersebut saya beri warna hijau dengan fungsi backcolour pada VB 2008.
Berikut adalah source code nya
Imports word = Microsoft.Office.Interop.Word
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackColor = Color.LightGreen
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = ("Bawang Merah") Then TextBox1.Text = ("15000")
If ComboBox1.SelectedItem = ("Bawang Putih") Then TextBox1.Text = ("13000")
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myWordApp As New word.Application
Dim myWordDoc As New word.Document
TextBox2.Text = TextBox1.Text * ComboBox2.Text
myWordDoc = myWordApp.Documents.Open("C:\Users\Febry Lawrencius\Desktop\feb.doc")
myWordDoc.Bookmarks("BRG").Select()
myWordApp.Selection.TypeText(ComboBox1.Text)
myWordDoc.Bookmarks("HRG").Select()
myWordApp.Selection.TypeText(TextBox1.Text)
myWordDoc.Bookmarks("JML").Select()
myWordApp.Selection.TypeText(ComboBox2.Text)
myWordDoc.Bookmarks("TGHAN").Select()
myWordApp.Selection.TypeText(TextBox2.Text)
myWordDoc.SaveAs("C:\Users\Febry Lawrencius\Desktop\febNew.doc")
myWordApp.Visible = True
myWordApp.Quit()
End Sub
End Class
Sekian dari saya, semoga menjadi informasi yang berguna.
Tks
Tidak ada komentar:
Posting Komentar