(08-06-18, 05:26 AM)elgokr كتب :رائعما هو الاكواد خاصة قيمlabel_time و labelprayertime
ضع الكود المستخدم كاملاً لديكلشرح كيفية الاستخدام
وتذكر بانك يجب ان ستتخدم بطريقةTimeSpan.Parse
بحيث ان يكون الشرط بهذا الطريقةكود :
If TimeSpan.Parse(timerPC) = TimeSpan.Parse(timerZextAzan) Then
'|- ضع الكود بدلاً من هذا السطر -|'
End Ifمع تغيير كلاً من (هذه المسميات كا مثال وليس للاستخدام)timerPC لما هو يخص وقت الجهازtimerZextAzan لما هو يخص وقت الاذان التالى
مسبقاً كنت سالت عن تحديد وقت المتبقي على الصلاه التاليةهى هتكون بنفس الفكرة مع وجود كود الشرط وبداخله كود تشغيل الصوت
ولكن هذا الكود باكمله يستخدم فى اداء Timer كما تم توضيحه من قبل
وتذكر ان تجعل خصائص Timer كل من التالى
PHP كود :
Enabled = True
interval = 1000
تحياتى لكوتمنياتى لك التوفيق
(08-06-18, 05:31 AM)hichem1 كتب :(08-06-18, 05:26 AM)elgokr كتب :رائعما هو الاكواد خاصة قيمlabel_time و labelprayertime
ضع الكود المستخدم كاملاً لديكلشرح كيفية الاستخدام
وتذكر بانك يجب ان ستتخدم بطريقةTimeSpan.Parse
بحيث ان يكون الشرط بهذا الطريقةكود :
If TimeSpan.Parse(timerPC) = TimeSpan.Parse(timerZextAzan) Then
'|- ضع الكود بدلاً من هذا السطر -|'
End Ifمع تغيير كلاً من (هذه المسميات كا مثال وليس للاستخدام)timerPC لما هو يخص وقت الجهازtimerZextAzan لما هو يخص وقت الاذان التالى
مسبقاً كنت سالت عن تحديد وقت المتبقي على الصلاه التاليةهى هتكون بنفس الفكرة مع وجود كود الشرط وبداخله كود تشغيل الصوت
ولكن هذا الكود باكمله يستخدم فى اداء Timer كما تم توضيحه من قبل
وتذكر ان تجعل خصائص Timer كل من التالى
PHP كود :
Enabled = True
interval = 1000
تحياتى لكوتمنياتى لك التوفيق
كود :
If TimeSpan.Parse(Label33.Text) = TimeSpan.Parse(Label21.Text) Then
If RadioButton1.Checked Then
My.Computer.Audio.Play(My.Resources.azan1, AudioPlayMode.Background)
ElseIf RadioButton2.Checked Then
My.Computer.Audio.Play(My.Resources.azan2, AudioPlayMode.Background)
ElseIf RadioButton3.Checked Then
My.Computer.Audio.Play(My.Resources.azan3, AudioPlayMode.Background)
ElseIf RadioButton4.Checked Then
My.Computer.Audio.Play(My.Resources.azan4, AudioPlayMode.Background)
ElseIf RadioButton5.Checked Then
My.Computer.Audio.Play(My.Resources.azan5, AudioPlayMode.Background)
Me.Show()
End If
End If
