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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] عاوز مولد اكواد يكون شغال تمام حمادة دراز 3 29 منذ 11 ساعة مضت
آخر رد: sendbad100
  [VB.NET] مرة اخرى انا مش عاوز اضيف عمود جديد dgv انا اريد جعل العمود الثالث يكون combobox tarek 2 161 07-04-18, 04:28 AM
آخر رد: tarek
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 3 287 27-03-18, 03:12 PM
آخر رد: ssayed111
  [VB.NET] عاوز اعمل برنامج يفعل البرنامج بتاعى MOSTAFA.KAMEL 7 106 11-02-18, 09:10 PM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] عاوز حل مستعجل للinputbox morad123 2 107 26-01-18, 08:20 PM
آخر رد: morad123
Thumbs Up [كود] لو سمحتم عاوز كود حفظ في اكتر من table ahmedgamal 5 266 05-09-17, 05:49 PM
آخر رد: سعود
  [سؤال] لو سمحتم عاوز كود لأظهار كود العميل في التيكست بوكس عند اختيار العميل من الكومبوبوكس ahmedgamal 4 290 05-09-17, 06:01 AM
آخر رد: ahmedgamal
  اختصار للكود bidaya 2 319 03-04-17, 05:40 PM
آخر رد: silverlight
  عاوز كتاب كل الاكواد الخاصة بالربط عن طريق المعالج araxis 2 560 23-01-17, 02:15 PM
آخر رد: أبووسم
  هل يوجد كود عكسي للكود التالي Ahmed Gandos 2 460 31-03-16, 04:14 PM
آخر رد: mawad

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


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