نحوه ي مغلوب كردن اعداد در VB ! (فوري)

[mizsia]

ميخواستم بدونم چه طوري در وي بي اعداد رو مغلوب ميكنن؟

يعني مثلاْ شما توي يه Inputbox تايپ كني 123456789 بعدش وقتي ok رو زدي با يه Msgbox بهت عدد رو به صورت 987654321 بده! 8O

اين واسه من خيلي فوريه!


موفق باشيد

 

[amirnezhad]

راحت ترين راه اينه كه اول عدد رو تبديل كني به string بعد هم خيلي راحت معكوسش كني ...

براي تبديل عدد به string:

'strTemp: Your string variable
'intTemp: Your numeric (ie. integer, long, double ...) variable

strTemp = trim(str(intTemp))

و بعد هم براي معكوس كردن string از اين function ميتوني استفاده كني:

Public Function InverseString(ByVal strString As String) As String
  Dim strTemp As String
  Dim dblLength As Double
  
  strTemp = ""
  For dblLength = 1 To Len(strString)
    strTemp = Mid(strString, dblLength, 1) + strTemp
  Next dblLength
  InverseString = strTemp
End Function

اينطوري عددت كعكوس شده ...
اگه هم خواستي آخر كار دوباره متغير عددي رو تنظيم كنيد ميتوني از val استفاده كنيد.

 

[mizsia]

ممنون از شما دوست عزيز . واقعاْ متشكرم!

 

[omidak]

سلام:
اولاً برايه اين كار يك تابعي وجود داره كه اينه:

MsgBox(StrReverse(TextBox1.Text))

بعداش هم كه اينجا انجمنه برنامه نويسي تحت Client هستش و اينجا جاش نيست.
من اين مقاله رو تا فردا به انجمن آلگريتم و برنامه نويسي منتقل ميكنم.