نمایش نتایج 1 تا 4 از 4

نام تاپیک: ماشین حساب در مبنای دو؟

  1. #1
    کاربر جدید آواتار Mehdi_Persian
    تاریخ عضویت
    اردیبهشت 1392
    محل زندگی
    تهران
    پست
    15

    Question ماشین حساب در مبنای دو؟

    سلام دوستان من چند روزه هرچی میگردم پروژه آماده ماشین حساب محاسبه در مبنای دو رو پیدا نمیکنم. لطفا اگه کسی داره قرار بده ممنون.

  2. #2
    کاربر دائمی آواتار h_a_m_i_d
    تاریخ عضویت
    مرداد 1390
    محل زندگی
    dim home as new machincode
    پست
    638

    نقل قول: ماشین حساب در مبنای دو؟

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

  3. #3

    نقل قول: ماشین حساب در مبنای دو؟

    سلام
    پروژه ماشين حساب در مبناي 10 كه فراوونه
    كافيه خودتون اطلاعاتش رو در مبناي 2 بگيريد و به 10 تبديل كنيد و بعد از انجام محاسبه دوباره به مبناي 2 تبديل و نمايش بدين
    اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com

  4. #4
    کاربر دائمی آواتار m.4.r.m
    تاریخ عضویت
    اسفند 1390
    محل زندگی
    تبریز
    پست
    1,394

    نقل قول: ماشین حساب در مبنای دو؟

    شما با این کار می تونی راحت کارتو انجام بدی
    Shell "calc.exe"


    البته این هم کد B2D و D2B :

    Function Bin2Dec(Num As String) As Long
    Dim n As Integer
    n = Len(Num) - 1: a = n
    Do While n > -1
    x = Mid(Num, ((a + 1) - n), 1)
    Bin2Dec = IIf((x = "1"), Bin2Dec + (2 ^ (n)), Bin2Dec)
    n = n - 1
    Loop

    End Function

    Public Function Dec2Bin(DecVal)
    Dim bits, Dec As String
    Dec = DecVal
    If Dec >= 128 Then bits = "1": Dec = Dec - 128 Else bits = "0"
    If Dec >= 64 Then bits = bits & "1": Dec = Dec - 64 Else bits = bits & "0"
    If Dec >= 32 Then bits = bits & "1": Dec = Dec - 32 Else bits = bits & "0"
    If Dec >= 16 Then bits = bits & "1": Dec = Dec - 16 Else bits = bits & "0"
    If Dec >= 8 Then bits = bits & "1": Dec = Dec - 8 Else bits = bits & "0"
    If Dec >= 4 Then bits = bits & "1": Dec = Dec - 4 Else bits = bits & "0"
    If Dec >= 2 Then bits = bits & "1": Dec = Dec - 2 Else bits = bits & "0"
    If Dec >= 1 Then bits = bits & "1": Dec = Dec - 1 Else bits = bits & "0"
    If Dec > 0 Then
    Dec2Bin = "11111111"
    Else
    Dec2Bin = bits
    End If
    End Function
    آخرین ویرایش به وسیله m.4.r.m : یک شنبه 19 خرداد 1392 در 00:41 صبح

تاپیک های مشابه

  1. ماشین حساب (آشنایی با Syntax Diagram)
    نوشته شده توسط Kambiz در بخش الگوریتم، کامپایلر، هوش مصنوعی و ساختمان داده ها
    پاسخ: 8
    آخرین پست: یک شنبه 02 آبان 1389, 01:10 صبح
  2. ماشین حساب ویندوز !
    نوشته شده توسط Gladiator در بخش برنامه نویسی در Delphi
    پاسخ: 4
    آخرین پست: سه شنبه 27 اردیبهشت 1384, 12:27 عصر
  3. کامپوننت ماشین حساب
    نوشته شده توسط betanam در بخش کامپوننت های سایر شرکت ها، و توسعه کامپوننت
    پاسخ: 2
    آخرین پست: یک شنبه 15 تیر 1382, 08:18 صبح
  4. راهنمائی- من دنبال برنامه های ماشین حساب گرافیکی- کد هافمن -
    نوشته شده توسط علی سخاوت در بخش برنامه نویسی با زبان C و ++C
    پاسخ: 1
    آخرین پست: چهارشنبه 11 تیر 1382, 21:29 عصر

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •