منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكله في كود " الفترة التجريبة " - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكله في كود " الفترة التجريبة " (/showthread.php?tid=24179)

الصفحات: 1 2

مشكله في كود " الفترة التجريبة " - e-coder - 14-03-18

سلام عليكم

واجهت مشكلة في الكود هذا
صورة المشكلة


الكود
PHP كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Application.Deployment.IsFirstRun Then ' المشكلة هنا
            My.Settings.Expiration_Date = Now.Date
            My.Settings.Save()
        End If
        If DateDiff(DateInterval.Day, Now, My.Settings.Expiration_Date) > 3 Then '3 is the expiration date
            Dim Response As String = "~"
            While Response <> "Password here" And Response <> Nothing
                Response = InputBox("The 3 day trial is up! Please enter a password to continue using this software!", "Trial")
            End While
            If Response = Nothing Then End 'A crude, but effective, way of forcing a close
        End If
        Me.Hide()
        Form2.Show() 'If it passes all the tests, start the main program
    End Sub 
المشروع بالمرفقات


RE: مشكله في كود " الفترة التجريبة " - emamtron2014 - 14-03-18

كود :
انشئ متغيران احدهما  SDate  والاخر NDate  من نوع Date'
If My.Settings.SDate = Nothing Then

               My.Settings.SDate = Now.Date
               My.Settings.Save()
           End If

           Dim sdate As Date = My.Settings.SDate
           Dim Ndate As Date = Now.Date

           Dim Diff As Integer = DateDiff(DateInterval.Day, sdate, Ndate)

           If Diff > 3 Then
               MsgBox("عفواً انتهت الفتره التجريبيه للبرنامج برجاء الاتصال بالمبرمج")

               End
           Else
               MsgBox("لقد مر علي استخدام البرنامج  :   " & Diff & "   يوم   ")
           End If


RE: مشكله في كود " الفترة التجريبة " - e-coder - 14-03-18

جزاء الله خيراً ولكن اريد تعديل بحيث يضع المستخدم كلمة سر لعمل البرنامج بشكل نهائي
PHP كود :
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Settings.SDate = Nothing Then
            My.Settings.SDate = Now.Date
            My.Settings.Save()
        End If
        Dim sdate As Date = My.Settings.SDate
        Dim Ndate As Date = Now.Date

        Dim Diff As Integer = DateDiff(DateInterval.Day, sdate, Ndate)

        If Diff > 3 Then
            MsgBox("عفواً انتهت الفتره التجريبيه للبرنامج برجاء الاتصال بالمبرمج")
            Dim Response As String = "~"
            While Response <> "Password here" And Response <> Nothing
                Response = InputBox("The 3 day trial is up! Please enter a password to continue using this software!", "Trial")
            End While
            If Response = Nothing Then End 'A crude, but effective, way of forcing a close
            Me.Hide()
            Form2.Show()
        Else
            MsgBox("لقد مر علي استخدام البرنامج  :   " & Diff & "   يوم   ")
          
        End If

    End Sub 

ولكن المشكلة لا يختفي الفورم الاول ويظهر الفورم الثاني !!!
والمشكلة الثانية كل مره تظهر للمستخدم انتهت فتره استعمال البرنامج ع رغم انه وضع الباسورد الصحيح 
يعني اريد ان الغي ايقونه انه انتهت عمليت استعمال البرنامج بمجرد المستخدم ان يضع الكملة السر الصحية ولا تظهر مره اخري
وشكراً

RE: مشكله في كود " الفترة التجريبة " - عبدالله الدوسري - 14-03-18

هذا يعني أن المشروع لم تعمل له ( Clickonce Deployment )  أو ( Publish Application )
من هنا :
[attachment=17399]

إستخدم الكود التالي للتأكد : ApplicationDeployment.IsNetworkDeployed
تحتاج إلى إضافة فضاء الأسماء : ( Imports System.Deployment.Application )
كود :
       If ApplicationDeployment.IsNetworkDeployed Then
           If My.Application.Deployment.IsFirstRun Then ' المشكلة هنا
               My.Settings.Expiration_Date = Now.Date
               My.Settings.Save()
           End If
       End If

[attachment=17398]

RE: مشكله في كود " الفترة التجريبة " - e-coder - 16-03-18

لم تنجح معي

RE: مشكله في كود " الفترة التجريبة " - عبدالله الدوسري - 16-03-18

(16-03-18, 01:56 AM)e-coder كتب : لم تنجح معي

معليش عطها فرصة , يمكن تنجح في الدور الثاني  Big Grin

ممكن أعرف في أي مادة لم تنجح ؟

صور لي الشهادة على الأقل !!

RE: مشكله في كود " الفترة التجريبة " - سعود - 16-03-18

ممكن تشوف الملف المرفق!
فكرة شبيهة

RE: مشكله في كود " الفترة التجريبة " - e-coder - 16-03-18

اخي انت عامل الكود فتره تجريبة ليوم واحد قمت بتقديم التاريخ ولم تنجح العملية

RE: مشكله في كود " الفترة التجريبة " - سعود - 16-03-18

إقتباس :قمت بتقديم التاريخ 
تاريخ الجهاز ام ماذا؟


RE: مشكله في كود " الفترة التجريبة " - alsouf - 16-03-18

اكتب الشفرة Me.Close و ليس me.hide اذا كنت تريد اغلاق النافذة