السلام عليكم
تقبل الله منكم صيام رمضان وقيامه
من يمكنهم المساعدة :
طلب كود تشغيل رنة معينة / أو صوت في وقت معين .. مثلا
عندما أضغط على start المفروض تبدا الرنة بعد وقت محدد (تحدده أنت ) 5 دقائق .. أو 10دقائق .. أو غيره
السلام عليكم و رحمة الله و بركاته
أخي الفاضل المسألة في غاية البساطة
تضيف أداة التايمر 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)