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

هذا هو المثال
ليتك تقوم بتعديل عليه لكي تتضح لى الصوره
ولك ألف شكر

اخي العزيز

تفضل هاذا بعد التعديل

ملاحظة :

في المثال الذي ارفقته انت لي لم تقم بتحديد قيمه الى اتايمر اي في الخاصيه Interval


وهاذا المشروع بعد التعديل

وانا جاهز لأي ستفسارات اخرى

تحياتي

[INDENT] لك ألف ألف شكر

ولكن لى استفسار بسيط
ان أردت تغييرعدد مرات التشغيل الى 3 مثلآ بدلآ من 4 فهل مطلوب منى سوى تغيير هذا الرقم فى جملة الكود
[/INDENT]

[INDENT] [b]أم يجب عمل أى تعديل فى الخصائص أو أى شئ آخر

ولك ألف ألف شكر [/b]
[/INDENT]

لا يتوجب عليك تغيير اي شئ

فقط قم بتغيير If X >= "4" Then رقم 4 الذي بين علامتي التنصيص الى الرفم الذي تريد إيقاف البرنامج عندة

مثال :

If X >= "9" Then

هنا انا وضعت رقم 9 بين علامتي التنصيص .....................

اخي الكريم سوف اشرح لك هاذه العباره في الكود




If X >= "4" Then



MsgBox "لقد نفذت المدة التجريبية", , "النهايه"

End

End If



If هاذه تعني أذا

X وهاذا متغير يحمل قيمه نصيه من نوع String وهاذا تم شرحه


< وهاذه تعني اكبر من


= وهاذه تعني يساوي

"4" وهاذه تعني القيمه التي قام الشرط عليها اي لنقارن هاذه القيمه بقيمة المتغير(x)

Then وهاذه تعني ثم


MsgBox وهاذه تعني ضهار رساله

end وهاذه تعني نهايه

End if وهاذه تعني إنتهاء الشرط




دعنا الان نجمع الشرح في جمله عربيه


اذا كان اكس (x) اكبر من 4 او يساوي ثم نفذ لي



اظهر رساله للمستخدم تخبره بنتهاء المده التجريبه


وانهي عمل البرنامج


وانهي الشرط



وتحياتي لك

بارك الله فيك

يعطيك العافية

samee119485r كتب :لا يتوجب عليك تغيير اي شئ

فقط قم بتغيير If X >= "4" Then رقم 4 الذي بين علامتي التنصيص الى الرفم الذي تريد إيقاف البرنامج عندة

مثال :

If X >= "9" Then

هنا انا وضعت رقم 9 بين علامتي التنصيص .....................

اخي الكريم سوف اشرح لك هاذه العباره في الكود




If X >= "4" Then



MsgBox "لقد نفذت المدة التجريبية", , "النهايه"

End

End If



If هاذه تعني أذا

X وهاذا متغير يحمل قيمه نصيه من نوع String وهاذا تم شرحه


< وهاذه تعني اكبر من


= وهاذه تعني يساوي



Then وهاذه تعني ثم


MsgBox وهاذه تعني ضهار رساله

end وهاذه تعني نهايه

End if وهاذه تعني إنتهاء الشرط




دعنا الان نجمع الشرح في جمله عربيه


اذا كان اكس (x) اكبر من 4 او يساوي ثم نفذ لي



اظهر رساله للمستخدم تخبره بنتهاء المده التجريبه


وانهي عمل البرنامج


وانهي الشرط



وتحياتي لك

اسعدني مرووك اخي abulayth


حياك الله

[SIZE=2]هاهى مشكلة منع استخدمه أكثر من 4مرات مثلآ قد انتهت والحمد لله
[/SIZE]
يبقى حل مشكلة عدم النسخ


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

ولكم ألف شكر

السلام عليكم

اخي الكريم تفضل


واي ستفسارات خرى انا في الخدمه

[INDENT] لك ألف شكر
ولكن ليتك توضح لى خطوات عملك لهذا البرنامج أو أين كان الخطأ عندى

وخللى بالك . فى المرة اللى فاتت قلت لى

إقتباس :اخي الكريم انا شرحت الكود في الأعلى

ولم يكن فى الأعلى أى شرح لسبب خطئى انما شرحت ذلك فيما بعد

إقتباس :في المثال الذي ارفقته انت لي لم تقم بتحديد قيمه الى اتايمر اي في الخاصيه interval

[/INDENT]
ولك ألف شكر

اخي اسلام

هاذا الكود يعتمد على دوال apl لمعرفة اذا كان

يوجد نسخه من البرنامج تعمل ام لا

تحياتي