چهار سؤال در مورد تکست ها

[hr0694]

سلام

از دوستان میخواهم سورس یا کد این برنامه ها را برایم قرار بدهند

1- برنامه ای را میخواهم که در آن 2تا Text روی Form داریم و در Text1 حروف نوشته میشود و در Text2 تعداد آن حروف را نمایش دهد (هیچ دکمه کامند و هیچ چیز دیگری نباشد و بدون زدن دکمه کامند این عمل محاسبه شود)
مثال
ک م ن ت ا :Text1
5 :Text2
---------------------------------------------------
2- برنامه ای را میخواهم که در آن 2تا Text روی Form داریم و در Text1 حروف نوشته میشود و در Text2 برعکس حروف Text1 نمایش داده شود (هیچ دکمه کامند و هیچ چیز دیگری نباشد و بدون زدن دکمه کامند این عمل محاسبه شود)
مثال
Text1: ش س ب ا
Text2: ا ب س ش
----------------------------------------------------
3- برنامه ای را میخواهم که در آن 3تا Text روی Form داریم و در Text1 حروف نوشته میشود و در Text2 هم حروف نوشته میشود و در Text3 حروف مشترک Text1 و Text2 نوشته میشود (هیچ دکمه کامند و هیچ چیز دیگری نباشد و بدون زدن دکمه کامند این عمل محاسبه شود)
مثال
Text1: ا س ج س ع ا
Text2: ا ب س ش ف ف
Text3: ا س س ا
در اینجا ما به Text1 نگاه میکنیم مثلاً حرف اول آن الف است و الف در Text2 وجود دارد و آنرا مینویسیم حرف دوم Text1 س است و س در Text2 وجود دارد و آنرا مینویسیم حرف سوم Text1 ج است و ج در Text2 وجود ندارد و آنرا نمینویسیم حرف چهارم Text1 س است و س در Text2 وجود دارد و آنرا مینویسیم و غیره
----------------------------------------------------
4- این 3 جمله شرطی را چگونه کد نویسی کنم
-اگر Text1 الف شد و Text2 ب شد سپس Text3 ج شود
-اگر Text1 الف شد و Text2 ب شد و Text3 ج شد سپس Text4 د شود
-اگر تکست اول 5 شد و تکست دوم 4 شد سپس تکست سوم 9 شود

[m2011kh]

برای سوال اول این کد هارو استفاده کنید:

Private Sub Text1_Change()
m = Len(Text1.Text)
Text2.Text = m
End Sub

[m2011kh]

جواب بقیه رو بعدا میزارم الان وقت ندارم.

[hr0694]

سلام جناب m2011kh (http://barnamenevis.org/member.php?187796-m2011kh) هر کاری کردم این کد شما کار نمیکنه و از این قسمت ایراد میگیره
m = Len(Text1.Text)
و این ارور رو میده
Compile error:
Variable not defined

[ramzdar]

ای بابا
مطمئنی داری از ویژوال بیسیک استفاده میکنی؟
این دو خط کدنویسی که دیگه ایرادی نداره
برای اینکه مشکلت حل شه یه Dim m As Integer بذار اولش

[ramzdar]

برنامه دوم:
Private Sub Text1_Change()
Text2 = StrReverse(Text1)
End Sub

برنامه سوم:
Private Sub Text2_Change()
Text3 = ""
For i = 1 To Len(Text1)
a = Mid(Text1, i, 1)
For j = 1 To Len(Text2)
b = Mid(Text2, j, 1)
If a = b Then
Text3 = Text3 & a
Exit For
End If
Next
Next
End Sub

[ramzdar]

برنامه چهارم:
اگه برای یه سری اعداد خاص میخوای باید براشون شرط بذاری مثلاً میخوای فقط اگه Text1 برابر 5 و Text2 برابر 4 شد اونوقت Text3 برابر 9 بشه:
Private Sub Text2_Change()
If Text1 = "5" And Text2 = "4" Then Text3 = Val(Text1) + Val(Text2)
End Sub

این سه خطی پایین، فقط برای اون سه جمله شرطی سوالته. برای چیزای دیگه خودت کاملش کن.
Private Sub Text2_Change()
Text3 = ""
Text4 = ""
If Text1 = "ا" And Text2 = "ب" Then
Text3 = "ج"
Text4 = "د"
End If
If Text1 = "5" And Text2 = "4" Then Text3 = Val(Text1) + Val(Text2)
End Sub

[returnx]

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