Manipulate[
 If [r == 1, S = Play[Cos[2 Pi*6.875*2^((63)/12)*x], {x, 0, 5}]];
 If [r == 2, S = Play[Cos[2 Pi*6.875*2^((64)/12)*x], {x, 0, 5}]];
 If [r == 3, S = Play[Cos[2 Pi*6.875*2^((65)/12)*x], {x, 0, 5}]];
 If [r == 4, S = Play[Cos[2 Pi*6.875*2^((66)/12)*x], {x, 0, 5}]];
 If [r == 5, S = Play[Cos[2 Pi*6.875*2^((67)/12)*x], {x, 0, 5}]];
 If [r == 6, S = Play[Cos[2 Pi*6.875*2^((68)/12)*x], {x, 0, 5}]];
 If [r == 7, S = Play[Cos[2 Pi*6.875*2^((69)/12)*x], {x, 0, 5}]];
 If [r == 8, S = Play[Cos[2 Pi*6.875*2^((70)/12)*x], {x, 0, 5}]];
 If [r == 9, S = Play[Cos[2 Pi*6.875*2^((71)/12)*x], {x, 0, 5}]];
 If [r == 10, S = Play[Cos[2 Pi*6.875*2^((72)/12)*x], {x, 0, 5}]];
 If [r == 11, S = Play[Cos[2 Pi*6.875*2^((73)/12)*x], {x, 0, 5}]];
 If [r == 12, S = Play[Cos[2 Pi*6.875*2^((74)/12)*x], {x, 0, 5}]];
 S, {{r, 1, 
   "Mathematica Tuner - Pick a Note to Tune (A=440):"}, {1 -> "C", 
   2 -> "C#//Db", 3 -> "D", 4 -> "D#//Eb", 5 -> "E", 6 -> "F", 
   7 -> "F#//Gb", 8 -> "G", 9 -> "G#//Ab", 10 -> "A", 11 -> "A#//Bb", 
   12 -> "B"}}]