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