Калькулятор

[_Мика_]

Тут друган попросил сделать калькулятор....вот что он мне написал

короче сделать в визуал басик 6 версии калькулятор в двоичную (чтобы считать 0 и 1) но чтобы можно было переводить в 16 ричную и 10 тиричную

Поясняю:
короче нужно всеволишь два действия (+ и -). Все действия осуществляются только в двоичной системе.
А потом что бы еще можно было переводить в 10-ую сис. и в 16-ую сис. Ввод данных в двоичной системе.

Вопрос заключается в том, как слогать или вычитать в двоичной системе?

[_Мика_]

ну как это КАК??? побитно складывешь... 10111010+ 01010101 = 10001111 кажется так.... а конвертнуть в нех это HEX(Number) / а в десятичное CDec(expression)
вот тебе хелп
Function CDec(Expression)
Member of VBA.Conversion
Returns a variant with a value converted to a decimal subtype
===
Function Hex(Number)
Member of VBA.Conversion
Returns a string representing the hexadecimal value of a number
========
а вооще нажми в режиме конструирования кнопу F2 и в левом списке выбери Conversion /// ^) удачи!

Сссспасибо....

[_Мика_]

Function CDec(Expression)

Когда я делаю так

Код: Выделить всё

msgbox cdec(101010110)


то в месаге он мне пишет это же число, т.е. "101010110"

[GSerg]

CDec преобразует число к типу Variant, подтипу Decimal.

Так что пиши, пиши собственный преобразователь бинарной строки

[_Мика_]

CDec преобразует число к типу Variant, подтипу Так что пиши, пиши собственный преобразователь бинарной строки

Хех....смешно
А как??

[Шурик]

Не проще скалдывать десятичные числа, а результат переводить в двоичный???

[Odrick]

Вот-вот. Что мешает внутри использовать только операции с числами в десятичном представлении? А потом их хоть в двоичный, хоть в шестнадцатеричный...

[_Мика_]

Не проще скалдывать десятичные числа, а результат переводить в двоичный???

Нет

Как перевсти Двоичное в Дестяричное

[_Мика_]

хех... блин... и че людям не спиться????
попробуй так: доп есть 01000101
тогда его в дес так :

Код: Выделить всё

For i = 1 To 8
x = Round(Mid(StrReverse(Text1.Text), i, 1))
yourdec = yourdec + x * 2 ^ i
Next
MsgBox yourdec


а в хекс думаю уже перекинешь..

Спасибо

[_Мика_]

Run-time error '13':

Type mismatch

Вот в этой строчке

x = Round(Mid(StrReverse(Text1.Text), i, 1))

[_Мика_]

хм.....
когда делаю так

Код: Выделить всё

For i = 1 To 8
x = Round(Mid(StrReverse(Text1.Text), i, 1))
yourdec = yourdec + x * 2 ^ i
Next
MsgBox yourdec


то "Type mismatch"

А когда так

Код: Выделить всё

For i = 1 To 8
x = Round(Mid(StrReverse("10101001010"), i, 1))
yourdec = yourdec + x * 2 ^ i
Next
MsgBox yourdec


То все Ok

[_Мика_]

хм.....
когда делаю так

Код: Выделить всё

For i = 1 To 8
x = Round(Mid(StrReverse(Text1.Text), i, 1))
yourdec = yourdec + x * 2 ^ i
Next
MsgBox yourdec


то "Type mismatch"

А когда так

Код: Выделить всё

For i = 1 To 8
x = Round(Mid(StrReverse("10101001010"), i, 1))
yourdec = yourdec + x * 2 ^ i
Next
MsgBox yourdec


То все Ok

Лдано, с этим вроде разобрался..

Теперь я пытаюсь сложить два бинарных числа.....

Код: Выделить всё

For i = 1 To Len(bin1)
For j = 1 To Len(bin2)
bi3 = bin3 & Mid(bin1, i, 1) + Mid(bin2, i, 1)
Next j
Next i
End If
MsgBox "'" & bin3 & "'"


Этот код почему то выдает пустоту!

[hCORe]

bi3 на bin3 поменяй в строке №3!
И включи, наконец, Option Explicit! Давно пора!

[_Мика_]

bi3 на bin3 поменяй в строке №3!
И включи, наконец, Option Explicit! Давно пора!

Блин....тупая ошибка Спасибо!
Это просто кусок кода, а переменные все объявленны, не беспокойся

[_Мика_]

Все равно, глупость получается......Если Bin1=1 а Bin2=0 то Bin3=10
Мне нужно сделать эту прогу до 19:00 (суббота) Т.Е. СЕГОДНЯ

[hCORe]

А может из bin в dec, сложить и обратно в bin? Или другой вариант: воспользоваться таблицами сложения/умножения для двоичной системы счисления (см. Интернет )

[_Мика_]

Ну можно...но как???

[_Мика_]

СДЕЛАЛ!!

Код: Выделить всё

Dim bin1 As String
Dim bin2 As String
Dim bin3 As Integer
Dim bin4 As String
Dim c As Integer

Private Sub Command1_Click()
bin1 = Text1
bin2 = Text2
label1 = ""
bin4 = ""
If Len(bin1) > Len(bin2) Then
c = Len(bin1)
Else
c = Len(bin2)
End If

For i = 1 To c
If Mid(bin1, i, 1) = "" Then
bin4 = bin4 & Mid(bin2, i, 1)
End If
If Mid(bin2, i, 1) = "" Then
bin4 = bin4 & Mid(bin1, i, 1)
End If
If Mid(bin1, i, 1) = 0 And Mid(bin2, i, 1) = 0 Then
bin4 = bin4 & "0"
End If
If Mid(bin1, i, 1) = 1 And Mid(bin2, i, 1) = 1 Then
bin4 = bin4 & "1"
End If
If Mid(bin1, i, 1) = 1 And Mid(bin2, i, 1) = 0 Then
bin4 = bin4 & "1"
End If
If Mid(bin1, i, 1) = 0 And Mid(bin2, i, 1) = 1 Then
bin4 = bin4 & "1"
End If
Next i
label1 = bin4
End Sub

Private Sub Form_Load()
bin1 = ""
bin2 = ""
End Sub


Да да...я знаю способ крнечно еще тот.....но зато работает!!!

[kirrun]

Блин.. ибо надо для надежности перед действиями переменные конвертировать!

Все равно, глупость получается......Если Bin1=1 а Bin2=0 то Bin3=10

Лечится это так:

Код: Выделить всё

For i = 1 To Len(bin1)
For j = 1 To Len(bin2)
bin3 = Cint(bin3 & Mid(bin1, i, 1)) + Mid(bin2, i, 1)
Next j
Next i
End If
MsgBox "'" & bin3 & "'"


Поясняю: bin3 & Mid(bin1, i, 1) содержит знак &, а значит результат будет строкой. А если к строке "1" прибавить строку "0", получится строка "10"

А вот если конвертировать в число...