Swi-Prolog借助XPCE可视化

第一步:首先需要在Windows下安装Swi-Prolog.

第二步:点击File->new创建一个.pl文件,我随便起了个名叫aa.pl,如下图所示:

Swi-Prolog借助XPCE可视化_第1张图片

Swi-Prolog借助XPCE可视化_第2张图片

第三步:编写人工智能代码,首先导入XPCE的库文件,然后就可以创建对话框了。

:-use_module(library(pce)).

t1:-new(D,dialog('Demo Fenster')),send(D,open).

t2:-new(D,dialog('Demo Window')),
    send(D,append,button(hallo)),
    send(D,open).

t3:-new(D,dialog('Demo Window')),
    send(D,append,button(hallo,
                         message(@prolog,wenn_gedrueckt,D))),
    send(D,open).
wenn_gedrueckt(D):-send(D,destroy).

t4:-new(D,dialog('Demo Window')),
    send(D,append,text_item(hallo,'dummy')),
    send(D,open).

t5:-new(D,dialog('Demo Window')),
    new(T,text_item(hallo)),
    send(D,append,T),
    send(T,value,'muss nicht sein'),
    send(D,open).

t6:-new(D,dialog('Demo Window')),
    new(T,text_item(hallo)),
    send(D,append,T),
    send(T,value,'dummy'),
    send(D,open),
    get(T,value,Text),
    writeln(Text).

leihengxin:-new(D,dialog('Demo Window')),
    new(T,text_item(eingabe)),
    send(D,append,T),
    send(D,append,button(ok,
                         message(@prolog,lei,T))),
    send(D,append,button(haha,
                         message(@prolog,ende,D))),
    send(D,open).
lei(T):-get(T,value,Text),writeln(Text).
ende(D):-send(D,destroy).

第4步:点击compile->Make进行编译,一般来说不出任何提示就是没问题。

Swi-Prolog借助XPCE可视化_第3张图片

第5步:输入“t3.”或者t4.或者t5.就会出现对话框啦,别忘了“点”哦,如下图所示:

Swi-Prolog借助XPCE可视化_第4张图片

你可能感兴趣的:(人工智能语言Prolog)