تقييم الموضوع :
  • 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
هجرب حاجه لو منفعش هرف البرنامح
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عاوز كتاب كل الاكواد الخاصة بالربط عن طريق المعالج araxis 2 150 23-01-17, 02:15 PM
آخر رد: أبووسم
  هل يوجد كود عكسي للكود التالي Ahmed Gandos 2 203 31-03-16, 04:14 PM
آخر رد: mawad
  شباب عاوز اعمل للبرنامج لغة انجليزية او عربيه عن طريق ملف text احمد عبد الحكيم 2 342 26-11-15, 09:07 AM
آخر رد: HASAN6.0
  انا هابسطلكم طلبى عاوز كود يقوم باستدعاء كلمة واحدة من ملف text احمد عبد الحكيم 1 264 25-11-15, 07:48 PM
آخر رد: Mr. DotNet
  [سؤال] شباب عاوز كود بحث ل combobox احمد عبد الحكيم 3 675 14-03-15, 11:03 PM
آخر رد: احمد عبد الحكيم
  عاوز اديف ايموشين ahmedelkady 1 388 26-07-14, 12:58 PM
آخر رد: silverlight
  عاوز اضيف القائمه ديه ahmedelkady 0 281 25-07-14, 09:02 PM
آخر رد: ahmedelkady
  عاوز اعمل الفواتير و الاصناف مع بعض ahmedelkady 4 594 23-07-14, 10:52 PM
آخر رد: ممدوح الخطيب
  عاوز اعمل صندوق بحث ahmedelkady 4 508 23-07-14, 01:45 AM
آخر رد: honest
  عاوز اعرف ازاي اعمل الحاجات ديه ahmedelkady 4 600 17-07-14, 08:00 AM
آخر رد: raoe-041

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


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