Информация


Programm.ws - это сайт, на котором вы можете почитать литературу по языкам программирования, а так-же посмотреть примеры работающих программ на С++, ассемблере, паскале и много другого..

Программирование — в обычном понимании, это процесс создания компьютерных программ.
В узком смысле (так называемое кодирование) под программированием понимается написание инструкций — программ — на конкретном языке программирования (часто по уже имеющемуся алгоритму — плану, методу решения поставленной задачи). Соответственно, люди, которые этим занимаются, называются программистами (на профессиональном жаргоне — кодерами), а те, кто разрабатывает алгоритмы — алгоритмистами, специалистами предметной области, математиками.
В более широком смысле под программированием понимают весь спектр деятельности, связанный с созданием и поддержанием в рабочем состоянии программ — программного обеспечения ЭВМ. Более точен современный термин — «программная инженерия» (также иначе «инженерия ПО»). Сюда входят анализ и постановка задачи, проектирование программы, построение алгоритмов, разработка структур данных, написание текстов программ, отладка и тестирование программы (испытания программы), документирование, настройка (конфигурирование), доработка и сопровождение.

Мультимедиа

43. Напишите программу, в диалоговом окне которой в результате щелчка на командной кнопке выводится сопровождаемая звуком анимация — содержимое AVI-файла.

Рекомендуемый вид формы приведен на рис. 1.43.

Рис. 1.43. Компонент Panel 1 используется в качестве экрана для отображения анимации

{ Отображение сопровождаемой звуком анимации
при помощи компонента MediaPlayer )unit UsMP_;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls;type
TForml = class(TForm)
MediaPlayerl; TMediaPlayer; // универсальный проигрыватель
Panell: TPanel; // панель, на которую выводится анимация
Buttonl: TButton; // кнопка Ok Labell: TLabel; procedure ButtonlClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations j
public
/ Public declarations }
end;var
Forml: TForml;implementation{$R *.DFM}I
Во время создания формы надо настроить
компонент MediaPlayerl:
MediaPlayerl.Display = Panell
MediaPlayerl.Filename = delphi_s.avi — имя файла
MediaPlayerl .AutoOpen » True
MediaPlayerl .Visible - False
// щелчок на кнопке OK
procedure TForml.ButtonlClick(Sender: TObject);
begin
MediaPlayerl.Play; // воспроизведение анимации
end;procedure TForml.FormCreate(Sender: TObject);
begin
l Размер области отображения анимации
должен соответствовать размеру анимации.
Размер анимации в файле delphi_s.avi
60x60 } // зададим размер области вывода анимации
MediaPlayerl.DisplayRect:=Rect(0,0,60,60);
end;end.