locked
menampilkan pesan "salah" jika radio button belum di c RRS feed

  • 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...]


    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...]


    Senin, 07 Desember 2015 16.37
  • ok gan (y)

    terimakasih refrensinya

    Kamis, 10 Desember 2015 03.46