prova4

esempio attivazione file con menù (solo descrizione in questi esempi,perchè manca contenuto da elaborare)

/* prova8.pro */
/* attiva INCLUDE MENU.PRO */

nowarnings
include "menu.pro"

domains

predicates
finestra
azione
endd(integer)
elabora(integer)
fine

goal finestra,azione,fine.
clauses
 

 finestra:-
 makewindow(1,7,1,"",1,1,20,70).
 

 azione:-
 menu(3,20,["..1.scelta1.............",
             ".2.scelta2.............",
             ".3.scelta3.............",
             ".4.scelta4.............",
             ".5.scelta5........... .",
             ".6.scelta6.............",
             ".7.scelta7........ ....",
             ".8.scelta8.............",
             ".9.scelta9..fine......"],
             SCELTA),
             elabora(SCELTA),
             endd(SCELTA),!.
 elabora(0).
 elabora(1):-write("scelta1").
 elabora(2):-write("scelta2").            
 elabora(3):-write("scelta3").
 elabora(4):-write("scelta4 ").
 elabora(5):-write("scelta5").
 elabora(6):-write("scelta6").
 elabora(7):-write("scelta7").
 elabora(8):-write("scelta8 ").
 elabora(9):-write("scelta9").
 endd(9).
 endd(0). 
 fine:-
 write("......fine prova").
  

esempio attivazione file con menù (se attivo altoparlante,suona nota)

/* prova9.pro */
/* attiva INCLUDE MENU.PRO */
/* attivazione menu e scelta opzioni */

nowarnings
include "menu.pro"

domains

predicates
finestra
azione
endd(integer)
elabora(integer)
scelta1
scelta2
scelta3
scelta4
scelta5
scelta6
scelta7
scelta8
scelta9
fine

goal finestra,azione,fine.
clauses
 

 finestra:-
 makewindow(1,7,1,"",1,1,20,70).
 

 azione:-
 menu(3,20,["..1.scelta1.............",
             ".2.scelta2.............",
             ".3.scelta3.............",
             ".4.scelta4.............",
             ".5.scelta5........... .",
             ".6.scelta6.............",
             ".7.scelta7........ ....",
             ".8.scelta8.............",
             ".9.scelta9..fine......"],
             SCELTA),
             elabora(SCELTA),
             endd(SCELTA),!.
 elabora(0).
 elabora(1):-scelta1.
 elabora(2):-scelta2.            
 elabora(3):-scelta3.
 elabora(4):-scelta4.
 elabora(5):-scelta5.
 elabora(6):-scelta6.
 elabora(7):-scelta7.
 elabora(8):-scelta8.
 elabora(9):-scelta9.
 endd(9).
 endd(0).
 scelta1:-write("scelta1"),sound(100,600).
 scelta2:-write("scelta2 attivata"),
          sound(100,800).
 scelta3:-write("scelta 3"),sound(100,700).
 scelta4:-write("scelta4"),sound(50,660).
 scelta5:-write("scelta5"),sound(30,600).
 scelta6:-write("scelta6"),sound(100,500).
 scelta7:-write("scelta7"),sound(20,600).
 scelta8:-write("chiamata 8"),sound(100,600).
 scelta9:-write("fine chiamate"),sound(100,600).           
 fine:-
 write("......fine prova").