Реализация функций калькулятора

[Stalker1986]

У меня такая проблема- есть калькулятор, есть кнопка на форме - +/- - для положительных и отрицательных чисел. При первом нажатии на поле TextBox к цифрам, которые уже введены добавляется символ "-" посредством кода:

If x = x Then
x = -x
Text1 = "-" + Text1.Text
Else
x = x
End If

Всё бы хорошо НО: как при повторном нажатии на кнопку убрать этот минус? Если в операторе ELSE функции if он убираться не хочет и при повторном нажатии добавляет к TextBox'у ещё один минус и т.д..

И ещё: как реализовать калькулятор инженерного вида с поддержкой как в стандартном- шестнадцатеричный, двоичный??? очень надо добавить хотя бы двоичный калькулятор в мой уже имеющийся.

[karlex]

Если хранить число, которое должно отражаться в текущий момент, в переменной числового типа, то можно сделать так:

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

Private Sub ...()
    x = -x
    Display(x)
End Sub

x - вымышленная переменная числового типа, хранит число
Display(<Number>) - вымышленная процедура, принимает в качестве параметра число и отображает его

Это мой подход.

В твоем случае можно проверить наличие символа "-" в строке, используя функцию Left$:

Function Left$(String As String, Length As Long) As String

Returns a specified number of characters from the left side of a string

После чего принять нужное решение.

[Йода]

Самое первое, что мне пришло в голову:

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

Dim lngData1 As Long
lngData1 = CLng(Text1.Text)
lngData1 = Not (lngData1 - 1)
Text1.Text = CStr(lngData1)

Но это работает только с целыми числами.
З.Ы. Я долго, очень долго медитировал на твой код, особенно на

x = x

.

[iGrok]

Я гораздо дольше медитировал на If x = x Then...
Ты в курсе, что у тебя вторая часть выражения НИКОГДА не выполнится?

Итого: убрать нафиг условия. И сделать просто

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

x = -x
Text1.Text = x


2Йода:
А чем тебе не мил Text1.Text = -Val(Text1.Text) ?

[Йода]

2Йода:
А чем тебе не мил Text1.Text = -Val(Text1.Text) ?

Абсолютно ничего не имею против

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

Text1.Text = -Val(Text1.Text)

Дело в том, что код, который я написал это было

Самое первое, что мне пришло в голову...

[SLIM]

проще всего умножать на -1 и не париться. Даже условий не нужно. Not здесь применять как-то не к лицу.

И ещё: как реализовать калькулятор инженерного вида с поддержкой как в стандартном- шестнадцатеричный, двоичный??? очень надо добавить хотя бы двоичный калькулятор в мой уже имеющийся.

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

[MIT]

И ещё: как реализовать калькулятор инженерного вида с поддержкой как в стандартном- шестнадцатеричный, двоичный??? очень надо добавить хотя бы двоичный калькулятор в мой уже имеющийся.

http://www.vb-helper.com/howto_dec_hex_oct_bin.html
http://www.bigresource.com/VB-Binary-He ... UnMyW.html

P.S. код не смотрел, просто результат гуглинга

[HiSER]

Может так?

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

Private Sub Command1_Click()
Dim x As Double
x = Val(Text1.Text)
If x < 0 Then
x = Abs(x)
Else
x = -x
End If
Text1.Text = x
End Sub


[MIT]

Может так?

Зачем? *(-1), имхо, рулит неимоверно.

[dr.MIG]

А чем не устраиват

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

Private Sub Command1_Click()
    Text1 = -Text1
End Sub


Или я не проникся сутью проблемы ?