تويت
السلام عليكم
أخي .. في البداية جميل لو تطلع بروية على هذه المعلومات أو المعطيات
قبل الشروع في مشروعك من هناااا
جميل الان عزيزي كون أن العمل مرهق حسابيا
قم بمايلي :
بعد هذا الكلام نفتح مشروعا جديدا نضع فيه 40 أنبوتا !
وعنصر Label وسميه time
تعالى ننظم الانبوتات :
----------------------------------------------------------------
أنبوتات المعطيات : وهي
Input17 وهو مخصص لخط الطول للمدينة
Input22 وهو مخصص لقيمة دائرة العرض
Input19 وهو مخصص لفارق التوقيت
أنبوتات النتائج :
Input40 وهو مخصص لصلاة الفجر
Input20 وهو مخصص لصلاة الظهر
Input27 و Input29 لظهور وقتين لصلاة العصر هناااا حسب بلدك
Input34 مخصص لصلاة المغرب
Input37 مخصص لصلاة العشاء
باقي الانبوتات يمكنك اخفائها و ليس حذفها و تخفي أنبوت صلاة العصر الذي لا يتوافق مع بلدك و اترك المتوافق
بعد كل هذا الكلام نأتي للأكواد
في on show
نزرع الكود
في on timer
نزرع الكود :
نضع زر لحساب النتائج ونكتب فيه لكن ماذا ستغير ؟؟؟؟؟؟؟
في السطرين 145 و 165 تجد قيمة 18 بالسالب اتركها بالسالب لكن غير الرقم حسب زاوية الفجر وزاوية العشاء المتبعة في بلدك
----- هذا مهم جدا ------
أخيرا نرجو الدعاء بالخير و لازم الإنسان يتأكد كل مرة
قضية التصميم و توفير المعطيات الصحيحة تبقى عليك سلالالالالالالام
أخي .. في البداية جميل لو تطلع بروية على هذه المعلومات أو المعطيات
قبل الشروع في مشروعك من هناااا
جميل الان عزيزي كون أن العمل مرهق حسابيا
قم بمايلي :
بعد هذا الكلام نفتح مشروعا جديدا نضع فيه 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);
نزرع الكود :
كود:
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
قضية التصميم و توفير المعطيات الصحيحة تبقى عليك سلالالالالالالام
المشاركة الأصلية بواسطة عبد الهادي بهاب
مشاهدة المشاركة
تعليق