Модель программы

Электронный журнал проекта

Дата	Планируемая деятельность	Возникшие проблемы и как они были решены	Отметка о выполнении
1.04	Разработать тему проекта	НЕ БЫЛО ПРОБЛЕМ	Выполнено
2.04	Главная страница	Выполнил на фотошопе	Выполнено
4.04	Воспроизведение музыки	mmSystem	Выполнено
5.04	Воспроизведение видео	mediaplayer	Выполнено
6.04	Переключатель	COMPONENT.Visible:=(Boolean);	Выполнено
7.04	Одна форма для всех	Загружал адрес файла на глобальную переменную	Выполнено
9.04	Добавить в избранные	Использовал текстовые файлы	Выполнено
10.04	Анимация	Код с GIF	Выполнено
11.04	Интерфейс	Photoshopразнообразен, докажет он что мир прекрасен!	Выполнено
12.04	Редактирование музыкальных файлов	Audacity and Adobe Audition	Выполнено
13.04	Слайд	POWERPOINT	Выполнено
14.04	Проверка людьми	Одноклассники	Выполнено

Листинг программы

procedure TForm4.FormCreate(Sender: TObject);

var q,w,e,r,t,y,u:string;

Begin

//Это анимирование через Timage

Position:=poScreenCenter;

GIF:=Tgifimage.Create;

GIF.LoadFromFile('Resourses\animation2.gif');

GIF.Animate:=true;

Image1.picture.assign(GIF);

//Первый файл

assignfile(z,'Resourses\Options\Trailers\1.txt');

Reset(z);

read(z,q); //Читает цифру из текстового файла

if q='1' then

Begin

image2.Visible:=false;

image9.Visible:=true;

End

Else

Begin

image2.Visible:=true;

image9.Visible:=false;

End;

Closefile(z);

//Второй файл

assignfile(zx,'Resourses\Options\Trailers\2.txt');

Reset(zx);

Read(zx,w);

if w='1' then

Begin

image3.Visible:=false;

image10.Visible:=true;

End

Else

Begin

image3.Visible:=true;

image10.Visible:=false;

End;

Closefile(zx);

............................

............................

............................

//Седьмой файл

assignfile(m,'Resourses\Options\Trailers\7.txt');

Reset(m);

Read(m,u);

if u='1' then

Begin

image8.Visible:=false;

image15.Visible:=true;

End

Else

Begin

image8.Visible:=true;

image15.Visible:=false;

End;

Closefile(m);

End;

procedure TForm4.Image2Click(Sender: TObject);

Begin

assignfile(z,'Resourses\Options\Trailers\1.txt');

Rewrite(z);

write(z,'1'); //Записывает цифру в файл

image2.Visible:=false;

image9.Visible:=true;

Closefile(z);

End;

procedure TForm4.Image3Click(Sender: TObject);

Begin

assignfile(zx,'Resourses\Options\Trailers\2.txt');

Rewrite(zx);

write(zx,'1');

image3.Visible:=false;

image10.Visible:=true;

Closefile(zx);

End;

............................

............................

............................

procedure TForm4.Image8Click(Sender: TObject);

Begin

assignfile(m,'Resourses\Options\Trailers\7.txt');

Rewrite(m);

write(m,'1');

image8.Visible:=false;

image15.Visible:=true;

Closefile(m);

End;

procedure TForm4.Image9Click(Sender: TObject);

Begin

assignfile(z,'Resourses\Options\Trailers\1.txt');

Rewrite(z);

write(z,'0');

image2.Visible:=true;

image9.Visible:=false;

Closefile(z);

End;

procedure TForm4.Image10Click(Sender: TObject);

Begin

assignfile(zx,'Resourses\Options\Trailers\2.txt');

Rewrite(zx);

write(zx,'0');

image3.Visible:=true;

image10.Visible:=false;

Closefile(zx);

End;

..........................

..........................

..........................

procedure TForm4.Image15Click(Sender: TObject);

Begin

assignfile(m,'Resourses\Options\Trailers\7.txt');

Rewrite(m);

write(m,'0');

image8.Visible:=true;

image15.Visible:=false;

Closefile(m);

End;

procedure TForm4.SpeedButton1Click(Sender: TObject);

Begin

Form4.hide;

Form6.show;

filefor:='Resourses\Video\The Pursuit of Happyness.wmv';

// Записывает адрес видео в глобальную переменную

End;

.......................

.......................

.......................

procedure TForm4.SpeedButton7Click(Sender: TObject);

Begin

Form4.hide;

Form6.show;

filefor:='Resourses\Video\Bad Boys.wmv';

End;

procedure TForm4.SpeedButton8Click(Sender: TObject);

Begin

Form2.show;

Form4.Close;

End;

Полный код вы можете увидеть в презентации

Модель программы

Дата добавления: 2015-10-29