برنامج لا تنسى صلاتك النسخة الجديدة

[onexite]

برنامج لا تنسى صلاتك النسخة 1.5
تم اضافة خاصية غلق البرامج اثناء الاذان
تم حذف الاذان في الشروق
تم اضافة تعديلات اخرى

النسخة الجديدة المفتوحة المصدر ( مواقيت الصلاة لولايات الجزائر )

[shagrouni]

السلام عليكم

مشكور على العمبل الجميل.

- في شاشة البرنامج الرئيسية لا تظهر أرقام التوقيتات بشكل كامل ، رفم الساعة تحديدا.

كود :

http://www.pixentral.com/pics/1OBrXY3ehDs0J8wQsyHKrK12Gu9qs1.png

- شاشة التواقيت الثابتة غير قابلة للإغلاق.

كود :

http://www.pixentral.com/pics/1UXg1rVtvF1NZRk0OQilJ7PmJl1Fo1.png

- في رسائل التنبيه التي تحوي على أسئلة ؛ يفضل أن تكون الأزرار معنونة ب نعم / لا وليس موافق / إلغاء الأمر

كود :

http://www.pixentral.com/pics/1j0UmNHc0YwJljzyV7HJb7rVFuv8.png

أخيرا، لو يتم تصحيح عنوان البرنامج نحويا ليكون "لا تنس صلاتك".

وشكرا على البرنامج مرة ثانية

[onexite]

- في شاشة البرنامج الرئيسية لا تظهر أرقام التوقيتات بشكل كامل ، رفم الساعة تحديدا.

هذه الدالة ستغير الوقت ويصبح بهذا الشكل HH:mms بعد ان كان hh:mms tt

PHP كود :

procedure TimeFormat() ;
 var
 Section: string;
 begin
   Section := 'Control Panel\International' ;
   with TRegIniFile.Create('') do
     try
       RootKey := HKEY_CURRENT_USER;
       WriteString(Section, 'sTimeFormat', 'HH:mm:ss') ;
       WriteString(Section, 's1159', '') ;
       WriteString(Section, 's2359', '') ;
     finally
       Free;
     end;
 end; 


تم تغيير caption الازرار

تم تغيير عنوان البرنامج

[onexite]

الاضافات التي تحدثت عنها موجودة بالاصدار الجديد

[shagrouni]

نعم بارك الله فيك، الآن التوقيتات الآن تظهر لدي بشكل واضح.

هل توجد طريقة لتعديل فارق التوقيت؟ فمواقيت الصلاة تأتي ناقصة بفارق ساعة، مع العلم إن توقيت الشروق والغروب في حالة الطقس صحيحة بالنسبة للمدينة التي أنا بها. (مرفق الصورة)

> هذه الدالة ستغير الوقت ويصبح بهذا الشكل HH:mms بعد ان كان hh:mms tt

أين أجد الدّالة؟

[onexite]

أين أجد الدّالة؟

يمكنك التغيير يدويا او برمجيا

PHP كود :

function Read_Time_Format(): Boolean;
begin
 Result:=False;
 with TRegIniFile.Create(KEY_READ OR KEY_WOW64_64KEY) do begin
 try
  RootKey := HKEY_CURRENT_USER;
  IF OpenKeyReadOnly('\Control Panel\International') THEN
  if LowerCase(DSiReadRegistry('\Control Panel\International', 'sTimeFormat', '' ,HKEY_CURRENT_USER, KEY_QUERY_VALUE OR KEY_WOW64_64KEY))<>'hh:mm:ss' then //='hh:mm:ss tt'
     result:=True
 finally
   Free;
 end;

 end;
end;

//-------------------- تغيير ---------------
 procedure Change_Time_Format() ;
 var Section: string;
 begin
   Section := 'Control Panel\International' ;
   with TRegIniFile.Create('') do
     try
       RootKey := HKEY_CURRENT_USER;
       WriteString(Section, 'sTimeFormat', 'HH:mm:ss') ;
       WriteString(Section, 's1159', '') ;
       WriteString(Section, 's2359', '') ;

     finally
       Free;
     end;
 end; 


