Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > вопрос с калькулятором

Автор: neprogrammist 23.5.2010, 12:56

как при создании простейшего калькулятора реализующего простейшие арифм., выражения воспользоваться и применить класс ToOperation ?

Автор: Данкинг 23.5.2010, 13:31

А что это за класс такой? Добавлено через 33 секунды И в чём разница между "воспользоваться" и "применить"?

Автор: Teleport 23.5.2010, 13:57

2 neprogrammist  - скорее всего тебе сказали создать свой класс под названием ToOperation. Ищи статьи в google статьи по созданию классов в делфи.

Автор: neprogrammist 23.5.2010, 15:36

опечатка правильно TOperation, как его применить в калькуляторе??

Автор: cyberstream 23.5.2010, 15:47

Нет такого класса, тебе таки придётся его создать.

Автор: neprogrammist 23.5.2010, 18:25

неее вот такое задание - Разработать на объектно-ориентированном языке «Делфи» приложение «Калькулятор», реализующего четыре арифметических действия над вещественными числами. При реализации арифметических операций воспользуйтесь классом toperation.  написано что нужно воспользоваться  этим классом   калькулятор то создать простенький и так можно но вот че с этим делать???

Автор: Данкинг 23.5.2010, 18:33

Код type   t_toperation=class   procedure sum;   procedure minus;   procedure multiply;   procedure divide;   end; А теперь воспользуйся.

Автор: neprogrammist 23.5.2010, 23:13

предпоследняя процедура это "умножить" ?

Автор: Данкинг 24.5.2010, 00:15

Цитата(neprogrammist @  24.5.2010,  00:13 ) предпоследняя процедура это "умножить" ?  Ну да, я старался назвать красиво, но как назовёшь ты - твоё личное дело.

Автор: neprogrammist 24.5.2010, 18:57

это получается нужно новый класс создать ?

Автор: Данкинг 24.5.2010, 19:03

Да, новый.

Автор: neprogrammist 24.5.2010, 23:55

а как присвоить кнопки с цифрами  0,1,2,3,4,5,6,7,8,9   чтобы при нажатии они выводились в отдельную единую кнопу и чтобы результат тоже там высвечивался ????????????

Автор: Данкинг 25.5.2010, 00:15

Цитата(neprogrammist @  25.5.2010,  00:55 ) а как присвоить кнопки с цифрами  0,1,2,3,4,5,6,7,8,9   чтобы при нажатии они выводились в отдельную единую кнопу Куда выводились, не понял, в Edit, что ли? Ну так и добавляй в Edit.Text := Button.Caption+Edit.Text (как-то так).

Автор: neprogrammist 18.6.2010, 21:52

помогите доделать пожалуйста этот, там ошибка только, всё тело есть

Автор: lyucean 18.6.2010, 22:16

Цитата(neprogrammist @ 18.6.2010,  21:52) помогите доделать пожалуйста этот, там ошибка только, всё тело есть ох ..блин, у меня нет делфи 2007 по теме  добавьте перехват клавиш  на c++ это так будет, переписать не сложно ..ну или в нете найдите. вставляется в TForm1.FormKeyDown Код switch(Key)   {    case 27:Exit2Click(Sender);break; // это пример ..у вас коды клавиш другие.    case 49:N1Click(Sender);break;    case 50:N2Click(Sender);break;    case 51:N3Click(Sender);break;    case 52:N4Click(Sender);break;    case 53:N5Click(Sender);break;    case 54:N6Click(Sender);break;    case 17:N7Click(Sender);break;    case 32:Start1Click(Sender);break;   } + добавьте ввод только чисел ..опять же на c++ вставляется в TForm1.Edit1KeyPress Код if ((Key >= '0') && (Key <= '9')) {}  // цифры         else if (Key == 8) {}  // <-         else if ((Key == '.') || (Key == ',')) // запятая                 {                 if (((TEdit*)Sender)->Text.Pos(DecimalSeparator)!=0) // если запятая уже есть                         Key = 0;                 else // если ещё нет                         Key = DecimalSeparator;                 }         else Key = 0; // не цифра + добавьте очищение едита после нажатия "+","-","*","/" (ну и соответственно присваивания переменной, значения из едита) после "=" желательно результат вывести ну можно для максимума вставить мемо и работать со строчками (после нажатия "+","-","*","/" , едит очищаете, + добавляете его в мемо новой  строкой)  ..могу ток на c++ buildere помочь, ставить старый делфи влом. вроде как подробно написал .. приводите код, где траблы.

Автор: chip_and_dayl 19.6.2010, 00:29

Цитата(neprogrammist @  18.6.2010,  21:52 ) там ошибка только, всё тело есть  По ходу не программисты тоже только с тела состоят :)) Добавлено через 48 секунд lyucean Скорее всего придется тебе же на Делфи и переписать:)

Автор: neprogrammist 19.6.2010, 22:33

