Проект 8. «ласкаво просимо або стороннім вхід заборонено»
Мета роботи – створити програму-пароль. Вона працюватиме наступним чином:
При завантаженні програма попросить ввести пароль, якщо Ви введете пароль вірно, програма напише "Ласкаво просимо ! ! !"
Для виходу з програми необхідно натиснути кнопку Вихід.
Якщо пароль невірний — відповідь буде "Стороннім вхід заборонено ! ! !".
Для виходу з програми необхідно натиснути спочатку "ОК" на Project1, а потім на кнопку Вихід.
Опис плану розробки програми
Відкрити|відчиняти| новий проект.
Розмістити на формі екземпляри компонентів.
Таблиця 5.
Виділений об'єкт |
Закладка вікна Odject Inspector |
Ім'я властивості/ ім'я події |
Подія |
Form1
|
Properties
|
Caption
|
Встановити ім'я форми "Ласкаво просимо або стороннім вхід заборонено" |
Label1 (закладка Standard) |
Properties
|
Caption |
Очистити надпис |
Font |
Вибрати шрифт, розмір,колір
|
||
Edit1 (закладка Standard) |
Properties
|
Text |
Очистити надпис |
Button1 (закладка Standard) |
Properties |
Caption |
Встановити текст надпису "ОК" |
Events |
OnClick |
Вписати код програми |
|
Button2 (закладка Standard) |
Properties |
Caption |
Встановити ім'я кнопки "Вихід" |
Events |
OnClick |
Close |
Зробимо клацання|натиснення| кнопці « ОК» для переходу в редактор.
Редактор коду програми:
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='111'
Then
begin
Label1.Caption:=' Ласкаво просимо !!!';
edit1.Enabled:=false;
end
Else
begin
ShowMessage (' Стороннім вхід ЗАБОРОНЕНО !!!');
edit1.Text:='';
edit1.SetFocus;
k:= k+1;
if k=3 then form1.close;
end;
end;
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
k:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='111'
Then
begin
Label1.Caption:=' Ласкаво просимо !!!';
edit1.Enabled:=false;
end
Else
begin
ShowMessage (' Стороннім вхід ЗАБОРОНЕНО !!!');
edit1.Text:='';
edit1.SetFocus;
k:= k+1;
if k=3 then form1.close;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;
end.
Збережіть проект, запустіть і протестуйте його.