Penjawab teratas
menampilkan pesan "salah" jika radio button belum di c

Pertanyaan
-
saya mau tanya nih master
bagaimana ya caranya kalo radio button belum di cek maka keluar pesan "Radio button harus diisi" dan jika sudah di cek maka akan menampilkan form selanjutnya..
Senin, 07 Desember 2015 06.25
Jawaban
-
Salam Arda.
Saya punya contoh code VB.NET mudah-mudahan membantu dan bisa di jadikan referensi.
'Demo Code by Cheries Mewengkang (c) 2015 'For msdn VB.NET Forum ' ' 'Fungsi untuk memeriksa apakah semua sel pada DataGridView1 bernilai 'true (di cek) atau bernilai false (tidak di cek). 'Fungsi "apakahInputSudahValid" ini akan melakukan looping dengan 'menggunakan For Each loop untuk memeriksa nilai sel. 'Fungsi ini mempunyai 2 versi yaitu versi "Semua" dan versi "SatuBaris". 'Versi Semua akan memeriksa semua sel pada DataGridView1 sedangkan 'Versi SatuBaris hanya memeriksa baris tertentu saja sesuai dengan 'nilai parameter "baris" yang di masukkan oleh code pemanggil. Public Function apakahInputSudahValid(ByVal mode As String, Optional ByRef baris As DataGridViewRow = Nothing) As Boolean Dim tempValue As Boolean = False Select Case mode Case "Semua" For Each row As DataGridViewRow In Me.DataGridView1.Rows For Each cel As DataGridViewCell In row.Cells If cel.Value = False Then 'jika radio button tidak di select tempValue = False Else 'jika ada satu saja radio button yang di cek maka 'keluar dari fungsi secepatnya karena tidak ada 'gunanya lagi untuk menyelesaikan iterasi Return True : Exit Function End If Next Next 'setelah seluruh sel pada DataGridView1 selesai di looping dan 'tidak ada satupun radio button yang di cek maka kembalikan 'nilai tempValue {false} Return tempValue Case "SatuBaris" For Each cel As DataGridViewCell In baris.Cells If cel.Value = False Then 'jika radio button tidak di select tempValue = False Else 'jika ada satu saja radio button yang di cek maka 'keluar dari fungsi secepatnya karena tidak ada 'gunanya lagi untuk menyelesaikan iterasi Return True : Exit Function End If 'kembalikan nilai false jika tidak ada radio button yang di cek Return False Next End Select Return False End Function
Selanjutnya kamu dapat menggunakan fungsi apakahInputSudahValid() untuk memeriksa apakah input yang user berikan sudah valid atau belum.
Contoh
Public Sub CekInputUser() if (apakahInputSudahValid("Semua",Nothing) then msgbox("Input anda sudah valid") else msgbox("Maaf input anda belum valid",MsgBoxStyle.Exclamation) end if End Sub
Semoga membantu.
[Jika jawaban ini membantumu jangan lupa di tandai sebagai jawaban...ok...]
- Diedit oleh nomen86 Senin, 07 Desember 2015 16.44
- Disarankan sebagai Jawaban oleh Andy NugrahaModerator Selasa, 08 Desember 2015 02.06
- Ditandai sebagai Jawaban oleh Andy NugrahaModerator Kamis, 10 Desember 2015 02.25
Senin, 07 Desember 2015 16.37
Semua Balasan
-
Salam Arda.
Saya punya contoh code VB.NET mudah-mudahan membantu dan bisa di jadikan referensi.
'Demo Code by Cheries Mewengkang (c) 2015 'For msdn VB.NET Forum ' ' 'Fungsi untuk memeriksa apakah semua sel pada DataGridView1 bernilai 'true (di cek) atau bernilai false (tidak di cek). 'Fungsi "apakahInputSudahValid" ini akan melakukan looping dengan 'menggunakan For Each loop untuk memeriksa nilai sel. 'Fungsi ini mempunyai 2 versi yaitu versi "Semua" dan versi "SatuBaris". 'Versi Semua akan memeriksa semua sel pada DataGridView1 sedangkan 'Versi SatuBaris hanya memeriksa baris tertentu saja sesuai dengan 'nilai parameter "baris" yang di masukkan oleh code pemanggil. Public Function apakahInputSudahValid(ByVal mode As String, Optional ByRef baris As DataGridViewRow = Nothing) As Boolean Dim tempValue As Boolean = False Select Case mode Case "Semua" For Each row As DataGridViewRow In Me.DataGridView1.Rows For Each cel As DataGridViewCell In row.Cells If cel.Value = False Then 'jika radio button tidak di select tempValue = False Else 'jika ada satu saja radio button yang di cek maka 'keluar dari fungsi secepatnya karena tidak ada 'gunanya lagi untuk menyelesaikan iterasi Return True : Exit Function End If Next Next 'setelah seluruh sel pada DataGridView1 selesai di looping dan 'tidak ada satupun radio button yang di cek maka kembalikan 'nilai tempValue {false} Return tempValue Case "SatuBaris" For Each cel As DataGridViewCell In baris.Cells If cel.Value = False Then 'jika radio button tidak di select tempValue = False Else 'jika ada satu saja radio button yang di cek maka 'keluar dari fungsi secepatnya karena tidak ada 'gunanya lagi untuk menyelesaikan iterasi Return True : Exit Function End If 'kembalikan nilai false jika tidak ada radio button yang di cek Return False Next End Select Return False End Function
Selanjutnya kamu dapat menggunakan fungsi apakahInputSudahValid() untuk memeriksa apakah input yang user berikan sudah valid atau belum.
Contoh
Public Sub CekInputUser() if (apakahInputSudahValid("Semua",Nothing) then msgbox("Input anda sudah valid") else msgbox("Maaf input anda belum valid",MsgBoxStyle.Exclamation) end if End Sub
Semoga membantu.
[Jika jawaban ini membantumu jangan lupa di tandai sebagai jawaban...ok...]
- Diedit oleh nomen86 Senin, 07 Desember 2015 16.44
- Disarankan sebagai Jawaban oleh Andy NugrahaModerator Selasa, 08 Desember 2015 02.06
- Ditandai sebagai Jawaban oleh Andy NugrahaModerator Kamis, 10 Desember 2015 02.25
Senin, 07 Desember 2015 16.37 -
ok gan (y)
terimakasih refrensinya
Kamis, 10 Desember 2015 03.46