تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن الخطأ في هذا الكود ؟
#1
Bug 
كود :
Dim startdate As String
Dim differenceofdate
Dim TRACEDATE As String
Dim newdate
Dim chk

If GetSetting(App.Title, "Startup", "counter", "") = "" Then
SaveSetting App.Title, "Startup", "counter", 1
SaveSetting App.Title, "Startup", "Started", Format(Date, "mm dd yyyy")
SaveSetting App.Title, "Startup", "Last Used", Format(Date, "mm dd yyyy")
lblcnt.Caption = "1"

ElseIf GetSetting(App.Title, "Startup", "counter", "") = "31" Then

MsgBox "شكراً لستخدامك هذا البرنامج " & Chr(10) + Chr(1) & "الرجاء إيقاف عمل هذا البرنامج او سيتم فقدان كل المعلومات التي قمت بإدخالها ", vb***tical, "شكراً لك "

End

Else
TRACEDATE = GetSetting(App.Title, "Startup", "Last Used", "")
chk = DateDiff("d", CDate(TRACEDATE), Now)
If chk < 0 Then 'CHECK IF THE DATE WAS CHANGE which is lesser than the PREVIOUS DATE WHERE THE SYSTEM USED.

MsgBox "لم يتم العثور على تاريخ النظام لديك !! " & Chr(10) + Chr(13) & " الرجاء تغييرة الأن وإلا لن يكون بإمكانك إستخدام هذا البرنامج لاحقاً", vb***tical, "تاريخ مفقود"

End
Else
startdate = GetSetting(App.Title, "Startup", "Started", "")
differenceofdate = DateDiff("d", startdate, Now)
If differenceofdate <> 0 Then
lblcnt.Caption = differenceofdate + 1
SaveSetting App.Title, "Startup", "Last Used", Format(Now, "MM DD YYYY")
SaveSetting App.Title, "Startup", "counter", differenceofdate + 1
End If
If differenceofdate = 0 Then
lblcnt.Caption = GetSetting(App.Title, "Startup", "Counter", "")
End If
End If
End If
End Sub
هذا الكود لجعل البرنامج الخاص بك تجريبي
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] كود التجسس علي لوحت المفتيح+ كود طلب الاتصل بل انتر نت+كود تاجيل تنفيز الكود لفتره محمد ايمن 0 439 07-03-20, 06:31 PM
آخر رد: محمد ايمن
  [سؤال] ممكن مساعد بعد ازنكم محمد ايمن 7 662 03-03-20, 03:46 AM
آخر رد: alsalamoni
  [كود] ممكن مساعده محمد ايمن 0 355 14-02-20, 05:47 AM
آخر رد: محمد ايمن
  [كود] طريقة إضافة زر للفورم عن طريق الكود + في حدث معين mohammed moh 20 13,870 06-02-20, 03:00 PM
آخر رد: asemshahen5
  اريد هذا الكود عندما اضغط عاى Button يقول لي ان TEXTBOX.TEX مملوء ادا كان مملوء samirzaima 6 2,097 24-04-18, 06:19 PM
آخر رد: moniam
  [سؤال] السلام عليكم ممكن كود برنامج يحول النصوص الي فيديو elokely 0 956 10-04-18, 10:53 PM
آخر رد: elokely
  ما هو الكود المناسب CHANGE PASSWORD النسر79 3 1,521 28-12-17, 08:28 PM
آخر رد: النسر79
  ما هو الكود الخاص بـ Enable and Disable to Local Area Connection ؟ PeterGhattas082460 3 1,314 20-10-17, 12:28 AM
آخر رد: a.ahmed
Smile [كود] منذ متى وانت تعرف هذا الكود؟:) serial gen or guid سعود 3 1,122 07-08-17, 03:56 AM
آخر رد: سعود الشامان
  ممكن كود يغير حجم الخط ولون الخط المحدد فقط Mina Botros 2 1,024 17-07-17, 12:54 AM
آخر رد: Mina Botros

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم