[hichem1]

(08-06-18, 05:01 AM)elgokr كتب :

لا اسف اخى الكريم

واسال ما كل ما تريد لا مشكلة فى ذلك

بخصوص الطريقة 

طبق نفس الكود مع عملية IF

بحيث اذا توفق وقت الجهاز مع وقت الاذان

يقوم بتشغيل الصوت اعتماداً على RadioButton النشط

وسيكون هذه المرة داخل اداء Timer

تحياتى لك

if label_time = labelprayertime then
الكود
end if
فعلت هكذا دون جدوى

[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 


تحياتى لك

وتمنياتى لك التوفيق

[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 


تحياتى لك

وتمنياتى لك التوفيق

رائع

---

(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

[elgokr]

للاسف لا يمكننى رؤية الصورة على هذا مركز الرفع

قم بارفاق الصورة فى المرفقات

او استخدم اى مركز رفع اخر

تحياتى لك

[hichem1]

مشكلة جديدة للأسف

[elgokr]

سبب هذا الخطاء

هو ان كل من Label33.Text و Label21.Text

او احدهم لا يحتوى على قيمة وقت والتى يجب ان تكون بهذا الشكل 4:30 كمثال

فبالتالى اذا كان القيمة فارغة او رقم او نص فالطبيعي ان يظهر هذا الخطاء كما فى الصورة

تاكد من ان القيم خاصة كل منهما وقت

وليس فارغ او يحتى على نصوص وارقام فقط

يجب ان يكون القيمة كا وقت ساعة ودقيقة 

تحياتى لك

[hichem1]

ايمكنك التعديل على هذا المشروع لأن الطريقة لم تعمل معي 
في هذا المشروع إستبدلت radiobox ب combobox لأأني أحتاج إلى مساحة أكبر
البرنامج في الملحقات و شكرا للمساعدة

---

http://www.mediafire.com/file/2l3bpjglo0...1.rar/file

[elgokr]

(08-06-18, 06:23 PM)hichem1 كتب : ايمكنك التعديل على هذا المشروع لأن الطريقة لم تعمل معي 
في هذا المشروع إستبدلت radiobox ب combobox لأأني أحتاج إلى مساحة أكبر
البرنامج في الملحقات و شكرا للمساعدة

---

http://www.mediafire.com/file/2l3bpjglo0...1.rar/file

بما انك مفعل Timer2

قم باستخدام هذا الكود

كود :

   Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
       Label1.Text = Now.ToString("HH:mm:ss")
       If TimeSpan.Parse(Label1.Text) = TimeSpan.Parse(Label2.Text) Then
           Dim aa As String = ComboBox1.SelectedItem
           If aa = "azan1" Then
               My.Computer.Audio.Play(My.Resources.azan1, AudioPlayMode.Background)
           ElseIf aa = "azan2" Then
               My.Computer.Audio.Play(My.Resources.azan2, AudioPlayMode.Background)
           ElseIf aa = "azan3" Then
               My.Computer.Audio.Play(My.Resources.azan3, AudioPlayMode.Background)
           ElseIf aa = "azan4" Then
               My.Computer.Audio.Play(My.Resources.azan4, AudioPlayMode.Background)
           ElseIf aa = "azan5" Then
               My.Computer.Audio.Play(My.Resources.azan5, AudioPlayMode.Background)
           Else
               ComboBox1.SelectedItem = "azan1"
           End If
       End If
   End Sub

الكود بناءاً على المشروع المرفق بالرابط 

تحياتى لك

[hichem1]

شكرا جزيلا أخي لكن كيف أحفظ أخر إختيار للصوت و عند فتح البرنامج يظهر ال cobobox بصوت الأذان المستعمل الأخير 
أريتموني ذلك سابقا لكن هذا لا يعمل مع ال cobobox بعد ترجبة ذلك

[elgokr]

قم بانشاء حقل فى Settings

الخاص بالمشروع وقم بحفظ قيمة من خلال الكود التالى

فى البداية لنتخيل ان مسمى الحل فى الاعدادات هى 

CAzan والنوع String والقيمة الافتراضية هى Azan1

ناتى بتطبيق الكود التالى

كود :

   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       My.Settings.CAzan = ComboBox1.SelectedItem.ToString()
       My.Settings.Save()
   End Sub

ملحوظة :
قم بالدخول على كما بالمسار التالى

PHP كود :

My Project >> Application 


وتاكد بان Save My.Settings on Shutdown بجانبها علامة الصح اى انه تم تنشيطها

تحياتى لك

وتمنياتى لك التوفيق

---

ما نسيت اضافته

فى منطقة Form1_Load

قم باضافة هذا الكود

كود :

ComboBox1.SelectedItem = My.Settings.CAzan

وبكده كل شئ تمام

تحياتى لك