PICTUREBOX, RADIOBUTTON, COMBOBOX, CHECKBOX, TEXTBOX DAN LINK KE MICROSOFT WORD PADA VB.NET

~Salam..
Pada kesemptan kali ini, saya akan menjelaskan cara menggunaka radiobutton, combobox, checkbox dan link ke microsoft word pada vb.net

Deskripsi project

Project ini berguna untuk membantu pengguna dalam melakukan pemesanan dan pembayaran kamar hotel. Dengan memilih jenis kamar yang di inginkan dengan radiobutton yang telah di sediakan maka akan muncul gambar kamar yang di pilih pada picturebox .Memasukan lamanya tinggal pada combobox  dan  jumlah kamar pada textbox yang hanya di batasi 5 kamar. Terdapat juga Checkbox diskon yang akan memotong total harga sebesar 20% dari total harga jika menggunakan member card. Button hitung akan menghitung total harga yang harus di bayar. Tersedia Textbox nama pemesan dan nomor identitas pemesan serta memasukkan tanggal check-in pada combobox yang tersedia. Tombol Cetak yang akan melink data yang di input dan menampilkannya pada microsoft word,

Toolbox yang dibutuhkan adalah

1. Picturebox
2. Combobox
3. Radiobutton
4. Checkbox
5. Textbox
6. Button
7. Label

Langsung ke tutorial pembuatannya. Pertama file microsoft word seperti gambar di bawah ini

Simpan dengan nama Pemesanan

Kemudian buat form projectnya. Dan design form nya seperti yang anda inginkan seperti contoh di bawah ini

a

Imports word = Microsoft.Office.Interop.Word
Public Class Form1

    Private Sub rbvvip_CheckedChanged(sender As Object, e As EventArgs) Handles rbvvip.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Flashco\Desktop\vvip.jpg")
    End Sub

    Private Sub rbvip_CheckedChanged(sender As Object, e As EventArgs) Handles rbvip.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Flashco\Desktop\vip.jpg")
    End Sub

    Private Sub rbreguler_CheckedChanged(sender As Object, e As EventArgs) Handles rbreguler.CheckedChanged
        PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Flashco\Desktop\reguler.jpg")
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim jumkam As Integer
        Dim tanggal As Integer
        Dim tahun As Integer
        For jumkam = 1 To 5
            cbjumkam.Items.Add(jumkam)
        Next
        For tanggal = 1 To 30
            cbtanggal.Items.Add(tanggal)
        Next
        For tahun = 2018 To 2025
            cbtahun.Items.Add(tahun)
        Next

        cbbulan.Items.Add("Januari")
        cbbulan.Items.Add("Februari")
        cbbulan.Items.Add("Maret")
        cbbulan.Items.Add("April")
        cbbulan.Items.Add("Mei")
        cbbulan.Items.Add("Juni")
        cbbulan.Items.Add("Juli")
        cbbulan.Items.Add("Agustus")
        cbbulan.Items.Add("September")
        cbbulan.Items.Add("Oktober")
        cbbulan.Items.Add("November")
        cbbulan.Items.Add("Desember")

    End Sub

    Private Sub bthitung_Click(sender As Object, e As EventArgs) Handles bthitung.Click
        Dim harga As Integer
        Dim totalharga As Integer
        Dim diskon As Integer

        If rbvvip.Checked = True Then
            harga = 12000000

        ElseIf rbvip.Checked = True Then
            harga = 8000000

        ElseIf rbreguler.Checked = True Then
            harga = 5500000

        End If

        totalharga = cbjumkam.Text * harga * txtlama.Text

        If cbdiskon.Checked = True Then
            diskon = totalharga * 0.2
        Else
            diskon = 0
        End If

        txttotal.Text = totalharga - diskon

    End Sub

    Private Sub btcetak_Click_1(sender As Object, e As EventArgs) Handles btcetak.Click
        Dim a As New word.Application()
        Dim f As New word.Document()


        f = a.Documents.Open("C:\Users\Flashco\Documents\pemesanan.docx")

        f.Bookmarks("nama").Select()
        a.Selection.TypeText(txtnama.Text)

        f.Bookmarks("ktp").Select()
        a.Selection.TypeText(txtindentitas.Text)

        f.Bookmarks("tanggal").Select()
        a.Selection.TypeText(cbtanggal.Text + " ")
        a.Selection.TypeText(cbbulan.Text + " ")
        a.Selection.TypeText(cbtahun.Text)

        f.Bookmarks("jumlah").Select()
        a.Selection.TypeText(cbjumkam.Text)

        f.Bookmarks("total").Select()
        If cbdiskon.Checked = True Then
            a.Selection.TypeText(txttotal.Text + " ")
            a.Selection.TypeText("(Diskon 20% with Member Card)")
        Else
            a.Selection.TypeText(txttotal.Text)
        End If

        f.Bookmarks("lama").Select()
        a.Selection.TypeText(txtlama.Text)

        f.Bookmarks("jenis").Select()
        If rbvvip.Checked = True Then
            a.Selection.TypeText(rbvvip.Text)
        ElseIf rbvip.Checked = True Then
            a.Selection.TypeText(rbvip.Text)
        ElseIf rbreguler.Checked = True Then
            a.Selection.TypeText(rbreguler.Text)
        End If
        MsgBox("Sukses")
        f.SaveAs2("C:\Users\Flashco\Documents\pemesanan2.docx")
        a.Visible = True
    End Sub
End Class

coba start dan masukan data kemudian cetak hasilnya. dan data input akan otomatis ter link ke microsoft word.
Dibawah ini adalah contoh project yang di run

Data Input

• Jenis kamar
• Lamanya Tinggal
• Jumlah Kamar
• Nama Pemesan
• Nomor Identitas Pemesan
• Tanggal Check-in

Proses

• Button Hitung akan memproses perhitungan total harga yang harus di bayar dan akan tertera pada textbox total harga
• Button Cetak akan memproses data input yang akan di output pada microsoft word

Data Output

• Gambar akan mucul pada picturebox setelah radiobutton jenis kamar di pilih
• Data input akan teroutput dan terlink pada microsoft word

Itulah penjelasan project dari saya. semoga bermanfaat

Adiosss...~

Read More