+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=16319)
كود رنة في مدة زمنية معينة - visualist2015 - 01-07-16
السلام عليكم
تقبل الله منكم صيام رمضان وقيامه
من يمكنهم المساعدة :
طلب كود تشغيل رنة معينة / أو صوت في وقت معين .. مثلا
عندما أضغط على start المفروض تبدا الرنة بعد وقت محدد (تحدده أنت ) 5 دقائق .. أو 10دقائق .. أو غيره
RE: كود رنة في مدة زمنية معينة - aliday03 - 01-07-16
السلام عليكم و رحمة الله و بركاته
أخي الفاضل المسألة في غاية البساطة
تضيف أداة التايمر Timer علؤ الفورم
و في حدث Timer_Tick
تضع الكود الدي تريده أن يشتغل
لا تنسى شيئا مهما
في خصائص التايمر اخعل خاصية enbled=true
و interval =1000 يمكن تغيير 1000 إلى أي رقم تريد
1000 تعني ثانية واحدة
مثلا لنفرص و ضعت 5000 أي 5 ثواني
في حدث timer_Tick
كتبت الكود الجي تريد
ولا تنسى وضع جملة شرطية تحت الكود الدي كتبت و هو كالاتي
if timer1.interval=5000 then
timer1.stop
end if
ليتوقف التايمكون الفكرة واضعة
و إدا وجدت ىصعوبة ضع مثالك هنا لنساعدك
بالتوفيق
لا تنسى أن تدعو لي
RE: كود رنة في مدة زمنية معينة - أسامة - 01-07-16
بعد اذن الاخ aliday03
كود :
TextBox2.Text = TimeOfDay
Dim d1 As DateTime = DateTime.Parse(TextBox1.Text) 'start time
Dim d2 As DateTime = DateTime.Parse(TextBox2.Text) ' time now
Dim difference As TimeSpan = d2 - d1
TextBox4.Text = difference.Hours & ":" & difference.Minutes & ":" & difference.Seconds 'get time left
If Int(TextBox4.Text = "0:0:0") Then
TextBox4.Text = "Time Out"
Beep() 'sound
Timer1.Stop()
End Ifيمكنك تغير beep الى My.Computer.Audio.Play(My.Resources.anything, AudioPlayMode.Background)