Piano En Turbo C

Páginas: 5 (1238 palabras) Publicado: 17 de octubre de 2012
#include<stdio.h>
#include<conio.h>
#include<dos.h>
#include<stdlib.h>
#include<math.h>
#include<porta.cpp>

float frec(int r);
void main()
{
portada();
int f,f1=1,f2=2,f3=3,f4=4,f5=5,f6=6,f7=7,f8=8,f9=9,f10=10,f11=11,f12=12;
char x;
char pregunta [1];
do
{
clrscr();textcolor(14);
gotoxy(1,5);cprintf(" Do# Re# Fa# Sol# La# ");textcolor(15);
gotoxy(1,6);cprintf("ÉÍÍÍËÍËÍÍËÍËÍÍÍËÍÍÍËÍËÍÍËÍËÍÍËÍËÍÍÍ»");
gotoxy(1,7);cprintf("ºÛÛÛº ºÛÛº ºÛÛÛºÛÛÛº ºÛÛº ºÛÛº ºÛÛÛº");
gotoxy(1,8);cprintf("ºÛÛÛº ºÛÛº ºÛÛÛºÛÛÛº ºÛÛº ºÛÛº ºÛÛÛº");
gotoxy(1,9);cprintf("ºÛÛÛº ºÛÛº ºÛÛÛºÛÛÛº ºÛÛº ºÛÛº ºÛÛÛº");
gotoxy(1,10);cprintf("ºÛÛÛÈͼÛÛÈͼÛÛÛºÛÛÛÈͼÛÛÈͼÛÛÈͼÛÛÛº");
gotoxy(1,11);cprintf("ºÛÛÛÛºÛÛÛÛºÛÛÛÛºÛÛÛÛºÛÛÛÛºÛÛÛÛºÛÛÛÛº");gotoxy(1,12);cprintf("ºÛÛÛÛºÛÛÛÛºÛÛÛÛºÛÛÛÛºÛÛÛÛºÛÛÛÛºÛÛÛÛº");
gotoxy(1,13);cprintf("ºÛÛÛÛºÛÛÛÛºÛÛÛÛºÛÛÛÛºÛÛÛÛºÛÛÛÛºÛÛÛÛº");
gotoxy(1,14);cprintf("ÈÍÍÍÍÊÍÍÍÍÊÍÍÍÍÊÍÍÍÍÊÍÍÍÍÊÍÍÍÍÊÍÍÍͼ");
textcolor(14);
gotoxy(1,16);cprintf(" Do Re Mi Fa Sol La Si ");
textcolor(10);
gotoxy(40,4);cprintf(" TECLAS DE CONTROL ");
textcolor(4);
gotoxy(40,6);cprintf(" Do Re Mi Fa SolLa Si");
gotoxy(40,10);cprintf(" Do# Re# Fa# Sol# La#");
textcolor(3);
gotoxy(40,7);cprintf(" A S D F G H J");
gotoxy(40,11);cprintf(" Q W E R T");
textcolor(13);
gotoxy(56,24);cprintf("Presione \'X\' para salir");
textcolor(9);
gotoxy(1,18);cprintf("Aprieta una la tecla");x=getch();

switch(x)
{
case 'a':textcolor(7);gotoxy(2,7);cprintf("ÛÛÛ");//Do
gotoxy(2,8);cprintf("ÛÛÛ");
gotoxy(2,9);cprintf("ÛÛÛ");
gotoxy(2,10);cprintf("ÛÛÛ");
gotoxy(2,11);cprintf("ÛÛÛÛ");
gotoxy(2,12);cprintf("ÛÛÛÛ");
gotoxy(2,13);cprintf("ÛÛÛÛ");
f=frec(f1);sound(f);delay(300);nosound();break;
case 'A':textcolor(7); gotoxy(2,7);cprintf("ÛÛÛ");gotoxy(2,8);cprintf("ÛÛÛ");
gotoxy(2,9);cprintf("ÛÛÛ");
gotoxy(2,10);cprintf("ÛÛÛ");
gotoxy(2,11);cprintf("ÛÛÛÛ");
gotoxy(2,12);cprintf("ÛÛÛÛ");
gotoxy(2,13);cprintf("ÛÛÛÛ");
f=frec(f1);sound(f);delay(300);nosound();break;
case 's':textcolor(7); gotoxy(8,7);cprintf("ÛÛ");//Re
gotoxy(8,8);cprintf("ÛÛ");gotoxy(8,9);cprintf("ÛÛ");
gotoxy(8,10);cprintf("ÛÛ");
gotoxy(7,11);cprintf("ÛÛÛÛ");
gotoxy(7,12);cprintf("ÛÛÛÛ");
gotoxy(7,13);cprintf("ÛÛÛÛ");
f=frec(f3);sound(f);delay(300);nosound();break;
case 'S':textcolor(7); gotoxy(8,7);cprintf("ÛÛ");
gotoxy(8,8);cprintf("ÛÛ");
gotoxy(8,9);cprintf("ÛÛ");gotoxy(8,10);cprintf("ÛÛ");
gotoxy(7,11);cprintf("ÛÛÛÛ");
gotoxy(7,12);cprintf("ÛÛÛÛ");
gotoxy(7,13);cprintf("ÛÛÛÛ");
f=frec(f3);sound(f);delay(300);nosound();break;
case 'd':textcolor(7); gotoxy(13,7);cprintf("ÛÛÛ");//Mi
gotoxy(13,8);cprintf("ÛÛÛ");
gotoxy(13,9);cprintf("ÛÛÛ");gotoxy(13,10);cprintf("ÛÛÛ");
gotoxy(12,11);cprintf("ÛÛÛÛ");
gotoxy(12,12);cprintf("ÛÛÛÛ");
gotoxy(12,13);cprintf("ÛÛÛÛ");
f=frec(f5);sound(f);delay(300);nosound();break;
case 'D':textcolor(7); gotoxy(13,7);cprintf("ÛÛÛ");
gotoxy(13,8);cprintf("ÛÛÛ");
gotoxy(13,9);cprintf("ÛÛÛ");
gotoxy(13,10);cprintf("ÛÛÛ");gotoxy(12,11);cprintf("ÛÛÛÛ");
gotoxy(12,12);cprintf("ÛÛÛÛ");
gotoxy(12,13);cprintf("ÛÛÛÛ");
f=frec(f5);sound(f);delay(300);nosound();break;
case 'f':textcolor(7); gotoxy(17,7);cprintf("ÛÛÛ");//Fa
gotoxy(17,8);cprintf("ÛÛÛ");
gotoxy(17,9);cprintf("ÛÛÛ");
gotoxy(17,10);cprintf("ÛÛÛ");
gotoxy(17,11);cprintf("ÛÛÛÛ");...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Turbo C
  • Turbo c
  • turbo c
  • Turbo c
  • turbo c++
  • practicas de turbo c
  • Turbo c leccion 1
  • Practica de turbo c ++

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS