Завдання1.
Створити програму, яка виконує наступні дії:
після запуску програми користувач вибирає за допомогою мишки або стрілок назву кольору і натискає клавішу Enter.
на екрані з’являється назва кольору на російській мові і код в форматі RGB.
Лістинг програми:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
procedure ListBox1KeyPress(Sender: TObject; var Key: Char);
procedure ListBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ListBox1Click(Sender: TObject);
begin
Case Listbox1.ItemIndex of
0: begin Label3.Font.Color:=$000000;
Label3.Caption:='черный';Label5.Caption:=' 000000'; end;
1: begin Label3.Font.Color:=$FFFFFF;
Label3.Caption:='белый';Label5.Caption:=' FFFFFF'; end;
2: begin Label3.Font.Color:=$0000FF;
Label3.Caption:='красный';Label5.Caption:=' FF0000'; end;
3: begin Label3.Font.Color:=$00FF00;
Label3.Caption:='зеленый';Label5.Caption:=' 00FF00'; end;
4: begin Label3.Font.Color:=$FFFF00;
Label3.Caption:='бирюзовый';Label5.Caption:=' 00FFFF'; end;
5: begin Label3.Font.Color:=$FF0000;
Label3.Caption:='синий';Label5.Caption:=' 0000FF'; end;
6: begin Label3.Font.Color:=$FF00FF;
Label3.Caption:='фиолетовый';Label5.Caption:=' FF00FF'; end;
7: begin Label3.Font.Color:=$00FFFF;
Label3.Caption:='желтый';Label5.Caption:=' FFFF00'; end;
8: begin Label3.Font.Color:=$336699;
Label3.Caption:='коричневый';Label5.Caption:=' 996633'; end;
9: begin Label3.Font.Color:=$0088FF;
Label3.Caption:='оранжевый';Label5.Caption:=' FF8800'; end;
10: begin Label3.Font.Color:=$8000FF;
Label3.Caption:='лиловый';Label5.Caption:=' 8000FF'; end;
11: begin Label3.Font.Color:=$999999;
Label3.Caption:='серый';Label5.Caption:=' 999999'; end;
end;
end;
procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
Case Listbox1.ItemIndex of
0: begin Label3.Font.Color:=$000000;
Label3.Caption:='черный';Label5.Caption:=' 000000'; end;
1: begin Label3.Font.Color:=$FFFFFF;
Label3.Caption:='белый';Label5.Caption:=' FFFFFF'; end;
2: begin Label3.Font.Color:=$0000FF;
Label3.Caption:='красный';Label5.Caption:=' FF0000'; end;
3: begin Label3.Font.Color:=$00FF00;
Label3.Caption:='зеленый';Label5.Caption:=' 00FF00'; end;
4: begin Label3.Font.Color:=$FFFF00;
Label3.Caption:='бирюзовый';Label5.Caption:=' 00FFFF'; end;
5: begin Label3.Font.Color:=$FF0000;
Label3.Caption:='синий';Label5.Caption:=' 0000FF'; end;
6: begin Label3.Font.Color:=$FF00FF;
Label3.Caption:='фиолетовый';Label5.Caption:=' FF00FF'; end;
7: begin Label3.Font.Color:=$00FFFF;
Label3.Caption:='желтый';Label5.Caption:=' FFFF00'; end;
8: begin Label3.Font.Color:=$336699;
Label3.Caption:='коричневый';Label5.Caption:=' 996633'; end;
9: begin Label3.Font.Color:=$0088FF;
Label3.Caption:='оранжевый';Label5.Caption:=' FF8800'; end;
10: begin Label3.Font.Color:=$8000FF;
Label3.Caption:='лиловый';Label5.Caption:=' 8000FF'; end;
11: begin Label3.Font.Color:=$999999;
Label3.Caption:='серый';Label5.Caption:=' 999999'; end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Add (ComboBox1.Text); if ComboBox1.ItemIndex = -1 then ComboBox1.Text :=‘’;
end;
end;
end.
end.
Iнтерфейс програми
Рисунок 1
Завдання 2.
Розробка проекту СЛОВНИК
Постановка задачі
Розробка програми для створення словника нових термінів
Можливість внесення в словник змін, доповнень або видалення його. На формі повинен відображатись поточний номер запису і загальна кількість записів в словнику.
Лістинг програми:
unit Unit2;
Interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons,
Controls, StdCtrls, Buttons, Classes;
type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
BitBtn1: TBitBtn;
CheckBox1: TCheckBox;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
Implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Add (ComboBox1.Text);
if ComboBox1.ItemIndex = -1 then
ComboBox1.Text :=' ';
ComboBox1.Items.SaveToFile (‘Glostext.txt’);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
If MessageDlg('Ви дійсно хочете видалити запис?',
mtWarning, [mbYes, mbNo], 0)= mrYes then
ComboBox1.Items.Delete(ComboBox1.ItemIndex);
ComboBox1.Items.SaveToFile (‘Glostext.txt’);
end;
procedure TForm2.FormClick(Sender: TObject);
begin
ComboBox1.Items.SaveToFile (‘glostext.txt’);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
ComboBox1.Items.LoadFromFile (‘glostext.txt’);
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
ComboBox1.Items.SaveToFile (‘glostext.txt’);
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
num:= ComboBox1.ItemIndex;
ComboBox1.Items.Delete (num); ComboBox1.Items.Add (ComboBox1.Text); if ComboBox1.ItemIndex = -1 then ComboBox1.Text:=‘’;
ComboBox1.Items.SaveToFile (‘Glostext.txt’);
end;
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked = False then ComboBox1.Style:= csDropDown else ComboBox1.Style:= csDropDownList;
if CheckBox1.Checked = false then Button1.Enabled := true else Button1.Enabled := false;
end;
end.
Iнтерфейс програми
Рисунок 2
Завдання 8.
Гра. Угадай число.
Лістинг програми:
unit Unit2;
Interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
start: TEdit;
finish: TEdit;
ch1: TEdit;
pl1: TLabel;
znak1: TLabel;
pl2: TLabel;
ch2: TEdit;
Label4: TLabel;
x: TLabel;
comp: TCheckBox;
Button1: TButton;
Button2: TButton;
procedure compClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure ch2Change(Sender: TObject);
var {массивы максимальных и минимальных чисел}