منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ضع تايمر مدته 60000
اي 60 دقيقة

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

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

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

الصوت سيظل يشتغل اما تستعمل زر لايقاف التايمر
او اضف timerstop بعد كود تشغيل الصوت

https://stackoverflow.com/a/19292014/14137871

(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

ضعهم في ملف الكود مباشرة داخل class الفورم

(21-08-20, 07:06 PM)Anas Mahmoud كتب : [ -> ]ضعهم في ملف الكود مباشرة داخل class الفورم