{"id":307,"date":"2014-12-30T16:49:21","date_gmt":"2014-12-30T15:49:21","guid":{"rendered":"http:\/\/www.valcon.it\/pascal\/?p=307"},"modified":"2016-10-27T23:40:19","modified_gmt":"2016-10-27T21:40:19","slug":"fare-4-note","status":"publish","type":"post","link":"https:\/\/www.valcon.it\/pascal\/fare-4-note\/","title":{"rendered":"Fare 4 note"},"content":{"rendered":"<p>Prova a <em>suonare<\/em> qualche <em>motivetto<\/em> con il Pascal&#8230;<\/p>\n<ol type=\"1\">\n<li>l&#8217;utente pu\u00f2 scegliere il <tt>tempo<\/tt> per il brano<\/li>\n<li>il valore di <tt>tempo<\/tt> viene utilizzato per inizializzare il vettore <tt>RITARDI<\/tt> con<br \/>\n<tt>tempo<\/tt>, 2*<tt>tempo<\/tt>, 4*<tt>tempo<\/tt>, 8*<tt>tempo<\/tt>, &#8230;<\/li>\n<li>per ottenere lo staccato le note vengono accorciate e seguite da una <em>brevissima<\/em> pausa<br \/>\nFUSA= 1\/128<\/li>\n<\/ol>\n<pre class=\"\">Uses\r\n  \u00a0Crt;\r\nConst\r\n\u00a0 \u00a0PAUSA=0;\r\n\u00a0 \u00a0DO4=131; MI4=247; SOL4=196;\r\n\u00a0 \u00a0DO5=262; DOd5=277; REb5=277; RE5=294; REd5=311; MIb5=311; MI5=330; FA5=349; FAd5=370;\r\n\u00a0 \u00a0 \u00a0 \u00a0 SOLb5=370; SOL5=392; SOLd5=415; LAb5=415; LA5=440; LAd5=466; SIb5=466; SI5=494;\r\n\u00a0 \u00a0DO6=523; DOd6=554; RE6=587; REd6=622; MI6=659; FA6=698;\r\n\u00a0 \u00a0DO7=1046; MI7=1319; SOL7=1568; SI7=1976;\r\n\u00a0 \u00a0FUSA=1;\r\n\u00a0 \u00a0 \u00a0 \u00a0 SEMIBISCROMA=2; BISCROMA=3; SEMICROMA=4; CROMA=5;\r\n\u00a0 \u00a0 \u00a0 \u00a0 SEMIMINIMA=6; MINIMA=7; SEMIBREVE=8; BREVE=9;\r\n\u00a0 \u00a0 \u00a0 \u00a0 LUNGA=10; MASSIMA=11;\r\nVar\r\n\u00a0 \u00a0RITARDI: Array[1..11] of LongInt;\r\n\u00a0 \u00a0scelta ,\r\n\u00a0 \u00a0tempo \u00a0: integer;\r\n\r\nprocedure cambiaTempo;\r\nVar\r\n\u00a0 \u00a0i: integer;\r\nbegin\r\n\u00a0\u00a0 RITARDI[1]:=tempo;\r\n\u00a0\u00a0 For i:=2 to 11 do\r\n\u00a0 \u00a0 \u00a0 RITARDI[i]:=2*RITARDI[i-1];\r\nend;\r\n\r\nprocedure nota(frequenza, durata: integer);\r\nbegin\r\n\u00a0\u00a0 if(frequenza <> PAUSA) then\r\n\u00a0 \u00a0 \u00a0 Sound(frequenza);\r\n\u00a0\u00a0 Delay(RITARDI[durata]-RITARDI[1]);\r\n\u00a0\u00a0 NoSound;\r\n\r\n\u00a0\u00a0 Delay(RITARDI[1]); \u00a0 \u00a0{ per lo staccato }\r\nend;\r\n\r\nprocedure fraMartino;\r\nbegin\r\n\u00a0 \u00a0nota(DO5, SEMIMINIMA); nota(RE5, SEMIMINIMA); nota(MI5, SEMIMINIMA); nota(DO5, SEMIMINIMA);\r\n\u00a0 \u00a0nota(DO5, SEMIMINIMA); nota(RE5, SEMIMINIMA); nota(MI5, SEMIMINIMA); nota(DO5, SEMIMINIMA);\r\n\r\n\u00a0 \u00a0nota(MI5, SEMIMINIMA); nota(FA5, SEMIMINIMA); nota(SOL5, MINIMA);\r\n\u00a0 \u00a0nota(MI5, SEMIMINIMA); nota(FA5, SEMIMINIMA); nota(SOL5, MINIMA);\r\n\r\n\u00a0 \u00a0nota(SOL5, CROMA); nota(LA5, CROMA); nota(SOL5, CROMA); nota(FA5, CROMA);\r\n\u00a0 \u00a0 \u00a0 \u00a0 nota(MI5, SEMIMINIMA); nota(DO5, SEMIMINIMA);\r\n\u00a0 \u00a0nota(SOL5, CROMA); nota(LA5, CROMA); nota(SOL5, CROMA); nota(FA5, CROMA);\r\n\u00a0 \u00a0 \u00a0 \u00a0 nota(MI5, SEMIMINIMA); nota(DO5, SEMIMINIMA);\r\n\r\n\u00a0 \u00a0nota(DO5, SEMIMINIMA); nota(SOL4, SEMIMINIMA); nota(DO5, MINIMA);\r\n\u00a0 \u00a0nota(DO5, SEMIMINIMA); nota(SOL4, SEMIMINIMA); nota(DO5, MINIMA);\r\nend;\r\n\r\nprocedure jingleBells;\r\nbegin\r\n\u00a0 \u00a0nota(si5, semiminima); nota(si5, semiminima); nota(si5, minima);\r\n\u00a0 \u00a0nota(si5, semiminima); nota(si5, semiminima); nota(si5, minima);\r\n\r\n\u00a0 \u00a0nota(si5, semiminima); nota(re6, semiminima); nota(sol5, semiminima); nota(la5, semiminima);\r\n\u00a0 \u00a0nota(si5, semibreve);\r\n\r\n\u00a0 \u00a0nota(do6, semiminima); nota(do6, semiminima); nota(do6, minima);\r\n\u00a0 \u00a0nota(do6, semiminima); nota(si5, semiminima); nota(si5, minima);\r\n\r\n\u00a0 \u00a0nota(si5, semiminima); nota(la5, semiminima); nota(la5, semiminima); nota(si5, semiminima);\r\n\u00a0 \u00a0nota(la5, minima); \u00a0 \u00a0 nota(re6, minima);\r\n\r\n\r\n\u00a0 \u00a0nota(si5, semiminima); nota(si5, semiminima); nota(si5, minima);\r\n\u00a0 \u00a0nota(si5, semiminima); nota(si5, semiminima); nota(si5, minima);\r\n\r\n\u00a0 \u00a0nota(si5, semiminima); nota(re6, semiminima); nota(sol5, semiminima); nota(la5, semiminima);\r\n\u00a0 \u00a0nota(si5, semibreve);\r\n\r\n\u00a0 \u00a0nota(do6, semiminima); nota(do6, semiminima); nota(do6, minima);\r\n\u00a0 \u00a0nota(do6, semiminima); nota(si5, semiminima); nota(si5, minima);\r\n\r\n\u00a0 \u00a0nota(re6, \u00a0semiminima); nota(re6, semiminima); nota(do6, semiminima); nota(la5, semiminima);\r\n\u00a0 \u00a0nota(sol5, minima);\r\nend;\r\n\r\nbegin\r\n\u00a0  tempo:=10;\r\n\u00a0  cambiaTempo;\r\n\u00a0  repeat\r\n\u00a0 \u00a0 \u00a0 clrscr;\r\n\u00a0 \u00a0 \u00a0 writeln(' --- 4 note con il TurboPascal 6.0 ---');\r\n\u00a0 \u00a0 \u00a0 writeln;\r\n\u00a0 \u00a0 \u00a0 writeln(' 0. Uscita');\r\n\u00a0 \u00a0 \u00a0 writeln(' 1. Cambia tempo (', tempo,')');\r\n\u00a0 \u00a0 \u00a0 writeln(' 2. Fra Martino');\r\n\u00a0 \u00a0 \u00a0 writeln(' 3. Jingle Bells');\r\n\u00a0 \u00a0 \u00a0 writeln;\r\n\u00a0 \u00a0 \u00a0 write('--> ');\r\n\u00a0 \u00a0 \u00a0 readln(scelta);\r\n\u00a0 \u00a0 \u00a0 case(scelta) of\r\n\u00a0  \u00a0 \u00a0 \u00a0 0: ;\r\n\u00a0 \u00a0\u00a0 \u00a0 \u00a0 1: begin\r\n\u00a0 \u00a0\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Write('Tempo (',tempo,') = ');\r\n\u00a0 \u00a0\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 ReadLn(tempo);\r\n\u00a0 \u00a0\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 cambiaTempo;\r\n\u00a0 \u00a0\u00a0 \u00a0 \u00a0 \u00a0 \u00a0end;\r\n\u00a0 \u00a0 \u00a0  \u00a0 2: fraMartino;\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a03: jingleBells;\r\n\u00a0 \u00a0 \u00a0 end;\r\n\u00a0 \u00a0until(scelta=0);\r\nend.<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Prova a suonare qualche motivetto con il Pascal&#8230; l&#8217;utente pu\u00f2 scegliere il tempo per il brano il valore di tempo viene utilizzato per inizializzare il vettore RITARDI con tempo, 2*tempo, 4*tempo, 8*tempo, &#8230; per ottenere lo staccato le note vengono accorciate e seguite da una brevissima pausa FUSA= 1\/128 Uses \u00a0Crt; Const \u00a0 \u00a0PAUSA=0; \u00a0 &#8230; <a title=\"Fare 4 note\" class=\"read-more\" href=\"https:\/\/www.valcon.it\/pascal\/fare-4-note\/\" aria-label=\"Leggi di pi\u00f9 su Fare 4 note\">Leggi tutto<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[],"_links":{"self":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/307"}],"collection":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/comments?post=307"}],"version-history":[{"count":2,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/307\/revisions"}],"predecessor-version":[{"id":5772,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/posts\/307\/revisions\/5772"}],"wp:attachment":[{"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/media?parent=307"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/categories?post=307"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.valcon.it\/pascal\/wp-json\/wp\/v2\/tags?post=307"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}