اضف مربع نص textbox1
واكتب به خليط نصوص وارقام ورموز
وبحدث النقر لزر الامر اكتب
كود :
If TextBox1.TextLength < 8 Then
MsgBox("اقل خانات 8", MsgBoxStyle.Exclamation, "")
Exit Sub
End If
Dim upper As Integer = 0
Dim lower As Integer = 0
Dim symbol As Integer = 0
Dim num As Integer = 0
Dim str As String = TextBox1.Text '"Hello$"
For [loop] As Integer = 0 To str.Length - 1
If [Char].IsUpper(str([loop])) Then
upper += 1
ElseIf [Char].IsLower(str([loop])) Then
lower += 1
ElseIf [Char].IsSymbol(str([loop])) Then
symbol += 1
ElseIf [Char].IsNumber(str([loop])) Then
num += 1
End If
Next
MsgBox(upper & " Cap" & vbNewLine & lower & " Low" & vbNewLine & symbol & " sym" & vbNewLine & num & " num")انت طبق الكود بمثال مستقل ثم بعد ذلك تضيفه لبرنامج الدخول او التسجيل
كل اللي قلت موجود بالمثال مع شوية تعديل
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
