السلام عليكم
اريد اغلق البرنامج نهائيا بعد مدة معينة احددها مثلا 40 دقيقة من بدأ البرنامج او في ساعة معينة احددها مثلا الساعة 8:15 ... الساعة من وجهة نظري افضل ولكن اي حل عندكم ان شاء الله يفي بالغرض.
واريد اظهر الوقت يتناقص من الوقت المحدد وحتى الصفر واذا ممكن اعطي تنبيه للمستخدم بين فينة واخرى بان الوقت المتبقي النصف مثلا او باقي 5 دقيقة وينتهي الوقت المحدد؟؟!
هل استخدم اداة Timer اتمنى الشرح لانه لم يسبق لي استخدامها؟؟؟
شكرا
دمتم بود
:D
انا افكر اذا انا مبدع .... I think therfore I am Creative
استخدم الأداة Timer وحدد متغير لبدء التشغيل واعمل له مقارنة في الحدث timer tick
Public Class Form1
Dim starttime As Date
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
starttime = Now
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim endtime As Long
endtime = DateDiff(DateInterval.Minute, starttime, Now)
If endtime = 30 Then 'مثلا ثلاثون دقيقة
End
End If
End Sub
End Class
واتقوا الله ويعلمكم الله
ضع هذا الكود في التايمر وان شاءالله يضبط معك مع مراعاة وضع label الموجود وعدل فيه كما تشاء وانتظر رد كتبته على عجل
Dim z As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = Val(Label1.Text) + 1 Timer1.Interval = 1000 If Label1.Text = 60 Then Label1.Text = 1 Label2.Text = 1 + Label2.Text End If If Label2.Text = 60 Then Label2.Text = 1 Label4.Text = 1 + Label4.Text ElseIf Label4.Text = 13 Then Label4.Text = 1 End If Dim instance As Date Dim returnValue As Object returnValue = instance.Now Label6.Text = returnValue End Sub
استفسار يا أخوان
كيف أجعل هذا التايمر يبدأ العد فقط اذا كان البرنامج ساكنا أو لا توجد فيه أي احداثيات لمدة معينه
مثل اللي يصير في حسابات البنوك
اذا كان البرنامج ساكنا لمدة 10 دقائق على الاقل يقوم البرنامج باغلاق نفسه تلقائيا
ويتطلب الدخول مرة اخرى ادخال اسم المستخدم وكلمة المرور
الساهر
لم يحدث شي بقي الفورم ولم ينغلق لم تنجح الطريقة
انا افكر اذا انا مبدع .... I think therfore I am Creative
أخي اضف هذا في كود التايمر للتحديد الوقت المطلوب بالثواني والدقائق والساعات والله اعلم واحكم
If Label1.Text = textbox1.text Then Me.Close() End If
لم يعمل ساحاول ان ابحث عن طريقة ثانية بدون استخدام التايمر. لا اعلم اذا كان البروجرس بار سيعمل المطلوب
مشكور جدا اخي الساهر
انا افكر اذا انا مبدع .... I think therfore I am Creative
ممكن ترسل لي مثال للشئ اللي تريده وسأقوم بالتعديل عليه وأرسله لك مرة أخرى يلبي لك الغرض إن شاء الله تعالى
واتقوا الله ويعلمكم الله
السلام عليكم
لفت انتباهي العنوان
طبعا الفكرة بسييييطة جدا
نسنخدم timer وتضبط من نافذة الخصائص interval=1000 يعني ثانية ((دقيقة=60 ثانية يعني 1000* 60 ...))
واذا اردت تشغييل التايمر كاعليك الا كتابة timer1.start في الحدث الذي تريد ان يبدا التوقيت عنده
طبعا ما اخليك بدون مثال
الملف في المثال في المرفقات
salsabeel
لك جزيل الشكر ولكن الاخ يوسف عطية تكرم بالمطلوب
والف شكر لك اخي عطية
:wub:
دمتم بود
انا افكر اذا انا مبدع .... I think therfore I am Creative
حياك الله اخي\اختي
اخذ وعطا
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…