أبوسليمان قام بنشر أبريل 14, 2005 قام بنشر أبريل 14, 2005 (معدل) السلام عليكم أخي الأستاذ أبو هادي سألاحظ ما ذكر أما مسألة الأذان آمل أن نجعله في الإصدار القادم أخي العزيز آمل مراجعة التعبيرات اللغوية في النماذج والتقارير التي كانت من إنشائي باللغتين العربية والإنجليزية وتعديل ما يلزم سأراجع الملف المرفق هذه الليلة وأوافيك بما لدي . أخوكم أبو سليمان تم تعديل أبريل 14, 2005 بواسطه أبوسليمان
أبوسليمان قام بنشر أبريل 14, 2005 قام بنشر أبريل 14, 2005 (معدل) السلام عليكم أخي الأستاذ أبو هادي لقد بحثت في مشكلة البحث حسب ما ذكرت ، فتبين أن السبب في الأسطر التالية من نموذج أوقات الصلاة . .SearchCountries = "" .SearchStates = "" .SearchCities = "" وعند استبدال القيمة ( "" ) بـ ( Null ) انتهت المشكلة . أخي العزيز لعلك لم تلاحظ الوحدة النمطية العامة (SearchInListBoxFunction) فلم تضفيها في ملفك الأخير ، كما أضفت وحدة جديدة في الملف المرفق باسم (PlaySoundFile) ولعلك تعيد تسميتها حسب تصنيفك للوحدات . بالنسبة لإضافة الأذان كنت قد رأيت تأجيل الموضوع إلى الإصدار اللاحق ؛ غير أني غيرت رأيي وقمت بتنفيذها بعدما وجدت دالة تشغيل الملفات الصوتية وهي لأخي أبي حمود . هناك أمر لم أستطع تنفيذه ، وهو إلزام المستخدم اختيار عشرة مدن فهل تتكرم باستدراكه ، كما أمل فحصه وإبداء الملاحظات . ملاحظة بخصوص التوقيت الصيفي : بعد تتبع الدول التي تطبق التوقيت الصيفي تبين لي من برنامج الأذان أن ليس كل مدن الدولة تتبع التوقيت الصيفي لاحظ ذلك في مدن فلسطين الحبيبة . مرفق الملف بعد إجراء التعديل . مرفق ملف الأذان - يرجى فك الضغط عنه في نفس مجلد البرنامج - محبكم أبو سليمان الملفات المرفقة Prayer20050414.rar ( 412.85ك ) عدد مرات التنزيل: 3 Makkah.rar ( 476.47ك ) عدد مرات التنزيل: 3 تم تعديل أبريل 16, 2005 بواسطه أبو هادي
أبوسليمان قام بنشر أبريل 15, 2005 قام بنشر أبريل 15, 2005 يوجد خطأ بسيط في نموذج أوقات الصلاة ؛ أرجو تعديله بما يلي : في حدث عند عداد الوقت احذف كلمة Time من السطر التاليك : Call PlayAthan(Time) تعديل دالة PlayAthan وفق الدالة التالية : Sub PlayAthan() Dim mTime As Date Dim I As Byte For I = 1 To 6 mTime = Me("P00" & I).Caption If Time = mTime Then If I <> 2 Then PlaySound Application.CurrentProject.Path & "\Makkah.wma" End If Next I End Sub أبو سليمان
فهد الدوسري قام بنشر أبريل 15, 2005 قام بنشر أبريل 15, 2005 السلام عليكم .. نبارك لأنفسنا أولاً ثم لكم على هذا البرنامج الجميل جداً والذي أدعو الله أن يجعله في ميزان حسناتكم . أقتراح .. بما أنه تم إضافة الأذان للبرنامج فهل يمكن تصغير البرنامج ليكون بجوار ساعة الكمبيوتر لكي يعمل الأذان عند حلول الوقت . ؟ تحياتي ..
أبوسليمان قام بنشر أبريل 15, 2005 قام بنشر أبريل 15, 2005 السلام عليكم بارك الله فيك أخي فهد اقتراحك جميل ، ولعله ضمن اهتمامات أستاذنا أبو هادي فهو دائمًا يأتينا بالجديد . أخوكم أبو سليمان
أبو هادي قام بنشر أبريل 16, 2005 الكاتب قام بنشر أبريل 16, 2005 (معدل) السلام عليكم أخي أبو سليمان .. لفحصك النهائي . مرفق الجزء الأول تحياتي . الملفات المرفقة Prayer20050417.rar ( 435.04ك ) عدد مرات التنزيل: 5 تم تعديل أبريل 18, 2005 بواسطه أبو هادي
أبو هادي قام بنشر أبريل 16, 2005 الكاتب قام بنشر أبريل 16, 2005 (معدل) الجزء الثاني الملفات المرفقة Prayers_20050416.rar ( 717.14ك ) عدد مرات التنزيل: 15 تم تعديل أبريل 22, 2005 بواسطه أبو هادي
أبوسليمان قام بنشر أبريل 17, 2005 قام بنشر أبريل 17, 2005 السلام عليكم تشكر أخي واستاذي أبو هادي وسوف أنظر فيها نهار الغد إن شاء الله تعالى محبكم أبو سليمان
tarekh قام بنشر أبريل 18, 2005 قام بنشر أبريل 18, 2005 (معدل) اخى الكريم ابو هادى اخوانى الاعزاء حقا انه عمل عظيم كما ارجو الاعتذار لتطفلى حيث انى منقطع على المنتدى منذ مدة ولكنى انبهرت بالعمل بالبرنامج حقا جميل جازاكم الله كل خير اسمحوا لى هل حقل الخاص بالبحث عن الدولة مازل تحت الانشاء ام يوجد كود ناقص به ولكن كنت ابتديت اعمل Search in list box وقد عملت انا وانت ومحمد طاهر من قبل بحث فى صب قورم اتتذكر على على العموم جرب الكود ده وعدل فيه طبقا لرؤيتك Private Sub SearchCountries_Change() Dim rst As Recordset Set rst = Me.Countries.Recordset.Clone rst.MoveFirst rst.FindFirst "[EngStateName] Like'" & Trim(Me.SearchCountries.Text) & "*" & "'" If rst.NoMatch Then MsgBox "No entry found.", vbInformation Else Me.Countries.Value = rst.AbsolutePosition + 1 SendKeys "{F2 2}" End If rst.Close Set rst = Nothing End Sub تم تعديل أبريل 18, 2005 بواسطه tarekh
tarekh قام بنشر أبريل 18, 2005 قام بنشر أبريل 18, 2005 كما يفضل الاصدار الاول منه ان يكون شامل اذان الحرم المكى
أبوسليمان قام بنشر أبريل 18, 2005 قام بنشر أبريل 18, 2005 السلام عليكم أخي وأستاذي أبو هادي كتب الله لكم الأجر والمثوبة على هذا الجهد المتميز . وأبشرك أخي بأني قد انتهيت من فحص البرنامج والحمد لله في إصداره الأول . ولم أجد عليه سوى بعض الملوحظات البسيطة وهي : 1) المدينة الافتراضية : أن تكون مكة وهو اقتراحك ابتداء. 2) تقرير أوقات الصلاة لمدة شهر ؛ عندما يكون التقويم ميلاديًا والشهر من (31) يومًا ؛ يظهر التقرير على صفحتين . 3) عرض التقارير ؛ لو أمكن عرضها على Maximize . 4) تذييل التقارير بعبارة ( منتديات أوفيسنا ) لا تعرض (www.officena.net ) في حالة اللغة الانجليزية ؛ حبذا لو أضيف في tag . مع العلم بأنها غير موجود في تقرير أوقات الصلاة خلال أسبوع . 5) عند التعامل مع مربع الاختيار أذان في نموذج أوقات الصلاة ؛ تظهر رسالة الاستعلام الإجرائي . 6) أزرار البحث في نموذج اختيار مدن النتيجة ؛ تأتي متعاكسة مع الواجهة العربية . وبهذا تكون أخي قد انتهيتم من الإصدار الأول للمشروع . لنستقبل ملاحظات ومقترحات الإخوة المستفيدين . وللتخطيط للمرحلة القادمة أخي tarekh تشكر أخي على تعقيبك الكريم . وفي الحقيقة مربع البحث الخاص ليست قيد الإنشاء وهي تعمل بشكل صحيح والحمد لله . وتشكر مرة أخرى على مشاركت بالكود الجميل . كما أن الإصدار يشتمل فعلاً على أذان الحرم المكي . محبكم أبو سليمان .
أبو هادي قام بنشر أبريل 18, 2005 الكاتب قام بنشر أبريل 18, 2005 (معدل) السلام عليكم أخي طارق .. شكرا لكم على اهتمامكم ومروركم وملاحظاتكم ، نحن نتشرف بكم فلا تغيب عنا . أخي أبو سليمان .. تم التعديل وتفصيلا لملاحظاتكم : 1 - المدينة الإفتراضية عندما لا يكون هناك مدينة مختارة في جدول المدينة الإفتراضية ، أما المدينة التي أنا أحبها جدا وأقوم بالتجارب عليها فأنا لا أتعمد حفظها ولم تكن النقطة تحت اهتمامي لألحظها وأحرص على تبديلها . 2 - تم التعديل . 3 - تم التعديل . 4 - تم التعديل . 5 - يلزم الإنتباه أنه تم التعديل على الجداول ، فخذ نسختك وجرب مرة أخرى . 6 - تم التعديل . آمل الإنتباه أنه عند اختيار مدينة جديدة لا يتم تحديث صندوق الإختيار للتوقيت الصيفي . تحياتي . الملفات المرفقة Prayers_20050418.rar ( 256.04ك ) عدد مرات التنزيل: 26 تم تعديل أبريل 20, 2005 بواسطه أبو هادي
أبو هادي قام بنشر أبريل 19, 2005 الكاتب قام بنشر أبريل 19, 2005 (معدل) السلام عليكم عزيزي أبو سليمان .. رأيت هناك مشكلة آمل إصلاحها . في دالة GetGhorobyTimes مطلوب تبديل هذا السطر : TF = Format(InTime / 24, " AM/PM") بهذا السطر : TF = Format((InTime + DayLightAdd) / 24, " AM/PM") حيث تعطي رموزا خاطئة لفرق الساعة للتوقيت الصيفي فيكون التوقيت الزوالي قد دخل يوما جديدا ولكن بالغروبي لا يزال متخلف الساعة . الحقيقة هممت بالشروع بالتعديل فخفت من العواقب وخصوصا أن دهاليز البرنامج كثيرة . تحياتي . تم تعديل أبريل 19, 2005 بواسطه أبو هادي
أبو هادي قام بنشر أبريل 20, 2005 الكاتب قام بنشر أبريل 20, 2005 (معدل) السلام عليكم كما آمل اعتماد التعديل في هذه الدالة : Function SetPrayerTime(inDate As Date, _ Prayer As Byte, _ tFormat As Boolean, _ Optional addGMT As Double = 0) As String Dim PTime As String Select Case Prayer Case 1: PTime = GetFajrTime(inDate, tFormat) Case 2: PTime = GetShoroqTime(inDate, tFormat) Case 3: PTime = GetDhohrTime(inDate, tFormat) Case 4: PTime = GetAsrTime(inDate, tFormat) Case 5: PTime = GetGhorobTime(inDate, tFormat) Case 6: PTime = GetIshaTime(inDate, tFormat) Case 7: PTime = Per2Min(GetNightThird, tFormat) Case 8: PTime = Per2Min(GetNightHalf, tFormat) Case 9: PTime = Per2Min(GetNightThird2, tFormat) End Select If Second(PTime) >= 30 Then PTime = Per2Min(Hour(PTime) + (Minute(PTime) + 1.01) / 60, tFormat) End If SetPrayerTime = Left(PTime, 5) End Function تحياتي . تم تعديل أبريل 20, 2005 بواسطه أبو هادي
أبو هادي قام بنشر أبريل 20, 2005 الكاتب قام بنشر أبريل 20, 2005 (معدل) السلام عليكم تم تعديل الملاحظات الأخيرة ويتبقى هذه فقط : آمل الإنتباه أنه عند اختيار مدينة جديدة لا يتم تحديث صندوق الإختيار للتوقيت الصيفي . تحياتي . الملفات المرفقة Prayers_20050420_fe.rar ( 297.82ك ) عدد مرات التنزيل: 2 الملفات المرفقة Prayers_20050421_fe.rar ( 408.77ك ) عدد مرات التنزيل: 2 تم تعديل أبريل 22, 2005 بواسطه أبو هادي
أبوسليمان قام بنشر أبريل 20, 2005 قام بنشر أبريل 20, 2005 السلام عليكم بالنسبة لتحديث صندوق الاختيار للتوقيت الصيفي سأنظر في الأمر اللآن محبكم أبو سليمان
أبوسليمان قام بنشر أبريل 20, 2005 قام بنشر أبريل 20, 2005 (معدل) السلام عليكم أخي أبو هادي لتحديث مربع الاختيار للتوقيت الصيفي آمل تعديل ما يلي : نقل السطر mDate = Date من حدث عند التحميل إلى حدث عند الفتح قبل السطر : CityID = GetDefCity عدلت بتاريخ : 21/04/2005 عند الساعة 12:30 ص لوجود خطأ انظر المشاركة التالية لي : أبو سليمان تم تعديل أبريل 20, 2005 بواسطه أبوسليمان
أبو هادي قام بنشر أبريل 20, 2005 الكاتب قام بنشر أبريل 20, 2005 السلام عليكم شكرا لك أخي أبو سليمان . أعتقد أن مشكلة صندوق اختيار الأذان لديكم هو عدم أخذكم لآخر نسخة من الجداول حيث تم التعديل في جدول المدينة الإفتراضية . تحياتي .
أبوسليمان قام بنشر أبريل 20, 2005 قام بنشر أبريل 20, 2005 السلام عليكم أخي أبو هادي كان هنالك خطأ في التعديل السابق وإليكم التصحيح : كما آمل تأخير السطر التالي Call Summery_AfterUpdate إلى ما بعد السطر : Call SetCityDayData وبهذا تكون مشكلة التحديث قد حُلت . وسألاحظ ما ذكرت بخصوص صندوق اختيار الأذان . أخوك أبو سليمان .
أبو هادي قام بنشر أبريل 22, 2005 الكاتب قام بنشر أبريل 22, 2005 السلام عليكم لقد تم فتح موضوع جديد وهو تعريف وخلاصة لهذا المشروع : برنامج أوقات الصلاة في إصداره الأول تحياتي .
الردود الموصى بها