تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عاوز حل للكود ده
#1
دلؤتي كل لما اجي احط الكود ده بيجيلي errors ياما فا انا عاوز حل علشان اعمل البرنامج نسخه تجريبيه

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) & "الرجاء إيقاف عمل هذا البرنامج او سيتم فقدان كل المعلومات التي قمت بإدخالها ", vbCritical, "شكراً لك "

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) & " الرجاء تغييرة الأن وإلا لن يكون بإمكانك إستخدام هذا البرنامج لاحقاً", vbCritical, "تاريخ مفقود"

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
الرد }}}}
تم الشكر بواسطة:
#2
ارفق البرنامج أو علي الأقل فين رسالة الخطأ اللي بتظهر لك
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم
اخ ahmedelkady
رجاء حار Angry Angry Angry ان تضع موضوعك في المكان المناسب وان يكون العنوان واضح
هذا الموضوع يجب ان يكون في قسم فيجوال بيسك 6
اما بالنسبة للمشروع ليس هناك خطأ
اذا كان هناك خطأ فهو انك لم تضع هذه الاوامر في الحدث
PHP كود :
Private Sub Form_Load() 

المطلوب ان تذهب الى نافذة الكود بالضغط على زر F7 وتختار التالي
كما في الصورة
   
وتضع الكود
كود :
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) & "الرجاء إيقاف عمل هذا البرنامج او سيتم فقدان كل المعلومات التي قمت بإدخالها ", vbCritical, "شكراً لك "

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) & " الرجاء تغييرة الأن وإلا لن يكون بإمكانك إستخدام هذا البرنامج لاحقاً", vbCritical, "تاريخ مفقود"

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
* انسخ الكود كما هو
الرد }}}}
تم الشكر بواسطة:
#4
الرد }}}}
تم الشكر بواسطة:
#5
الرد }}}}
تم الشكر بواسطة:
#6
هجرب حاجه لو منفعش هرف البرنامح
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يوجد كود عكسي للكود التالي Ahmed Gandos 2 138 31-03-16, 04:14 PM
آخر رد: mawad
  شباب عاوز اعمل للبرنامج لغة انجليزية او عربيه عن طريق ملف text احمد عبد الحكيم 2 275 26-11-15, 09:07 AM
آخر رد: HASAN6.0
  انا هابسطلكم طلبى عاوز كود يقوم باستدعاء كلمة واحدة من ملف text احمد عبد الحكيم 1 212 25-11-15, 07:48 PM
آخر رد: Mr. DotNet
  [سؤال] شباب عاوز كود بحث ل combobox احمد عبد الحكيم 3 578 14-03-15, 11:03 PM
آخر رد: احمد عبد الحكيم
  عاوز اديف ايموشين ahmedelkady 1 354 26-07-14, 12:58 PM
آخر رد: silverlight
  عاوز اضيف القائمه ديه ahmedelkady 0 258 25-07-14, 09:02 PM
آخر رد: ahmedelkady
  عاوز اعمل الفواتير و الاصناف مع بعض ahmedelkady 4 561 23-07-14, 10:52 PM
آخر رد: ممدوح الخطيب
  عاوز اعمل صندوق بحث ahmedelkady 4 470 23-07-14, 01:45 AM
آخر رد: honest
  عاوز اعرف ازاي اعمل الحاجات ديه ahmedelkady 4 558 17-07-14, 08:00 AM
آخر رد: raoe-041
  [سؤال] عاوز كود تشغيل فيديو فى ويندوز مديا بلير HJUTIUT 1 596 07-03-14, 11:18 AM
آخر رد: Genius Live

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


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