+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] طلب كود (/showthread.php?tid=36172)
طلب كود - paveldida - 21-08-20
السلام عليكم
أريد كود اضعه في مشروعي البسيط بحيث يشغل ملف صوتي معين (تنبيه) كل راس ساعة (الثامنة تماما ، التاسعة تماما ، .....)
RE: طلب كود - عبد الهادي بهاب - 21-08-20
ضع تايمر مدته 60000
اي 60 دقيقة
قي formload
شغل التايمر
في التايمر شغل صوت المنبه
My.Computer.Audio.Play(My.Resources.alarm, AudioPlayMode.Background)
الصوت سيظل يشتغل اما تستعمل زر لايقاف التايمر
او اضف timerstop بعد كود تشغيل الصوت
RE: طلب كود - Anas Mahmoud - 21-08-20
كود :
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 SubRE: طلب كود - paveldida - 21-08-20
(21-08-20, 05:34 PM)Anas Mahmoud كتب :https://stackoverflow.com/a/19292014/14137871كود :
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
ممكن التوضيح اكثر اين اضع الاكواد
RE: طلب كود - Anas Mahmoud - 21-08-20
ضعهم في ملف الكود مباشرة داخل class الفورم
RE: طلب كود - paveldida - 21-08-20
(21-08-20, 07:06 PM)Anas Mahmoud كتب : ضعهم في ملف الكود مباشرة داخل class الفورم
بارك الله فيك أخي ، نجح معي