Both sides previous revision
Poprzednia wersja
Nowa wersja
|
Poprzednia wersja
|
pl:miw:miw08_ruleruntimeg:car [2008/03/27 16:00] miw |
pl:miw:miw08_ruleruntimeg:car [2019/06/27 15:50] (aktualna) |
% Copyright 1997 Prentice-Hall, Inc. | % Copyright 1997 Prentice-Hall, Inc. |
% For educational use only | % For educational use only |
| |
% File CAR.PL | |
% Simple automotive expert system | |
| |
% Menu that obtains 'yes' or 'no' answer | % Menu that obtains 'yes' or 'no' answer |
| |
jpl_call('javax.swing.JOptionPane','showConfirmDialog',[(@null),T,'Question',0],X), | jpl_call('javax.swing.JOptionPane','showConfirmDialog',[(@null),T,'Question',0],X), |
change(X,Result). | change(X,Result). |
| |
info(X):- | info(X):- |
jpl_call('javax.swing.JOptionPane','showMessageDialog',[(@null),X],F). | jpl_call('javax.swing.JOptionPane','showMessageDialog',[(@null),X],F). |
% Copyright 1997 Prentice-Hall, Inc. | % Copyright 1997 Prentice-Hall, Inc. |
% For educational use only | % For educational use only |
| |
% File CAR.PL | |
% Simple automotive expert system | |
| |
% | % |
% Main control procedures | % Main control procedures |
% (information supplied by the user during the consultation) | % (information supplied by the user during the consultation) |
% | % |
| % (Clauses get added as user answers questions.) |
| |
| |
% (Clauses get added as user answers questions.) | |
| |
% | % |
% Procedure to get rid of the stored answers | % Procedure to get rid of the stored answers |