Swi-Prolog借助XPCE可视化

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

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

第三步：编写人工智能代码，首先导入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进行编译，一般来说不出任何提示就是没问题。

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