كود .. تكرار الرساله - نسخة قابلة للطباعة

كود :

Public Class Form1

    Dim Counter As Integer = 0





    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text <> "" Then

            If TextBox1.Text = "vb" Then

                MsgBox("كلمة المرور صحيحة")

            Else

                MsgBox("كلمة المرور غير صحيحة")

                If Counter = 3 Then

                    MsgBox("انتهت محاولات الدخول")

                    Counter = 0

                    Me.Close()

                End If

                Counter += 1

            End If

        End If

    End Sub





End Class

بسم الله الرحمن الرحيم

بانسبة للكود هذا If TextBox1.Text <> "" Then فهو شرط ليتأكد بانة قد تم ادخال قيمة اي لم يتركها فارغة
ويمكن كتابتها اسضاً على النحو التالي If TextBox1.Text <> String.Empty Then
والاشارة هذه <> معناها لا يساوي .

والكود التالي معدل ليتم من خلاله التأكد من ادخال DEEM لاسم المستخدم و 1234 لكلمة المرور

PHP كود :

Public Class Form1
    Dim Counter As Integer = 0



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text <> "" Then
            If TextBox1.Text = "DEEM" And TextBox2.Text = "1234" Then
                MsgBox("كلمة المرور صحيحة")
            Else
                MsgBox("كلمة المرور غير صحيحة")
                If Counter = 3 Then
                    MsgBox("انتهت محاولات الدخول")
                    Counter = 0
                    Me.Close()
                End If
                Counter += 1
            End If
        End If
    End Sub


End Class 

تحياتي للجميع
ابــو سامي