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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] محتاج بعد انهاء المشروع اقوم بتحويله لملف تنفيذي يصعب الوصول للكود والفورم mony.tornado 6 642 08-12-22, 09:22 AM
آخر رد: مصمم هاوي
  [سؤال] عاوز مجموعة اكواد في موجه الاوامر حسن الجلب 2 531 16-08-22, 10:43 AM
آخر رد: معاند الحظ
  اضافة شرط للكود حماده ممدوح البحيرى 6 840 28-07-22, 08:19 PM
آخر رد: حماده ممدوح البحيرى
  [سؤال] معايا سلسله نصيه و عاوز كود بحث بالشبه فيها حسن الجلب 1 818 08-02-22, 01:17 AM
آخر رد: حسن الجلب
  [سؤال] عاوز اداه جريد فيو فيها فلتر حسن الجلب 1 735 06-11-21, 01:02 PM
آخر رد: mrfenix93
  [سؤال] عاوز داتا بيز حسن الجلب 2 1,231 18-10-21, 08:06 PM
آخر رد: asemshahen5
  عاوز اعمل رساله لمستخدمي البرنامج بتاعي عبر الانترنت كيف اضيف حاجه شكل دي ف البرنامج Hosam Ashraf Elwakel 1 1,497 10-02-21, 01:09 AM
آخر رد: أبو عبدالله الحلواني
  طلب شرح للكود سلام و محبه 0 688 09-01-21, 04:50 PM
آخر رد: سلام و محبه
  ممكن تصحيح للكود دا لو سمحتو ahmed112001 1 944 04-12-20, 09:49 AM
آخر رد: Anas Mahmoud
  [VB.NET] عاوز كود يظهر ماسج بوكس بعد تخطي اعلان ahmed112001 0 1,050 18-09-20, 03:24 PM
آخر رد: ahmed112001

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


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