Penggunaan Checkbox / Daftar Paket Manfaat (Visual Basic 2010)




Hallow semuanya..... :D
Pada kali ini saya akan mengajarkan cara menggunakan Checkbox pada VB 2010 :)
Kita akan membuat aplikasi Daftar Paket Manfaat yang memiliki pilihan harga. Jadi aplikasi ini akan memberikan pilihan paket yang terdiri dari 5 buah pilihan yang mana memiliki harga disetiap pilihan itu, Nah... Anda bertugas memilih paket tersebut dan harganya akan dijumlahkan dengan sendirinya oleh aplikasi.

Okey, dengan tidak mengundur waktu lagi, Kita akan memulai membuatnya. Kita mulai dengan membuat formnya seperti ini :


Keterangan :

1. Form = Name : frmdaftar.
2. Checkbox = Name : ckbpengobatan.
3. Checkbox = Name : ckbgigi.
4. Checkbox = Name : ckbmata.
5. Checkbox = Name : ckbmedical.
6. Label = Name : lblhasil.
7. Textbox = Name : txthasil.

Diatas ini adalah Properties-Properties yang harus anda samakan saat membuat aplikasi ini, tapi apabila anda mengerti, anda bisa mengubah dengan yang kamu inginkan :D

Setelah membuat Propertiesnya, maka waktunya untuk mendeklarasikan.
---------------------------------------------------------------------------------
    Dim reseppengobatan As Double = 12.51
    Dim pemeliharaangigi As Double = 9.68
    Dim pengecekanmata As Double = 1.5
    Dim medicalcheckup As Double = 25.25
    Private total As Double = 0
----------------------------------------------------------------------------------

Setelah mendeklarasikan, tekanlah Form dan buat coding seperti ini :
-----------------------------------------------------------------------------------
Private Sub frmdaftar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txthasil.Text = "$" & 0
    End Sub
-----------------------------------------------------------------------------------

Setelah membuat Form, tekanlah ckbpengobatan  dan buat coding seperti ini :
----------------------------------------------------------------------------------
    Private Sub ckbpengobatan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbpengobatan.CheckedChanged
        If ckbpengobatan.Checked Then
            total = total + reseppengobatan
        Else
            total = total - reseppengobatan
        End If
        txthasil.Text = "$" & total
    End Sub
-----------------------------------------------------------------------------------

Setelah membuat ckbpengobatan, tekanlah ckbgigi dan buat coding seperti ini :
-----------------------------------------------------------------------------------
    Private Sub ckbgigi_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbgigi.CheckedChanged
        If ckbgigi.Checked Then
            total = total + pemeliharaangigi
        Else
            total = total - pemeliharaangigi
        End If
        txthasil.Text = "$" & total
    End Sub
-------------------------------------------------------------------------------------

Setelah membuat ckbgigi, tekanlah ckbmata dan buat coding seperti ini :
-------------------------------------------------------------------------------------
    Private Sub ckbmata_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbmata.CheckedChanged
        If ckbmata.Checked Then
            total = total + pengecekanmata
        Else
            total = total - pengecekanmata
        End If
        txthasil.Text = "$" & total
    End Sub
--------------------------------------------------------------------------------------

Setelah membuat ckbmata, tekanlah ckbmedical dan buat coding seperti ini :
--------------------------------------------------------------------------------------
    Private Sub ckbmedical_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbmedical.CheckedChanged
        If ckbmedical.Checked Then
            total = total + medicalcheckup
        Else
            total = total - medicalcheckup
        End If
        txthasil.Text = "$" & total
    End Sub
---------------------------------------------------------------------------------------

Setelah membuat ckbmedical, maka coding yang kita buat sudah selesai. Inilah hasil akhir yang akan didapat dari sini :


Apabila ada sesuatu yang Anda tidak mengerti, Saya harapkan untuk bertanya, Saya akan senang dengan hal itu.

Makasih sudah membaca Post ini :)

Chang Min Web Developer

Semoga apa yang Saya postingkan dapat bermanfaat bagi yang sedang membaca, kritik, saran atau komentar dapat disampaikan pada komen dibawah ini, Terimas kasih banyak

11 comments:

  1. tolong dirubah backgroud yg cerah blognya
    kasian klo ada org yg matanya min susah baca blog ini

    ReplyDelete
  2. reseppengobatan itu dri mana ya?

    ReplyDelete
  3. cara buat ini gimana? gx ada keterangannya
    Dim reseppengobatan As Double = 12.51
    Dim pemeliharaangigi As Double = 9.68
    Dim pengecekanmata As Double = 1.5
    Dim medicalcheckup As Double = 25.25
    Private total As Double = 0

    ReplyDelete
  4. ini di tempatkan dimana min?? tolong kasih tau donk
    Dim reseppengobatan As Double = 12.51
    Dim pemeliharaangigi As Double = 9.68
    Dim pengecekanmata As Double = 1.5
    Dim medicalcheckup As Double = 25.25
    Private total As Double = 0

    ReplyDelete
  5. Kalo Check box hanya bisa di isi oleh satu check box gmana

    ReplyDelete
    Replies
    1. Kurang ngerti guys maksudnya gimna

      Delete
  6. thanks gan bermanfaat sekalee

    ReplyDelete