[OmG killer]

Нужно сделать кнопки (%,x^y).
Послезавтра у меня НОУ. Нужно до делать калькулятор. Помогите пожалуйста.
Вот скрин и исходник:

[BBBCat]

Скажешь, что такое НОУ, и кто писал calc5 beta.rar - сделаю
Кстати:
1. Кто такой sSkinManager я не знаю, поэтому выключил
2. Поменяй надпись х/1 на 1/х
3. Кнопка Int считает факториал, а он уже есть ниже.
4. Все кнопки TBitBtn, но ни у одной нет Glyph-а. В чём смысл?

[OmG killer]

1. НОУ- Научное общество учащихся.
2.Делал как не странно я на основе других.
3.Даёт красоту оформления формы и клавиш.
4.Чтобы когда проводиш мышкой текст на клавише загоралась цветом.
5.Большое спасибо за ошибки!!!
Я только не понял " Кнопка Int считает факториал, а он уже есть ниже. "
код я поправил.
а для чего она вообше нужна)))? она Вроде как и ничего и не далет.

[M.A.D.M.A.N.]

Сообщение от OmG killer

Я только не понял " Кнопка Int считает факториал, а он уже есть ниже. "
код я поправил.
а для чего она вообше нужна)))? она Вроде как и ничего и не далет.

Ну щашибись приплыли. Как можно что-то делать и не понимать что?

Int - выделение целой части числа.

[OmG killer]

Согласен, поменяю на Tаn не проблема.
Ну а что на счет этих кнопок?

[M.A.D.M.A.N.]

Не проходили проценты в школе что ли?

Про возведение в степень - в справке можно найти, там одна ф-я.

[OmG killer]

Со степенью разобрался)))
Но с процентами никак не выходит там ведь надо:
Вычисление процента от числа: 500 [ x ] 25 [ % ]. Результат - 125
Прибавление процента к числу: 500 [ + ] 25 [ % ]. Результат - 625
Вычитание процента из числа: 500 [ - ] 25 [ % ]. Результат - 375
я незнаю как написать не в самой кнопке не в равно.

[M.A.D.M.A.N.]

500*0.01 = 1%

[BBBCat]

Вот как и обещал:
Кнопка '=':

Код:

procedure TForm1.BitBtn18Click(Sender: TObject);
begin
if edit1.Text<>'' then b:=strtofloat (edit1.Text);
case c of
 '+':edit1.Text:=floattostr(a+b);
 '-':edit1.Text:=floattostr(a-b);
 '*':edit1.Text:=floattostr(a*b);
 '/':begin
 if b<>0 then
 edit1.Text:=floattostr(a/b) else
 form3.Show;
    end;
 '^': edit1.Text:=floattostr(Power(a,b)); // это я добавил
 end;
end;

Кнопка '%':

Код:

procedure TForm1.BitBtn34Click(Sender: TObject);
begin
if edit1.Text<>'' then b:=strtofloat (edit1.Text);
case c of
 '+':edit1.Text:=floattostr(a*(1+b/100));
 '-':edit1.Text:=floattostr(a*(1-b/100));
 '*':edit1.Text:=floattostr(a*b/100);
 end; // case c of
end; // procedure TForm1.BitBtn34Click(Sender: TObject)

Кнопка 'x^y':

Код:

procedure TForm1.BitBtn35Click(Sender: TObject);
begin
if edit1.Text<>'' then a:=strtofloat(edit1.Text);
c:='^';
edit1.Clear;
end; // procedure TForm1.BitBtn35Click(Sender: TObject)

Кнопка '%' работает как ты и написал, т.е. через '+', '-', '*'. Кнопка 'x^y' - набираешь число x, потом '^', потом число y, потом '='. Метод для кнопки '=' лучше не копировать, а добавить из него только одну строчку, которую я обозначил. Для работы функции 'Power(a,b)' в секцию 'uses' допиши 'Math'. Сами кнопки на форму уж прикрутишь как-нибудь И неплохо бы сделать в программе проверку на Overflow/Underflow. Больше ни в чём не разбирался, так что если тебе никто тут не указал на ошибки, это ещё не значит, что их нет. Кстати загляни в модуль 'Math', там много полезного для калькулятора.

И ещё: для чего в функции 'BitBtn**MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer)' такая конструкция 'if bitbtn20.Font.Color<>$004080FF then bitbtn**.Font.Color:=$004080FF' если ты уж по-любому решил присвоить цвету значение '$004080FF'? Лишний 'if' - дополнительные ресурсы, в данном случае неоправданные. К тому же не надо плодить функции для каждой кнопки. Одна из прелестей подпрограмм заключается в том, что повторяющийся код можно написать один раз, а потом вызывать его из разных мест. Из вышесказанного следует, что событию 'OnMouseMove' КАЖДОЙ кнопки нужно указать только ОДИН метод(см. ниже), а остальные поудалять. Самому же легче будет по программе лазить.

Код:

procedure TForm1.BitBtnMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  TBitBtn(Sender).Font.Color:=$004080FF;
end;

И я так и не понял, почему используется TBitBtn, а не TButton? В данной реализации они ничем не отличались бы, а вот вредный препод может докопаться. Хотя сейчас уже поздняк метаться.

[M.A.D.M.A.N.]

Не е-е Му-му, научитесь уже писать нормальные калькуляторы, которые выражение из строки могут считать. В разделе исходников аж два калькулятора есть нормальных.

[BBBCat]

Ну воттт!!! Человек сам хотел написать, а теперь ему соблазн чужим воспользоваться

[M.A.D.M.A.N.]

Судя по тому как он с этими двумя кнопками не разобрался, там он вообще плюхнется.

Просто из года в год делают этот несчастный "косплей" на виндовый калькулятор.

[BBBCat]

Вообще-то согласен, но вот лет 10 назад, когда я впервые уселся работать под Windows, на той тачке уже стояла Delphi. Я такого ещё не юзал, и первое, с чего начал, даже не заглянув в хелп и прочую документацию, это писать калькулятор Правда через пару дней понял, что изобретать велосипед нет смысла. Тем более, что велосипед всегда под рукой в пункте меню "Стандартные" Зато разобрался что такое проперти в Object Inspector. Я к тому, что "OmG killer" тож чёй-та нужное узнает.