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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : منع النسخ (/showthread.php?tid=9833)

الصفحات: 1 2 3 4


منع النسخ - اسلام الكبابى - 05-08-13

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


منع النسخ - samee119485r - 06-08-13

اخي العزيز

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

ملاحظة :

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


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

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

تحياتي


منع النسخ - اسلام الكبابى - 06-08-13

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

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

[INDENT]
PHP كود :
If >= "4" Then 

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

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


منع النسخ - samee119485r - 06-08-13

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

فقط قم بتغيير 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 او يساوي ثم نفذ لي



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


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


وانهي الشرط



وتحياتي لك


منع النسخ - abulayth - 06-08-13

بارك الله فيك

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

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 او يساوي ثم نفذ لي



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


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


وانهي الشرط



وتحياتي لك



منع النسخ - samee119485r - 06-08-13

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


حياك الله


منع النسخ - اسلام الكبابى - 06-08-13

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


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

ولكم ألف شكر


منع النسخ - samee119485r - 06-08-13

السلام عليكم

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


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


منع النسخ - اسلام الكبابى - 06-08-13

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

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

ولم يكن فى الأعلى أى شرح لسبب خطئى انما شرحت ذلك فيما بعد
إقتباس :في المثال الذي ارفقته انت لي لم تقم بتحديد قيمه الى اتايمر اي في الخاصيه interval
[/INDENT]
ولك ألف شكر


منع النسخ - samee119485r - 07-08-13

اخي اسلام

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

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

تحياتي