Buatlah project baru dalam VB.Net. Susun Form1 seperti berikut ini:
Di sebelah kanan project ada nama project yang sedang kita kerjakan, klik kanan pada nama project lalu klik Add dan pilih New Form. Buatlah 4 form baru seperti berikut ini:
Pada Button Login di Form1, masukkan source code berikut:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "pelanggan" And TextBox2.Text = "123456" Then
MDIParent1.Show()
Me.Hide()
Else
Dim salahinput As Integer
salahinput = MsgBox("Maaf Username/Password yang Anda masukkan salah", MsgBoxStyle.Critical)
End If
End Sub
Untuk LinkLabel di Form satu masukkan source code berikut:
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
LinkLabel1.LinkVisited = True
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
Sign_Up.Show()
End Sub
Dan untuk Button Cancel di Form1 masukkan coding berikut:
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Pada Form MDI Parent, klik File > New > Lalu tulis nama form yang akan dibuat. Dalam project kali ini tulis Our Books dan Confirmation of Payment.
Klik double pada Our Books dan masukkan source code berikut:
Private Sub OurBooksToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OurBooksToolStripMenuItem.Click
Dim ChildForm As New Our_Books
ChildForm.MdiParent = Me
m_ChildFormNumber += 1
ChildForm.Text = "Our Books" & m_ChildFormNumber
ChildForm.Show()
End Sub
Klik double pada Confirmation of Payment, berikut adalah source codenya:
Private Sub ConfirmationOfPaymentToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConfirmationOfPaymentToolStripMenuItem.Click
Dim ChildForm As New Confirmation_of_Payment
ChildForm.MdiParent = Me
m_ChildFormNumber += 1
ChildForm.Text = "Confirmation of Payment" & m_ChildFormNumber
ChildForm.Show()
End Sub
Pada Button OK di Form Sign Up, masukkan coding berikut:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MessageBox.Show("Your account has been successfully created.Your new username is pelanggan and your password is 123456")
End Sub
Sementara itu untuk coding Button Close adalah:
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Berikut adalah source code pada Form Our Books
Untuk Form Our Books:
Private Sub Our_Books_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("The Fault in Or Stars")
ComboBox1.Items.Add("Summer in Seoul")
ComboBox1.Items.Add("Autumn in Paris")
ComboBox1.Items.Add("Winter in Tokyo")
ComboBox1.Items.Add("Spring in London")
ComboBox1.Items.Add("Sunshine Becomes You")
End Sub
Untuk Button I Want To See The Price
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Select Case ComboBox1.SelectedIndex
Case 0
MsgBox("Rp 78.000,-")
Case 1
MsgBox("Rp 62.000,-")
Case 2
MsgBox("Rp 65.000,-")
Case 3
MsgBox("Rp 70.000,-")
Case 4
MsgBox("Rp 75.000,-")
Case 5
MsgBox("Rp 80.000,-")
End Select
End Sub
Untuk Button Order:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MessageBox.Show("Thank you for ordering! We will send your book(s) a day after you send us proof of payment to our page")
End Sub
Untuk Button Close:
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Berikut adalah source code di Form Confirmation of Payment:
Untuk Button Open:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "Image Files(*.jpg;*.jpeg;*.gif;*.bmp)|*.jpg;*.jpeg;*.gif;*.bmp"
If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)
End If
End Sub
Untuk Button Send:
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
MessageBox.Show("Thank you, we will check your payment first and then tomorrow we will send your book(s):D")
End Sub
Untuk Button Print:
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim myapp As New Microsoft.Office.Interop.Word.Application
Dim mydoc As New Microsoft.Office.Interop.Word.Document
mydoc = myapp.Documents.Open("D:\Shabrina Ghassani\Lab VB2\Tugas 6 - Shabrina Ghassani 1306470110\bukti1.docx")
mydoc.Bookmarks("rekening").Select()
myapp.Selection.TypeText(TextBox1.Text)
mydoc.Bookmarks("atasnama").Select()
myapp.Selection.TypeText(TextBox2.Text)
mydoc.Bookmarks("tanggal").Select()
myapp.Selection.TypeText(TextBox3.Text)
mydoc.Bookmarks("jumlah").Select()
myapp.Selection.TypeText(TextBox4.Text)
mydoc.SaveAs("D:\Shabrina Ghassani\Lab VB2\Tugas 6 - Shabrina Ghassani 1306470110\bukti2.docx")
End Sub
Lalu pada project kita, klik Project > Add Reference > Pilih Microsoft Word 12.0 Object Library > klik OK
Buatlah dokumen pada Ms.Word seperti berikut:
Pada dokumen kita tersebut, klik Insert > Bookmark > tulis nama bookmark yang diinginkan > klik Add
Selain menyimpan dokumen diatas, kita juga harus menyimpan 1 dokumen Ms.Word lagi, tetapi biarkan dokumen yang satu ini kosong. Simpan kedua dokumen di folder yang sama dengan project VB.NET kita.
Berikut ini adalah screenshots cara kerja project yang saya telah buat:
Jika username dan password benar dan klik Login, maka yang keluar adalah:
Tapi jika username atau password salah maka yang keluar adalah:
Tapi jika Anda belum mempunyai username/password maka dapat klik Sign Up dan yang akan keluar adalah:
Jika Anda sudah login, pilih Our Books:
Setelah itu jika Anda telah memesan buku dan telah men-transfer uang, pilih Confirmation of Payment:
Klik Open untuk membilih gambar bukti transaksi, dan Send untuk mengirim bukti transfer, sedangkan Print untuk mencetak bukti konfirmasi yang akan muncul di word:
