السلام عليكم ورحمه الله
عندي مشروع ببرنامج الفيحوال بيسك
وقفني هذا الكود
كود التكرار اللى هو count
وذلك ب فحص اسم المستخدم وكلمة المرور بتوفير ثلاث حاولات فاشلة للدخول وإلا سيتم إنهاء البرنامج.
اتمني الاقي حل
بانتظاركم
السلام عليكم ،
عندي طريقة :
# انشئ متغير رقمي ، وليكن NumOfPass
# عند الضغط على زر الدخول .. تزيد قيمة المتغير واحد .
# عند وصول المتغير الى 3 ، تظهر رسالة : لقد تجاوزت الحد الاقصى لعملية الدخول .
...
حاجربها الان !
ان شاء الله يزبط
ان شاء الله ..
بس اذا غلق البرنامج وفتحه مرة اخرى ، له ثلاث فرص
مازبط !
الكود لازم فيه شرط if
وعدد اللى هو count .
عرفت متغير رقمي
count < 3
وبعدين كتبت له العداد count += 1
طيب
ممكن تفهمني قصدك
السلام عليكم ورحمة الله وبركاته
كود :
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
..............
المشروع يخص دراستي
لذا افضل ان افهمه
بسم الله الرحمن الرحيم
بانسبة للكود هذا 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
تحياتي للجميع
ابــو سامي
اهلا اخوي
انا جربت نفس طريقتك
وكتبت الكود اللى كاتبه
بس يظهر لى كلمة المرور غير صحيحه
حتي لو كتبت اسم المستخدم الصحيح
جربت الكود على فورم جديد
وطلع اوكي
بس فورم اللموجود بالمشروع
يطلع اخطاء
هل من طريقه لاصلاح الاخطاء
بفروم المشروع
الكود صحيح
شكرا اخوي ابــو سامي