prolo4

vedi anche xquadri1 xquadri2

GESTIONE FINESTRE

makewindow(finestra,schermo,cornice,titolo,riga,col,alta,larga)
makewindow(1,7,1,'titolo',1,1,20,70)
assegna numero per individuare la finestra,numero per colore schermo,
numero per colore cornice,stringa per titolo ,riga e colonna angolo in
alto a sinistra,altezza finestra(<=20),larghezza finestra(<=70).

shiftwindow(numero finestra)
shiftwindow(1)
assegna numero finestra alla quale trasferire operazione

removewindow()
cancella ed elimina la finestra corrente

clearwindow()
cancella contenuto della finestra corrente

window_str(stringa)
window_str('stringa a inizio finestra')
stampa stringa in finestra corrente,cancellando contenuto

window_attr(attributo)
window_attr(4)
assegna colore a testo in finestra corrente

/* video1.pro */
/* attivazione finestre varie */

domains
predicates
 azione
 goal
 azione.
clauses
 azione:-
 makewindow(1,7,1,"finestra1",1,1,10,30),
 makewindow(2,6,2,"finestra2",1,32,10,30),
 makewindow(3,5,3,"finestra3",12,1,10,60),
 shiftwindow(1),
 write("attivata finestra1"),sound(100,400),
 sound(100,500),
 shiftwindow(2),
 write("attivata finestra2"),sound(100,600),
 shiftwindow(3),
 write("attivata finestra3"),sound(200,700),
 shiftwindow(1),
 window_attr(3),
 window_str("stringa titolo"),sound(100,800),
 clearwindow(),sound(100,500),
 removewindow(),sound(100,600),
 shiftwindow(2),sound(100,600),
 removewindow(),sound(100,700),
 shiftwindow(3),sound(100,500),
 write("\n\nfine prova finestre").
 

/* video2.pro */
/* attivazione finestre varie */
/* scambio dati tra finestre  */

domains
predicates
 azione
 

 goal
 azione.
clauses
 azione:-
 makewindow(1,7,1,"finestra1",1,1,10,30),
 makewindow(2,6,2,"finestra2",1,32,10,30),
 makewindow(3,5,3,"finestra3",12,1,10,60),
 shiftwindow(1),
 write("attivata finestra1"),sound(100,400),nl,
 write("scrivi un numero intero "),
 readint(N),
 Prodotto=N*10,
 write("prodotto =",Prodotto),
 shiftwindow(2),
 write("attivata finestra2"),sound(100,600),nl,
 write("stampa numero inserito\n"),
 write("nella finestra1 "),nl,
 write("numero=",N),nl,
 write("stampa prodotto ",Prodotto),
 shiftwindow(3),
 write("attivata finestra3"),sound(200,700),
 shiftwindow(1),
 window_attr(3),
 window_str("stringa titolo"),sound(100,800),
 clearwindow(),sound(100,500),
 removewindow(),sound(100,600),
 shiftwindow(2),sound(100,600),
 removewindow(),sound(100,700),
 shiftwindow(3),sound(100,500),
 graphics(1,7,1),
 attribute(3),
 pendown,pencolor(2),penpos(1000,1000,90),
 forward(20000),sound(100,600),
 clearwindow(),
 line(10000,1000,30000,10000,2),
 sound(200,600),
 write("\n\nfine prova finestre").