6. Программа «Хамелеон».
procedureTForml.RadioButtonlClick(Sender:TObject);
begin
Forml.Color:=clRed;
end;
procedureTForml.RadioButton2Click(Sender:TObject);
begin
Forml.Color:=clLime;
end;
procedureTForml.RadioButton3Click(Sender:TObject);
begin
Forml.Color:=clBlue;
end;
procedureTForml.RadioButton4Click(Sender:TObject);
begin
Forml.Color:=clTeal;
end;
procedureTForml.RadioButton5Click(Sender:TObject);
begin
Forml.Color:=clYellow;
end;
procedureTForml.RadioButton6Click(Sender:TObject);
begin
Forml.Color:=clFuchsia;
end;
procedureTForml.RadioButton7Click(Sender:TObject);
begin
Forml.Color:=clGreen;
end;
и так же для оставшихся.
Схраните проект.
7. Программа «Обычный калькулятор».
Цель работы - создать программу, выполняющую действия обычного калькулятора. Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: Label, Edit, Button.
Рис. 41.
3. Сохраните проект, запустите и протестируйте его.
Листинг подпрограммы
procedure TForm1.FormCreate(Sender: TObject); begin
Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; end;
procedure TForm1.Button5Click(Sender: TObject); begin
Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; end;
procedure TForm1.Button6Click(Sender: TObject); begin
close; end;
procedure TForm1.Button1Click(Sender: TObject); begin
a := StrToFloat (Edit1.Text);
b := StrToFloat (Edit2.Text);
c := a + b;
Edit3.Text := FloatToStr (c); end;
procedure TForm1.Button2Click(Sender: TObject);
begin
a := StrToFloat (Edit1.Text); b := StrToFloat (Edit2.Text); c := a - b;
Edit3.Text := FloatToStr (c); end;
procedure TForm1.Button3Click(Sender: TObject); begin
a := StrToFloat (Edit1.Text); b := StrToFloat (Edit2.Text); c := a * b;
Edit3.Text := FloatToStr (c); end;
procedure TForm1.Button4Click(Sender: TObject); begin
a := StrToFloat (Edit1.Text); b := StrToFloat (Edit2.Text); if b = 0 then Edit3.Text := 'division by zero' else begin
c := a / b;
Edit3.Text := FloatToStr (c); end; end;
8. Программа «Хронометр»
Цели: - научиться строить программу, которая бы рассчитывала промежуток между двумя временам
Листинг программы:
Procedure TForml.ButtonlClick(Sender:TObject);
varcl,ml,c2,m2,c3,m3,tl,t2,t3:integer;
begin
c1:=StrtoInt(Editl.Text);
ml:=StrtoInt(Edit2.Text);
c2:=StrtoInt(Edit3.Text);
m2:=StrtoInt(Edit4.Text);
tl:=cl*60+ml;
t2:=c2*60+m2;
t3:=t2-tl;
c3:=t3div60;
m3:=t3mod60;
Edit5.Text:=InttoStr(сЗ);
Edit6.Text:=InttoStr(m3);
end;
procedureTForml.Button2Click(Sender:TObject);
begin
Labelll.Visible:=True;
Labell2.Visible:=True
end;
procedureTForml.Button3Click(Sender:TObject);
begin
Close
end;
end.
Сохраните проект.
9. Программа «Простейший плеер»
Цель работы: - создать программу, выполняющую следующие действия:
1. После запуска программы в окне изображается музыкальный проигрыватель.
2. По щелчку мышью на кнопке "Play" воспроизвести выбранную мелодию.
3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: медиаплеер MediaPlayer, рисунок Image.
3. Выполнить следующие действия:
Выделенный объект |
Вкладка окна Object Inspector |
Имя свойства/ имя события |
Действие |
Forml |
Properties |
Caption |
Установка имени формы "Музыкальный проигрыватель" |
MediaPlayerl (Вкладка System) |
Properties |
AutoOpen |
Выберите значение True из раскрывающегося списка |
FileName |
Указать не полный путь к файлу, а относительно местоположения программы. Например, "Prim.wav", то программа будет этот файл искать в папке, где сама находиться. |
4. Сохраните проект, запустите и протестируйте его.
5. Создать проигрывателю картинку-фон, например:
6. Сохранить картинку-фон в файле, например, Фон.Ьшр
7. Вставить в плеер в качестве фона.
Продолжение таблица .
Выделенный объект |
Вкладка окна Object Inspector |
Имя свойства/ имя события |
Действие |
Imagel |
Properties |
Picture AutoSize |
С помощью кнопки Load выберите ваш файл Фон.Ьтр и нажмите ОК. В результате на месте пунктирной каемки на форме появится этот рисунок из файла. Выбрать значение True |
8. Подобрать размер формы под размер изображения, само изображение установите в верхний левый угол, панель с кнопками медиаплеера поставить так, чтобы гармонировала с рисунком фона, например:
