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

1. ## ماشین حساب در مبنای دو؟

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

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

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

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

سلام
پروژه ماشين حساب در مبناي 10 كه فراوونه
كافيه خودتون اطلاعاتش رو در مبناي 2 بگيريد و به 10 تبديل كنيد و بعد از انجام محاسبه دوباره به مبناي 2 تبديل و نمايش بدين  پاسخ با نقل قول

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

شما با این کار می تونی راحت کارتو انجام بدی
`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
```  پاسخ با نقل قول

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

ماشین حساب, ماشین حساب در مبنای دو, پروژه, پروژه آماده #### قوانین ایجاد تاپیک در تالار

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