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


Haytham Ali
02-01-2011, 12:50 PM
السلام عليكم ورحمة الله وبركاته

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

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

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

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

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

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


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

hamada1200
03-01-2011, 05:42 AM
شكرا ولكن بيحسب عمر الشخص غلط اللى انا عملته من كتاب الوزارة

Haytham Ali
03-01-2011, 01:38 PM
شكرا ولكن بيحسب عمر الشخص غلط اللى انا عملته من كتاب الوزارة
طيب يا عم ادينى رأيك فى البرنامج الأول وبعدين قول مشكلتك :)
بالنسبة للأكواد اللى فى كتاب الوزارة تمام و 10 / 10
اكيد الغلط عندك انت
ارفق المشروع فى مشاركتك القادمة
وإن شاء الله اقولك غلطك فين

تحياتى

جليل الأزهرى
08-01-2011, 05:30 PM
شكرااااااااااااااااااااااااااااااااااااااااااااااا ااااااااااا لك

عمر عمر عاطف
08-01-2011, 07:24 PM
برنامج هايل
أشكرك عليه
بس
كود الوزارة فيه حاجة غلط
بيطرح 1 - 1 في خانة الشهور = 12

صفاء عفيفى
17-01-2011, 12:39 PM
شكراً لهيثم على هذا البرنامج

Haytham Ali
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 شهر على شهر الحالى واطرح سنة من سنين التاريخ الحالى)

Mr. Medhat Salah
10-02-2011, 02:38 PM
http://www.friendawy.com/file/sns_uploads/11140/images/%D8%B4%D9%83%D8%B1%D8%A7-%D9%84%D9%83.gif

elnbrawy2005
27-02-2011, 11:31 PM
ممتاز والله ياريت الشرح والاكواد جميل جدا

Haytham Ali
01-03-2011, 12:14 AM
شكرا لمرورك يا مستر مدحت

ممتاز والله ياريت الشرح والاكواد جميل جدا
تسلم لمرورك أخى الكريم
وان شاء الله لو فى وقت اشرحها

elnbrawy2005
04-03-2011, 11:57 PM
تسلم لمرورك أخى الكريم
وان شاء الله لو فى وقت اشرحها

جزاك الله خيرا