شيفرات برمجية

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default شيفرات برمجية

مُساهمة من طرف Admin في الخميس أكتوبر 19, 2006 11:22 pm

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

نريد ادخال رقم عن طريق انبت بوكس ثم الفحص واخراج النتيجة في رسالة

a = InputBox("insert numper", "#")
If a Mod 2 = 0 Then
MsgBox "زوجي"
Else
MsgBox "فردي"
End If

حيث mod تعني باقي القسمه على العدد الذي يتبعها
وفي هذا المثال يعني باقي قسمه الرقم الذي ادخلناه على الـ 2
فإذا كان صفر فهو زوجي وإلا فهو فردي

كود عكس النص
يوجد دالة في الفي بي تقوم بذلك سأقوم بعرضها وعرض الكود البرمجي الذي يوازيها

الداله هي
StrReverse
وهذ الكود يقوم بعكس النص الموجود وهو abcdefg الى gfedcba
MsgBox StrReverse("abcdefg")
اما الكود البرمجي فهو
For i = Len(Text1.Text) To 1 Step -1
st2 = st2 & Mid(Text1.Text, i, 1)
Next i
Text1.Text = st2


عدل سابقا من قبل في الخميس أغسطس 16, 2007 10:44 am عدل 2 مرات

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709

Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: شيفرات برمجية

مُساهمة من طرف فيجوال بيسك 6 في الأربعاء أكتوبر 25, 2006 7:51 pm

شكراً جزيلاً لما تقدمه من شروحات

تحياتي للجميع

فيجوال بيسك 6
مراقب عام
مراقب عام

عدد الرسائل : 17
تاريخ التسجيل : 22/10/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: شيفرات برمجية

مُساهمة من طرف bigboss_quraan في الأربعاء أكتوبر 25, 2006 7:55 pm

الله يحيك اخي
فيجوال بيسك 6
وانا اقدر ما يقدمه
الاستاذ جاد من شروحات

وتحياتي للجميع

_________________





bigboss_quraan
مشرف عام
مشرف عام

عدد الرسائل : 136
العمر : 25
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: شيفرات برمجية

مُساهمة من طرف MR.NET في الخميس أكتوبر 26, 2006 10:57 am

مشكووووووووور على الشرح

MR.NET
عضو
عضو

عدد الرسائل : 3
تاريخ التسجيل : 26/10/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default شكر

مُساهمة من طرف العـطوي في الجمعة نوفمبر 10, 2006 2:44 pm

مشكور على جهدك الرائع

العـطوي
عضو متميز
عضو متميز

عدد الرسائل : 43
تاريخ التسجيل : 06/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى