Rabu, 03 Oktober 2012

Tugas 1

Langsung saja, saya ingin menjelaskan tentang program yang saya buat. Tampilan program seperi gambar berikut ini  .

Program ini dibuat utuk memudahkan kita dalam melakukan pecatatan transaksi. Gunanya bisa untuk Kwitansi/Bon, rekap pembelian, dll.

Untuk membuatnya item yang saya gunakan adalah
  1. Label
  2. Textbox
  3. Button
  4. ComboBox
  5. Dokumen Microsoft Word
Untuk menjalankan programnya, beberapa poin harus diisi dulu seperti barang yang dibeli dan banyaknya barang yang dibeli. Untuk poin harga dan total pembelian akan keluar otomatis. Gambarnya seperti ini


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