أبي كود يسوي أمر عند وقوع التاريخ و الوقت المحدد

تكفون ساعدوني ثاني مرة أطرح هل سؤال وو ماكو أحد يجاوبني

ليش ليش ليش ليش ليش ليش يا اهل الخبرة والمعرفة ليش تبخلون على اخوانكم

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

كلها أزرار تضغطها وو ينتهي الأمر

ياخي واش فيك مفجوع اركد ومالك الا اللي ريضيك

سوي جملة مقارنة اذا القيمة اللي في التكست بوكس تساوي القيمة المطلوبة سوي اللمصيبة الفلانية بس

if cdate(textbox1.text) = cdate("2006-12-10") then

' explotion

end if

الله يعطيك العافية يا أخوي

ثاني موضوع وو نفس المضمون

أخوي ولا عليك أمر

أبي كود إذا صار التاريخ ************* الساعة ************* يشتغل **************

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

قم بتعريف المتغيرات الاتية فى العام

  Dim myfrm As New Form2
   Dim mydate As New Date

وهذا فى Form_load

TextBox2.Text = mydate.Today

وهذا فى Button

        If TextBox1.Text = "1/1/2000" Then
            If RadioButton2.Checked = True Then
                MessageBox.Show(mydate.Today)
            Else
                myfrm.Show()
            End If
        End If

اذا كان التاريخ 1/1/2000 وقمت بالتأشير على رسالة او نموذج وضغط على الزر سوف يعرض الامر المطلوب فى التاريخ الميعن اى استفسار برجاء الرد بالتوفيق

WindowsApplication2.zip

اسف اخى Romantic_touch لم اعلم انك قمت برد :)

السلام عليكم

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

وسيكون الكود كالتالي

انشئ مشروع جديد

اضف اليه صندوق نص (للتاريخ الذي سيحدث فيه الحدث)

اضف اليه صندوق نص (للوقت الذي سيحدث فيه الحدث)

اضف كذلك timer واجعل قيمة الخاصية interval = 1000

الان نقوم بكتابة الكود

في الحدث Timer_time() نكتب ما يلي

if cdate(text1) = date then

if text2=time then

' هنا الحدث المطلوب

timer1.enable=false

end if

end if

الله يعطيكم العافية يا أخوان

أنا أبي نفس هذا الكود

if cdate(textbox1.text) = cdate("2006-12-10") then

' explotion

end if

بس حق الساعة

الكود هذا ضبط معاي بس أبي واحد ثاني نفسة بس حق الساعة

اخ كفاح

لا عادي اخوي كلنا في خدمة الأخوان :)

بالنسبة لحق الساعة

if format(cdate(textbox2.text),"HH:mm") = format(cdate("15:20"),"HH:mm") then

' explotuion

end if

الله يعطيكم العافية وو سامحوني على الأزعاج

أخ Romantic_touch ممكن تقولي كيف أصبحت عارفاً بكل شيء لأنني أحب البرمجة ولكنني أريد أن أصبح محترف

الله يعافيك اخوي كويتي ديجيتال

حسب ما حسيت من كلامك اتوقع ان جوابي كان صحيح ... صح؟

ثانيا يا اخوي مافي احد ولد متعلم وشوف مشاركاتي تلاقيها اكثر اسئله خخخخخخخخخخخ ولكن الحمدلله على كل حال

ولعلمك المنتدى فيه ناس فطاحلة جدا وانا صغنطوط بالنسبة لهم ولكن التمارين والاجتهاد والاراد هيه دائما سلاح المتميز

وبعدين لو لاحظت مشاركات حتلاقيها كلها اسئله خخخخخخخ فبلاش فضايح

اما كيف فأعتقد توقيعي يوضح لك كيف :)

تحياتي

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

الكود :

if date.now.minute = textbox1.text then

msgbox ("الكود هنا")

end if

هاد الكود عن الدقائق وفي امكانك عن نفس الدلة استعمال الساعات ونفس الطريقة

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

enablead = true

ملاحظة : هالكود يعمل على الدوت نت 2005 ما أعرف إذا شغال على إصدار سابق