منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحديد عدد ضغطات ازر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحديد عدد ضغطات ازر (/showthread.php?tid=345)

تحديد عدد ضغطات ازر - mazen55 - 01-10-13

انا اريد اضيف لبرنامجي خاصية بالزر لما يصل الي 50 مرة ضغطة يتوقف ويصبح Button8.Enabled = False

مع الاحتفاظ بالاحداث داخل الكود يعني الكود لة وظيفة وليكون

textbox.text=50

اريد بعد 50مرة من الضغط ان يتوقف عمل الكود للا بد

RE: تحديد عدد ضغطات ازر - سعود - 01-10-13

صرح متغير عمومي من نوع رقمي ثم عند كل ضغطة حدث هذا الرقم وقبل التحديث افحص قيمته فان كانت قد وصلت الحد الاقصى عطل الزر
لابد من تخزين القيمة في الريجستري او في قاعدة بيانات


RE: تحديد عدد ضغطات ازر - mazen55 - 01-10-13

حقيقة هذا طلبي اخي سعود ولكن انا اريد صنع برنامج فترة تجريبية وعند الانتهاء اريد زيادة الحماية بزر داخلي لتوقيف اوامر معينة

فاريد الاوامر انتكون داخل السيتنج بالبرنامج لانة لو تم حذف قاعدة البيانات او فتح ملف الخاص بها ليس هناك مانع من اعادة عمل الزر فهل توجد طريقة

تكون باضافة التعليمات البرمجية بدون ملف خارجي

الف شكر علي الرد والمثال الاكثر من رائع

RE: تحديد عدد ضغطات ازر - سعود - 01-10-13

http://vb4arb.com/vb/showthread.php?tid=202
اظن هذا الرابط هو خير مثال للحماية

RE: تحديد عدد ضغطات ازر - mazen55 - 01-10-13

مشكور جدا علي مجهودك اخي مسعود انا حاولت بالكود دة انا كنت بفكر في حاجة ولما حتطيت المثال فكرت انا بربط حدث الزر بالتيكست بوكس

PHP كود :
' بعد حفظ التيكست كمتغير كتابي 

                                  Dim nos As Integer
                           Integer.TryParse(TextBox2.Text, nos)
                                               nos += 1
                                 TextBox2.Text = nos.ToString()
                                  If TextBox2.Text > 10 Then
                                 Button5.Enabled = False : Exit Sub
                                                       Else
                                              MsgBox("good day")
                                                      Exit Sub
        End If 

اريد التعليق علي الكود من الاعضاء اذا كان بة بعد التعديلات