ЕОМ. p align="justify"> Налаштування з обробки даних в програмі також відсутні.
Розроблюваний проект складається з одного файлу (модулів), опис яких наведено у Додатку А.
2.2 Текст програми
{MP3 плееер з регулятором гучності.} mp3p_;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, ExtCtrls, MPlayer, ComCtrls,
, FileCtrl;// ці посилання вставлені вручну
= class (TForm)
// кнопки: TSpeedButton;// Попередня композиція: TSpeedButton;// Відтворення/Стоп: TSpeedButton;// Наступна композиція: TSpeedButton;// Вибір папки
: TListBox;// Список композицій (mp3 файлів)
: TMediaPlayer;// медіа плеєр
: TTrackBar;// регулятор гучності
: TTimer;: TLabel;: TLabel;
: TShape;// рамка навколо кнопок
FormCreate (Sender: TObject); ListBox1Click (Sender: TObject); SpeedButton2Click (Sender: TObject); SpeedButton1Click (Sender: TObject); SpeedButton3Click (Sender: TObject); TrackBar1Change (Sender: TObject); Timer1Timer (Sender: TObject); SpeedButton4Click (Sender: TObject);
// ці оголошення вставлені сюди вручнуюPlay;// воспроізведеніеPlayList (Path: string);// формує список MP3 файлів
{Private declarations}
{Public declarations};
: TForm1;
{$ R *. dfm}: string [255];, sec: integer;// Час відтворення: LongWord;// старше слово - правий канал,
// молодше - лівий.
// формує список MP3 файловTForm1.PlayList (Path: string);: PChar;// покажчик на nul-terminated рядок: string [128];// звичайна Паскаль рядок
: TSearchRec;// структура SearchRec містить інформацію
// о файлі, що задовольняє умові поіска.Clear;
// сформувати список mp3 файловFindFirst (Path + '*. mp3', faAnyFile, SearchRec) = 0 then
// в каталозі є файл з розширенням WAV
// додамо ім'я цього файлу в спісок.Items.Add (SearchRec.Name);
// поки в каталозі є інші файли з розширенням WAV (FindNext (SearchRec) = 0) do.Items.Add (SearchRec.Name);;. ItemIndex: = 0;;
TForm1.FormCreate (Sender: TObject); ('');. ItemIndex: = 0;. Caption: = ListBox1.Items [ListBox1.itemIndex];
. Position: = 7;
// старше слово змінної volume - правий канал,
// молодше - лівий: = (TrackBar1.Position - TrackBar1.Max +1) * 6500;: = volume + (volume shl 16); (WAVE_MAPPER, volume);// рівень сигналу;
