مشکل این سورس کجاست [بایگانی]

xrezax

دوشنبه 12 مهر 1389, 23:11 عصر

من یک تکست دارم توی اون چندتا اسم می نویسم می خوام وقتی یکی از اسمهای که من می خوام توی تکست بود یک تایمر شروع بکار کنه.

اینجوری نوشتم

If InStr(1, Text1.Text, "Ali") > 0 Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If

If InStr(1, Text1.Text, "Reza") > 0 Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If

If InStr(1, Text1.Text, "Mohammad") > 0 Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If

اما کار نمی کنه.
مشکل کجاست؟؟؟؟ :گریه:

vB.N3T

دوشنبه 12 مهر 1389, 23:25 عصر

به تایمر هات زمان دادی ؟

saeed_r67

سه شنبه 13 مهر 1389, 00:18 صبح

سلام .ببین این بکارت میاد.
به حروف کوچیک و بزرگ دقت کن

modirmasool

سه شنبه 13 مهر 1389, 00:33 صبح

خوب شما دارین شرط هاتون رو خنثی می کنین. مثلا اول کاربر مینویسه علی ==> تایمر میشه true ولی باز بعدش شرط رضا گذاشتین که میشه false
بهتره که همه رو توی یک شرط بنویسین. (از عملگر منطقی "یا" استفاده کنین. "or")

به این صورت:

If InStr(1, Text1.Text, "Ali") > 0 Or InStr(1, Text1.Text, "Reza") > 0 Or InStr(1, Text1.Text, "Mohammad") > 0 Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If

xrezax

سه شنبه 13 مهر 1389, 08:10 صبح

آقا اینا هیچکدوم بکارم نیومد :لبخند:
می خوام به کوچیک یا بزرگ بودن حروف حساس نباشه.
بعدشم من توی تکست یک جمله ای نوشته شده مثلاً : ailreza in tehran توی این جمله علی وجود داره و تایمر شروع بکار کنه. ( هر یکی از این اسمها باشه تایمر شروع بکار کنه. ali - reza - mohammad بدون اینکه به حروف کوچک و بزرگ حساس باشه)

modirmasool

سه شنبه 13 مهر 1389, 10:34 صبح

آقا اینا هیچکدوم بکارم نیومد :لبخند:
می خوام به کوچیک یا بزرگ بودن حروف حساس نباشه.
بعدشم من توی تکست یک جمله ای نوشته شده مثلاً : ailreza in tehran توی این جمله علی وجود داره و تایمر شروع بکار کنه. ( هر یکی از این اسمها باشه تایمر شروع بکار کنه. ali - reza - mohammad بدون اینکه به حروف کوچک و بزرگ حساس باشه)

باید vbTextCompare رو بهش اضافه کنین.

If InStr(1, Text1.Text, "Ali", vbTextCompare) > 0 Or InStr(1, Text1.Text, "Reza", vbTextCompare) > 0 Or InStr(1, Text1.Text, "Mohammad", vbTextCompare) > 0 Then
Timer2.Enabled = True
Else
Timer2.Enabled = False
End If

saeed_r67

سه شنبه 13 مهر 1389, 12:12 عصر

به هر حال متشکر از اینکه سوالت رو مطرح کردی !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!:تشویق:

Slytherin

سه شنبه 13 مهر 1389, 14:33 عصر

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

نکته: مثلا زمانی که می خواهید کلمه Ali را تو کد ثبت کنید از حروف کوچک استفاده کنید.
توجه: مهم نیست که کاربر کلمه Ali را چگونه وارد کند، مثلا اگر این کلمه را به شکل aLI هم وارد کند،
همچنان برنامه عمل خواهد کرد.
سربلند و سبز باشید!