Cómo crear un Diálogo en una Ventana en SWI-Prolog Utilizando el Lenguaje de Programación Prolog

Cómo crear un Diálogo en una Ventana en SWI-Prolog Utilizando el Lenguaje de Programación Prolog.

Procedemos a abrir lo que es el programa SWI-Prolog.

Una vez abierto creamos un nuevo achivo, en menú superior, File, New....

Se nos abrirá la siguiente ventana. Donde escogeremos la ubicación a guardar y el nombre, seguido de la extensión .pl .

Se nos abrirá la siguiente ventana donde vamos a proceder a poner nuestro código.

Una vez que tengamos nuestro código escrito, vamos a proceder a guardarlo.

Menú seperior, Save buffer....

Compilamos dos veces hasta que nos salga el texto verde en la ventana de consulta.

Compiler menú superior y escogemos la opción Compile Buffer....

Una vez que el texto verde se muestre, procedemos a hacer la consulta.

Y así tenemos nuestra ventana con el mensaje Hola Mundo.

Código del Programa.

%Llamamos a nuestra librería para interfaces gráficas y objetos.

:- use_module(library(pce)).

%Creamos nuestra clausula Ventana

ventana:-

    %Usamos new para crear un nuevo Objeto

    %Entre parentesis le asignamos el nombre seguido de una coma,

    %Depués el tipo de objeto y seguido de parentesis

    %Y entre comillas simples el nombre de la ventana

    %Finalizamos cerrando las comillas y parentesis al final

    %de la instruccion se coloca una coma

    %Utilizaremos el atributo size para darle una tamaño en px

    new(Ventana, dialog('Ventana Hola Mundo',size(500,300))),

    %Ahora crearemos el texto de la ventana

    %Usamos new para crear un nuevo objeto

    %Entre parentesis el nombre del objeto

    %luego una coma y seguido del tipo de objeto

    %entre parentesis el nombre de la etiqueta,

    %separada por una coma

    %El texto que se quiere mostrar, también se puede utilizar

    %para moestrar una imagen

    new(Texto, label(lb_hola,'Hola mundo')),

    %Ahora vamos a insertar el objeto dentro de la ventana

    %usamos la instrunccion send

    %Entre parentesis el nombre del objeto donde queremos insertar

    % el segundo objeto

    %depués usamos append y dentro de parentesois el nombre

    %del objeto a insertar

    send(Ventana,append(Texto)),

    %Por ultimo vamos a abri nuestro objeto.

    send(Ventana,open).

Link de descarga del proyecto.

Descargar Proyecto