دستور if

[سید حمید حق پرست]

با سلام خدمت دوستان و مدیران محترم . بنده یه سوال داشتم

من دو تا تکست باکس گذاشتم : تکست باکس 1 و تکست باکس 2
یه کماند هم گذاشتم حالا با استفاده از کد زیر میخوام برنامه بیاد تکست باس یک رو چک کنه و اگر مقدارش که عدد میباشد کوچکتر و مساوی 255 بود و بزرگتر و مساوی 128 بود داخل تکست باکس 2 عدد 1 را بنویسه در غیر این صورت داخل تکست باکس 2 عدد 0 را بنویسد . ( برنامه برسی کنه که اگر داخل تکستباکس 1 عددی بین دو عدد دیگه یا برابر اون دوعدد بود کار قبلی رو انجام بده . عددها : بین 128 تا 255)

اینم کدی که استفاده کردم اما درست عمل نمیکنه مثلا داخل تکست باکس 1 عدد 2 میزنم که باید با این عمل برنامه داخل تکست باکس 2 عدد 0 بنویسه اما نمینویسه:گیج::گیج::گیج::گیج:


کد :

If Text1.Text <= "255" And Text1.Text >= "128" Then
Text2.Text = "1"
Else
Text2.Text = "0"
End If


ممنون میشم راهنمایی بکنید

یا علی(ع)

[AbbasVB]

سید حمید حق پرست (http://barnamenevis.org/member.php?242085-%D8%B3%DB%8C%D8%AF-%D8%AD%D9%85%DB%8C%D8%AF-%D8%AD%D9%82-%D9%BE%D8%B1%D8%B3%D8%AA) کد شما درست بود!


دوست عزیز IamOverlord (http://barnamenevis.org/member.php?72921-IamOverlord) فکر نکنم استفاده از Str درست باشه !
باید این کد رو به صورت زیر استفاده کرد
If Val(Text1.Text) <= "255" And Val(Text1.Text) >= "128" Then

[سید حمید حق پرست]

من از str استفاده کردم مشکلی نداشت . val هم مشکل نداشت . هردوش درسته

ممنون از دوستان