Pada kali ini saya akan mengajarkan cara menggunakan RadioButton pada VB 2010 :)
Kita akan membuat Aplikasi Penjualan T-Shirt yang memiliki 2 Opsi pilihan, yaitu warna dan ukuran.Jika tombol konfirmasi ditekan, maka pilihan warna dan ukuran akan ditampilkan pada komponen label.
Okey, dengan tidak mengundur waktu lagi, kita akan memulai membuatnya.
Kita mulai dengan membuat formnya seperti ini :
Setelah anda membuat seperti yang diatas, Klik 2 kali Button Konfirmasi dan tulis coding seperti ini :
----------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------
Nah.. Itulah akhir dari pembuatan aplikasi ini, hasil tampilannya akan seperti ini :
Kita akan membuat Aplikasi Penjualan T-Shirt yang memiliki 2 Opsi pilihan, yaitu warna dan ukuran.Jika tombol konfirmasi ditekan, maka pilihan warna dan ukuran akan ditampilkan pada komponen label.
Okey, dengan tidak mengundur waktu lagi, kita akan memulai membuatnya.
Kita mulai dengan membuat formnya seperti ini :
Keterangan :
1. Form : Name : frmpilihantshirt, Text : Pilihan T-Shirt.
2. Groupbox : Name : gpbwarna, Font : Century; 9,75pt; style=Bold, Forecolor : Blue, Text : Warna T-shirt
3. Groupbox : Name : gpbukuran, Font : Century; 9,75pt; style=Bold, Forecolor : Blue, Text : Ukuran T-shirt
4. RadioButton : Name : robmerah, Font : Century; 9,75pt; style=Bold, Forecolor : Black, Text : Merah
5. RadioButton : Name : robhijau, Font : Century; 9,75pt; style=Bold, Forecolor : Black, Text : Hijau
6. RadioButton : Name : robkuning, Font : Century; 9,75pt; style=Bold, Forecolor : Black, Text : Kuning
7. RadioButton : Name : robxl, Font : Century; 9,75pt; style=Bold, Forecolor : Black, Text : XL.
8. RadioButton : Name : robl, Font : Century; 9,75pt; style=Bold, Forecolor : Black, Text : L.
9. RadioButton : Name : robm, Font : Century; 9,75pt; style=Bold, Forecolor : Black, Text : M.
10. RadioButton : Name : robs, Font : Century; 9,75pt; style=Bold, Forecolor : Black, Text : S.
11. Label : Name : lblwarna, Text : Anda memilih warna.
12. Label :Name :lblukuran, Text : dengan ukuran.
13. Label : Name : lblhslukuran, Autosize : False.
14. Label : Name : lblhslwarna, Autosize : False.
15. Button : Name : btnkonfirmasi.
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 hasilwarna As String
Dim hasilukuran As String
---------------------------------------------------------------------------------------------------------
Setelah mendeklarasikan, tekanlah setiap Radiobutton dan buat coding seperti ini :
--------------------------------------------------------------------------------------------------------
Private Sub robhijau_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robhijau.CheckedChanged
hasilwarna = sender.text
End Sub
Private Sub robmerah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robmerah.CheckedChanged
hasilwarna = sender.text
End Sub
Private Sub robkuning_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robkuning.CheckedChanged
hasilwarna = sender.text
End Sub
Private Sub robxl_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robxl.CheckedChanged
hasilukuran = sender.text
End Sub
Private Sub robl_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robl.CheckedChanged
hasilukuran = sender.text
End Sub
Private Sub robm_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robm.CheckedChanged
hasilukuran = sender.text
End Sub
Private Sub robs_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robs.CheckedChanged
hasilukuran = sender.text
End Sub
----------------------------------------------------------------------------------------------------------Setelah anda membuat seperti yang diatas, Klik 2 kali Button Konfirmasi dan tulis coding seperti ini :
----------------------------------------------------------------------------------------------------------
Private Sub btnkonfirmasi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkonfirmasi.Click
If robhijau.Checked Then
lblhslwarna.Text = hasilwarna
ElseIf robkuning.Checked Then
lblhslwarna.Text = hasilwarna
ElseIf robmerah.Checked Then
lblhslwarna.Text = hasilwarna
End If
If robxl.Checked Then
lblhslukuran.Text = hasilukuran
ElseIf robl.Checked Then
lblhslukuran.Text = hasilukuran
ElseIf robm.Checked Then
lblhslukuran.Text = hasilukuran
ElseIf robs.Checked Then
lblhslukuran.Text = hasilukuran
End If
End Sub
Apabila ada sesuatu yang Anda tidak mengerti, Saya harapkan untuk bertanya, Saya akan senang dengan hal itu.
Makasih sudah membaca Post ini :)
gan mmohon di kasih file download gan masih bingung nih
ReplyDeleteemail zainul.corp@ymail.com
Deletesori gan gak bisa, soalnya filenya udah hilang... sori baru dibalas
ReplyDeletekalau menggunakan databindings yang di dalamnya memakai radio button??
ReplyDeletesaya belum pernah memakai databinding
DeleteKalau saat kita memilih opsi yg ada otomatis langsung tampil di label bawah tanpa menekan tombol konfirmasi, caranya gmn min?
ReplyDeletePrivate Sub robhijau_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robhijau.CheckedChanged
Deletelblhslwarna.Text = sender.text
End Sub
Private Sub robmerah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robmerah.CheckedChanged
lblhslwarna.Text = sender.text
End Sub
Private Sub robkuning_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robkuning.CheckedChanged
lblhslwarna.Text = sender.text
End Sub
Private Sub robxl_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robxl.CheckedChanged
lblhslukuran.Text = sender.text
End Sub
Private Sub robl_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robl.CheckedChanged
lblhslukuran.Text = sender.text
End Sub
Private Sub robm_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robm.CheckedChanged
lblhslukuran.Text = sender.text
End Sub
Private Sub robs_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles robs.CheckedChanged
lblhslukuran.Text = sender.text
End Sub
itu jawabannya.
Code yang ada di button konfirmasi dihapus aja.
min saya di kasih project nih sama guru disuruh buat jadwal keberangkatan kereta kan pake radio button buat milih jurusan kereta nya terus waktu radiobutton di klik jam keberangkatan harus tampil di groupbox nah gimana tuh
ReplyDeletereply ya min saya sangat membutuhkan :v
Dalam groupboxnya kamu pakai apa? label atau textbox?
DeleteMin knp ni pas saya pke sender.text kok mlah eror brgris biru
ReplyDeleteKalau versi vb saya kalau garis merah baru error gan. Kalau bisa coba kirimkan sourcecodenya biar saya cek. Saya pakai Visual studio 2017
Delete