[مشروع]حساب مواقيت الصلاة بدقة متناهية.

محمدعبد العزيز كتب:

السلام عليكم

أخي مراد اين وصل المشروع ؟ وهل من مشكل للمساعدة ؟

عمل رائع اخي

ولو سمحت عندي اقتراح

انا طالب جامعي قسم الكترونيك

هل من الممكن ان نستعمل هذه المعادلة في برمجة pic16f877

بلغة الاسمبلي ومن تم معرفة اوقات الصلاة بطريقة الكترونية

يمكن استعمال الانجاز في المساجد

انا اعمل مشروع تخرجي لهذا الامشروع

ارجوا افادتي بما يسر الله عليكم

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

وبارك فيك

السلام عليكم،

أخي مراد، أرجو أن لا يكون الوقت متأخر حيث قمت بكتابة كلاس صغيرة لقراءة البيانات من ملف ال XML الذي قدمه الأخ وائل، وإستخدمت Xml Binding Wizard حتى تسهل الأمور بالنسبة للقراءة من ملف ال XML، حيث لم أدرك أن الموضوع قديم من العام الماضي الإ الأن، وهذه الكلاس لمن يحب الإستفادة

unit uTimeInfo;

interface
uses
  athan, xmldom, XMLIntf, msxmldom, XMLDoc,Classes,sysUtils;

type
  TCityInfo = record
	Name: WideString;
	State: WideString;
	Latitude: Integer;
	Longitude: Integer;
	Timezone: WideString;
	Daylight: Integer;
  end;

  TTimeInfo = class
  private
	fPrayer  : IXMLPrayerTimesType;
	fCountry : IXMLCountryType;
	fCity	: IXMLCityType;
	doc	  : TXMLDocument;
  public
	constructor Create;
	destructor Destroy; override;
	function GetCountries():TStringList;
	function GetCities(I:Integer):TStringList;
	function GetCityInfo(CountryIndex, CityIndex: Integer):TCityInfo;
  end;


implementation

{ TPrayerTime }

constructor TTimeInfo.Create;
begin
  doc := TXMLDocument.Create(nil);
  doc.FileName := 'athan.xml';
  fPrayer := Getprayertimes(doc);
end;

destructor TTimeInfo.Destroy;
begin
  if Assigned(fPrayer) then
	FreeAndNil(fPrayer);
  inherited;
end;

function TTimeInfo.GetCities(I: Integer): TStringList;
var
  J: Integer;
  SL : TStringList;
begin
  SL := TStringList.Create();
  for J := 0 to fPrayer.Country.Count -1 do
	Sl.Add(fPrayer.Country.City[J].Name);
  Result := SL;
end;

function TTimeInfo.GetCityInfo(CountryIndex, CityIndex: Integer): TCityInfo;
var
  CI : TCityInfo;
  City :IXMLCityType;
begin
  City := fPrayer.Country[CountryIndex].City[CityIndex];

  CI.Name := City.Name;
  CI.Latitude := City.Latitude;
  CI.Longitude := City.Longitude;
  CI.Timezone := City.Timezone;
  CI.State := City.State;
  CI.Daylight := City.Daylight;

  Result := CI;
end;

function TTimeInfo.GetCountries: TStringList;
var
  I: Integer;
  SL : TStringList;
begin
  SL := TStringList.Create();
  for I := 0 to fPrayer.Count - 1 do
	Sl.Add(fPrayer.Country.Name);
  Result := SL;
end;

في حال لم يكن هناك أي تعديل سوف أقوم بتعديل النسخة الأخيرة الموجودة هنا، لكن أن كان تم تحديث الرجاء اطلاعنا عليه

هناك برنامج أخر يسمى "إلى صلاتي" وفيه الكثير من المميزات ومكتوب بدلفي، لكن لو تم الإتفاق على بناء البرنامج ليكون خفيف ولا يستهلك الكثير من الموارد فسيكون أفضل

http://www.ela-salaty.com/

أيضا ما رأيكم ان يتم تسجيل البرنامج ضمن موقع sourceforge؟، ليس لي خبرة به لكن كنت أتمني دائما أن يكون هناك برامج عربية مفتوحة المصدر، وسوف تكون عملية التعديل والتحديث مباشرة على نسخة واحدة بدلاً من أن يتم إنشاء نسخة عن كل تعديل من قبل أي من الأخوة

مشرفنا العزيز ikossan

انا من ضمن المجموعه الذين لم يكونو يعلمون عن البرنامج إلا بهذه اللحظه

هل هناك إمكانية بمعرفة هل هذه اخر نسخه ولم يتم تطويرها بشكل اكبر ؟

انا مستعد بقواعد للتطوير بقواعد البيانات او حتى بالخوارزميات

نتمنى إطلاعنا على آخر اخبار البرنامج

لك منا جزيل الشكر

الف شكر وجزاك الله خيرا

بارك الله فيك وجعله في موازين حسناتك

ووفقك الله

ما هي المعادلة المستخدمة؟

هل يمكنك طرحها هنا؟

شكراً لكم

zMaestro كتب:

ما هي المعادلة المستخدمة؟

هل يمكنك طرحها هنا؟

الم تفرأ الموضوع ؟

المعادلات موجودة بالكتاب المرفق

:lol:

لقد اشتقت لكم.

من يكسب ثواب و يقوم بإكمال هذا المشروع

هل المرفق هو اخر تعديل ؟

B.M.AbdelAziZ كتب:

