Шифр 79. Создать Приложение, которое в зависимости от выбранной команды меню выполняет простейшие

  • ID: 37259 
  • 11 страниц
200 рубСкачать

антиплагиат в подарок

calc.exe

Исходник

Отчет.docx

Содержание:


Задание[image]

Создать Приложение, которое в зависимости от выбранной команды меню выполняет простейшие арифметические действия (сложение, вычитание, умножение, деление) с числами, набранными в строках компонентов TEdit. Для выдачи результата используется TLabel.

Приложение должно содержать также обработку трех команд: Цвет (изменение цвета формы Form1), Выход (завершение работы Приложения), Об авторах (появление окна с ФИО и № группы). Визуальное оформление команд определяется по предпоследней цифре студенческого билета: для 0,2,4,6,8 – использовать главное меню TMainMenu; для 1,3,5,7,9 – использовать кнопки TButton.

Форма

[image]

Рисунок 1. Форма в среде программирования

Модуль

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

GroupBox1: TGroupBox;

Button6: TButton;

Button7: TButton;

Button8: TButton;

GroupBox2: TGroupBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button5: TButton;

Button9: TButton;

N10: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}