[ميدو الفنان]

السلام عليكم
كيفية تنفيذ كود معين مثل فتح فورم معين كل يوم او يومين وانا اللى احدد
هل يمكن تنفيذ ذلك اصلا

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

فيك تحتال ع الامر بكود بسيط باستخدام الدالة(Mod)
إن كنت تريد كل يومين سيفتح في اليوم الزوجي :

كود :

       If Now.Day.ToString("d") Mod 2 = 0 Then
           Form2.Show()
       End If

وإن كنت تريد كل ثلاث أيام تكتب :

كود :

       If Now.Day.ToString("d") Mod 3 = 0 Then
           Form2.Show()
       End If

وهكذا  ...

[ميدو الفنان]

(09-10-22, 09:25 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

فيك تحتال ع الامر بكود بسيط باستخدام الدالة(Mod)
إن كنت تريد كل يومين سيفتح في اليوم الزوجي :

كود :

       If Now.Day.ToString("d") Mod 2 = 0 Then
           Form2.Show()
       End If

وإن كنت تريد كل ثلاث أيام تكتب :

كود :

       If Now.Day.ToString("d") Mod 3 = 0 Then
           Form2.Show()
       End If

وهكذا  ...

شكرا لك اخي علي تعبك ومجهودك
ولكن للاسف هذا ليس طلبي معلش انا اسف موضحتش كويس
انا قمت بتوليد كود مثلا للدخول علي الفورم التاني من فورم الدخول
عباره عن تيسكت و زر ولو كتبت مثلا الباسورد صح متظهرش صفحة الدخول الا بعد
يوم او يومين علي حسب انا اللى احدده
اتمني تكون وصلت فكرتي وشكرا علي تعبك

[ميدو الفنان]

جاتلي فكرة وحاولت تنفيذها لكن مش عارف ابدء منين وهي الاستعانة بي Timestamp
ده كود مثلا بيحول الارقام الى تاريخ كامل
Dim x As New DateTime
x = DateTime.Parse("January 1 1970 12:00:00 am")
MsgBox(x.AddSeconds(1109093087).ToString)
بس المشكلة مش عارف اخليه يتحقق ويولد رقم مثلا يتم حفظه في ملف نصي مثلا ويتم الاستعانة بيه وجلب الرقم ويتحقق اذا كان اقل من تاريخ اليوم ينفذ الكود واذا ابعد من تاريخ اليوم مينفذش الكود وهكذا

[Taha Okla]

عندما تعجز عن التخيل قم بإضافة أدوات تجعل خيالك مرئياً وقم بالتنفيذ عليها

وما دام الدوت نت فيه دالات وأدوات تخص التاريخ تستوعب أغلب ما يخطر على البال
فلا داعي للتحويل من .. إلى ..   ، ما دام فيك تنفذ ما تريد بدون تعقيد للاكواد وتحويل وإطالة ..

مثلا ً قم بفتح مشروع جديد ثم بإضافة (Button1 + ListBox1)
وجرب الكود التالي :

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim d1 As DateTime = Now
       Dim d2 As DateTime = d1.AddDays(2).AddHours(3)
       ListBox1.Items.Add(d1)
       ListBox1.Items.Add(d2)
       If Now >= d2 Then ListBox1.Items.Add(d2)
   End Sub

هذا الكود ليس الحل ولكن بداية فكرة
d1  : هي الوقت الحالي عند تنفيذ كودك وأكتشف أن كلمة المرور صحيحة.
d2 :  هي الوقت الذي تريد فيه تنفيذ كودك إن تحقق شرطك. (يعني فيك تضيف على الوقت الحالي ما تريد من أيام وساعات لتولد تاريخ ووقت جديد).

- العمليات على الـ ListBox  تريك نواتج ما تقوم به من تعديلات قبل وبعد التنفيذ.
- الشرط الموجود في الكود : شرط للتحقق هل الوقت الحالي (بعد يومين، شعد شهر، بعد سنة) أكبر من الوقت الذي تم توليده ببرنامجك.
- تنفيذ هذا الشرط يعتمد على نتيجة الشرط (فإن تجاوز التاريخ المطلوب) نفذ الكود.
=======
- المطلوب منك ، تخزين الوقت الجديد(d2) في قاعدة بيانات أو في أي مكان في الجهاز ... إلخ.
- إن كان برنامجك يشغل كلما احتاج إليه العميل :
     --عند إقلاع برنامجك في المرة القادمة(في حدث الاقلاع Load) يتحقق من وجود الملف، يتحقق من التاريخ والوقت داخله، وينفذ عليه الشرط الموجود هنا بعد أن تعدله لما يناسب فكرتك، فإن تحقق الشرط نفذ الكود.
     -- إن كان برنامجك يبقى قيد التشغيل في الخلفية، فضع كود التحقق في تايمر يقوم بالتحقق من لأمر كل عدة ثواني(أو ساعات) كما تريد وينفذ عندما يتحقق الشرط..
=======

وفقك الله ..

[anes]

تفظل عملت لك مثال 

غير فقط الدقيقة بما تريد 

انا عملت دقيقة للتجريب 

مثلا هذا كود يومان

كود :

if (DateAndTime.DateDiff(DateInterval.Day, Settings.Default.VIPVAL, DateAndTime.Now) >= 2)

[ميدو الفنان]

(10-10-22, 06:44 PM)Taha Okla كتب : عندما تعجز عن التخيل قم بإضافة أدوات تجعل خيالك مرئياً وقم بالتنفيذ عليها

وما دام الدوت نت فيه دالات وأدوات تخص التاريخ تستوعب أغلب ما يخطر على البال
فلا داعي للتحويل من .. إلى ..   ، ما دام فيك تنفذ ما تريد بدون تعقيد للاكواد وتحويل وإطالة ..

مثلا ً قم بفتح مشروع جديد ثم بإضافة (Button1 + ListBox1)
وجرب الكود التالي :

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim d1 As DateTime = Now
       Dim d2 As DateTime = d1.AddDays(2).AddHours(3)
       ListBox1.Items.Add(d1)
       ListBox1.Items.Add(d2)
       If Now >= d2 Then ListBox1.Items.Add(d2)
   End Sub

هذا الكود ليس الحل ولكن بداية فكرة
d1  : هي الوقت الحالي عند تنفيذ كودك وأكتشف أن كلمة المرور صحيحة.
d2 :  هي الوقت الذي تريد فيه تنفيذ كودك إن تحقق شرطك. (يعني فيك تضيف على الوقت الحالي ما تريد من أيام وساعات لتولد تاريخ ووقت جديد).

- العمليات على الـ ListBox  تريك نواتج ما تقوم به من تعديلات قبل وبعد التنفيذ.
- الشرط الموجود في الكود : شرط للتحقق هل الوقت الحالي (بعد يومين، شعد شهر، بعد سنة) أكبر من الوقت الذي تم توليده ببرنامجك.
- تنفيذ هذا الشرط يعتمد على نتيجة الشرط (فإن تجاوز التاريخ المطلوب) نفذ الكود.
=======
- المطلوب منك ، تخزين الوقت الجديد(d2) في قاعدة بيانات أو في أي مكان في الجهاز ... إلخ.
- إن كان برنامجك يشغل كلما احتاج إليه العميل :
     --عند إقلاع برنامجك في المرة القادمة(في حدث الاقلاع Load) يتحقق من وجود الملف، يتحقق من التاريخ والوقت داخله، وينفذ عليه الشرط الموجود هنا بعد أن تعدله لما يناسب فكرتك، فإن تحقق الشرط نفذ الكود.
     -- إن كان برنامجك يبقى قيد التشغيل في الخلفية، فضع كود التحقق في تايمر يقوم بالتحقق من لأمر كل عدة ثواني(أو ساعات) كما تريد وينفذ عندما يتحقق الشرط..
=======

وفقك الله ..

شكرا لك اخي الكريم وسوف انفذ الفكرة ان شاء الله اشكرك جدا علي تعبك

---

(10-10-22, 08:08 PM)anes كتب :

تفظل عملت لك مثال 

غير فقط الدقيقة بما تريد 

انا عملت دقيقة للتجريب 

مثلا هذا كود يومان

كود :

if (DateAndTime.DateDiff(DateInterval.Day, Settings.Default.VIPVAL, DateAndTime.Now) >= 2)

شكرا لك اخي الغالي والله انك مبدع فعلا ظبط الكود وجربته ويعمل بدون اي مشاكل اشكرك جدا