prolo17

attivazione acustica

/* suona.pro */
/* attivazione sonora */
/* sound(durata,frequenza) */

domains
 numero = integer
 

predicates
 Durata(numero)
 Frequenza(numero)
 suona(numero,numero)
 

clauses
 durata(0).
 frequenza(0).
 suona(Durata,Frequenza):-sound(Durata,Frequenza).

/* suona1.pro */
/* effetti sonori con sound */
/* fornire Durata e Frequenza per due note */

domains
 D1,F1,D2,F2 =integer

predicates
 suona(D1,F1,D2,F2)    /* GOAL suona(40,500,50,600)*/
clauses
suona(D1,F1,D2,F2):-
sound(D1,F1),
sound(D2,F2). 

/* suona2.pro */
/* effetti sonori con sound e BEEP */
/* fornire Durata e Frequenza per due note */
/* scrive testo */
/* cancella finestra CLEARWINDOW */
/* sposta cursore CURSOR(riga,colonna) */
/* GOAL nota.....GOAL nota,nota,nota */
/* GOAL scrivi...GOAL nota,scrivi */
/* GOAL nota,scrivi,mostra */

predicates
 nota
 scrivi
 mostra
clauses
nota:-clearwindow,beep,beep,beep,
      sound(40,400),sound(60,500),sound(60,600),
      sound(70,700),sound(50,800),sound(100,500).
scrivi:- write("fine prova con note.."),
      cursor(2,2),beep,beep,beep,beep.
mostra:-display("attiva DISPLAY..premi ESC"),
      cursor(5,2),
      display("stampa stringa...premi ESC").            
           

/* suona3.pro */
/* effetti sonori con sound e BEEP */
/* fornire Durata e Frequenza per due note */
/* scrive testo */
/* cambia colore con ATTRIBUTE  */ 
/* cancella finestra CLEARWINDOW */
/* sposta cursore CURSOR(riga,colonna) */
/* GOAL nota.....GOAL nota,nota,nota */
/* GOAL scrivi...GOAL nota,scrivi */
/* GOAL nota,scrivi,mostra */

predicates
 nota
 scrivi
 mostra
clauses
nota:-clearwindow,attribute(3),beep,beep,beep,
      write("esecuzione note assegnate"),
      sound(40,400),sound(60,500),sound(60,600),
      sound(70,700),sound(50,800),sound(100,500).
scrivi:-attribute(4), cursor(5,2),
      write("fine prova con note.."),
      beep,beep,beep,beep.
mostra:-attribute(5),cursor(7,2),
      display("attiva DISPLAY..premi ESC"),
      cursor(5,2),
      display("stampa stringa...premi ESC").