ثامر أبو بلقيس
12-01-2014, 01: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
أخي .. في البداية جميل لو تطلع بروية على هذه المعلومات أو المعطيات
قبل الشروع في مشروعك من هناااا (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