مشکل کد برعکس کردن کاراکتر

[nourooz]

برای برعکس کردن اعداد کد زیر را نوشتم مشکلش چیه؟

Dim y As Integer
y = TextBox1.Text.Length
Dim x(y) As String
For i = 0 To y - 1
x(i) = TextBox1.Text(i + 1)
Label1.Text = Label1.Text & x(y - i)
Next

[ROSTAM2]

منظورت از آخر به اول جابجا کردن کاراکترهاست؟
اگه اینه چرا می خوای اینطور کدی بنویسی؟ اگه نیست که یه کم توضیح بده.... بیشتر .........

[zaeimh90]

سلام.
عزیز منظورت Reverse کردنه؟
منظورت چیه؟

[Hybrid]

برای برعکس کردن اعداد کد زیر را نوشتم مشکلش چیه؟

Dim y As Integer
y = TextBox1.Text.Length
Dim x(y) As String
For i = 0 To y - 1
x(i) = TextBox1.Text(i + 1)
Label1.Text = Label1.Text & x(y - i)
Next

سلام اگه میخواین یک رشته رو برعکس بنویسید اصلا نیازی به این تعداد کد نیست میتونین از تابع StrReverse در فضای نامی Microsoft استفاده کنید:

یک پروژه جدید اضافه کن و یک تکست باکس و یک لیبل و همچنین یک دکمه را روی فرمت قرار بده و کد زیر رو در رویداد Click دکمه بنویس.


Label1.Text = Microsoft.VisualBasic.StrReverse(TextBox1.Text)

[zaeimh90]

عزیز باید x رو باید قبل از for پر کنی.
فکر کن texbox1 مقدار zaeim هست
موقعی که وارد for میشی تو دفعه اول که i=0 هست x(0) مقدار دهی میشه ولی تو 2 خط پایین تر Label1.Text & x(y - i) میخوای x(4) رو بازخانی کنی.
کدتو اینجوری کن :

Dim y As Integer
y = TextBox1.Text.Length
Dim x(y) As String
For i = 0 To y - 1
x(i) = TextBox1.Text(i)
Next
For i = 0 To y - 1
Label1.Text = Label1.Text & x(y - i - 1)
Next

[zaeimh90]

اگرم بخوای سریعتر کار کنی که از گزینه strreverse استفاده کن.
مثلا بنویس : label1.text = strreverse(textbox1.text)

[nourooz]

منظورت از آخر به اول جابجا کردن کاراکترهاست؟
اگه اینه چرا می خوای اینطور کدی بنویسی؟ اگه نیست که یه کم توضیح بده.... بیشتر .........

سلام.
عزیز منظورت Reverse کردنه؟
منظورت چیه؟
بله منظرم برعکس کردن بود که حل شد
من تازه کارم

[باران888]

دوست عزیزکدت کاملا غلط چون خاصیت هارارعایت نکردی ودرهنگام اجرابه همون پیغام میده:
text1.text
label1.Caption
همیشه تکس باکس باخاصیت تکست وبرچسب هایالیبل باخاصیت کپشن

کددرست:

(Label1.Caption = StrReverse(text1.Text