منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف ادمج جملتين شرطيتين بجملة واحدة بحيث لا يتم تجاهل الاولى - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف ادمج جملتين شرطيتين بجملة واحدة بحيث لا يتم تجاهل الاولى (/showthread.php?tid=330)

كيف ادمج جملتين شرطيتين بجملة واحدة بحيث لا يتم تجاهل الاولى - سعود - 29-09-13

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


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

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

كود :
If (thlastdate + thlasttime) > (tblastdate + tblasttime) Then
                Image1.ImageUrl = "~/mgs/on.png"
            Else
                Image1.ImageUrl = "~/mgs/off.png"

            End If

            If (rdlastdate + rdlasttime) > (tblastdate + tblasttime) Then
                Image1.ImageUrl = "~/mgs/on.png"
            Else
                Image1.ImageUrl = "~/mgs/off.png"

            End If
منتظركووووووووووووووووووومSmile

RE: كيف ادمج جملتين شرطيتين بجملة واحدة بحيث لا يتم تجاهل الاولى - تركي الحلواني - 29-09-13

اضف AND او OR بين الجملتين ليتم الربط بينهم

RE: كيف ادمج جملتين شرطيتين بجملة واحدة بحيث لا يتم تجاهل الاولى - abulayth - 29-09-13

السلام عليكم
كود :
If (thlastdate + thlasttime) > (tblastdate + tblasttime) or  (rdlastdate + rdlasttime) > (tblastdate + tblasttime) Then
                Image1.ImageUrl = "~/mgs/on.png"
            Else
                Image1.ImageUrl = "~/mgs/off.png"
end if

يعطيك العافية

RE: كيف ادمج جملتين شرطيتين بجملة واحدة بحيث لا يتم تجاهل الاولى - sooriaty03 - 29-09-13

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

ما دام أنك تريد اعتماد النتيجتين فإذا تحقق أحدهما ولم يتحقق الآخر فالنتيجة النهائية ستكون خاطئة ...
فيجب إذن استخدام And أو AndAlso

وبالتالي سيصبح الكود:

إقتباس : If (thlastdate + thlasttime) > (tblastdate + tblasttime) AndAlso (rdlastdate + rdlasttime) > (tblastdate + tblasttime) Then
Image1.ImageUrl = "~/mgs/on.png"
Else
Image1.ImageUrl = "~/mgs/off.png"

End If


بالتوفيق

RE: كيف ادمج جملتين شرطيتين بجملة واحدة بحيث لا يتم تجاهل الاولى - سعود - 29-09-13

تم اعتماد عمود واحد لياخذ التاريخ والوقت معا
كود :
If thlasttime > tblasttime Or rdlasttime > tblasttime Then
                Image1.ImageUrl = "~/mgs/on.png"
            Else
                Image1.ImageUrl = "~/mgs/off.png"
            End If

الذي اريده من الكود انه لو وجد تاريخا ووقتا احدث من تاريخ ووقت خروج العضو يعضي صورة خضراء on.png
يعني لو لم يوجد موضوع جديد لكنه يوجد رد جديد اريد ان ايقونة المنتدى تكون خضراء
فهل الكود صحيح؟
مع اني لم الحظ الناتج كما اريد