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 :)
tolong dirubah backgroud yg cerah blognya
ReplyDeletekasian klo ada org yg matanya min susah baca blog ini
oke akan ku coba ubah
Deletereseppengobatan itu dri mana ya?
ReplyDeleteitu coba contoh aja bro
Deletecara buat ini gimana? gx ada keterangannya
ReplyDeleteDim 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 public class.. letak itu
Deleteini di tempatkan dimana min?? tolong kasih tau donk
ReplyDeleteDim 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 public class anggraini
DeleteKalo Check box hanya bisa di isi oleh satu check box gmana
ReplyDeleteKurang ngerti guys maksudnya gimna
Deletethanks gan bermanfaat sekalee
ReplyDelete