تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
كود لسيط ولكنى أجهلة
#1
السلام عليكم ورحمة الله

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
كيف أقوم بتطبيقة مثل الكود السابق
الرد }}}}
تم الشكر بواسطة:
#2
(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


لتكست بوكس ؟؟؟؟؟؟؟؟؟
الرد }}}}
تم الشكر بواسطة:
#3
تمااااام بالظبط
الرد }}}}
تم الشكر بواسطة:
#4
(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
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته

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

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

بالتوفيق
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم