برنامج حساب الثلث الاخير من اليل

معليش

وبعض الاحيان يكون الغروب الساعه 5.30 والشروق 6.11

اذا فيه دقايق مع الساعات كيف؟؟

الرجاء الافاده

ولوو بكوود

يعني انت تحط 2 تيكست

احدهما لغروب الشمس و الاخر لطلوع الشمس

عند كتابة المستخدم للتكستين البرنامج يقوم بجمعهما ثم تقسيمه على 3

ايضا ليبل للنتيجة ..

تكتب كود هذه العملية :

label1.caption = (text1.text + 0 + text2.text) / 3

بسم الله

اسمحولي اشارك في الموضوع الشيق ده

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

البرنامج ده كان في بالي من زمان وعملت واحد بس على الاكسل كانت مجرد دوال على الاكسل وبتحسبلك الحساب بالظبط يعني بتديلك طول الثلث الاخير وبدايته وكده يعني لكن للاسف البرنامج ده (او الملف ده) اتمسح من عندي وكنت عايز اعمل واحد بشكل برنامج كامل بقى مش مجرد ملف اكسل لكن طبعا انشغلت في مشروع التخرج ونسيت الموضوع

دلوقتي والحمد لله الموضوع اتفتح تاني يبقى ان شاء الله نعمله

بشكل نظري الفكرة هتبقى برنامج يدخل المستخدم فيه وقتي الشروق والغروب يطلع كل المعلومات عن الثلث الاخير

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

انا هحاول اعمل اي حاجة واوريهالكم وان شاء الله تنفع

Label1.Caption = Left(Label1.Caption, 4)

هذا الكود لتحديد اول اربعة ارقام في الليبل

عفوا اخي الفاضل Amir imam

لكن المشكلة مش في المعادلات لكن المشكلة هي جمع كسور الوقت

انا حاولت فيها ودي النتيجة لكن طبعا مش صحيحة 100%

Dim a
Dim b
a = Val(Text1.Text) + Val(Text2.Text) + 12
b = a / 3
Text3.Text = b - Val(Text2.Text)

بسم الله

الاخ العزيز تامر هو ده قصدي فعلا بصعوبة المعادلات ان الوقت هيبقى فيه كسور ومش هنعرف نظبطها

احسن حل وصلتله ان الوقت هيبقى بالساعات بس يعني بالتقريب

وهو طبعا الثلث الاخير من الليل مش لازم تحسبه بالثانية

يعني مثلا لو الثلث الاخير بيبدأ الساعة 1:48 وانت قمت تدعي الساعة 1:47 ربنا مش هيستجيب ؟ طبعا لا اكيد ان شاء الله هيستجيب وهيتقبل

:) نرجع لمشكلتنا انا مش عايز اكمل غير لما ناخد الموافقة من المقيمين على الموضوع ده :) نخلي الوقت بالساعات بس بالتقريب يعني ؟

ولكن اخي imer

انا استطيع عمل برنامج بهذه الاكواد

أخووي مبتدا

انا سويت مثلك في البدايه بس لما طبقته على قصول السنه طلع في اختلاف

لان الوقت اعتقد له كوود خاص بالفجول

مثل التاريخ له معرف دفرنت ديت زي كذا

جرب اخووي مبتدا وخلينا معك بالصوررررررره

أخوي amir

كلامك صحيح وعندك كامل الصلحيات حتى لو سويت البرنامج انت

الهدف كوسيله للتذكير وحث الناس على استغلال هذي الخاصيه التي وهبها المولى للمسلمين

وعلى فكرررره يااخوان هل نقدر نستخددم خاصيه if

ونكتبت الوقت احنا على شكل خيارات

ونسووي البرنامج كله باستخدام الامر if

أدري انه فكره ناس مبتداءه بس اعذروني توني مبتدا

بنتظار افكاركم وحلولكم

وبنتظار باقي الاعضاء

والله يوفقنا لما فيه خيرررر للاسلام والمسلمين

اخوكم

بسم الله

اقتباس

ونسووي البرنامج كله باستخدام الامر if

قصدك ايه باستخدام If يعني الوقت يبقى موجود اصلا ولا ايه ؟

يااخوان قعدت احسب وتوصلت لشبه معادله مادري من صحتها

تنفع مع الكسور

شووفو كيف وقولو رايكم

وقت الغروب=A

وقت الشروق =B

الثلث الاخير= XX

T1= A *60<<< عشان حول الوقت الى دقايق ونفتك من الكسوور ويسهل الحل

T2= B*60

T3=12*60

T4 = T1 + T2 + T3

T5 = T4 / 3

T6 = T5 - T1

T7= T6 *60<<< هنا ضربنا ب60 عشان يحوله الى ساعات والناتج يعني ان اخر N ساعات هوو الثلث الاخير

مادري احس اني مخربط

فكروااااا معي

وحللوا

اخوووي اميررر

ايه قصدي يكون الوقت مكتوب

بس اعتقد ان فكره IF

طويله مرررره

وماتنفع

سؤال : هل الليل يبدأ من المغرب ام من العشاء ؟؟

قال تعالى "ثم أتموا الصيام إلى الليل" {سورة البقرة}

إذاً فالليل يبدأ من المغرب

سؤال آخر : هل الليل ينتهي من الفجر أم الشروق ؟؟

الليل ينتهي عند الفجر

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

إذا نجمع الساعات التي من المغرب إلى الفجر و نقسمها على ٣ و نجمع ٢ * العدد الناتج مع وقت المغرب

اذا كنت تريد ياأخى حساب الوقت بالضبط (ساعات ودقائق)

فضع لموعد المغرب اثنين تكست( TEXT1للساعات و TEXT2 للدقائق)

وضع لموعد الفجر اثنين تكست( TEXT3للساعات و TEXT4 للدقائق)

وضع للموعد المطلوب حسابه اثنين تكست( TEXT6للساعات و TEXT5 للدقائق)

ثم اكتب ما يعجبك من الكودين الآتيين

الكود الأول

(X1h = Val(Text1.Text): X1m = Val(Text2.Text

(X2h = Val(Text3.Text): X2m = Val(Text4.Text

X1 = X1h + X1m / 60

X2 = X2h + X2m / 60

A = X2 - X1 + 12

B = A / 3

C = X2 - B

(Ch = Int(C

(Cm = 60 * (C - Ch

If Ch <= 0 Then Ch = Ch + 12

Text5.Text = Ch : Text6.Text = Cm

End Sub

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

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

الكود الثانى

(X1h = Val(Text1.Text): X1m = Val(Text2.Text

(X2h = Val(Text3.Text): X2m = Val(Text4.Text

Ah = X2h - X1h + 12: Am = X2m - X1m

Bh = Ah / 3: Bm = Am / 3

Ch = X2h - Bh: Cm = X2m - Bm

((Cm = Cm + 60 * (Ch - Int(Ch

(Ch = Int(Ch

If Cm < 0 Then Cm = Cm + 60: Ch = Ch - 1

If Ch <= 0 Then Ch = Ch + 12

Text5.Text = Ch : Text6.Text = Cm

End Sub