تطبيق مشروع حساب عمر شخص مع بعض الإضافات الرائعة - كإدراج تاريخ اليوم ..إلخ

Haytham Ali · #1 02-01-2011, 12:50 PM

السلام عليكم ورحمة الله وبركاته

أقدم لكم إخوانى الكرام
أعضاء هذا المنتدى الأكثر من رائع
أول موضوع لى
وهو مشروع عملته بـ vb.net
وهو حساب عمر الأشخاص

وفيه الكثير من الإمكانيات الأخى ( غير كتاب الوزارة )

أمثلة :
1- جلب تاريخ اليوم من ساعة الجهاز . ( بدل ما تتعب نفسك وتقعد تدور انهاردة كام انهاردة كام وعملتها فى ckeck box بحيث تضغط عليه يتم جلب الساعة تشيل علامة الصح من عليه تختفى )
2- فى خانة كتابة تاريخ الميلاد ( يكتب أرقام فقط ولا يسمح لك بكتابة أى شئ آخر غير الأرقام )
3- إذا كان عمرك 16 سنة أو أكثر يقول لك أنك يمكنك استخراج بطاقة لو كان أقل من 16 يقول لك لا يمكنك استخراج بطاقة
4- فورم كيفية التعامل مع البرنامج
5- فورم عن المبرمج
6- menustrip 1 فيها بعض الخصائص

وخصائص أخرى بسيطة

المرفق هو البرنامج فقط وليس المشروع
( للإطلاع )

لو حد عجبه المشروع واطلب منى 10 مرات هنا فى الموضوع هانزله بإذن الله بعدها على طول

تحياتى وودى واتمنى لى ولكم التوفيق والنجاح
هيثم على

hamada1200 · #2 03-01-2011, 05:42 AM

شكرا ولكن بيحسب عمر الشخص غلط اللى انا عملته من كتاب الوزارة

Haytham Ali · #3 03-01-2011, 01:38 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة hamada1200

شكرا ولكن بيحسب عمر الشخص غلط اللى انا عملته من كتاب الوزارة

طيب يا عم ادينى رأيك فى البرنامج الأول وبعدين قول مشكلتك

بالنسبة للأكواد اللى فى كتاب الوزارة تمام و 10 / 10
اكيد الغلط عندك انت
ارفق المشروع فى مشاركتك القادمة
وإن شاء الله اقولك غلطك فين

تحياتى

جليل الأزهرى · #4 08-01-2011, 05:30 PM

شكرااااااااااااااااااااااااااااااااااااااااااااااا ااااااااااا لك

عمر عمر عاطف · #5 08-01-2011, 07:24 PM

برنامج هايل
أشكرك عليه
بس
كود الوزارة فيه حاجة غلط
بيطرح 1 - 1 في خانة الشهور = 12

صفاء عفيفى · #6 17-01-2011, 12:39 PM

شكراً لهيثم على هذا البرنامج

Haytham Ali · #7 22-01-2011, 02:47 PM

شكرا لكم جميعا ع المرور

بالنسبة لكتاب المدرسة أعتقد انه مفهوش مشاكل
على العموم ده كود كتاب المدرسة

اقتباس:

dim d1, m1, y1 asinteger
dim d2, m2, y2 asinteger
d1 = val(textbox1.text)
m1 = val(textbox2.text)
y1 = val(textbox3.text)
d2 = val(textbox4.text)
m2 = val(textbox5.text)
y2 = val(textbox6.text)
if d1 < d2 then
d1 = d1 + 30
m1 = m1 - 1
endif
if m1 < m2 then
m1 = m1 + 12
y1 = y1 - 1
endif
label7.text = d1 - d2 : Label8.text = m1 - m2 : Label9.text = y1 - y2

والكود بسيط وسهل
وشرح أف الأولى :
أنه لو التاريخ اليومى الحالى أقل من يوم ميلادك ( زود 30 يوم على التاريخ الحالى واطرح من الشهر الحالى 1 )
أف الثانية :
أنه لو تاريخ الشهر الحالى أقل من تاريخ ميلادك( زود 12 شهر على شهر الحالى واطرح سنة من سنين التاريخ الحالى)