Шифр 73. Создать Приложение, содержащее компоненты TLabel и TTimer и работающее следующим образом

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

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

Zadacha3.exe

Исходник

Отчет.docx

Содержание:


Задание[image]

Создать Приложение, содержащее компоненты TLabel и TTimer и работающее следующим образом. Через равные промежутки времени (через несколько секунд) должны появляться линии \, |, /, - и далее снова в этой же последовательности пока работает Приложение.

Приложение должно содержать также обработку трех команд: Цвет (изменение цвета формы 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, ExtCtrls;

type

TForm1 = class(TForm)

Timer1: TTimer;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const

s:array[1..4] of char=('\','|','/','-');

var

Form1: TForm1;

i: integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Form1.Label1.Caption:=s[i];

i:=i+1;

if (i>4) then i:=1;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

i:=1;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

ShowMessage('Зайцев Александр Владимирович');

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Color:=rgb(255,0,0);

end;

end.

Результат работы программы

[image]

Рисунок 2. Результат работы программы