01.08.2013 Views

Ψηφιακό Τεκμήριο - E-Thesis

Ψηφιακό Τεκμήριο - E-Thesis

Ψηφιακό Τεκμήριο - E-Thesis

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

ΠΑΡΑΡΤΗΜΑ Α 157<br />

case{'Y','y'}<br />

x=input('Θες να ηχογραφήσεις το πρώτο παράδειγμα για το<br />

μουσικό όργανο No 4; Y(για ΝΑΙ)/N(για ΟΧΙ)','s')<br />

while x13<br />

switch x<br />

case {'Y','y'}<br />

while running<br />

y=input('Έτοιμος/η για ηχογράφηση; Y/N','s')<br />

switch y<br />

case {'Y','y'}<br />

disp('Ηχογράφηση')<br />

y1=wavrecord(handles.diarkeiarec1*fs,fs);<br />

wavwrite(y1,'M041.wav');<br />

disp('Αποθηκεύτηκε ως MO41.wav')<br />

x123456=wavread('Hxosgiaprogramma.wav');<br />

sound(0.5*x123456);<br />

running=0;<br />

epdcode(y1);<br />

x='N'<br />

z1=1;<br />

while z1<br />

y=input('Θες να ξανακάνεις την ηχογράφηση;<br />

Y(για ΝΑΙ) or N(για ΟΧΙ)','s')<br />

switch y<br />

case {'Y','y'}<br />

disp('Ηχογράφηση')<br />

y1=wavrecord(handles.diarkeiarec1*fs,fs);<br />

wavwrite(y1,'MO41.wav');<br />

disp('Αποθηκεύτηκε ως MO41.wav')<br />

x123456=wavread('Hxosgiaprogramma.wav');<br />

sound(0.5*x123456);<br />

running=0;<br />

epdcode(y1);<br />

case {'N','n'}<br />

z1=0;<br />

end<br />

end<br />

case {'N','n'}<br />

running=1;<br />

otherwise<br />

disp('Λάθος κουμπί, πάτα Y για ΝΑΙ ή N<br />

για ΟΧΙ')<br />

end<br />

end<br />

case {'N','n'}<br />

x13=0;<br />

running=1;<br />

x=input('Θες να συνεχίσεις τις ηχογραφήσεις; Y(για<br />

ΝΑΙ)/N(για ΟΧΙ)','s')<br />

switch x<br />

case {'N','n'}<br />

case{'Y','y'}<br />

x=input('Θες να ηχογραφήσεις το δεύτερο παράδειγμα για το<br />

μουσικό όργανο No 4; Y(για ΝΑΙ)/N(για ΟΧΙ)','s')<br />

while x14

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!