بخصوص اضافة ساعة تم تعديل البرنامج ( مراعاة التوقيت الصيفي )

PHP كود :

function CalcPrayerTimes(anydate:TDateTime;Long,  Lat, Zone:Real;myMethod:Integer=2;Juristic_Methods:Integer=0;Summer:Boolean=False):TstTimes;
  var _Summer:0..1;
  D,L,M,Lambda,Obliquity,Alpha,ST,Dec,Durinal_Arc,Noon,UT_Noon,Local_Noon,Asr_Alt,Asr_Arc
  ,Asr_Time,Sun_Rise,Sun_Set,Esha_Arc,Esha_Time,Fajr_Arc,Fajr_Time:Real;
  C_Method :TMethodCal;
  function _arct(Value:Real):Real;
      begin
      result:= RadToDeg(Arccos((Sin(DegToRad(Value)) - Sin(DegToRad(Dec)) * Sin(DegToRad(Lat))) / (Cos(DegToRad(Dec)) * Cos(DegToRad(Lat)))));
      end;
      function _Frac24(Value:Real):Real;
      begin
      result:= Frac(Value/24);
      end;

           begin
           _Summer:=0 ;
           if Summer then _Summer:=1  ;

            C_Method:=Calculation_Method(myMethod) ;
              {نحسب اليوم اليولياني D}
            D:=DateTimeToJulianDate(anydate)-2451545.0;      //الطريقة السهلة
             { نحسب طول الشمس الوسطي}
             L := FloatMod((280.461 + 0.9856474 * D) , 360);
             L := LessMore360(L);
             {نحسب حصة الشمس الوسطي M}
            M := FloatMod((357.528 + 0.9856003 * D) , 360);
            M := LessMore360(M);
            {طول الشمس البروجي Lambda }
            Lambda := L + 1.915 * Sin(DegToRad(M)) + 0.02 * Sin(DegToRad(2 * M));
            Lambda := LessMore360(Lambda);
            {نحسب الميل الكلي لدائرة البروج Obliquity}
             Obliquity := 23.439 - 0.0000004 * D;
             {نحسب المطالع المستقيمة للشمس Alpha}
            Alpha := RadToDeg(Arctan((Cos(DegToRad(Obliquity)) * Tan(DegToRad(Lambda)))));
            Alpha := LessMore360(Alpha);
            Alpha := Alpha - (360 * int(Alpha / 360));
            Alpha := (Alpha + 90 * (Floor(Lambda / 90) - Floor(Alpha / 90)));
            {نحسب الزمن النجمي بالدرجات st}
             ST := FloatMod((100.46 + 0.985647352 * D) , 360);
             {نحسب ميل الشمس الزاوي DEC}
             Dec := RadToDeg(Arcsin(Sin(DegToRad(Obliquity)) * Sin(DegToRad(Lambda))));

             {نحسب زوال الشمس الوسطي noon}
             Noon := Alpha - ST;
             Noon := LessMore360(Noon);
             {نحسب الزوال العالمي UT Noon}
             UT_Noon := Noon - Long;
             {نحسب الزوال المحلي الذي هو وقت الظهر Local noon}
            Local_Noon := UT_Noon / 15 + Zone;
            Asr_Alt := RadToDeg(Arctan((1+Juristic_Methods )+ Tan(DegToRad(Lat - Dec))));
            {نحسب نصف قوس النهار Durinal_Arc}
            Durinal_Arc := _arct(-0.8333);
            Asr_Arc     := _arct(90 - Asr_Alt);
            Esha_Arc    := _arct(-C_Method.AngleIsha);
            Fajr_Arc    := _arct(-C_Method.AngleFajr);
            {نحسب الآن وقت الصلوات الناتج يجب تحويله إلى زمن}
            Fajr_Time := Local_Noon - (Fajr_Arc / 15);
            Sun_Rise := Local_Noon - (Durinal_Arc / 15);
            Asr_Time := Local_Noon + (Asr_Arc / 15);
            Sun_Set :=  Local_Noon + (Durinal_Arc / 15);
            Esha_Time := Local_Noon + (Esha_Arc / 15);



 // Adjust Isha for Umm Al-Qura University
