منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود لسيط ولكنى أجهلة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=3605)

كود لسيط ولكنى أجهلة - matrixmas - 06-08-14

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

If 120 > 100 And 120 < 200 And 80 > 50 And 80 < 200 Then
MsgBox("True")
Else
MsgBox("False")
End If

هذا كلام منطقى وعادى
ولكنى أريد عمل السابق ولكن عن طريق TextBox

بمعنى لو وضعنا textbox وبداخلة
120 > 100 And 120 < 200 And 80 > 50 And 80 < 200
كيف أقوم بتطبيقة مثل الكود السابق

RE: كود لسيط ولكنى أجهلة - hassan - 06-08-14

(06-08-14, 12:35 AM)matrixmas كتب : السلام عليكم ورحمة الله

If 120 > 100 And 120 < 200 And 80 > 50 And 80 < 200 Then
MsgBox("True")
Else
MsgBox("False")
End If

هذا كلام منطقى وعادى
ولكنى أريد عمل السابق ولكن عن طريق TextBox

بمعنى لو وضعنا textbox وبداخلة
120 > 100 And 120 < 200 And 80 > 50 And 80 < 200
كيف أقوم بتطبيقة مثل الكود السابق

ما فهمت هل قصدك انك تبي

شرط

if


لتكست بوكس ؟؟؟؟؟؟؟؟؟

RE: كود لسيط ولكنى أجهلة - matrixmas - 06-08-14

تمااااام بالظبط

RE: كود لسيط ولكنى أجهلة - shwehdi4pc - 09-08-14

(06-08-14, 12:35 AM)matrixmas كتب : السلام عليكم ورحمة الله

If textbox1.text > 100 Andalso textbox1.text < 200 Andalso textbox2.text > 50 Andalso textbox2.text < 200 Then
MsgBox("True")
Else
MsgBox("False")
End If

هذا كلام منطقى وعادى
ولكنى أريد عمل السابق ولكن عن طريق TextBox

بمعنى لو وضعنا textbox وبداخلة
120 > 100 And 120 < 200 And 80 > 50 And 80 < 200
كيف أقوم بتطبيقة مثل الكود السابق
قيمة 200 قم بإدخاله في textbox1 و قيمة 80 قم بإدخالها في textbox2

RE: كود لسيط ولكنى أجهلة - sooriaty03 - 10-08-14

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

تفضل أخي مثال للأخ أبو رائد

http://vb4arb.com/vb/thread-738.html

أو استعمل الكود التالي مباشرة (وهو نفس الكود في مثال الأخ أبو رائد):

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim o As Object = CreateObject("ScriptControl")
        o.Language = "VBScript"

        TextBox2.Text = o.Eval(TextBox1.Text)

        o = Nothing
End Sub

بالتوفيق