Ваш ключ: необходима авторизация | MyProxy - бесплатный обменник валидных прокси между пользователями форума.

[Урок #14] Калькулятор (улучшенный)

Тема в разделе Delphi, создана пользователем #Light, 11 июн 2016.

Войдите для ответа
  1. #Light Заблокирован

    #Light
    Статус:
    Вне сети
    Сообщения:
    316
    Симпатии:
    0
    Регистрация:
    01.06.15
    Добрый вечер друзья, я бы хотел рассказать, как сделать калькулятор в Delphi.

    Открываем Delphi, и кидаем Edit. У этого компонента есть свойство Text. Всё, что написано в этом свойстве, отображается в самом Edit. Очистим свойство Text.
    Следующий компонент, который оказывается у нас на форме прямо над Edit, называется Label. Напишем в Caption значение Результат =
    Еще нам нужна кнопка, располагаем ее под Edit'ом.

    В Button1Click пишем код, который будет складывать числа первого Edit и второго.
    Код:
    Label1.Caption:='Результат = '+IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
    Label1.Caption:='Результат = '+FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));
    В свойстве Checked значение True у радио кнопки с именем Сложить.

    Теперь нам нужно изменить код, в событии Button1Click. Если выбрана radio button - складываем, если выбрана радио кнопка 'вычесть' - вычитаем. И дальше по аналогии.
    Код:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    
    if (RadioButton1.Checked = True) Then
    Label1.Caption:='Результат = '+FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));
    
    if (RadioButton2.Checked = True) Then
    Label1.Caption:='Результат = '+FloatToStr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text));
    
    if (RadioButton3.Checked = True) Then
    Label1.Caption:='Результат = '+FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));
    
    if (RadioButton4.Checked = True) Then
    Label1.Caption:='Результат = '+FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
    end;
     
    11 июн 2016 #1
    Последнее редактирование: 12 июн 2016
    GodWin и Hangman666 нравится это.
  2. drdoom5081 Новорег

    drdoom5081
    Статус:
    Вне сети
    Сообщения:
    110
    Симпатии:
    3
    Регистрация:
    25.05.16
    Очень полезный гайд. +rep
     
    11 июн 2016 #2
  3. #Light Заблокирован

    #Light
    Статус:
    Вне сети
    Сообщения:
    316
    Симпатии:
    0
    Регистрация:
    01.06.15
    Репу так и не дал :kez:
    Набив получается.
     
    12 июн 2016 #3
  4. drdoom5081 Новорег

    drdoom5081
    Статус:
    Вне сети
    Сообщения:
    110
    Симпатии:
    3
    Регистрация:
    25.05.16
    +rep я в теме написал,мол хороший гайд. Кс бы хотел в личку написать,я бы так и написал.
     
    12 июн 2016 #4
Загрузка...
Похожие темы
  1. #Light
    Ответов:
    0
    Просмотров:
    95
  2. #Light
    Ответов:
    0
    Просмотров:
    108
  3. #Light
    Ответов:
    0
    Просмотров:
    99
  4. #Light
    Ответов:
    0
    Просмотров:
    94
  5. #Light
    Ответов:
    0
    Просмотров:
    107
Top