هل المرفق هو اخر تعديل ؟

آخر تعديل هو المرفق في المشاركة الأولى.

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

أنا أقوم حاليا بأكمال المشروع و إن شاء الله ينتهي في أسرع وقت

المشكلة في قاعدة البيانات أنها لا تحتوي على altitude = الإرتفاع فوق سطح البحر, :(

أهم موقع به أسماء المواقع الجغرافية ( مدن, قرى, تجمعات سكنية, مواقع إقتصادية أو صناعية ...) لا تحتوي على هذه المعلومة:

http://earth-info.nga.mil/gns/html/namefiles.htm

هذا الموقع توجد به قاعدة بيانات ضخمة جدا, لكل بلد أو دولة على حدة (أو كقاعدة بيانات موحدة لكل الدول 200MB)

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

http://www.fallingrain.com/world/index.html

هذا مثال لمدينة مكناس في المغرب:

http://www.fallingrain.com/world/MO/20/Meknes.html

لقد قمت بمشاهدة مساهمة الأخ محمد نسمان لكيفية إستعمال ملف XML, شكرا لك, فعلا جاءت في وقتها وليست متأخرة. ;)

لقد قمت بعمل قاعدة بينات غير xml أستخدمتقاعدة بينات ABS لانها أفضل و لن تهلك موارد النظام مثل xml و بعض المتغيرات تحفظ في ال registery و الان البرنامج يحسب المواقيت... أقوم حاليا بعمل المنبهات و الوقت المتبقي علي الصلاة القادمة .. و لكن سنحتاج الي من يسطتيع عمل تصميم جيد

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

ملاحظة هذه النسخة مبرمجة ب ديلفي 2007 و لا أعلم هل هي متوافقة مع النسخ التي سبقتها, فقط مشكل الصور gif أظنه مدمجا في Timage و لا يحتاج لمكون خارجي كما في النسخة التي سبقت.

إستندت كثيرا على كود الأخ محمد نسمان في قراءة البيانات من الملف XML, شكرا لك ;)

الواجهة لا تزال بحاجة لمصمم فنان :lol:

PrayerTime_V1.005_Alfa.rar

جميل جدا اخي مراد

ولتحسين الشكل استعمل احد المكونات مثل VCL sKin

B.M.AbdelAziZ كتب:

جميل جدا اخي مراد

ولتحسين الشكل استعمل احد المكونات مثل VCL sKin

هذه الواجهة فقك لكي لا تبدو النسخة alfa بئيسة , هي بالأحرى موجهة لشد الإنتباه فقط, فقط صممتها ب photoshop ولم أستخدم skins جاليا.

ela-salaty كتب:

السلام عليكم

حتي اشارك في الموضوع, اطرح جميع المعادالات الخاصة ببرنامج إلي صلاتي, و تحتوي علي

function CalcPray(Lon, Lat, Zone:Real; PrayDate:TDateTime; CalcWay, AsrType:Byte): TPray;

function Melady2Hejry(CalcDate: TDateTime): THejry;

function Hejry2Melady(const year: Integer;const month: byte;const day: byte): TDateTime;

Function DateArabe(Today : TDateTime): String;

function CalcQibla(L, B: Real): TQiblaDirec;

function CalcSeason(SDate: TDateTime): String;

<a href="http://"http://qasweb.org/qasforum/index.php"" target="_blank">جمعية الفلك بالقطيف

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

</a>ElaSalatyFunc.zip

ارجوا ان تكون مفيدة لكم

مبادرة طيبة و إن شاء نستفيد منها, شكرا لك.

بارك الله فيك

نسخة جديدة:

أضفت معادلات لتحديد منازل القمر ( لم أنتهي منها كليا فهي منازل geocentrique و ليست topocentrique)

تنقيح و إعادة صياغة الكود لتحسين مقروئيته.

تدقيق المعادلات الفلكية.

PrayerTimes_v1.0.0.6_alfa.rar

بارك الله فيكم وفي وقتكم ورفع منازلكم في الدنيا والآخرة.

أتمنى من أخوتي عند إستخدامهم للبرنامج أن يشيروا بالفضل لهؤلاء الأســــــــــــــود فلهم الحق بعد توفيق الله في ذلك.

ikossan كتب:

نسخة جديدة:

أضفت معادلات لتحديد منازل القمر ( لم أنتهي منها كليا فهي منازل geocentrique و ليست topocentrique)

تنقيح و إعادة صياغة الكود لتحسين مقروئيته.

تدقيق المعادلات الفلكية.

السلام عليكم ورحمة الله وبركاته

مع الاسف لا يمكن تحميل المرفقات فما السبب؟

السلام عليكم

أخي الكريم جزاك الله الف الف خير على هذا الموضوع و الفكرة

كمشاركة مني أنا أستخدم مكتبة أسمها AlphaControls و هي مكتبة رائعة جدا تحتوي على سكينز جميلة جدا

تساعدك على أعطاء شكل رائع للبرنامج

يمكنك زيارة الموقع و الحصول على نسخة ديمو من هنا الموقع الرئيسي للمكتبة

و تجربة أشكالها

أنا لدي نسخة كاملة و ليست ديمو لكن غير مسموح و ضعها هنا في المنتدى يمكنك البحث عنها في google

و بالتأكيد سوف تجدها

مع خالص الأحترام و التقدير

و السلام ختام

شكرا بس هل فى خطة لتحويل الشغل دا لويب سرفس ؟