// 90 Min after Maghrib on all Months but Ramadan 120 Min.
If myMethod=3 Then  //begin
   If GregorianToHijri(anydate).Month=9 Then
      Esha_Time:=Sun_Set+2
      Else
      Esha_Time:=Sun_Set+1.5;

If Sun_rise>=Local_Noon Then
   Begin
   Sun_rise := 0;
   Fajr_Time := 0;
   End Else
       If Fajr_Time>=Sun_Rise Then
          Fajr_Time := 0;

If Sun_set<=Local_Noon Then
   Begin
   Sun_set := 0;
   Esha_Time := 0;
   End Else
       If Esha_Time<=Sun_set Then
          Esha_Time := 0;


     Result[0]  := _Frac24(Fajr_Time+_Summer);
     Result[1]  := _Frac24(Sun_Rise+_Summer);
     Result[2]  := _Frac24(Local_Noon+_Summer);
     Result[3]  := _Frac24(Asr_Time+_Summer);
     Result[4]  := _Frac24(Sun_Set+_Summer);
     Result[5]  := _Frac24(Esha_Time+_Summer);
           end; 


[shagrouni]

التواقيت تظهر الآن بصورة سليمة بعد تحديد التوقيت الصيفي.

بارك الله فيك أخي.

[onexite]

النسخة 1.7
الاضافات والتصحيحات

• اضافة وقت صلاة الضحى والامساك والثلث الاخير من الليل ومنتصف الليل
  
• تعديل التنبيه
  
• تعديل فصول السنة ( طريقة الحساب اصبحت دقيقة )
  
• تعديل خاصية حالة الطقس
  
• تصحيح خطا البحث عند عدم اختيار البلد
  
• تصجيح وتحسين التعامل مع الرجستري ( وندوز 7 و 8 /32/64 بيت )
  

[onexite]

[FONT=Tahoma]النسخة 1.8

• [FONT=Tahoma]تصحيح حساب وقت الثلث الاخير / التهجد
  
• [FONT=Tahoma]تصحيح الوقت المضاف للتوقيت الهجري
  
• [FONT=Tahoma]اعتماد المكتبة bass لتشعيل الاصوات
  
• [FONT=Tahoma]تصحيح في التقاط اسم البلد والمدينة
  
• [FONT=Tahoma]اضافة طور وشكل القمر
  
• [FONT=Tahoma]اضافة معاينة html لحصة شهر وخاصية الطباعة
  
• [FONT=Tahoma]اضافة غلق عبر اسم النافذة
  
• [FONT=Tahoma]انهاء مشكل تشغيل كمسؤوول نهائيا :p
  
• [FONT=Tahoma]امكانية مشاهدة واخفاء بقية الصلاوات مع حفظ الحالة
  
• [FONT=Tahoma]تعديل اغلاق نافذة الاذان عبر تسجيل اختصار للوحة المفاتيح
  
  

[onexite]

ملاحظة مهمة عليكم بحذف النسخ السابقة فبل تنصيب النسخة الجديدة

الاصدار 2 من برنامج لاتنس صلاتك

• تحسين ظهور الاذكار
  
• اضافة حصن المسلم كامل
  
• اضافة القران الكريم والتفسير كامل ( معاني وميسر )
  
• تغيير شكل الساعة من خلال تحميل اشكال جديدة
  
• امكانية حفظ الاعدادات واسترجاعها
  

النسخة الخفيفة للاجهزة الضعيفة ولا تحتوي على ادوات
ستجدونها في الموقع الرسمي للبرنامج او حمل من هنا