المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : مشروع حساب وقت الاذان


ثامر أبو بلقيس
12-01-2014, 02:55 PM
السلام عليكم

أخي .. في البداية جميل لو تطلع بروية على هذه المعلومات أو المعطيات
قبل الشروع في مشروعك من هناااا (http://www.abc4web.net/vb/showpost.php?p=254543&postcount=1)

جميل الان عزيزي كون أن العمل مرهق حسابيا
قم بمايلي :
بعد هذا الكلام نفتح مشروعا جديدا نضع فيه 40 أنبوتا !
وعنصر Label وسميه time

تعالى ننظم الانبوتات :
----------------------------------------------------------------
أنبوتات المعطيات : وهي
Input17 وهو مخصص لخط الطول للمدينة
Input22 وهو مخصص لقيمة دائرة العرض
Input19 وهو مخصص لفارق التوقيت

أنبوتات النتائج :

Input40 وهو مخصص لصلاة الفجر
Input20 وهو مخصص لصلاة الظهر
Input27 و Input29 لظهور وقتين لصلاة العصر هناااا حسب بلدك
Input34 مخصص لصلاة المغرب
Input37 مخصص لصلاة العشاء


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

بعد كل هذا الكلام نأتي للأكواد
في on show
نزرع الكود
Page.StartTimer( 10);
sPCdate = System.GetDate(DATE_FMT_ISO);
sPCdate2 = System.GetDate(DATE_FMT_DAY);
sPCdate3 = System.GetDate(DATE_FMT_MONTH);
sPCdate4 = System.GetDate(DATE_FMT_YEAR);
date=Input.SetText("Input1", sPCdate);
day=Input.SetText("Input2", sPCdate2 );
month=Input.SetText("Input3", sPCdate3);
year=Input.SetText("Input4", sPCdate4);في on timer
نزرع الكود :
moh = System.GetTime(TIME_FMT_MIL);
Label.SetText("time",moh );نضع زر لحساب النتائج ونكتب فيه لكن ماذا ستغير ؟؟؟؟؟؟؟
في السطرين 145 و 165 تجد قيمة 18 بالسالب اتركها بالسالب لكن غير الرقم حسب زاوية الفجر وزاوية العشاء المتبعة في بلدك
----- هذا مهم جدا ------
sPCdate = System.GetDate(DATE_FMT_ISO);
sPCdate2 = System.GetDate(DATE_FMT_DAY);
sPCdate3 = System.GetDate(DATE_FMT_MONTH);
sPCdate4 = System.GetDate(DATE_FMT_YEAR);
date=Input.SetText("Input1", sPCdate);
day=Input.SetText("Input2", sPCdate2 );
month=Input.SetText("Input3", sPCdate3);
year=Input.SetText("Input4", sPCdate4);
year =Input.GetText("Input4");
month =Input.GetText("Input3");
day =Input.GetText("Input2");
n = ((367*year)-(Math.Floor((7/4)*(year+Math.Floor((month+9)/12))))+Math.Floor(275*(month/9))+day-730531.5)
t=Input.SetText("Input5", n);
t =Input.GetText("Input5");
i = Math.Mod(280.461+0.9856474*t,360);
a3 = Math.Round(i,2);
u = Input.SetText("Input6",a3);
s = Math.Mod (357.528+0.9856003*t,360);
a2 = Math.Round(s,2);
p = Input.SetText("Input7",a2);
u =Input.GetText("Input6");
p =Input.GetText("Input7");
v = u+1.915*Math.Sin(p*3.1415926535897932/180)+0.02*Math.Sin(2*p*3.1415926535897932/180)
a1 = Math.Round(v,2);
lom = Input.SetText("Input8",a1);
lom= Input.GetText("Input8");
w = Input.SetText("Input9",Math.Round(23.439-0.0000004*t,3));
w = Input.GetText("Input9");
q=Math.Atan(Math.Cos(w*3.1415926535897932/180)*Math.Tan(lom*3.1415926535897932/180))*180/3.1415926535897932
q = Input.SetText("Input10",q);
q = Input.GetText("Input10");
b = Input.SetText("Input11",q-(360*Math.Floor(q/360)));
b = Input.GetText("Input11");
tamer =b+ 90*(Math.Round(lom/90,0)-Math.Round(b/90,0))
tamer1 = Math.Round(tamer,2);
tamer1= Input.SetText("Input12",tamer1);
tamer1 = Input.GetText("Input12");
belkiss=Math.Mod(100.46 + 0.985647352 *t,360)
belkiss= Input.SetText("Input13",belkiss);
belkiss = Input.GetText("Input13");
g=Math.Asin(Math.Sin(w*3.1415926535897932/180)*Math.Sin(lom*3.1415926535897932/180))*180/3.1415926535897932
nad = Input.SetText("Input14",g);
nad = Input.GetText("Input14");
ss=Math.Mod(tamer1-belkiss,360)
yu = Math.Abs(ss)
der = Input.SetText("Input15",yu);
der = Input.GetText("Input15");
tool = Input.GetText("Input17");
Input.SetText("Input16", der-tool);
sm = Input.GetText("Input16");
alfarek = Input.GetText("Input19");
Input.SetText("Input18",sm /15+alfarek);
fh = Input.GetText("Input18");
ib1= Math.Floor(fh)
ib3= fh-ib1
ib2=ib3*60/100
total= ib1+ib2
total= Math.Round( total, 2);
if String.Length(total)==5 then
total = String.Replace(total, ".", ":", false);
total =total..':00'
Input.SetText("Input20",total);
dohr = Input.GetText("Input20");
elseif String.Length(total)==4 then
total = String.Replace(total, ".", ":", false);
total =total..'0:00'
Input.SetText("Input20",total);
dohr = Input.GetText("Input20");
end
maz = Input.GetText("Input22");
ha=Math.Atan(1+Math.Tan((maz-nad)*3.1415926535897932/180))*180/3.1415926535897932
Input.SetText("Input21",ha);
rad = Input.GetText("Input21");
h2=Math.Atan(2+Math.Tan((maz-nad)*3.1415926535897932/180))*180/3.1415926535897932
Input.SetText("Input23",h2);
my = Input.GetText("Input23");
sup=Math.Acos((Math.Sin((90-rad)*3.1415926535897932/180)-Math.Sin(nad*3.1415926535897932/180)*Math.Sin(maz*3.1415926535897932/180))/(Math.Cos(nad*3.1415926535897932/180)*Math.Cos(maz*3.1415926535897932/180)))*180/3.1415926535897932/15
Input.SetText("Input24",sup);
ko1=Input.GetText("Input24");
rabrh=Math.Acos((Math.Sin((90-my)*3.1415926535897932/180)-Math.Sin(nad*3.1415926535897932/180)*Math.Sin(maz*3.1415926535897932/180))/(Math.Cos(nad*3.1415926535897932/180)*Math.Cos(maz*3.1415926535897932/180)))*180/3.1415926535897932/15
Input.SetText("Input25",rabrh);
srt = Input.GetText("Input25");
Input.SetText("Input26",fh+ko1);
fh2 = Input.GetText("Input26");
salah = Input.GetText("Input26");
sa=Math.Floor(salah)
sa2= salah-sa
sa3=sa2*60/100
total2= sa+sa3
total2= Math.Round( total2, 2);
if String.Length(total2)==5 then
total2 = String.Replace(total2, ".", ":", false);
total2 =total2..':00'
Input.SetText("Input27",total2);
elseif String.Length(total2)==4 then
total2 = String.Replace(total2, ".", ":", false);
total2 =total2..'0:00'
Input.SetText("Input27",total2);
end
Input.SetText("Input28",fh+srt);
dert = Input.GetText("Input28");
ma=Math.Floor(dert)
ma2= dert-ma
ma3=ma2*60/100
total3= ma+ma3
total3= Math.Round( total3, 2);
if String.Length(total3)==5 then
total3 = String.Replace(total3, ".", ":", false);
total3 =total3..':00'
Input.SetText("Input29",total3);
elseif String.Length(total3)==4 then
total3 = String.Replace(total3, ".", ":", false);
total3 =total3..'0:00'
Input.SetText("Input29",total3);
end
kho = Input.GetText("Input22");
bas=Math.Acos((Math.Sin(-0.8333*3.1415926535897932/180)-Math.Sin(nad*3.1415926535897932/180)*Math.Sin(kho*3.1415926535897932/180))/(Math.Cos(nad*3.1415926535897932/180)*Math.Cos(kho*3.1415926535897932/180)))*180/3.1415926535897932
Input.SetText("Input30",bas);
zg = Input.GetText("Input30");
-----
Input.SetText("Input31",fh -zg/15);
chourouk=Input.GetText("Input31");
va=Math.Floor(chourouk)
va2= chourouk-va
va3=va2*60/100
total4= va+va3
total4= Math.Round( total4, 2);
Input.SetText("Input32",total4);
Input.SetText("Input33",fh+zg/15);
magreb = Input.GetText("Input33");
ga=Math.Floor(magreb)
ga2= magreb-ga
ga3=ga2*60/100
total5= ga+ga3
total5= Math.Round( total5, 2);
if String.Length(total5)==5 then
total5 = String.Replace(total5, ".", ":", false);
total5 =total5..':00'
Input.SetText("Input34",total5);
elseif String.Length(total5)==4 then
total5 = String.Replace(total5, ".", ":", false);
total5 =total5..'0:00'
Input.SetText("Input34",total5);
end
icha=Math.Acos((Math.Sin(-18*3.1415926535897932/180)-Math.Sin(nad*3.1415926535897932/180)*Math.Sin(kho*3.1415926535897932/180))/(Math.Cos(nad*3.1415926535897932/180)*Math.Cos(kho*3.1415926535897932/180)))*180/3.1415926535897932
Input.SetText("Input35",icha);
yrt = Input.GetText("Input35");
----
Input.SetText("Input36",fh+(yrt/15));
alicha = Input.GetText("Input36");
xa=Math.Floor(alicha)
xa2= alicha-xa
xa3=xa2*60/100
total6= xa+xa3
total6= Math.Round( total6, 2);
if String.Length(total6)==5 then
total6 = String.Replace(total6, ".", ":", false);
total6 =total6..':00'
Input.SetText("Input37",total6);
elseif String.Length(total6)==4 then
total6 = String.Replace(total6, ".", ":", false);
total6 =total6..'0:00'
Input.SetText("Input37",total6);
end
fad=Math.Acos((Math.Sin(-18*3.1415926535897932/180)-Math.Sin(nad*3.1415926535897932/180)*Math.Sin(kho*3.1415926535897932/180))/(Math.Cos(nad*3.1415926535897932/180)*Math.Cos(kho*3.1415926535897932/180)))*180/3.1415926535897932
Input.SetText("Input38",fad);
rte = Input.GetText("Input38");
Input.SetText("Input39",fh-rte/15);
niha = Input.GetText("Input39");
na=Math.Floor(niha)
na2= niha -na
na3=na2*60/100
total7= na+na3
total7= Math.Round( total7, 2);
if String.Length(total7)==4 then
total7 = String.Replace(total7, ".", ":", false);
total7 = '0'..total7..':00'
Input.SetText("Input40",total7);
elseif String.Length(total7)==3 then
total7 = String.Replace(total7, ".", ":", false);
total7 = '0'..total7..'0:00'
Input.SetText("Input40",total7);
end
أخيرا نرجو الدعاء بالخير و لازم الإنسان يتأكد كل مرة
قضية التصميم و توفير المعطيات الصحيحة تبقى عليك سلالالالالالالام :abc_138:






ما شاء الله
روعة جدا
قد فهمت بعض الاكواد و اللقطات
لكن الارقام و الزوايا لم افهمها لكت سنظل نحاول
ربي ينورك

طلعا ان ادنتم لنا ......نضع ملفا مفتوحا او يحذف بعد اعتراضكم طبعا
http://www.mediafire.com/download/kkonqic7z7j8okp/%D9%85%D9%88%D8%A7%D9%82%D9%8A%D8%AA+%D8%A7%D9%84% D8%B5%D9%84%D8%A7%D8%A9.apz

احمدعمار
12-01-2014, 05:33 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
ولكن صدقنى انا كدة مش مستوعب الموضوع كويس لانه متشعب
ومراحل

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

وبالمرة تشرح المشروع الاصلى وكيفية التعديل عليه لكافة الدول
ان امكن

ثامر أبو بلقيس
12-01-2014, 06:07 PM
أخي أحمد كلفني الموضوع وقت وتعب و تحدي ربما قد تستشعره
وثق أني لم أبخل لكن على من يريد البرمجة أن يتعب قليلا
فالأكواد موجودة لم يتبق الا فهم الموضوع جيدا و توفير البيانات الصحيحة
ثم التطبيق و التطوير و التدقيق
في تقديري الشخصي أخي الحبيب هذا أقصى ما أقدمه لإخواني لأنه لو لم يكن كذلك
لوضعت مباشرة تطبيق تنفيذي أي برنامج
فهمتني :abc_152:

azizsoft
12-01-2014, 07:28 PM
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

بارك الله فيكم استاذ أبو بلقيس مجهود مميز
وطرح رائع
في ميزان حسناتكم ان شاء الله

abohmam
12-01-2014, 10:27 PM
بارك الله فيك أخى ابا بلقيس

ان شاء الله نتفرغ له ونقوم بالتجربة

جزاك الله خيرا ياطيب :abc_022:

ثامر أبو بلقيس
12-01-2014, 10:31 PM
مرور عطر إخواني
أخي ابو همام بإذن الله ستكون النتائج مرضية
بناء الأكواد قمت به تحت معطيات دولتي الجزائر و مصر كنموذج
والحمد لله النتائج جد مرضية :abc_152:

ثامر أبو بلقيس
13-01-2014, 12:50 AM
للأسف الشديد رغم انه لايهمني كثيرا التقييم لكن
عندما أرى وسم موضوع متعوب فيه بسيء جدا كان من الافضل أخي التعبير
بعدم الفهم بالمرور فقط لأن ذلك غير مشجع نهائيا :abc_088:
و يدفع الفرد بأن يفكر مرات في أي عطاء مشكووور

الحارث بن فيصل
15-01-2014, 03:09 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

أبو يوسف
15-01-2014, 08:58 PM
جزاك الله خيرا اخانا ابا بلقيس وبارك الله في جهودك الطيبة

.

ثامر أبو بلقيس
16-12-2014, 01:35 PM
مرور عطر :abc_138:

عبد الهادي بهاب
23-09-2015, 02:12 AM
ما شاء الله
روعة جدا
قد فهمت بعض الاكواد و اللقطات
لكن الارقام و الزوايا لم افهمها لكت سنظل نحاول
ربي ينورك

طلعا ان ادنتم لنا ......نضع ملفا مفتوحا او يحذف بعد اعتراضكم طبعا
http://www.mediafire.com/download/kkonqic7z7j8okp/%D9%85%D9%88%D8%A7%D9%82%D9%8A%D8%AA+%D8%A7%D9%84% D8%B5%D9%84%D8%A7%D8%A9.apz

ثامر أبو بلقيس
23-09-2015, 06:12 PM
لماذا أعترض ؟ و لماذا يحذف ؟ بالعكس الأصل هو الاستفادة من بعض
ولم اصب بعد بداء الملكية الخاصة بعد طرحها
عد لمحتويات أعمالك الأخيرة التربوية ستجد أنه وفقني الله لانجازها منذ عديد السنوات أي منذ 2006
و لم أسجل لحد الان اعتراض أو انزعاج بعد تجريدها من تجميعياتها الاصلية و تجميعها من جديد
بل حتى طباعتها في مطبعات معتمدة على شكل كتب و بيع مجهودي و لم اعترض على أحد أو حتى أحرجه بمفردة
فمابالك بصديق

عيد مبارك:abc_138:

عبد الهادي بهاب
28-09-2015, 08:54 PM
لماذا أعترض ؟ و لماذا يحذف ؟ بالعكس الأصل هو الاستفادة من بعض
ولم اصب بعد بداء الملكية الخاصة بعد طرحها
عد لمحتويات أعمالك الأخيرة التربوية ستجد أنه وفقني الله لانجازها منذ عديد السنوات أي منذ 2006
و لم أسجل لحد الان اعتراض أو انزعاج بعد تجريدها من تجميعياتها الاصلية و تجميعها من جديد
بل حتى طباعتها في مطبعات معتمدة على شكل كتب و بيع مجهودي و لم اعترض على أحد أو حتى أحرجه بمفردة
فمابالك بصديق

عيد مبارك:abc_138:

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

خادم المسلمين
20-01-2016, 10:17 AM
موضوع قمة الروعة :abc_051:

خادم المسلمين
17-09-2018, 11:26 AM
:abc_022::abc_022: