تبلیغات
تبلیغات متنی
آموزشگاه آرایشگری مردانه شفیع رسالت
دکتر علی پرند فوق تخصص جراحی پلاستیک
بهترین دکتر پروتز سینه در تهران
دستگاه آب یونیزه قلیایی کره‌ای
محبوبترینها
راهنمای انتخاب شرکت‌های معتبر باربری برای حمل مایعات در ایران
چگونه اینورتر های صنعتی را عیب یابی و تعمیر کنیم؟
جاهای دیدنی قشم در شب که نباید از دست بدهید
سیگنال سهام چیست؟ مزایا و معایب استفاده از سیگنال خرید و فروش سهم
کاغذ دیواری از کجا بخرم؟ راهنمای جامع خرید کاغذ دیواری با کیفیت و قیمت مناسب
بهترین ماساژورهای برقی برای دیسک کمر در بازار ایران
بهترین ماساژورهای برقی برای دیسک کمر در بازار ایران
آفریقای جنوبی چگونه کشوری است؟
بهترین فروشگاه اینترنتی خرید کتاب زبان آلمانی: پیک زبان
با این روش ساده، فروش خود را چند برابر کنید (تست‌شده و 100٪ عملی)
خصوصیات نگین و سنگ های قیمتی از نگاه اسلام
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1870106874
تبدیل اعداد مبناهای مختلف ( 16 و 10 و 5 و 7 و 2 و..) به هم در ویژوال بیسیک -
واضح آرشیو وب فارسی:سایت ریسک: تبدیل اعداد مبناهای مختلف ( 16 و 10 و 5 و 7 و 2 و..) به هم در ویژوال بیسیک iceboy67 10 فروردين 1387, 12:49برنامه ای بنویسید تا عددی از مبنای 10 را به مبنای 16 ببرد. saalek110 10 فروردين 1387, 23:27یک تکست باکس و یک باتون به فرم بیافزایید و کد زیر را به پنجره کد بیافزایید: Private Sub Command 1_Click() Text1.Text = Hex(Text1.Text) End Sub iceboy67 11 فروردين 1387, 15:42برنامه ای بنویسید تا عددی از مبنای 10 را به 2 ببرد. armin_mx 11 فروردين 1387, 20:59کد: Dim x(4) As Integer s = InputBox("") Cls Do While s >= 1 i = i + 1 x(i) = s Mod 2 s = s 2 Loop For i = 4 To 1 Step -1 Print x(i); Next armin_mx 11 فروردين 1387, 21:08به نظر من یکمی هم خودت رو سوالا فکر کن شاید جوابش رو تونستی حل کنی؟؟ mina_shariat 14 فروردين 1387, 09:23با سلام من درمورد برنامه زیز مشکل دارم لطفا مرا راهنمایی کنید فوق فوری تبدیل عدد در مبنای 10 به مبنای 7 mina_shariat 14 فروردين 1387, 09:25با سلام من درمورد برنامه زیز مشکل دارم لطفا مرا راهنمایی کنید فوق فوری تبدیل عدد در مبنای 5 به 10 mina_shariat 15 فروردين 1387, 01:09با سلام من درمورد برنامه زیز مشکل دارم لطفا مرا راهنمایی کنید فوق فوری تبدیل عدد در مبنای 10 به مبنای 7 لطفا مشکل برنامه زیر را برطرف کنید Dim x(4) As Integer s = InputBox("") Cls While s >= 6 i = i + 1 x(i) = s Mod 7 s = s 7 Wend For i = 4 To 1 Step -1 Print x(i); Next i armin_mx 15 فروردين 1387, 03:1510 به 7 Dim x(10) As Integer s = InputBox("") Cls While s >= 6 i = i + 1 x(i) = s Mod 7 s = s 7 Wend x(i + 1) = s For j = i + 1 To 1 Step -1 Print x(j); Next panderosa 29 ارديبهشت 1387, 14:48barname tabdile 8va 2 be 10 lotfan the_king 29 ارديبهشت 1387, 19:59Private Function TextToDecimal(ByVal Text As String, ByVal Base As Long) As Currency Dim Pos As Long, Value As Currency For Pos = 1 To Len(Text) Value = InStr(1, "0123456789ABCDEF", Mid(Text, Pos, 1), vbTextCompare) - 1 TextToDecimal = TextToDecimal + Value * (CCur(Base) ^ (Len(Text) - Pos)) Next End Function Private Function DecimalToText(ByVal Number As Currency, ByVal Base As Long) As String Dim Value As Long Do Value = Number Mod Base Number = Number Base DecimalToText = Mid("0123456789ABCDEF", Value + 1, 1) & DecimalToText Loop Until Number = 0 End Function Private Function ConvertBase(ByVal Text As String, ByVal FromBase As Long, ByVal ToBase As Long) As String ConvertBase = DecimalToText(TextToDecimal(Text, FromBase), ToBase) End Function تابع TextToDecimal یک عددی را از هر مبنایی به مبنای 10 تبدیل می کند. تابع DecimalToText یک عددی را از مبنای 10 به هر مبنایی تبدیل می کند. تابع ConvertBase با استفاده از دو تابع قبلی هر عددی را از هر مبنایی به هر مبنای دیگری تبدیل می کند. safeiran 28 شهريور 1387, 20:47با عرض سلام خدمت بر و بچه هاي خوب مجيد آنلاين من يك برنامه اي مي خواهم بنويسم كه يك عدد دهدهي را بگيرد و آنرا تبديل به باينري كند و فقط رقم آخر آنرا براي من چاپ كند از دوستان مي خواهم كه كمك كنند متشكرم:cry:
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 5483]
-
گوناگون
پربازدیدترینها