تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب كود
#1
السلام عليكم
أريد كود اضعه في مشروعي البسيط بحيث يشغل ملف صوتي معين (تنبيه) كل راس ساعة (الثامنة تماما ، التاسعة تماما ، .....)
الرد }}}
تم الشكر بواسطة: عبد الهادي بهاب
#2
ضع تايمر مدته 60000
اي 60 دقيقة

قي formload
شغل التايمر

في التايمر شغل صوت المنبه

My.Computer.Audio.Play(My.Resources.alarm, AudioPlayMode.Background)

الصوت سيظل يشتغل اما تستعمل زر لايقاف التايمر
او اضف timerstop بعد كود تشغيل الصوت
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد }}}
تم الشكر بواسطة: paveldida , بلدي
#3
كود :
   WithEvents TimerHour As New Timer With {
       .Interval = 1000,
       .Enabled = True}
   Dim lastHour As Integer = -1
   Private Sub TimerHour_Tick(sender As Object, e As EventArgs) Handles TimerHour.Tick
       If DateTime.Now.Hour <> lastHour And DateTime.Now.Minute = 0 Then
           lastHour = DateTime.Now.Hour
           My.Computer.Audio.Play("d:\h.wav")
       End If
   End Sub
https://stackoverflow.com/a/19292014/14137871
الرد }}}
تم الشكر بواسطة: paveldida , عبد العزيز البسكري , بلدي
#4
(21-08-20, 05:34 PM)Anas Mahmoud كتب :
كود :
   WithEvents TimerHour As New Timer With {
       .Interval = 1000,
       .Enabled = True}
   Dim lastHour As Integer = -1
   Private Sub TimerHour_Tick(sender As Object, e As EventArgs) Handles TimerHour.Tick
       If DateTime.Now.Hour <> lastHour And DateTime.Now.Minute = 0 Then
           lastHour = DateTime.Now.Hour
           My.Computer.Audio.Play("d:\h.wav")
       End If
   End Sub
https://stackoverflow.com/a/19292014/14137871
ممكن التوضيح اكثر اين اضع الاكواد
الرد }}}
تم الشكر بواسطة: Anas Mahmoud , بلدي
#5
ضعهم في ملف الكود مباشرة داخل class الفورم
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , بلدي , بلدي
#6
(21-08-20, 07:06 PM)Anas Mahmoud كتب : ضعهم في ملف الكود مباشرة داخل class الفورم

بارك الله فيك أخي ، نجح معي
الرد }}}
تم الشكر بواسطة: Anas Mahmoud


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم