تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاج كود
#1
السلام عليكم ورحمته الله وبركاته

اسعد الله اوةقاتكم لكل خير
لدي طلب بسيط
وهو حمايه امر التعديل على نص معين في مربع تكست اللا اذا ادخل الرقم السري صحيح واذا كان خاطئ تظهر رساله بذلك حتى يتمكن من ادخالها بالشكل الصحيح
ان شاءالله وصلت الفكره
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
اخي الكريم لماذا تصغر الخط رغم انه صغير بشكل افتراضيSmile يعني نحتاج للتكبيرSmile

بالنسبة للسؤال فابسط الامور هي اظهار مربع ادخال
كود :
Inputbox("اكتب كلمة المرور للاستمرار")
الرد
تم الشكر بواسطة: الشاكي لله
#3
شكرا اخي سعود على الرد
كتبت هالكود
Dim x As String
x = "password"
Dim y As String
y = InputBox("أدخل كلمة السر لتتمكن من التعديل")
If x <> y Then
MsgBox("للأسف كلمة السر خاطئة اتصل بمدير التطبيق")

End If

لكن اريد عندما تكون كلمة السر خاطئة هناك 3 محاولات بعدها تظهر رساله للمستخدم ويرجع الى التطبيق مره اخرى
ان شاءالله وصل الفكره
الرد
تم الشكر بواسطة:
#4
تفضل
كود :
Dim x As String = "password"
Dim Count As Integer = 0
Err:
If Count < 3 Then
    If Not x = InputBox("أدخل كلمة السر لتتمكن من التعديل") Then
        Count += 1
        MsgBox("للأسف كلمة السر خاطئة اتصل بمدير التطبيق")
        GoTo Err
    End If
Else
    MsgBox("لا يمكنك إدخال كلمة السر أكثر من ثلاث مرات")
End If
الرد
تم الشكر بواسطة:
#5
مشكور اخوي اسامة بارك الله فيك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج كود الحفظ وتعديل فى جدولين new_programer 3 261 28-04-21, 07:11 PM
آخر رد: new_programer
  محتاج مساعدة لمشروع تشفير الصور باستخدام RSA هيوا 0 203 23-04-21, 03:38 PM
آخر رد: هيوا
  محتاج التعديل علي الكود اليوم السابع 2 484 19-03-21, 04:02 AM
آخر رد: اليوم السابع
  السلام عليكم محتاج اعرف شئ في loop اليوم السابع 7 578 14-01-21, 08:25 AM
آخر رد: سعود
  [سؤال] محتاج مساغده من اخوني محمد ايمن 0 174 25-12-20, 02:21 PM
آخر رد: محمد ايمن
  محتاج مساعدة بكود فتح الأكسس من الفجول بيسك أبو عبدالله الحلواني 5 525 07-12-20, 12:55 AM
آخر رد: أبو عبدالله الحلواني
  محتاج مساعده وشكرا مقدما اليوم السابع 2 401 26-10-20, 01:11 PM
آخر رد: اليوم السابع
  محتاج التعديل على المثال المرفق new_programer 2 484 10-10-20, 08:00 PM
آخر رد: shone1
  [سؤال] محتاج احول كود من بايثون الي فيجوال اليوم السابع 4 505 29-09-20, 11:32 PM
آخر رد: اليوم السابع
  [VB.NET] محتاج كود عرض اكثر من جدول فى داتا جرد فيو واحدة عن طريق اختيار الجدول من كومبوكس mohammed1994 1 708 01-09-20, 04:56 PM
آخر رد: اسامه الهرماوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم