لديا فكرة عمل برنامج يقوم بتوضيح حركة القمر خلال الشهر
اي اريد ان يتغير شكل القمر في الفورم حوالي 30 شكل من الهلال ويتزايد تدرجيا حتي يصبح بدرا تم يتناقص حتي يختفي
ارجو المساعدة
السلام عليكــم ورحمـة الله وبركاتــه ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
أهلاً ومرحباً .. أهلا بمن أتانا بتحية وسلام يريد الترحيب بأحلى الكلام .. يريد أن نعلن له الأنضمام .. إلى كوكبة أعضائنـا الكرام ،،
أعمل بحث يمكن تلاقى موضوع شبيه و أن فشلت أشترك فى منتديات جمعية الفلك بالقطيف أو اى منتدى شبيه و أسألهم عن طرق الحساب الخاصة بحركة القمر و طبقها فى الـ VB
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
يمكنك أخي طاهر عمل دائرتين بلونين مختلفين واحدة أكبر من الثانية ، حيث تقوم بتحريك الكبيرة فوق الصغيرة فينتج لك مراحل القمر كاملاً.
السلام عليكم
هذه معادلة بس أنا ما فهمت العملية الحسابية لها :blink:
Phase = CDbl(CVDate(txtDate.Text)) Phase = Phase / 29.530589 + 0.9291176 Phase = Phase - Int(Phase)
كان عندي مثال عدلت عليه من زمان (h)
رح دور عليه :D
ألا بذكر الله تطمئن القلوب
بارك الله فيكم وارجوا منكم المزيد ووفقكم الله
السلام عليكــم ورحمـة الله وبركاتــه ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
أهلاً ومرحباً .. أهلا بمن أتانا بتحية وسلام يريد الترحيب بأحلى الكلام .. يريد أن نعلن له الأنضمام .. إلى كوكبة أعضائنـا الكرام ،،
ألا بذكر الله تطمئن القلوب
اخي المزمجر
اشكرك علي هدا المتال
وبارك الله فيك
السلام عليكــم ورحمـة الله وبركاتــه ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
أهلاً ومرحباً .. أهلا بمن أتانا بتحية وسلام يريد الترحيب بأحلى الكلام .. يريد أن نعلن له الأنضمام .. إلى كوكبة أعضائنـا الكرام ،،
يا اخوان انا اعمل علي فكرة جديدة في حركة القمر ترقبوا الملف المرفق
السلام عليكــم ورحمـة الله وبركاتــه ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
أهلاً ومرحباً .. أهلا بمن أتانا بتحية وسلام يريد الترحيب بأحلى الكلام .. يريد أن نعلن له الأنضمام .. إلى كوكبة أعضائنـا الكرام ،،
اخواني الاعزى انا فد وعتكم باني سأرفق لكم برنامج يوضح حركة القمر الشهرية
ولكن في المتال المرفق ملف moon يجب ان يكون علي ال القرص c مباشرة
ولا تنسونا من الدعاء الصالح
السلام عليكــم ورحمـة الله وبركاتــه ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
أهلاً ومرحباً .. أهلا بمن أتانا بتحية وسلام يريد الترحيب بأحلى الكلام .. يريد أن نعلن له الأنضمام .. إلى كوكبة أعضائنـا الكرام ،،
ارجو ان يعجبكم الرنامج والاستفدة
اخواني ترقبو برنامج (مفاجئة ) في مشاركة من فصلة وستكون في نهاية سهر 5 ادعوا الله ان يوفقنا في المشروع التخرج
الدعاء الصالح
السلام عليكــم ورحمـة الله وبركاتــه ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
أهلاً ومرحباً .. أهلا بمن أتانا بتحية وسلام يريد الترحيب بأحلى الكلام .. يريد أن نعلن له الأنضمام .. إلى كوكبة أعضائنـا الكرام ،،
اقتباساخواني الاعزى انا فد وعتكم باني سأرفق لكم برنامج يوضح حركة القمر الشهري
مشكور على جهدك ، ولكن شكل ظهور القمر غير صحيح
اقتباسيمكنك أخي طاهر عمل دائرتين بلونين مختلفين واحدة أكبر من الثانية ، حيث تقوم بتحريك الكبيرة فوق الصغيرة فينتج لك مراحل القمر كاملاً.
لماذا: :huh:
اقتباسولكن في المتال المرفق ملف moon يجب ان يكون علي ال القرص c مباشرة
ضعها: :rolleyes:
Image2 = LoadPicture(App.Path & "\moon\" & i & ".gif")
مع مراعاة عدم وجود "\" في النهاية ل App.Path في الأنظمة
بارك الله فيك علي المساعدة
هل من المكن ان توضح كيفية الشكل الصحيح للقمر
شكرا علي المساعدة مرة اخري
السلام عليكــم ورحمـة الله وبركاتــه ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
أهلاً ومرحباً .. أهلا بمن أتانا بتحية وسلام يريد الترحيب بأحلى الكلام .. يريد أن نعلن له الأنضمام .. إلى كوكبة أعضائنـا الكرام ،،
اقتباسهل من المكن ان توضح كيفية الشكل الصحيح للقمر
اقتباسيمكنك أخي طاهر عمل دائرتين بلونين مختلفين واحدة أكبر من الثانية ، حيث تقوم بتحريك الكبيرة فوق الصغيرة فينتج لك مراحل القمر كاملاً.
يعني الكرة الارضية تكون أكبر بكثير من القمر ، فلا يمكن أن يظهر خط منصف للقمر كما في مثالك
بالتوفيق..
تم تعديل هذه المشاركة بواسطة عبد العزيز اليوسفي في 4 أبريل 2007 في 00:47
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
