محتاج حد يساعدنى يا ريت يا جماعه بسرعه

ليست صعبة الي هذه الدرجة :)

كا ما هنالك استخدم خاصية حفظ الاعدادت SaveSetting قم بحفظ رقم 1 في اول مرة يتم اعادة التشغيل ، طبعا لازم تنفذ كود الحفظ عن قبل الاعادة :) .

في الحدث Load للفورم عند ما يشتغل مرة تانية قم بفحص الرقم المخزن في المرة السابقة عن طريق الامر GetSetting وذا كان اقل من 3 اعد تشغيل الجهاز مرة اخري طبعا لازم تنفذ كود الحفظ مرة اخرة باخذ القيمة المخزنة وزياردة رقم راحد عيلها ليصبح 2 . وهكذا .

وهذا كود البرنامج كاملا

Dim Ival As Long

Private Sub Form_Load()


Ival = CLng(GetSetting("Test", "Test", "Test", "0"))

End Sub

Private Sub Rebote_Click()

If Ival <> 3 Then

SaveSetting "Test", "Test", "Test", CStr(Ival + 1)
'Restart Code

End If
End Sub

السلام عليكم ورحمة الله وبركاته

قم بوضع الكود التالى قبل الكود المسؤال عن عملية ريستارت

	Dim FRM As Object
  Dim GD As String
  Dim retvalue As Object
        retvalue = GetSetting("A", "0", "Runcount")
        GD = CStr(Val(retvalue) + 1)
  SaveSetting("A", "0", "RunCount", GD)
        If CDbl(GD) > 3 Then
            MsgBox("انتهت مدة تشغيل البرنامج")
            End
        End If