الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكنني تحديد وقوع الحدث

مغلق
بدأه q8y-digital في 25 فبراير 2006 · 14 رد · 902 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

يا أخوان أريد كود يقوم بحدث معين مثل أغلاق الكومبيوتر أو ماشابة عند الساعة..............قيمة الساعة أنا أحددها بالتكست بوكس

أتمنى المساعدة

#2

قصدك اذ جت الساعه 5 على توقيت الجهز مثلاً يتنفذ الامر

او وقت محدد تكتبه مثل بعد 20 دقيقه او خمس دقائق

تم تعديل هذه المشاركة بواسطة بـــــدر في 25 فبراير 2006 في 15:11

#3

الأثني إذا ممكن بس الأول أهم من الثاني

الله يعطيك العافية

#4

السلام عليكم

اقتباس
أغلاق الكومبيوتر

ابحث وستجد اكثر من موضوع فى المنتدى بهذا الصدد

اقتباس
أو ماشابة عند الساعة..............قيمة الساعة

استخدم الـTimer

واعتقد ان البرنامج سبق ووضعه احدهم فى المنتدى ابحث عنه

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

002.gif

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#5

لست أعلم ما تقدمه الدوت نت من إمكانيات

لكن بامكانك استخدام timer في البرنامج وسيكون باستطاعتك عمل الطريقتين . بالطبع البرنامج لا بد أن يكون شغال على طول ..

طريقة أفضل من ذلك هي استعمال ما يسمى Task schedule سواء باستدعاء البرنامج at.exeاو Schtasksالموجود في أنظمة عائلة NT . لمعلومات أكثر عنهما راجع windows help أو في command prompt يمكن الحصول على شرح عن ذلك.

يمكن أيضا استخدام توابع API خاصة بعمل Task schedule .

أعتقد أن دوت نت تعطي طرائق أخرى لعمل ذلك ....

راجع

http://www.codeproject.com/csharp/tsnewlib.asp

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#6

SOLO.NET :

كتبنا رد في نفس الوقت :D

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#7

خلاص استخدم Timer مثل ماقلو الاخوان

وخل القيمه المكتوبه بـ TextBox تساوي Interval

Timer1.Interva l= TextBox.text

او استخدم ComboBox وضع الوقت فيه مثل دقيقه بعدين دقيقتين وانت وطالع

علماُ ان كل ثانية تساوي 1000 عند Timer

:)

#8

جزاكم الله خير

#9

ماذا عن طريقة تحديد الوقت والتاريخ للقيام بالشيء

"مثلاً "عند الساعة 5 على توقيت الجهاز مثلاً يتنفذ الامر"

#10

ما الخطأ في هذا الكود كلما شغلت البرنامج تتكرر الــ msgbox غلى مالا نهاية

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = TextBox1.Text
        Timer1.Enabled = True
    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If MsgBox(TextBox2.Text) Then
            Timer1.Enabled = False
        End If
    End Sub
End Class
#11

يبدو أنك لم تقرأ جيداً وظيفة التايمر

عندما تعطي لـ Interval قيمة ولتكن دقيقة فسيتم تنفيذ الكود بداخل Timer1_Tick كل دقيقة

وهنا سيتم تنفيذ MsgBox كل مرة يصل فيها الوقت الى قيمة Interval .

راجع Help واقرأ الجزئية التي تريدها بشكل جيد قبل البدء بكتابة الكود .

اقتباس
ماذا عن طريقة تحديد الوقت والتاريخ للقيام بالشيء

"مثلاً "عند الساعة 5 على توقيت الجهاز مثلاً يتنفذ الامر"

يمكن عملها باستعمال timer أيضاً وهنا سيكون برنامجك مشابه لبرنامج الساعة .

يمكن إستخدام Task schedule التي أشرت إليها في ردي السابق .

يبدو أني راح انزل Dot Net عندي :D

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#12

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

#13

أنا كاتب

If MsgBox(TextBox2.Text) Then

Timer1.Enabled = False

يعني التايمر ما يكرر المسج مرة ثانية بس أهوا قاعد يكرر

#14

هذي الجمله خطاء

If MsgBox(TextBox2.Text) Then

Timer1.Enabled = False

End If

حدد اق كانت قيمة TextBox2.Text مثلااً 50 يعمل ايقاف لتايمر مثل

If Timer1.Interval = "50" Then

Timer1.Enabled = False

Else

End If

#15

السلام عليكم

لعلك تستفاد من الشرح التالي:

منبّه العمليّات Thread.Timer

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

طبعا هذا المنبه مختلف عن ذلك الذي عرفناه من قبل System.Windows.Forms.Timer، كما أنّ هناك نوعا ثالثا من المنبّهات تحت فضاء الاسم System.Timers.Timer، فلا ترتبك بين هذه الأنواع!

وفي المثال التالي ترى كيف نستدعي الإجراء CheckStatus كلّ ثانيتين.. هذا الاستدعاء سيبدأ بعد ثلاث ثواني من تشغيل المنبّه:

Dim timer As Timer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e _

As System.EventArgs) Handles MyBase.Load

timer = New Timer(AddressOf CheckStatus, Nothing, 3000, 2000)

End Sub



Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e _

As KeyEventArgs) Handles MyBase.KeyDown

If e.KeyCode = Keys.Escape Then

' إنهاء عمل المنبّه

timer.Dispose()

End If

End Sub



' لاحظ أنّ الإجراء الذي ستستدعيه لا بدّ أن يكون له معامل من النوع كائن

Shared Sub CheckStatus(ByVal state As Object)

MsgBox("Esc هذه الرسالة ستظهر كلَّ ثانيتين، إلى أن تضغط زر" + _

vbCrLf + "ولكن اضغط النموذج أولا ليكون فعالا، حتّى يستقبل ضغطة الزرّ")

End Sub

هذا الموضوع مغلق.

مواضيع مشابهة