محبوبترینها
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1840584838
تابع تبدیل عددی در مبنای 10 به همان عدد در مبنا 2 در ویژال بسیک؟ -
واضح آرشیو وب فارسی:سایت ریسک: تابع تبدیل عددی در مبنای 10 به همان عدد در مبنا 2 در ویژال بسیک؟ vahid_3d 15 آبان 1388, 15:36سلام دوستان به تابعی که بشه عددی در مبنا 10 بهش داد و اون عدد رو در مبنا 2 در جعبه متن دلخواه قرار دهد. این تابع چیه؟ ممنون می شم هر چه سریعتر کمکم کنید. the_king 15 آبان 1388, 18:57سلام دوستان به تابعی که بشه عددی در مبنا 10 بهش داد و اون عدد رو در مبنا 2 در جعبه متن دلخواه قرار دهد. این تابع چیه؟ ممنون می شم هر چه سریعتر کمکم کنید. از این تابع استفاده کنید : Private Function NumberToText(ByVal Number As Currency, ByVal Base As Long) As String Dim Value As Long, NewNumber As Currency Dim Pos As Long, BasePos As Long Dim InsertZero As Boolean If Number < 0 Then NumberToText = "-" Number = 2147483648@ + Number If Number = 0 Then Number = 2147483648@ End If BasePos = Log(4294967296@) / Log(Base) For Pos = BasePos To 0 Step -1 NewNumber = CCur(Base) ^ CCur(Pos) Value = 0 Do While Number >= NewNumber Value = Value + 1 Number = Number - NewNumber Loop If Value > 0 Or Pos = 0 Then InsertZero = True If InsertZero Then NumberToText = NumberToText & Mid("0123456789ABCDEF", Value + 1, 1) End If Next End Function این تابع دو پارامتر دریافت می کنه، پارامتر اول عدد مورد نظر در مبنای 10 است و عدد دوم مبنایی است که می خواهید به آن تبدیل شود، مثلا اگر می خواهید به مبنای 2 تبدیل شود، عدد 2 را در آن قرار دهید. در مثال زیر معادل مبنای 2 عدد 1234 در Text1 قرار می گیرد : Text1.Text = NumberToText(1234, 2) vahid_3d 16 آبان 1388, 14:55خیـــــــــــــــــــــــ ــــــــــــــلی خیلی ممنونم. نمی دونم چطور تشکر کنم. خیلی عالی عمل می کنه . :oops:
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 686]
-
گوناگون
پربازدیدترینها