(08-06-18, 05:01 AM)elgokr كتب : [ -> ]لا اسف اخى الكريم
واسال ما كل ما تريد لا مشكلة فى ذلك
بخصوص الطريقة
طبق نفس الكود مع عملية IF
بحيث اذا توفق وقت الجهاز مع وقت الاذان
يقوم بتشغيل الصوت اعتماداً على RadioButton النشط
وسيكون هذه المرة داخل اداء Timer
تحياتى لك
if label_time = labelprayertime then
الكود
end if
فعلت هكذا دون جدوى
ما هو الاكواد خاصة قيم
label_time و labelprayertime
ضع الكود المستخدم كاملاً لديك
لشرح كيفية الاستخدام
وتذكر بانك يجب ان ستتخدم بطريقة
TimeSpan.Parse
بحيث ان يكون الشرط بهذا الطريقة
كود :
If TimeSpan.Parse(timerPC) = TimeSpan.Parse(timerZextAzan) Then
'|- ضع الكود بدلاً من هذا السطر -|'
End If
مع تغيير كلاً من (هذه المسميات كا مثال وليس للاستخدام)
timerPC لما هو يخص وقت الجهاز
timerZextAzan لما هو يخص وقت الاذان التالى
مسبقاً كنت سالت عن تحديد وقت المتبقي على الصلاه التالية
هى هتكون بنفس الفكرة مع وجود كود الشرط وبداخله كود تشغيل الصوت
ولكن هذا الكود باكمله يستخدم فى اداء Timer كما تم توضيحه من قبل
وتذكر ان تجعل خصائص Timer كل من التالى
PHP كود :
Enabled = True
interval = 1000
تحياتى لك
وتمنياتى لك التوفيق
للاسف لا يمكننى رؤية الصورة على هذا مركز الرفع
قم بارفاق الصورة فى المرفقات
او استخدم اى مركز رفع اخر
تحياتى لك
سبب هذا الخطاء
هو ان كل من Label33.Text و Label21.Text
او احدهم لا يحتوى على قيمة وقت والتى يجب ان تكون بهذا الشكل 4:30 كمثال
فبالتالى اذا كان القيمة فارغة او رقم او نص فالطبيعي ان يظهر هذا الخطاء كما فى الصورة
تاكد من ان القيم خاصة كل منهما وقت
وليس فارغ او يحتى على نصوص وارقام فقط
يجب ان يكون القيمة كا وقت ساعة ودقيقة
تحياتى لك
(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
الكود بناءاً على المشروع المرفق بالرابط
تحياتى لك
شكرا جزيلا أخي لكن كيف أحفظ أخر إختيار للصوت و عند فتح البرنامج يظهر ال cobobox بصوت الأذان المستعمل الأخير
أريتموني ذلك سابقا لكن هذا لا يعمل مع ال cobobox بعد ترجبة ذلك
قم بانشاء حقل فى 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
وبكده كل شئ تمام
تحياتى لك
