50383 (Экспертная система. Анализ передачи телеметрических данных со спутника), страница 2
Описание файла
Документ из архива "Экспертная система. Анализ передачи телеметрических данных со спутника", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "50383"
Текст 2 страницы из документа "50383"
SaveBD:-
makewindow(10,90,91,"Сохранение БД",5,10,10,60,1,2," "),
write("\n\n Введите имя файла:"),
readln(Filename),
save(FileName,FaultBD),
removewindow(31,1).
/*Загрузка БД*/
LoadBDFile:-
makewindow(10,90,91,"",5,10,10,60,1,2," "),
dir("","*.*",FileName),
LoadBD(FileName),
fail.
LoadBDFile:-
removewindow(30,1).
/*Создание меню справки*/
EditBD:-
menu(5,24,90,95,["Добавление сигнала","Типы сигнала","Просмотр сигналов","Просмотр типа сигнала","Удаление сигнала","Удаление типа сигнала","Назад"],"Редактирование базы данных",0,Ch),
EditSelect(Ch).
/*Выбор пункта меню*/
EditSelect(Ch):-
Ch=0;
Ch=7;
Ch=1,AddFault;
Ch=3,ShowFaults;
Ch=5,DeleteFault;
Ch=2,AddRepair;
Ch=4,ShowRepairs;
Ch=6,DeleteRepair.
/*Добавление сигнала*/
AddFault:-
makewindow(40,90,95,"Добавление сигнала",4,5,14,70,1,2," "),
write("сигналы в БД хранятся в виде:\n signalip(Номер_сигнала, Номер_описания, Название)"),nl,
write("Номер сигнала - номер предсигнала\n"),
write("Номер_типа сигнала - номер записи типа сигнала \n"),
write("Название - краткое описание сигнала\n "),
attribute(OldAttr),attribute(95),
write("Новый сигнал\n"),
write("Номер_сигнала:"),readint(NewID),
write("Номер_типа сигнала:"),readint(NewRep),
write("Название:"),readln(NewTitle),
attribute(OldAttr),
assertz(signalip(NewID,NewRep,NewTitle),FaultBD),
write("Запись добавлена- "),readchar(_),
removewindow(40,1).
AddFault:-
removewindow(40,1).
/*Вызов просмотра сигналов*/
ShowFaults:-
makewindow(40,90,95,"Просмотр сигналов:",1,0,24,80,1,2," "),
ShowFault(0,0),!,
removewindow(40,1).
/*Просмотр сигналов*/
ShowFault(_,_):-
signalip(NewID,RepID,Title),
write(" ",NewID,"\t|",RepID,"\t|",Title),nl,
fail.
ShowFault(_,_):-
attribute(OldAttr),attribute(95),
write("Просмотр закончен. Нажмите любую клавишу"),readchar(_),
attribute(OldAttr).
/*Удаление сигнала*/
DeleteFault:-
makewindow(40,90,95,"Удаление сигнала:",4,5,14,70,1,2," "),
write("Введите номер удаляемого сигнала :"),readint(DelID),
signalip(DelID,_,_),!,
retractall(signalip(DelID,_,_),FaultBD),!,
attribute(OldAttr),attribute(95),
write("Запись удалена "),readchar(_),
attribute(OldAttr),
removewindow(40,1).
/*Добавление типа сигнала*/
AddRepair:-
makewindow(40,90,95,"Добавление типаа сигнала",4,5,14,70,1,2,""),
write("Типа сигнала в БД хранятся в виде:\n decodip(Номер_типа сигнала, Название, Метод_расшифровки)"),nl,
write("Номер_типа сигнала - Номер записи типа сигнала\n"),
write("Название - краткое описание данных расшифровки\n"),
write("Метод_расшифровки - метод расшифровки данных\n"),
attribute(OldAttr),attribute(95),
write("Новое описание\n"),
write("Номер_типа сигнала:"),readint(NewID),
write("Название:"),readln(NewDescr),
write("Метод_расшифровки:"),readln(NewAdvice),
attribute(OldAttr),
assertz(decodip(NewID,NewDescr,NewAdvice),FaultBD),
write("Запись добавлена "),readchar(_),
removewindow(40,1).
AddRepair:-
removewindow(40,1).
/*Просмотр описаний*/
Showrepairs:-
makewindow(40,90,95,"Просмотр описаний:",1,0,24,80,1,2," "),
ShowRepair(0,0),!,
removewindow(40,1).
ShowRepair(_,_):-
decodip(NewID,Descr,Advice),
write(" ",NewID,"\t|",Descr,"\t|",Advice),nl,fail.
ShowRepair(_,_):-
attribute(OldAttr),attribute(30),
write("Нажмите любую клавишу"),readchar(_),
attribute(OldAttr).
/*Удаление типа сигнала*/
DeleteRepair:-
makewindow(40,90,95,"Удаление типа сигнала",4,5,14,70,1,2," "),
write("Введите номер удаляемого типа сигнала:"),readint(DelID),
decodip(DelID,_,_),!,
retractall(decodip(DelID,_,_),FaultBD),!,
attribute(OldAttr),attribute(30),
write("Запись удалена"),readchar(_),
attribute(OldAttr),
removewindow(40,1).
/*Создание окна ошибок*/
ErrorExitProg(Msg):-
ExitProg.
/*Выход из программы*/
ExitProg:-
UnLoadBD,
exit(0).
/*Главная функция Main*/
Main:-
Zastavka,
CreateTitle,
LoadBD("valekbd.dat"),
Start,
ExitProg.
Результат работы программы:
-
Загрузка БД:
Добавление:
Анализ:
Сохранение БД:
Размещено на Allbest.ru