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

علا بنت الشاطىء

منتدى شامل
 
الرئيسيةالبوابة*التسجيلدخول
دخول
اسم العضو:
كلمة السر:
ادخلني بشكل آلي عند زيارتي مرة اخرى: 
:: لقد نسيت كلمة السر
المواضيع الأخيرة
» ما الذي حصل ؟
الأحد 15 يوليو 2018, 2:20 am من طرف علا المصرى

» شكرا لكل اسرة المنتدى الكرامى عنكم
الأحد 15 يوليو 2018, 2:16 am من طرف علا المصرى

» الزعفران اغلى التوابل فى العالم
الجمعة 13 أبريل 2018, 9:54 pm من طرف عاشقة الجنة

» الفواكه > أكي دنيا - إهليلج
الجمعة 13 أبريل 2018, 9:54 pm من طرف عاشقة الجنة

» طريقة رز بالدجاج لذيذة
الجمعة 13 أبريل 2018, 9:52 pm من طرف عاشقة الجنة

» عمل صينية سمك
الجمعة 13 أبريل 2018, 9:52 pm من طرف عاشقة الجنة

» قواعد التربية السليمة للاطفال
الجمعة 13 أبريل 2018, 9:52 pm من طرف عاشقة الجنة

» نصائح للتعامل مع الطفل بعد فقدان والده أو والدته
الجمعة 13 أبريل 2018, 9:52 pm من طرف عاشقة الجنة

» الحياة الأسرية: بين الصفاء والتعكير
الجمعة 13 أبريل 2018, 9:51 pm من طرف عاشقة الجنة

» تعريف الأسرة
الجمعة 13 أبريل 2018, 9:51 pm من طرف عاشقة الجنة

أفضل 10 أعضاء في هذا المنتدى
علا المصرى
 
امين
 
كيان انثى
 
الهام المصرى
 
شريف كمال
 
هتروق وتحلى
 
آســــــــــــر
 
عصام بكار
 
شاعر الرومانسية
 
شهد الملكة
 
سحابة الكلمات الدلالية
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المواضيع الأكثر نشاطاً
قصة (( في الحلال ))
<<< قصة رجولة استاذ >>>
ميراث خطر - ستيفاني هوارد - رواية ميراث خطر كاملة
القرآن الكريم (كتابة)
1200 - المستبد - عبير دار النحاس ( كاملة )
أسماء الله الحسنى
"اللاهوت المسيحي والإنسان المعاصر"
++++ موضوع متكامل لكل طقوس كنيستنا القبطية ++++ ادخل واستمتع
رواية جزيرة الأقدار -مارجري هيلتون -روايات عبير القديمة ( كاملة)
رواية عنيد - آن ميثر - روايات عبير القديمة (كاملة) _عنيد
أفضل 10 أعضاء في هذا الأسبوع
أفضل 10 أعضاء في هذا الشهر

شاطر | 
 

 البرنامج رقم 18... برنامج العبور الكامل

اذهب الى الأسفل 
كاتب الموضوعرسالة
علا المصرى
الـمـؤ سس
الـمـؤ سس
avatar

عدد المساهمات : 22760
نقاط : 30252
السٌّمعَة : 2
تاريخ التسجيل : 15/12/2013

مُساهمةموضوع: البرنامج رقم 18... برنامج العبور الكامل   الثلاثاء 05 أبريل 2016, 4:24 am

البرنامج رقم 18... برنامج العبور الكامل




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


البرنامج الرئيسي...


CLS
REM Calculate Date of Cross
INPUT "Year:"; Y
INPUT "Month:"; M
INPUT "Day:"; D
INPUT "Hour:"; H
INPUT "Minute"; N
INPUT "Zone:"; Z
INPUT "Age"; YY
B = 0
IF 10000 * Y + 100 * M + D > 15821015 THEN B = 2 - INT(Y / 100) + INT(Y / 400)
M = M + 1
IF M < 4 THEN M = M + 12: Y = Y - 1
DD = INT(365.25 * Y) + INT(30.6 * M) + D + B + (H - Z + N / 60) / 24 - 730916
GOSUB 10
PRINT "Natal Longitude of Sun:"; L
L1 = L
DD = DD + YY * 365.2422
2 GOSUB 10
L2 = L
LL = L2 - L1
IF ABS(LL) > .0001 THEN DD = DD - LL: GOTO 2
DD = DD + 730487 + Z / 24
H1 = INT((DD - INT(DD)) * 24)
M1 = INT(((DD - INT(DD)) * 24 - H1) * 60)
I = INT(DD)
IF I > 577736 THEN A = INT((I + 306) / 36524.25): I = I + A - INT(A / 4) - 2
Y = INT((I + 306) / 365.25)
C = I - INT(Y * 365.25) + 429
G = INT(C / 30.6001)
M = G - 1: IF G > 13 THEN M = M - 12
IF M < 3 THEN Y = Y + 1
D = C - INT(G * 30.6001)
PRINT "Date of Cross:(Year Month Day Hour Minute)"; Y; M; D; H1; M1
END




-----------------------------------




وهذا البرنامج الفرعي الذي يحسب موقع الشمس على مدار البروج بدقة متناهية...




10 REM Calulating Sun Position...
PI = 57.29577951#
DEF FNANG (A, B, C, D, PI) = (A + 360 * B * D + C * D * D - INT((A + 360 * B * D + C * D * D) / 360) * 360) / PI
D = (DD + 36890.5) / 365.25
LS = FNANG(279.69668#, 1.000021359#, 3.025E-08, D, PI)
MS = FNANG(358.47583#, .9999736042#, 1.5E-08, D, PI)
E = .01675104# - 4.18E-07 * D
A1 = FNANG(153.23, .6255209472#, 0, D, PI)
A2 = FNANG(216.57, 1.251041894#, 0, D, PI)
A3 = FNANG(312.69, .9156766028#, 0, D, PI)
A4 = FNANG(350.74, 12.36853095#, 1.44E-07, D, PI)
A5 = FNANG(231.19, .0561111111#, 0, D, PI)
T = MS
1 D = (T - E * SIN(T) - MS) / (1 - E * COS(T))
IF ABS(D) > .000001 THEN T = T - D: GOTO 1
NU = 2 * ATN(SQR((1 + E) / (1 - E)) * TAN(T / 2))
L = (NU + LS - MS) * PI + .00134 * COS(A1) + .00154 * COS(A2) + .002 * COS(A3) + .00179 * SIN(A4) + .00178 * SIN(A5)
L = INT((L-INT(L/360)*360) * 1000) / 1000
RETURN



ان مرت الأيام ولم ترونـي فهذه مواضيعي فتـذكرونــي
وان غبت يوما ولم تجدونـي
ففي قلبي حبكـم فـلاتنسونــي
ان طال غيابـي عنكـم دون عـودة
اكون وقتهـا بحـاجة للدعـاء فادعـولــي
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://olaa-elmasry.yoo7.com
د . عصام عبد الرحمن
عضو متميز
عضو متميز
avatar

عدد المساهمات : 927
نقاط : 1107
السٌّمعَة : 5
تاريخ التسجيل : 18/01/2016
العمر : 38

مُساهمةموضوع: رد: البرنامج رقم 18... برنامج العبور الكامل   الثلاثاء 05 أبريل 2016, 9:01 am

لا اعلم ماذا اسمي هذا ابداع ام اخلاص ام ثقافه ام تحدي
اذهلتني ابدعاتك المتناثره في ارجاء المنتدى
كل التقدير والاحترام
الرجوع الى أعلى الصفحة اذهب الى الأسفل
بنت السماء
[ عضو ذهبى ]
[ عضو ذهبى ]
avatar

عدد المساهمات : 3749
نقاط : 4483
السٌّمعَة : 5
تاريخ التسجيل : 14/10/2015
العمر : 22

مُساهمةموضوع: رد: البرنامج رقم 18... برنامج العبور الكامل   الثلاثاء 05 أبريل 2016, 11:01 am

احسنت الاختيار موضوع مميز 

ننتظر المزيد من التالق ( امتنانى )
الرجوع الى أعلى الصفحة اذهب الى الأسفل
هتروق وتحلى
عضو متألق
عضو متألق
avatar

عدد المساهمات : 4335
نقاط : 4939
السٌّمعَة : 5
تاريخ التسجيل : 15/03/2015

مُساهمةموضوع: رد: البرنامج رقم 18... برنامج العبور الكامل   الأربعاء 06 أبريل 2016, 10:02 am

احسنت الاختيار موضوعك قيم 
بالتوفيق دائما بكل اختياراتك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
Dr.Lina
[ عضو ذهبى ]
[ عضو ذهبى ]
avatar

عدد المساهمات : 1345
نقاط : 1587
السٌّمعَة : 0
تاريخ التسجيل : 28/06/2014

مُساهمةموضوع: رد: البرنامج رقم 18... برنامج العبور الكامل   الأربعاء 06 أبريل 2016, 12:57 pm


أبداع بكل معنى الكلمة
احترامي وورودى
الرجوع الى أعلى الصفحة اذهب الى الأسفل
شريف كمال
المراقب العام
avatar

عدد المساهمات : 4675
نقاط : 5449
السٌّمعَة : 0
تاريخ التسجيل : 12/06/2014

مُساهمةموضوع: رد: البرنامج رقم 18... برنامج العبور الكامل   الجمعة 08 أبريل 2016, 11:18 am

لكم منى كل التقدير على جمال الطرح
 خالص احترامى ومودتتى
الرجوع الى أعلى الصفحة اذهب الى الأسفل
تمر حنه
[ عضو ذهبى ]
[ عضو ذهبى ]
avatar

عدد المساهمات : 3129
نقاط : 3679
السٌّمعَة : 5
تاريخ التسجيل : 18/10/2015
العمر : 28

مُساهمةموضوع: رد: البرنامج رقم 18... برنامج العبور الكامل   السبت 09 أبريل 2016, 5:19 pm

موضوع جميل جداً استمتعت به
ننتظر منكم المزيد من الابداع
اتمنى لكم السعاده والتوفيق..
الرجوع الى أعلى الصفحة اذهب الى الأسفل
ضى القمر
[ عضو ذهبى ]
[ عضو ذهبى ]
avatar

عدد المساهمات : 3793
نقاط : 4499
السٌّمعَة : 5
تاريخ التسجيل : 06/02/2015
العمر : 26

مُساهمةموضوع: رد: البرنامج رقم 18... برنامج العبور الكامل   الأحد 10 أبريل 2016, 5:29 pm

احسنت الاختيار تـسلم عالطرح الرائع
يدوم عطائك المميز . تحياتى لشخصك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
امين
[ مدير الموقع ]
[ مدير الموقع ]
avatar

المزاج :
عدد المساهمات : 9618
نقاط : 12592
السٌّمعَة : 1
تاريخ التسجيل : 21/06/2014
العمر : 33
الموقع : http://www.ahladalil.net/

مُساهمةموضوع: رد: البرنامج رقم 18... برنامج العبور الكامل   الأحد 10 أبريل 2016, 7:06 pm

شكرا على الطرح الطيب والموضوع المميز





الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://www.ahladalil.net/
الحاج متولى
عضو متميز
عضو متميز
avatar

عدد المساهمات : 980
نقاط : 1082
السٌّمعَة : 5
تاريخ التسجيل : 04/01/2016
العمر : 26

مُساهمةموضوع: رد: البرنامج رقم 18... برنامج العبور الكامل   الأحد 10 أبريل 2016, 11:37 pm

الرجوع الى أعلى الصفحة اذهب الى الأسفل
قلبى مملكة لا يستحقها أحد
[ عضو ذهبى ]
[ عضو ذهبى ]
avatar

عدد المساهمات : 978
نقاط : 1368
السٌّمعَة : 5
تاريخ التسجيل : 22/07/2015

مُساهمةموضوع: رد: البرنامج رقم 18... برنامج العبور الكامل   الإثنين 11 أبريل 2016, 9:57 am

الرجوع الى أعلى الصفحة اذهب الى الأسفل
هذه ليلتى
[ عضو ذهبى ]
[ عضو ذهبى ]
avatar

عدد المساهمات : 3560
نقاط : 3932
السٌّمعَة : 5
تاريخ التسجيل : 13/10/2015
العمر : 22

مُساهمةموضوع: رد: البرنامج رقم 18... برنامج العبور الكامل   الإثنين 11 أبريل 2016, 11:21 am

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

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
علا بنت الشاطىء :: منتدى العلوم الفلكية ودلالتها وخصائصها :: منتدى علوم الحروف والارقام-
انتقل الى: