ممكن الحل والك دعوة في صلاتي اذا اعطيتني الحل

[تحياتي لمن دمر حياتي]

سلامووووووووو
ممكن تساعدووووني
ابغاكم تقلوالي حل هذا السوال
لانها والله واجب ولازم نحلها وانا ماعرفت الجواب
قومي بتطبيق قاعدة ifاوselect
على برنامج اختيار العدد موجب و السالب والصفر
تكفوووووووون ساعدووني
لازم نسلم الورقة يو الاثنين22-11-1433
تكفووووون لاتردون طلبي
بسرررررررعة
والله اللي تحلها الي راح ادعي لها في صلاتي
بس يكوون حل صح مو غلط

[نورا 90]

مثلا الرقم المدخل يكون في مربع نص ولنرمز له بالرمز x وعند الضغط على الزر يكتب لي في مربع اخر انو العدد سالب او صفر او موجب

dim x as integer
x=text1.text
if x==0 then
{text2.text="العدد صفر "}
else if x>0 then
{text2.text="العدد موجب "}
else if x<0 then
{text2.text="العدد سالب "}
else
{text2.text=" "}
end if
+++++++++++++++++++++++++++++++++

select case x
case (x=0)
text2.text="العدد صفر "
case (x>0)
{text2.text="العدد موجب "}
case (x<0)
{text2.text="العدد سالب "}
case else
{text2.text=" "}
end select


:1 (24):A110ان شاء الله الحل هذا هو ودعواتك لي

[تحياتي لمن دمر حياتي]

يسلمووووووو الك
انشاء الله لدعي الك
لان انا الماده هذي احبها فمنشان هيك ماراح انساكي حتى في درس الحاسب

[63na-07]

-




يعني عندكم برمجهه ب الثآنوي !!
ظلم ليهه حنآ مآعرفنآهآ غير ب الجآمعهه :p
ههههههه , ب التوفيق أختي :)

[طالب المزيد]

البرنامج يكتب بأكثر من طريقة وهذه أسهل طريقة

يأخذ العدد من المستخدم والمدخل في مربع النص إللي أسمه Text1

ثم يظهر النتيجة في نفس مربع النص المسمى Text1



a = Text1.Text
If a = 0 Then Text1.Text = "العدد يساوي الصفر"

If a > 0 Then Text1.Text = "العدد موجب"

If a < 0 Then Text1.Text = "العدد سالب"

[أمل المملكه]

الله يستر لسة ما ذاكرت هذا الدرس:/