اذهب الي المحتوي
أوفيسنا

|ث| أوقات الصلاة


أبو هادي

الردود الموصى بها

السلام عليكم

أخي الأستاذ أبو هادي

سألاحظ ما ذكر

أما مسألة الأذان آمل أن نجعله في الإصدار القادم

أخي العزيز

آمل مراجعة التعبيرات اللغوية في النماذج والتقارير التي كانت من إنشائي

باللغتين العربية والإنجليزية وتعديل ما يلزم

سأراجع الملف المرفق هذه الليلة وأوافيك بما لدي .

أخوكم

أبو سليمان

تم تعديل بواسطه أبوسليمان
رابط هذا التعليق
شارك

  • الردود 244
  • Created
  • اخر رد

Top Posters In This Topic

السلام عليكم

أخي الأستاذ أبو هادي

لقد بحثت في مشكلة البحث حسب ما ذكرت ، فتبين أن السبب في الأسطر التالية من نموذج أوقات الصلاة .

    .SearchCountries = ""
    .SearchStates = ""
    .SearchCities = ""

وعند استبدال القيمة ( "" ) بـ ( Null ) انتهت المشكلة .

أخي العزيز

لعلك لم تلاحظ الوحدة النمطية العامة (SearchInListBoxFunction) فلم تضفيها في ملفك الأخير ، كما أضفت وحدة جديدة في الملف المرفق باسم (PlaySoundFile) ولعلك تعيد تسميتها حسب تصنيفك للوحدات .

بالنسبة لإضافة الأذان

كنت قد رأيت تأجيل الموضوع إلى الإصدار اللاحق ؛ غير أني غيرت رأيي وقمت بتنفيذها بعدما وجدت دالة تشغيل الملفات الصوتية وهي لأخي أبي حمود .

هناك أمر لم أستطع تنفيذه ، وهو إلزام المستخدم اختيار عشرة مدن فهل تتكرم باستدراكه ، كما أمل فحصه وإبداء الملاحظات .

ملاحظة بخصوص التوقيت الصيفي :

بعد تتبع الدول التي تطبق التوقيت الصيفي تبين لي من برنامج الأذان أن ليس كل مدن الدولة تتبع التوقيت الصيفي لاحظ ذلك في مدن فلسطين الحبيبة .

مرفق الملف بعد إجراء التعديل .

مرفق ملف الأذان - يرجى فك الضغط عنه في نفس مجلد البرنامج -

محبكم

أبو سليمان

الملفات المرفقة

Prayer20050414.rar ( 412.85ك ) عدد مرات التنزيل: 3

Makkah.rar ( 476.47ك ) عدد مرات التنزيل: 3

تم تعديل بواسطه أبو هادي
رابط هذا التعليق
شارك

يوجد خطأ بسيط في نموذج أوقات الصلاة ؛ أرجو تعديله بما يلي :

في حدث عند عداد الوقت

احذف كلمة 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

أبو سليمان

رابط هذا التعليق
شارك

السلام عليكم ..

نبارك لأنفسنا أولاً ثم لكم على هذا البرنامج الجميل جداً والذي أدعو الله أن يجعله في ميزان حسناتكم .

أقتراح .. بما أنه تم إضافة الأذان للبرنامج فهل يمكن تصغير البرنامج ليكون بجوار ساعة الكمبيوتر لكي يعمل الأذان عند حلول الوقت . ؟

تحياتي ..

رابط هذا التعليق
شارك

السلام عليكم

أخي أبو سليمان .. لفحصك النهائي .

مرفق الجزء الأول

تحياتي .

الملفات المرفقة

Prayer20050417.rar ( 435.04ك ) عدد مرات التنزيل: 5

تم تعديل بواسطه أبو هادي
رابط هذا التعليق
شارك

اخى الكريم ابو هادى

اخوانى الاعزاء

حقا انه عمل عظيم كما ارجو الاعتذار لتطفلى حيث انى منقطع على المنتدى منذ مدة

ولكنى انبهرت بالعمل بالبرنامج حقا جميل

جازاكم الله كل خير

اسمحوا لى هل حقل الخاص بالبحث عن الدولة مازل تحت الانشاء ام يوجد كود ناقص به ولكن كنت ابتديت اعمل 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

تم تعديل بواسطه tarekh
رابط هذا التعليق
شارك

السلام عليكم

أخي وأستاذي أبو هادي

كتب الله لكم الأجر والمثوبة على هذا الجهد المتميز .

وأبشرك أخي بأني قد انتهيت من فحص البرنامج والحمد لله في إصداره الأول .

ولم أجد عليه سوى بعض الملوحظات البسيطة وهي :

1) المدينة الافتراضية : أن تكون مكة وهو اقتراحك ابتداء.

2) تقرير أوقات الصلاة لمدة شهر ؛ عندما يكون التقويم ميلاديًا والشهر من (31) يومًا ؛ يظهر التقرير على صفحتين .

3) عرض التقارير ؛ لو أمكن عرضها على Maximize .

4) تذييل التقارير بعبارة ( منتديات أوفيسنا ) لا تعرض (www.officena.net ) في حالة اللغة الانجليزية ؛ حبذا لو أضيف في tag . مع العلم بأنها غير موجود في تقرير أوقات الصلاة خلال أسبوع .

5) عند التعامل مع مربع الاختيار أذان في نموذج أوقات الصلاة ؛ تظهر رسالة الاستعلام الإجرائي .

6) أزرار البحث في نموذج اختيار مدن النتيجة ؛ تأتي متعاكسة مع الواجهة العربية .

وبهذا تكون أخي قد انتهيتم من الإصدار الأول للمشروع .

لنستقبل ملاحظات ومقترحات الإخوة المستفيدين .

وللتخطيط للمرحلة القادمة

أخي tarekh

تشكر أخي على تعقيبك الكريم .

وفي الحقيقة مربع البحث الخاص ليست قيد الإنشاء وهي تعمل بشكل صحيح والحمد لله .

وتشكر مرة أخرى على مشاركت بالكود الجميل .

كما أن الإصدار يشتمل فعلاً على أذان الحرم المكي .

محبكم أبو سليمان .

رابط هذا التعليق
شارك

السلام عليكم

أخي طارق .. شكرا لكم على اهتمامكم ومروركم وملاحظاتكم ، نحن نتشرف بكم فلا تغيب عنا .

أخي أبو سليمان .. تم التعديل وتفصيلا لملاحظاتكم :

1 - المدينة الإفتراضية عندما لا يكون هناك مدينة مختارة في جدول المدينة الإفتراضية ، أما المدينة التي أنا أحبها جدا وأقوم بالتجارب عليها فأنا لا أتعمد حفظها ولم تكن النقطة تحت اهتمامي لألحظها وأحرص على تبديلها .

2 - تم التعديل .

3 - تم التعديل .

4 - تم التعديل .

5 - يلزم الإنتباه أنه تم التعديل على الجداول ، فخذ نسختك وجرب مرة أخرى .

6 - تم التعديل .

آمل الإنتباه أنه عند اختيار مدينة جديدة لا يتم تحديث صندوق الإختيار للتوقيت الصيفي .

تحياتي .

الملفات المرفقة

Prayers_20050418.rar ( 256.04ك ) عدد مرات التنزيل: 26

تم تعديل بواسطه أبو هادي
رابط هذا التعليق
شارك

السلام عليكم

عزيزي أبو سليمان .. رأيت هناك مشكلة آمل إصلاحها .

في دالة GetGhorobyTimes

مطلوب تبديل هذا السطر :

TF = Format(InTime / 24, " AM/PM")
بهذا السطر :
 TF = Format((InTime + DayLightAdd) / 24, " AM/PM")

حيث تعطي رموزا خاطئة لفرق الساعة للتوقيت الصيفي فيكون التوقيت الزوالي قد دخل يوما جديدا ولكن بالغروبي لا يزال متخلف الساعة .

الحقيقة هممت بالشروع بالتعديل فخفت من العواقب وخصوصا أن دهاليز البرنامج كثيرة .

تحياتي .

تم تعديل بواسطه أبو هادي
رابط هذا التعليق
شارك

السلام عليكم

كما آمل اعتماد التعديل في هذه الدالة :

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

تحياتي .

تم تعديل بواسطه أبو هادي
رابط هذا التعليق
شارك

السلام عليكم

تم تعديل الملاحظات الأخيرة ويتبقى هذه فقط :

آمل الإنتباه أنه عند اختيار مدينة جديدة لا يتم تحديث صندوق الإختيار للتوقيت الصيفي .

تحياتي .

الملفات المرفقة

Prayers_20050420_fe.rar ( 297.82ك ) عدد مرات التنزيل: 2

الملفات المرفقة

Prayers_20050421_fe.rar ( 408.77ك ) عدد مرات التنزيل: 2

تم تعديل بواسطه أبو هادي
رابط هذا التعليق
شارك

السلام عليكم

أخي أبو هادي لتحديث مربع الاختيار للتوقيت الصيفي آمل تعديل ما يلي :

نقل السطر

    mDate = Date
من حدث عند التحميل إلى حدث عند الفتح قبل السطر :
    CityID = GetDefCity

عدلت بتاريخ : 21/04/2005 عند الساعة 12:30 ص لوجود خطأ

انظر المشاركة التالية لي :

أبو سليمان

تم تعديل بواسطه أبوسليمان
رابط هذا التعليق
شارك

السلام عليكم

شكرا لك أخي أبو سليمان .

أعتقد أن مشكلة صندوق اختيار الأذان لديكم هو عدم أخذكم لآخر نسخة من الجداول حيث تم التعديل في جدول المدينة الإفتراضية .

تحياتي .

رابط هذا التعليق
شارك

السلام عليكم

أخي أبو هادي

كان هنالك خطأ في التعديل السابق وإليكم التصحيح :

كما آمل تأخير السطر التالي

Call Summery_AfterUpdate
إلى ما بعد السطر :
    Call SetCityDayData

وبهذا تكون مشكلة التحديث قد حُلت .

وسألاحظ ما ذكرت بخصوص صندوق اختيار الأذان .

أخوك أبو سليمان .

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه



×
×
  • اضف...

Important Information