Калькулятор

[Adolf]

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

[uhm]

Вводишь переменную a. При нажатии на кнопку "Сложить" выполняешь a=CDbl(TextBox1.Value). При нажатии на кнопку "Равно" выполняешь TextBox1.Value=Cstr(a+CDbl(TextBox1.Value)).

А вообще, это уж слишком "новичковый" вопрос. С такими вещами надо бы самому разбираться

[Adolf]

uhm
Я все сделал по другому, создал несколько скрытых Label-a и в них держал значения от определенной операции (умножение, деление, сложение, вычитание). Только вот громозко очень получилось.

[uhm]

Учти на будущее, что значения переменных не обязательно хранить в визуальных компонентах (т. е. лейблах), гораздо удобнее создать переменную. А вообще, советую все-таки прочесть какую-нибудь книжку по VB, гораздо проще будет все осваивать.

[A.A.Z.]

Вот пример калькулятора из MSDN

[Vitaly1]

При создании калькулятор полезно для сокращения кода использовать массив кнопок, еще нужно иметь переменную, в которой будет хранится предыдущее введенное число.

[Ship]

При создании калькулятор полезно для сокращения кода использовать массив кнопок, еще нужно иметь переменную, в которой будет хранится предыдущее введенное число.

Он неумеет переменными пользоваться, а ты ему про массив контролов...

[waresok]

Подскажите как разделить 92627 на 3087555 и получить результат в виде 0,03000011335830454842099978785803 (как в Windows калькуляторе)

а в VB получается 3,00001133583045E-02

спасибо

[Хакер]

Значит точность Double-а тебе не подходит.

[waresok]

Значит точность Double-а тебе не подходит.

То есть вы хотите сказать, что на VB я не смогу получить желаемый результат?

[Хакер]

Несчёт тебя: не знаю.
А вообще: можно.

[Gogic]

То есть вы хотите сказать, что на VB я не смогу получить желаемый результат?

Не сможешь встроенной в VB операцией деления, потребуется писать некоторый алгоритм.

[waresok]

ясно

[Roman Koff]

Сегодня день юмора на vbstreets?

[VBTerminator]

То есть вы хотите сказать, что на VB я не смогу получить желаемый результат?

Можно.

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

Dim MYVAR as Variant
Cdec MYVAR
MYVAR = 11111111111111111111111111111 'Или: MYVAR = 11 111 111 111 111 111 111 111 111 111
MYVAR = -11111111111111111111111111111
MYVAR = 0.0000000000000000000000000001

P. S. Если ошибся с количеством цифр после десятичной точки - просьба томатами не закидывать.