معکوس نشان دادن متن

[mahdi.mir]

من این برنامه رو نوشتم که یه مشکل دار 1.بیشتر از 2 رقم چاپ عکس نمیکنه برنامه درمورد اینکه یه رقم بگیره و ارقام اونوبرعکس چاپ کنه لطفا راهنمایم کنید



Private Sub Command1_Click()
Dim x As Integer
Dim m As Integer
Dim m3 As Integer
x = Text1.Text
m = x Mod 10
m1 = x \ 10
m3 = m1 * 10 + m
Label1 = m3

[Slytherin]

دوست عزیز من این روش رو در ویژوال بیسیک برای بر عکس کردن ارقام ترجیح می دهم، ابتدا یک لیبل، تکست باکس و کاماند به فرم اضافه کنید و سپس:

Private Sub Command1_Click()
Dim TxtStr As String
TxtStr = Text1.Text
Label1.Caption = StrReverse(TxtStr)
End Sub

اگر در برنامه نیاز به تبدیل رشته به عدد و یا بر عکس داشتید می توانید از توابع Val و Cstr استفاده نمایید.

[pcdownload.bloghaa.com]

اگه به روش ریاضی می خوای این کارو بکنی روش زیر هم جالبه:

Private Sub Command1_Click()
Dim x, a, k As Integer
Dim h() As Long
x = Val(Text1.Text)
a = 1
For i = 0 To 10
a = a * 10
k = x / a
If k <= 0 Then Exit For
Next i
ReDim h(i)
For t = 0 To i
a = a / 10
h(t) = Int(x / a)
x = x - h(t) * a
Next t
x = 0
For t = 0 To i
x = x + h(t) * a
a = a * 10
Next t
Label1 = x
End Sub