PDA

نسخه کامل مشاهده نسخه کامل : سوال در مورد یک دستور در vb6


davoodf
04-10-2009, 19:28
سلام دوستان
راستش می خواستم بدونم هیچ دستوری هست که مثلا یه مقدار رو از یه تکست باکس بگیره و اون رو به صورت بر عکس توی یه تکست باکس دیگه ذخیره کنه؟مقدار عددی یا text یا hex مد نظر من هست.
مثلا:
123 به 321 یا F1E5FF به FF5E1F
ممنون میشم راهنمایی کنین.
با تشکر
Tom Clancy's
04-10-2009, 19:48
سلام دوستان
راستش می خواستم بدونم هیچ دستوری هست که مثلا یه مقدار رو از یه تکست باکس بگیره و اون رو به صورت بر عکس توی یه تکست باکس دیگه ذخیره کنه؟مقدار عددی یا text یا hex مد نظر من هست.
مثلا:
123 به 321 یا F1E5FF به FF5E1F
ممنون میشم راهنمایی کنین.
با تشکر

سلام
میتونی از تابع StrReverse() استفاده کنی
مثال

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
davoodf
10-10-2009, 11:52
خیلی ممنونم از پاسخ شما.
راستش یه سوال دیگه هم داشتم اگه جواب بدین خیلی منت بزرگی روی من گذاشتین واقعا کارم لنگ مونده.
هیچ راهی هست که بشه مقدار رو به این صورت بر عکس کرد؟
00010f00
به
000f0100
تابع strreverse مقدار رو به صورت کامل بر عکس می کنه ولی من می خوام به صورت زیر مقدار بر عکس بشه.
69541213
به
13125469
ایا این امکان پذیره؟
با تشکر:11:
سونامی
10-10-2009, 12:40
خیلی ممنونم از پاسخ شما.
راستش یه سوال دیگه هم داشتم اگه جواب بدین خیلی منت بزرگی روی من گذاشتین واقعا کارم لنگ مونده.
هیچ راهی هست که بشه مقدار رو به این صورت بر عکس کرد؟
00010f00
به
000f0100
تابع strreverse مقدار رو به صورت کامل بر عکس می کنه ولی من می خوام به صورت زیر مقدار بر عکس بشه.
69541213
به
13125469
ایا این امکان پذیره؟
با تشکر:11:
اولی نمیشه باید عدد باشه یا حروف البته دانش من اینو میگه تو سوال دومتم توابع LEFT و RIGHT و LEN بدردت میخوره برو دنبالشون
davoodf
11-10-2009, 10:26
با تشکر از پاسخ شما
میشه یه مثال بزنین؟من هر چی سرچ کردم چیزی پیدا نکردم!
Tom Clancy's
11-10-2009, 15:23
خیلی ممنونم از پاسخ شما.
راستش یه سوال دیگه هم داشتم اگه جواب بدین خیلی منت بزرگی روی من گذاشتین واقعا کارم لنگ مونده.
هیچ راهی هست که بشه مقدار رو به این صورت بر عکس کرد؟
00010f00
به
000f0100
تابع strreverse مقدار رو به صورت کامل بر عکس می کنه ولی من می خوام به صورت زیر مقدار بر عکس بشه.
69541213
به
13125469
ایا این امکان پذیره؟
با تشکر:11:

خواهش میکنم دوست عزیز
من این برنامه هارو نوشتم اما اگر بخوای به طول رشته وابسته نباشه باید از تابعLen() استفاده کنی
این برنامه ها رو میشه جمع و جور تر نوشت اما یه جوری نوشتم که درست متوجه بشی
اگه سوالی بود بپرس

برنامه اول:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

برنامه دوم:(یه text box رو فرم قرار بده)

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

مثال برای تابع Len

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
davoodf
11-10-2009, 17:50
بسیار ممنونم از پاسخ شما
یه سوال دیگه:
هیچ راهی هست که بشه عدد decimal و یا عدد hex رو به همین شکل برعکس کرد:

Private Sub Command1_Click()
Dim a(8) As String
a(1) = "00010f00"
a(2) = Mid(a(1), 1, 3)
a(3) = Mid(a(1), 4, 1)
a(4) = Mid(a(1), 5, 1)
a(5) = Mid(a(1), 6, 1)
a(6) = Mid(a(1), 7, 1)
a(7) = Mid(a(1), 8, 1)
Print a(2) & a(5) & a(6) & a(3) & a(4) & a(7)
End Sub