c語(yǔ)言電子琴設(shè)計(jì)-在線瀏覽
2024-08-09 17:55本頁(yè)面
【正文】 f(c==39。)break。break。另外，Delay(dely1[i])。如改為：Delay(2dely1[i])則整首歌播放時(shí)間延長(zhǎng)了一倍。很簡(jiǎn)單，按一個(gè)鍵發(fā)一個(gè)音?？梢詫懗霭存I發(fā)音的基本程序是：sound(Frequency)。nosound()。但是重復(fù)147句這樣的語(yǔ)句顯然很羅嗦。用一個(gè)二維數(shù)組把它存起來(lái)，然后再調(diào)用即可。子函數(shù)可以調(diào)用子函數(shù)，但是被調(diào)用的子函數(shù)要先于子函數(shù)本身聲明。聲明要在程序，下標(biāo)要正確，結(jié)尾不要忘記分號(hào)。三、程序源代碼/**** Simple Electronic Organ ****//** By xpxxpbmy 2011/3/22 **//** Contact Me :721159175 **//**** All Rights Reserved ****/includeint bmax=1000。/* delay subroutine */void Delay(int num){int a,b,c。anum。bbmax。ccmax。}/* mainmenu */void mainmenu(){clrscr()。printf( This is a music program!\n)。printf( |***********************|\n)。printf( |***********************|\n)。 printf( | 2 MUSIC2 |\n)。 printf( | 4 MUSIC4 |\n)。 printf( | 6 SCALE PLAY |\n)。 printf( | 8 EXIT |\n)。printf( | By xpxxpbmy 2011/3/22|\n)。printf( If you can39。printf( tone! Please select 7 !\n)。A:mainmenu()。printf( Press 39。 to accelerate time,39。 to slow down,or 39。 to cancel. \n)。1539。qt39。printf( Rough:1 1。3 5。5 100。printf( Fine: q 1。e 5。t 100。c=bioskey(0)。a39。c=bioskey(0)。139。goto Test。239。goto Test。339。goto Test。439。goto Test。539。goto Test。639。goto Test。q39。goto Test。w39。goto Test。e39。goto Test。r39。goto Test。t39。goto Test。}}else if(c==39。){printf( Slow down time!\n)。switch(c){case 39。:bmax=bmax1。case 39。:bmax=bmax2。case 39。:bmax=bmax5。case 39。:bmax=bmax10。case 39。:bmax=bmax100。case 39。:bmax=bmax1000。case 39。:cmax=cmax1。case 39。:cmax=cmax2。case 39。:cmax=cmax5。case 39。:cmax=cmax10。case 39。:cmax=cmax100。default:break。039。}else{printf( Error Input!\n)。}Test:sound(262)。nosound()。Delay(200)。sound(330)。nosound()。Delay(200)。sound(393)。nosound()。Delay(200)。sound(495)。nosound()。Delay(200)。printf( Is this OK? \n)。n39。c=bioskey(0)。n39。elsemainmenu()。int i,h,m,l,time。mainmenu()。seltone:printf( 1A。3C。5E。7G。printf( or press 39。 to cancle.\n)。switch(c){case 39。:l=0。h=2。case 39。:l=3。h=5。case 39。:l=6。h=8。case 39。:l=9。h=11。case 39。:l=12。h=14。case 39。:l=15。h=17。case 39。:l=18。h=20。case 39。:mainmenu()。printf( Please select.\n)。default:printf( Error Input!\n)。goto seltone。seltime:printf( 1slow,2middle,3fast\n)。039。c=bioskey(0)。139。else if(c==39。)time=339。else if(c==39。){mainmenu()。goto exit。goto seltime。039。c=bioskey(0)。switch(c){case 39。:sound(tone[m][0])。nosound()。case 39。:sound(tone[m][1])。nosound()。case 39。:sound(tone[m][2])。nosound()。case 39。:sound(tone[m][3])。nosound()。case 39。:sound(tone[m][4])。nosound()。case 39。:sound(tone[m][5])。nosound()。case 39。:sound(tone[m][6])。nosound()。case 39。:sound(tone[h][0])。nosound()。case 39。:sound(tone[h][1])。nosound()。case 39。:sound(tone[h][2])。nosound()。case 39。:sound(tone[h][3])。nosound()。case 39。:sound(tone[h][4])。nosound()。case 39。:sound(tone[h][5])
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1