9-7.c

水电出版社的《C语言程序设计实训》源代码

/*9-7.c*/
#define SPEED 10
#include<conio.h>
#include<dos.h>

void pause(int time)
{
int t1,t2;
union REGS in;
union REGS out;
in.h.ah=0x2c;
int86(0x21, &in, &out);
t1=t2=100*out.h.dh+out.h.dl;
while(t2-t1<time)
{ int86(0x21,&in, &out);
t2=100*out.h.dh+out.h.dl;
if (t2<t1)t2+=6000;
}
}
void sound1(int freq, int time)
{
  union {
long divisor;
unsigned char c[4];
} count;
unsigned char ch;
count.divisor=1193280/freq;
outp(67,182);
outp(66, count.c[0]);
outp(66, count.c[1]);
ch=inp (97);
outp(97,ch|3);
pause (time);
outp (97,ch);
}

main()
{
int freq,i;
int time=4*SPEED;
char *qiu="iddgwwwqqgff ddddfghhhggg ddgwwwqqgff \
ddgghjqqqqqqiwp igigjhgddgqqq hhqwwqjjjggg \
ddgwwwqqgfff ddgghjqqqqqq";
while(*qiu++!='\0') {
i=1;
switch(*qiu) {
 case 'k': time=1*SPEED;
	 i=0;
	 break;
   case 'l': time=2*SPEED;
	 i=0;
	 break;
case 'i': time=4*SPEED;
 i=0;
break;
case 'o': time=6*SPEED;
i=0;
break ;
   case 'a': freq=523;
	 break;
case 's' : freq=587;
	 break;
   case 'd': freq=659;
   break;
case 'f' : freq=698;
	  break ;
   case 'g': freq=784;
	  break;
case 'h' : freq=880;
	  break ;
	case 'j': freq=998;
	  break;
case 'z' : freq=262;
	  break;
	case 'x': freq=294;
	  break;
case 'c' : freq=330;
	  break;
	case 'v': freq=349;
	  break;
case 'b' : freq=392;
	  break;
case 'n': freq=440;
	  break;
case 'm' : freq=949;
	  break;
case 'q': freq=1047;
	  break;
case 'w' : freq=1175;
	  break;
case 'e': freq=1319;
	  break;
case 'r' : freq=1397;
	  break;
case 't': freq=1568;
	  break;
case 'y' : freq=1760;
	  break;
case 'u': freq=1976;
	  break;
default: i=0;
	  break;
}
if(i) sound1(freq, time);
}
}