[ديم الحربي]

السلام عليكم ورحمه الله

عندي مشروع ببرنامج الفيحوال بيسك


وقفني هذا الكود

كود التكرار اللى هو count


وذلك ب فحص اسم المستخدم وكلمة المرور بتوفير ثلاث حاولات فاشلة للدخول وإلا سيتم إنهاء البرنامج.


اتمني الاقي حل


بانتظاركم

[mmg]

السلام عليكم ،
عندي طريقة :

# انشئ متغير رقمي ، وليكن NumOfPass
# عند الضغط على زر الدخول .. تزيد قيمة المتغير واحد .
# عند وصول المتغير الى 3 ، تظهر رسالة : لقد تجاوزت الحد الاقصى لعملية الدخول .

...

[ديم الحربي]

حاجربها الان !

ان شاء الله يزبط

[mmg]

ان شاء الله ..


بس اذا غلق البرنامج وفتحه مرة اخرى ، له ثلاث فرص

[ديم الحربي]

مازبط !

الكود لازم فيه شرط if

وعدد اللى هو count .



عرفت متغير رقمي
count < 3
وبعدين كتبت له العداد count += 1




طيب


ممكن تفهمني قصدك

[kslawy]

السلام عليكم ورحمة الله وبركاته

كود :

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

****
***
**
*

[ديم الحربي]

وعليكم السلام ورحمه الله

اخي الكريم
kslawy

الله يفتح عليك دنيا واخره

كنت الف حول نفس الكود .. الكاونتر و if


بس بودي ان افهم

هذي الشرطين اش معناها بودي ان افهمها


If TextBox1.Text <> "" Then
If TextBox1.Text = "vb" Then

....................


يعني لو اردت اضافة اسمي وكلمه مرور خاصه بي ليتم فتح البرنامج والانتقال للفورم الاخر
مثلا "TextBox1.Text ="DEEM
TextBox1.Text =1234
form2.show

..............


المشروع يخص دراستي

لذا افضل ان افهمه

[m.sami.ak]

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

بانسبة للكود هذا 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 


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

[ديم الحربي]

اهلا اخوي


انا جربت نفس طريقتك

وكتبت الكود اللى كاتبه


بس يظهر لى كلمة المرور غير صحيحه
حتي لو كتبت اسم المستخدم الصحيح

[ديم الحربي]

جربت الكود على فورم جديد

وطلع اوكي



بس فورم اللموجود بالمشروع

يطلع اخطاء

هل من طريقه لاصلاح الاخطاء
بفروم المشروع





الكود صحيح


شكرا اخوي ابــو سامي