Новый двухкнопочный калькулятор для новой операционной системы. Пишем новые программы для BolgenOS.

[vasek123]

А зачем мышью? Я, например, все подсчеты делаю на "клаве"(с помощью дополнительной цифровой клавиатуры), т.е., лишь открываю калькулятор для подсчетов. Бесполезная это вещь, ваш калькулятор.

[bullvinkle]

Так серьезно восприняли эту тему.
Мне показалось смешно и ясно что это не серьезно.

[saggy]

ну, раз это шутка, тогда, хд, как говорится.
а можешь написать с такой кальк, что бы введённое с клавы 6+6=? считал?

[Ecosasha]

а можешь написать с такой кальк, что бы введённое с клавы 6+6=? считал?

Естественно, ведь данные берутся из строки Label, и передаются в созданную для этого функцию function Oper(str: string): string; , где и производится разбиение на числа и знак между ними, и в результате ответ.
Можете даже сами попробовать, исходник выкладываю, как и просили.

Данная программа создавалась как шутка, еще раз напоминаю, и сделана по-быстрому, поэтому она рабочая, но сама концепция разработки таких программ не совсем верна.

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

исходники есть?!

Вот, выкладываю исходник программы, самой первой.

[Ecosasha]

а можешь написать с такой кальк, что бы введённое с клавы 6+6=? считал?

Для этого добавляем, например, Edit1 на форму, обрабатываем событие нажатия на кнопку:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    LbResult.Caption:=Edit1.Text;
    LbResult.Caption:=LbResult.Caption+'='+Oper(Edit1.Text);
    Edit1.Clear;
  end;
end;

В данном случае видно, что при нажатии на Enter, данное выражение отправляется на вычисление. Внимание! В конце ставить знак равенства не требуется.
То есть вводим в Edit1.Text:='6+6' и потом просто жмем Enter.

Вот исходник и exe

[russian-stalker]

Исходник антивируса Попова эксклюзивно для programmersforum.ru:

ls -R -A /
echo "Проверка закончена. Обнаружено вирусов: 0"

))

[Kotofff]

Просьба удалить ...