كيف تجعل البرنامج يعمل عدد من المرات ويتوقف

الكاتب : حبيب اليمن   المشاهدات : 483   الردود : 3    ‏2003-10-01
      مشاركة رقم : 1    ‏2003-10-01
  1. حبيب اليمن

    حبيب اليمن قلم فضي

    التسجيل :
    ‏2003-09-20
    المشاركات:
    3,058
    الإعجاب :
    0
    أعضاء المجلس اليمني اسمحو لي ان ابدا اول مشاركاتي في هذا

    المجلس وستكون هذه المشاركه عباره عن كود بلغة الفيجول بيسك

    وسيستفيد من هذا الكود من يعملون على لغة الفيجول بيسك

    وعمل هذا الكود تشغيل اي برنامج مكتوب بنفس اللغة لمدة معينه

    من المرات ثم يتوقف البرنامج عن العمل واليكم الكود
    Private Sub Form_Load()
    retvalue = GetSetting("A", "0", "Runcount")
    GD$ = Val(retvalue) + 1
    SaveSetting "A", "0", "RunCount", GD$
    If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل
    MsgBox "انتهت مدة تشغيل البرنامج .. عليك بشراء النسخة الاصلية"
    Unload FRM '
    End If
    End Sub
    مع تمنياتي لكم بالتوفيق والنجاح
    وانتظروا المزيد باذن الله
     
  2.   مشاركة رقم : 2    ‏2003-10-01
  3. rayan31

    rayan31 قلم ذهبي

    التسجيل :
    ‏2002-07-21
    المشاركات:
    5,471
    الإعجاب :
    0
    م
     
  4.   مشاركة رقم : 3    ‏2003-10-02
  5. مُجَاهِد

    مُجَاهِد قلم ماسي

    التسجيل :
    ‏2003-05-11
    المشاركات:
    14,043
    الإعجاب :
    0
    مشكوووووووووووووور..

    وتحياتي لك..
     
  6.   مشاركة رقم : 4    ‏2003-10-05
  7. rayan31

    rayan31 قلم ذهبي

    التسجيل :
    ‏2002-07-21
    المشاركات:
    5,471
    الإعجاب :
    0
    مشكور أخي العزيز حبيب اليمن

    بارك الله فيك
     

مشاركة هذه الصفحة