visual studio 2010

Status
Niet open voor verdere reacties.

cboetens

Gebruiker
Lid geworden
4 jan 2012
Berichten
24
Hallo,
Ik ben gisteren begonnen met een klein programmaatje waarbij één van de voorwaarden is dat het wachtwoord hoofdletters, kleine letters en cijfers moet bevatten. Is dit mogelijk met een boolean om dat te controleren, zo ja. Kan iemand een voorbeeldcode plaatsen?

Bedankt !
Grtz,
cboetens
 
Yep, geen probleem. Ik heb er nu geen tijd voor maar zal vanavond eens kijken of ik snel een voorbeeldje voor je in elkaar kan frotten.
 
Het kan allemaal nog veel mooier maar ik denk dat dit goed te begrijpen is.
De Sub is een functie achter een knopje en de Function voert de controle uit.

Code:
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If chkpwd(TextBox1.Text) Then
            MsgBox("Password OK")
        Else
            MsgBox("Password NOT ok")
        End If
    End Sub

    Private Function chkpwd(Password As String)
        Dim caps As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim lwrs As String = "abcdefghijklmnopqrstuvwxyz"
        Dim cfrs As String = "0123456789"

        chkpwd = False

        For i As Integer = 1 To Len(Password)
            If InStr(caps, Mid(Password, i, 1)) > 0 Then
                For x As Integer = 1 To Len(Password)
                    If InStr(lwrs, Mid(Password, x, 1)) > 0 Then
                        For y As Integer = 1 To Len(Password)
                            If InStr(cfrs, Mid(Password, y, 1)) > 0 Then
                                chkpwd = True
                                Exit Function
                            End If
                        Next y
                    End If
                Next x
            End If
        Next i
    End Function
 
Laatst bewerkt:
..

Hallo,
Enorm veel bedankt ! Heb nu eindelijk gezien hoe ik dit bizarre stukje kan oplossen. Ben namelijk nog maar een beginner in programmeren. Eigenlijk valt het beste mee als je er eens over nadenkt :p
Bedankt !
Groetjes,
Cédric
 
Veel plezier ermee :)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan