mac13

/* chiede5  */
/* diversi modi per chiedere dati o interazione */

ese:-
prompt_read(['legenda....scrivi numero'],Variabile1),nl,
write(Variabile1),nl,
message('messaggio per proseguire'),nl,
prompt_gread(['legenda..scrivi intero '],Variabile4),nl,
write(Variabile4),nl,
message('messaggio per proseguire'),nl,
prompt_gread(['legenda..scrivi frase tra apici '],Variabile5),nl,
write(Variabile5),nl,
message('messaggio per proseguire'),nl,
ask(['legenda:scrivi intero  '],Variabile2),nl,
write(Variabile2),nl,
message('messaggio per proseguire'),nl,
ask(['legenda:scrivi frase  '],Variabile3),nl,
write(Variabile3),nl,
message('messaggio per proseguire'),nl,
yesno(['messaggio che attende SI/NO ']),nl,
message('messaggio per proseguire'),nl,
myesno(['messaggio che richiede SI/NO ']),nl,
message('messaggio per proseguire'),nl,
warning(['messaggio di avviso']),nl,
message('messaggio per proseguire'),nl,
errormessage(['spiega tipo di errore ']),nl,
message('messaggio per proseguire'),nl.

/* chiede6 */

ese:-
Formato=[button(40,10,20,60,'OK'),
                button(40,90,20,80,'Cancella'),
                text(10,10,20,200,'legenda:clic OK o Cancella ')],           
dialog(titolo_dialogo,60,20,100,200,Formato,Button).

ese1:-
Formato=[button(40,10,20,60,'OK'),
                button(80,10,20,80,'Cancella'),
                text(10,10,20,200,'legenda:clic OK o Cancella ')],           
dialog(titolo_dialogo,60,20,120,200,Formato,Button).

         
ese2:-
Formato=[button(90,10,20,60,'OK'),
                button(90,290,20,60,'Cancella'),
                text(10,10,32,350,wseq(['scrivi intero '])),
                edit(45,10,32,350,'',read(X))],           
dialog(titolo_dialogo,50,60,120,370,Formato,Button),
write(X),nl.

ese3:-
Formato=[button(90,10,20,60,'OK'),
                button(90,290,20,60,'Cancella'),
                text(10,10,32,350,wseq(['scrivi parola '])),
                edit(45,10,32,350,'',read(X))],           
dialog(titolo_dialogo,50,60,120,370,Formato,Button),
write(X),nl.

ese4:-
Formato=[button(90,10,20,60,'OK'),
                button(90,290,20,60,'Cancella'),
                text(10,10,32,350,wseq(['scrivi parola '])),
                edit(45,10,32,350,'termine=',read(X))],           
dialog(titolo_dialogo,50,60,120,370,Formato,Button),
write(X),nl.

/* chiede7 */

ese:-
Formato=[button(40,10,20,60,'OK'),
                button(40,90,20,80,'Cancella'),
                text(10,10,20,200,'legenda:clic OK o Cancella ')],           
mdialog(60,20,100,200,Formato,Button).

ese1:-
Formato=[button(40,10,20,60,'OK'),
                button(80,10,20,80,'Cancella'),
                text(10,10,20,200,'seleziona opzione '), 
                menu(10,155,66,140,[a,b,c,d,e],[c,d],Selezionati)],                         
mdialog(60,20,120,300,Formato,Button).

ese2:-
Formato=[button(40,10,20,60,'OK'),
                button(80,10,20,80,'Cancella'),
                text(10,10,20,200,'seleziona opzione '), 
                menu(10,155,66,140,[a,b,c,d,e],[],Selezionati)],                         
mdialog(60,20,120,300,Formato,Button).
         

ese3:-
Formato=[button(40,10,20,60,'OK'),
                button(80,10,20,80,'Cancella'),
                radio(70,10,20,130,'legendaX',off,X),
                radio(90,10,20,130,'legendaY',on,Y),
                check(70,150,20,70,'legenda A',off,A),
                check(90,150,20,70,'legenda B',on,B)],                                       
dialog(titolo_dialogo,60,20,120,300,Formato,Button).