Разработка интерфейсного приложения по обеспечению пользователю доступа к программным продуктам

begin

Memo1.hide;

Button3.hide;

Button2.hide;

end;

end.

Листинг программы "Media Player"

unit Unit1;

interface

uses

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

StdCtrls, Buttons, MPlayer;

type

TForm1 = class(TForm)

MediaPlayer1: TMediaPlayer;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

OpenDialog1: TOpenDialog;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if opendialog1.Execute then // открытия окна выбора файла

if opendialog1.FileName = '' then writeln ('Вы не выбрали файл!!!')

else begin // или

mediaplayer1.FileName:=opendialog1.FileName; // занести путь к файлу

mediaplayer1.Open;//открыть файл

end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

close;

end;

end.

Листинг программы "Календарь"

unit Unit1;

interface

uses

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

ComCtrls;

type

TForm1 = class(TForm)

MonthCalendar1: TMonthCalendar;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

end.

Листинг программы "Напомнить о…"

unit Unit1;

interface

uses

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

StdCtrls, MPlayer, ExtCtrls, Buttons;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

Edit1: TEdit;

GroupBox2: TGroupBox;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

CheckBox1: TCheckBox;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

OpenDialog1: TOpenDialog;

Timer1: TTimer;

Timer2: TTimer;

Timer3: TTimer;

MediaPlayer1: TMediaPlayer;

Label1: TLabel;

BitBtn1: TBitBtn;

BitBtn4: TBitBtn;

procedure Timer1Timer(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure Timer3Timer(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Hour,Sec,min,a,b:longint;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Timer3.Enabled:=false; // выключить таймер 3

Timer1.Enabled:=false;// выключить таймер 1

BitBtn4.Click;//нажать кнопку

ShowMessage('Напоминание о:"'+ Edit1.Text +'"');// вывести сообщение

BitBtn3.Enabled:=true;//можно нажимать на кнопку

BitBtn2.Enabled:=false;//нельзя нажимать на кнопку

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

mediaplayer1.Open;// Открыть аудио-файл

mediaplayer1.Play;//Воспроизвести файл

timer3.Enabled:=false;//выключить таймер3

timer2.Enabled:=false;//выключить таймер2

BitBtn4.Click;// нажать кнопку

ShowMessage('Напоминание о:"'+ edit1.Text +'"');//вывести сообщение

mediaplayer1.Stop;//выключить аудио-файл

BitBtn2.Enabled:=true;// на кнопку можно нажимать

end;

procedure TForm1.Timer3Timer(Sender: TObject);

begin

Label1.Caption:='Осталось: '+IntToStr(hour)+' час.'+IntToStr(min-1)+' мин.'+IntToStr(sec-1)+' сек.';//надпись на метке

sec:=sec-1;// переменную sec уменьшить на 1

if sec = 0 then begin // если sec = 0 то

sec:=59;

min:=min-1;// переменную min уменьшить на 1

end;

if (min = 0) and (hour>0) and (sec>0)then begin // если min=0 и hour =0 и sec = 0 то

hour:=hour-1;//hour уменьшить на 1

min:=60; //min присвоить 60

end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

case ComboBox1.ItemIndex of // если пользователь выбрал, то а:=значению

0: a:=0;

1: a:=60*60000;

2: a:=2*(60*60000);

3: a:=3*(60*60000);

4: a:=4*(60*60000);

5: a:=5*(60*60000);

6: a:=6*(60*60000);

7: a:=7*(60*60000);

8: a:=8*(60*60000);

9: a:=9*(60*60000);

10: a:=10*(60*60000);

11: a:=11*(60*60000);

12: a:=12*(60*60000);

end;

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

begin

case Combobox2.ItemIndex of //если пользователь выбрал, то в b:= значению

0: b:=0;

1: b:=60000;

2: b:=2*60000;

3: b:=3*60000;

4: b:=4*60000;

5: b:=5*60000;

6: b:=10*60000;

7: b:=15*60000;

8: b:=20*60000;

9: b:=25*60000;

10: b:=30*60000;

11: b:=35*60000;

12: b:=40*60000;

13: b:=45*60000;

14: b:=50*60000;

15: b:=55*60000;

end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if opendialog1.Execute then // открыть окно выбора файла

mediaplayer1.FileName:=opendialog1.FileName; //записать путь к файлу в MediaPlayer

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.State = cbChecked then // если есть галочка то

BitBtn1.Enabled:=true // можно нажимать на кнопку для выбора аудио-файл

else // или

BitBtn1.Enabled:=false; // нельзя нажимать на кнопку для выбора аудио-файл

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

timer1.Enabled:=false;//выключить таймер 1

timer2.Enabled:=false;//выключить таймер 2

timer3.Enabled:=false;//выключить таймер 3

{Написать на Label1}

label1.Caption:='Осталось: '+inttostr(0)+' час.'+IntToStr(0)+' мин.'+IntToStr(0)+' сек.';

BitBtn2.Enabled:=false;//можно нажимать на кнопку

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

if checkbox1.Checked = true then // если включен аудио-файл, то

begin

timer2.Interval:=a+b; //установить время таймера

timer2.Enabled:=true;// включить таймер

end

else // или

begin

timer1.Interval:=a+b;//установить время таймера

timer1.Enabled:=true;// включить таймер

end;

BitBtn2.Enabled:=true;//можно нажимать на кнопку

Timer3.Enabled:=true;// включить таймер

sec:=60;// sec:=60

min:=b div 60000; // min:= b разделить на 60000

hour:=combobox2.ItemIndex;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

close;

end;

end.

Листинг программы "Кодировщик"

Const a = 1

Private Sub Command1_Click()

For i = 1 To Len(Text1)

nxt = Left(Text1, i)

Text2 = Text2 + Chr(Asc(Right(nxt, 1)) + a)

Next i

End Sub

Private Sub Command2_Click()

For i = 1 To Len(Text1)

nxt = Left(Text2, i)

Text3 = Text3 + Chr(Asc(Right(nxt, 1)) - a)

Next i

End Sub

Размещено на Allbest.ru