Простейший плеер. 
Программирование: delphi

Цель работы — создать программу, выполняющую следующие действия:

• 1. После запуска программы в окне изображается музыкальный проигрыватель.
• 2. По щелчку мышью на кнопке «Р1ау» воспроизвести выбранную мелодию.
• 3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы

• 1. Откройте новый проект.
• 2. Разместите на форме экземпляры компонентов: медиаплеер MediaPlayer, рисунок Image (рис. 48).
• 3. Выполните действия, перечисленные в табл. 23.
• 4. Сохраните проект, запустите и протестируйте его.
• 5. Создайте проигрывателю картинку-фон (например, рис. 49).
• 6. Сохраните картинку-фон в файле, например, Фон.Ьшр.
• 7. Вставьте картинку в плеер в качестве фона.

Рис. 48. Окно проекта

Таблица 23

Рис. 49. Выбор фона для проекта

8. Подберите размер формы под размер изображения, само изображение установите в верхний левый угол, панель с кнопками медиаплеера поставьте так, чтобы гармонировала с рисунком фона (рис. 50).

Рис. 50. Окно разработанной программы

9. Сохраните проект, запустите и протестируйте его.

Таблица символов. Операторы повтора

Цель работы — создать программу, выводящую таблицу символов и соответствующих кодов с использованием оператора повтора.

Оператор повтора for используется в том случае, если заранее известно количество повторений цикла. В общем виде инструкция for записывается следующим образом:

for := to do begin.

;

end;

где — это переменная-счетчик числа повторений инструкций цикла, должен быть любого порядкового типа данных (переменные вещественных типов данных недопустимы); и —выражения, определяющие соответственно начальное и конечное значения параметра цикла (они вычисляются только один раз перед началом работы цикла), должны быть целого типа; — тело цикла. Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

При выполнении оператора for вначале вычисляется выражение и осуществляется присваивание спараметр цикла> :=.

После этого циклически повторяется следующая последовательность действий.

• 1. Проверка условия <=; если условие не выполнено, оператор for завершает свою работу.
• 2. Выполнение оператора .
• 3. Увеличение значения переменной спараметр цикла> на единицу.

Если начальное значение параметра цикла больше конечного значения, цикл не выполнится ни разу. Шаг наращивания параметра цикла строго постоянен и равен +1.

В качестве начального и конечного значений параметра цикла могут использоваться выражения. Они вычисляются только один раз перед началом выполнения оператора for. В этом состоит важная особенность цикла for в языке Delphi, которую следует учитывать тем, кто имеет опыт программирования на языках C/C + + .

После выполнения цикла значение параметра цикла считается неопределенным, поэтому в предыдущем примере нельзя полагаться на то, что значение переменной I равно 10 при выходе из цикла.

Вторая форма записи оператора for обеспечивает перебор значений параметра цикла не по возрастанию, а по убыванию. Шаг наращивания равен -1, а управляющее условие приобретает вид >= .

for := downto do ;

Задача. Разработать программу, выводящую таблицу символов и соответствующих кодов.

Рис. 57. Окно разработанной программы

На форме размещается одна надпись Label.

unit tablsim_;

interface

uses

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

type

TForml = class (TForm).

Labell: TLabel;

procedure FormActivate (Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var

Forml: TForml; implementation

{$R *.DFM}

procedure TForml. FormActivate (Sender: TObject); var

st: string; // таблица формируется как строка символов dec: byte; 11 код символа.

i, j: integer; // номер строки и колонки таблицы begin

st := «; dec := 192;

for i := 0 to 15 do // шестнадцать строк begin

dec := i + 192;

for j := 1 to 4 do // четыре колонки begin

st := st + chr (dec) + + IntToStr (dec) + ' ';

dec := dec + 16; end;

st := st + #13; // переход к новой строке экрана end;

Labell.caption := st; end;

end.