[visualist2015]

السلام عليكم
تقبل الله منكم صيام رمضان وقيامه
من يمكنهم المساعدة :
طلب كود تشغيل رنة معينة / أو صوت في وقت معين .. مثلا
عندما أضغط على start المفروض تبدا الرنة بعد وقت محدد (تحدده أنت ) 5 دقائق .. أو 10دقائق .. أو غيره

[aliday03]

السلام عليكم و رحمة الله و بركاته
أخي الفاضل المسألة في غاية البساطة
تضيف أداة التايمر Timer علؤ الفورم
و في حدث Timer_Tick
تضع الكود الدي تريده أن يشتغل
لا تنسى شيئا مهما
في خصائص التايمر اخعل خاصية enbled=true
و interval =1000 يمكن تغيير 1000 إلى أي رقم تريد
1000 تعني ثانية واحدة
مثلا لنفرص و ضعت 5000 أي 5 ثواني
في حدث timer_Tick
كتبت الكود الجي تريد
ولا تنسى وضع جملة شرطية تحت الكود الدي كتبت و هو كالاتي
if timer1.interval=5000 then
timer1.stop
end if
ليتوقف التايمكون الفكرة واضعة
و إدا وجدت ىصعوبة ضع مثالك هنا لنساعدك
بالتوفيق
لا تنسى أن تدعو لي

[أسامة]

بعد اذن الاخ 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

تنسيق الوقت فى Textbox1 5:54:00 PM
يمكنك تغير beep الى  My.Computer.Audio.Play(My.Resources.anything, AudioPlayMode.Background)