یکسان بودن رشته

[masoud.r]

من نیاز به راهنمایی در مورد برنامه ای به شرح زیر دارم

رشته ای از ورودی دریافت کنه و مشخص کند رشته از هر دو طرف یکسان است یا خیر
مثال " NAN " که وارد میکنیم چون هر دو طرف یککسان است با یک علامت نمایش دهد و اگر هم یکسان نباشد با علامت دیگر
با دستور Select Case به بعد رو بلدم فقط با چه تابع میشه اینکار کرد

با احترام

[xxxxx_xxxxx]

سلام،
اون چیزی که خودتون نوشتید رو اینجا قرار بدید تا با کمک دوستان کامل بشه.
اینجا به سؤالات درسی پاسخ داده نمیشه.

برای ایجاد تاپیک، بخش مناسبی رو انتخاب کنید. تاپیک شما از بخش برنامه نویسی مرتبط با بازی و گرافیک به بخش اصلی VB6 منتقل شد.

[daniyal_1363]

منظور شما اینه

اگه چیز دیگیه بگین تا تغییرش بدم


امیدوارم این سوالات تمرین های درسی نباشه :بامزه:


این کدشه ،پروژه آمادشم از پایین میتونی دانلود کنی


Private Sub Command1_Click()
Dim tt As String
Dim g1 As String
Dim g2 As String
Dim unm As Integer, num2 As Integer
tt = Trim(Text1.Text)
num = Len(tt)
num2 = Len(tt) \ 2
'-------------------------------
g1 = Left$(tt, Len(tt) \ 2)
Select Case num Mod 2

Case 0 '----------ÑÔÊå ÒæÌ
For i = num To num2 + 1 Step -1
g2 = g2 + Mid$(tt, i, 1)
Next
If g1 = g2 Then
mm = MsgBox("Çíä ÑÔÊå ãÊÞÇÑä ÇÓÊ", vbInformation, "")
End If
Case 1 '---------------ÑÔÊå ÝÑÏ
For i = num To num2 + 2 Step -1
g2 = g2 + Mid$(tt, i, 1)
Next
If g1 = g2 Then
mm = MsgBox("Çíä ÑÔÊå ãÊÞÇÑä ÇÓÊ", vbInformation, "")
End If
End Select
Label1.Caption = g1
Label2.Caption = Right$(tt, Len(tt) \ 2)
End Sub



فقط دانلود کنید

[IamOverlord]

سلام دوست عزیز!
بفرمایید، این هم کدی که می خواستید:

txt = Text1.Text
Flag = 1
For i = 1 To Int((Len(txt) + 1) / 2)
If Mid(txt, i, 1) <> Mid(txt, Len(txt) - i + 1, 1) Then Flag = 0
Next i
If Flag = 1 Then MsgBox ("Is Similar.") Else MsgBox ("Isn't Similar.")
:چشمک: