4 Системные требования
Разработанная программа тестировалась на машинах с установленными операционными системами win XP, win server 2003 и win7. Минимальная системная конфигурация машины была:
Процессор Celeron 1.8Ггц
Оперативная память DDR2 512Мб
Встроенная видеокарта Intel X3100
5 Структура программы
Все необходимые функции программы представлены в виде процедур.
1 procedure AddRecord – добавление записи в список
2 procedure Print – отрисовка содержимого списка
3 procedure search – поиск записи
4 procedure FreeStek – освобождение записи
5 procedure OpenFile – открытие файла
6 procedure SaveRecords – сохрание в файл
7 procedure SortByGroup, procedure SortByAlbum, procedure SortByYear, procedure SortBySong – сортировка по группе, альбому, году и песне соответственно
8 Procedure DelElem, Procedure Delrecord – удаление записи из списка.
Структурная схема Изображена на рисунке
Процедура добавления записи
procedure AddRecord(var nach,ends:List;grAdd,alAdd,sonAdd:string; yeAdd:integer);
begin
if nach=nil then
begin
Getmem(nach,SizeOf(TSList));
nach^.next:=nil;
nach^.prev:=nil;
ends:=nach;
end
else
begin
GetMem(ends^.next,SizeOf(TSlist));
ends^.next^.prev:=ends;
ends:=ends^.next;
ends^.next:=nil;
end;
ends^.next:=nil;
ends^.group:=grAdd;
ends^.year:=yeAdd;
ends^.album:=alAdd;
ends^.song:=sonAdd;
kzap:=kzap+1;
end;
Структурная схема
Процедура отрисовки списка
procedure Print(spis1:List;print0:integer);
var sche:integer;
begin
clrscr;
sche:=1;
if spis1=nil then
begin
writeln('No Records');
exit;
end;
posy:=4;
while spis1<>nil do
begin
if (sche>=min) and (sche<=max) then begin
if sche=print0 then begin
textbackground(1);
textcolor(0);
gotoxy(1,posy);
Write('|| ',spis1^.group);
gotoxy(17,posy);
write('|| ', spis1^.album);
gotoxy(40,posy);
write('|| ',spis1^.year);
gotoxy(48,posy);
write('|| ',spis1^.song);
gotoxy(78,posy);
writeln('||');
posy:=posy+1;
spis1:=spis1^.next;
sche:=sche+1;
end
else begin
textbackground(0);
textcolor(15);
gotoxy(1,posy);
Write('|| ',spis1^.group);
gotoxy(17,posy);
write('|| ', spis1^.album);
gotoxy(40,posy);
write('|| ',spis1^.year);
gotoxy(48,posy);
write('|| ',spis1^.song);
gotoxy(78,posy);
writeln('||');
posy:=posy+1;
spis1:=spis1^.next;
sche:=sche+1;
end;
end
else begin
spis1:=spis1^.next;
sche:=sche+1;
end;
end;
end;
6 Тестирование программы.
Основные функции программы:
-открытие файла;
-сохранение в файл;
-добавление записи;
-удаление записи;
-поиск записи по полю;
-сортировка записей по полю.
Открытие файла
Открытии файла осуществляется нажатие клавиши «О» в основном меню программы. После того как файл был открыт на экране появляется надпись показывающая количество считанных записей из файла.
После этого программа переходит в режим просмотра записей
Добавление записи.
Чтобы добавить записи необходимо нажать клавишу «Р». После этого появится меню добавления записи
Чтобы завершить добавление записей необходимо нажить «1» для продолжения нажать любую другую клавишу, после чего программа перейдет в основное меню. Добавленные записи будут отображаться в конце списка
Чтобы удалить запись необходимо в основном меню программы нажать кнопку «D»
Для сохранения изменений в файле необходимо нажать «T»
Поиск записи
Поиск записи осуществляется нажатием клавиши «F», после чего появится меню с выбором позиции поиска
После выбора необходимой позиции появится запрос для введения искомого сочетания. Программа ищет только полное совпадение.
Сортировка
Сортировка осуществляется по соответствующим колонкам: группа, альбом, год, песня. Для сортировки необходимо нажать «G» «A» «Y» «S» соответственно «Группа» «Альбом» «Год» «Песня».