Цитата(lyucean @ 18.6.2010,  22:16) Цитата(neprogrammist @ 18.6.2010,  21:52) помогите доделать пожалуйста этот, там ошибка только, всё тело есть ох ..блин, у меня нет делфи 2007 по теме  добавьте перехват клавиш  на c++ это так будет, переписать не сложно ..ну или в нете найдите. вставляется в TForm1.FormKeyDown Код switch(Key)   {    case 27:Exit2Click(Sender);break; // это пример ..у вас коды клавиш другие.    case 49:N1Click(Sender);break;    case 50:N2Click(Sender);break;    case 51:N3Click(Sender);break;    case 52:N4Click(Sender);break;    case 53:N5Click(Sender);break;    case 54:N6Click(Sender);break;    case 17:N7Click(Sender);break;    case 32:Start1Click(Sender);break;   } + добавьте ввод только чисел ..опять же на c++ вставляется в TForm1.Edit1KeyPress Код if ((Key >= '0') && (Key <= '9')) {}  // цифры         else if (Key == 8) {}  // <-         else if ((Key == '.') || (Key == ',')) // запятая                 {                 if (((TEdit*)Sender)->Text.Pos(DecimalSeparator)!=0) // если запятая уже есть                         Key = 0;                 else // если ещё нет                         Key = DecimalSeparator;                 }         else Key = 0; // не цифра + добавьте очищение едита после нажатия "+","-","*","/" (ну и соответственно присваивания переменной, значения из едита) после "=" желательно результат вывести ну можно для максимума вставить мемо и работать со строчками (после нажатия "+","-","*","/" , едит очищаете, + добавляете его в мемо новой  строкой)  ..могу ток на c++ buildere помочь, ставить старый делфи влом. вроде как подробно написал .. приводите код, где траблы.    С+ в первый раз вижу, но спасибо хоть обратили внимание

Автор: lyucean 20.6.2010, 04:04

chip_and_dayl  ох, блин прав по ходу  neprogrammist про ввод только цифр  Код procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin   case Key of     '0' .. '9', #8 : ;     ','  :     begin       if Key = ',' then Key:=',';       if (Pos(',',Form1.Edit1.Text) <> 0) then Key:= Chr(0);     end;     '-'  :     begin       if Key = '-' then Key:='-';       if Length(Form1.Edit1.Text) <> 0 then Key:= Chr(0);     end;     else       Key := Chr(0);   end; end; про ввод по нажатию на клаве, как то так должно быть. Код   case Key of     '5':Edit1.text:=Edit1.text+'5';  // т.е. по нажатию 5 на форме, в поле Edit1.text добавляется 5    end;  ..соответственно на * можно забить //умножение, на + сложение, и так далее ..лучше сверху поместить мемо, для вывода проделанных операций.

Автор: former 20.6.2010, 09:33

Цитата(lyucean @  20.6.2010,  04:04 ) про ввод по нажатию на клаве, как то так должно быть. А если 50000000 нужно прибавить, то столько же кнопок нужно создать?

Автор: lyucean 20.6.2010, 10:37

Цитата(former @ 20.6.2010,  09:33) Цитата(lyucean @  20.6.2010,  04:04 ) про ввод по нажатию на клаве, как то так должно быть. А если 50000000 нужно прибавить, то столько же кнопок нужно создать?   я никогда не пользовался делфи (паскаль был и синтаксис от туда помню), т.е. делал по аналогии, но по моему 5 кратное нажатие 5 должно привести к результату 55555  вопрос не понял.

Автор: chip_and_dayl 20.6.2010, 20:39

Цитата(lyucean @  20.6.2010,  04:04 )  case Key of    '5':Edit1.text:=Edit1.text+'5';  // т.е. по нажатию 5 на форме, в поле Edit1.text добавляется 5   end; а если так Код  case Key of     '0'..'9':Edit1.text:=Edit1.text+Key;  //    end; Хотя я не понял в чем вопрос. Мы ставим баттоны с цифрами и для всех реализуем одну логику?

Автор: lyucean 20.6.2010, 20:47

Цитата(chip_and_dayl @ 20.6.2010,  20:39) Цитата(lyucean @  20.6.2010,  04:04 )  case Key of    '5':Edit1.text:=Edit1.text+'5';  // т.е. по нажатию 5 на форме, в поле Edit1.text добавляется 5   end; а если так Код  case Key of     '0'..'9':Edit1.text:=Edit1.text+Key;  //    end; Хотя я не понял в чем вопрос. Мы ставим баттоны с цифрами и для всех реализуем одну логику? Мы пишем neprogrammist  калькулятор      Код  case Key of     '0'..'9':Edit1.text:=Edit1.text+Key;  //    end;  реализация намного удачнее, не додумался    Цель, ввод чисел по нажатию на клавиатуре, в не активный едит.

Автор: chip_and_dayl 20.6.2010, 20:57

lyucean Прикольно:) Я тоже хочу себе калькулятор:)) Добавлено @ 20:59 Цитата(lyucean @  20.6.2010,  20:47 )  Цель, ввод чисел по нажатию на клавиатуре, в не активный едит. Тогда в событие КейПресс пишет, то что выше и будет ему чудо:) Ну только учесть срабатывание удаления и точек

Автор: neprogrammist 20.6.2010, 21:09

а при помощи простых присваиваний никак? (в задании написано как создаь кальк)

Автор: chip_and_dayl 20.6.2010, 21:15

neprogrammist Куда еще проще  Цитата(neprogrammist @  20.6.2010,  21:09 ) (в задании написано как создаь кальк) Ну, тогда делай по инструкции . Чего мы тут напрягаем извилины!?!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)