蜂鸣器不能唱歌，只会有调子，不知道显示歌词有什么用，
此外，你给的分太少了，我只给你蜂鸣器唱歌的程序，
一个是单纯的如何让蜂鸣器播放音乐，
一个是红外遥控播放音乐，音乐部分就只在MUSICC里面，你看一下就行了，
乐音是由物体振动发出的，如果你的蜂鸣器的发声频率大约等于乐音的频率，那么就能发出类似的调子，具体的音符频率表在我给的PDF的第30页。
再奉送你一个专门单片机编歌谱曲的软件。
个人认为，对于音乐和音乐产品，通杀的一个核心诉求就是：快速并且方便的发现用户想听的、并且可能会喜欢的音乐。关于音乐消费者分类的类型，但是数据比例有待考证。按照“专业用户”“有较高鉴赏能力用户”“普通使用用户”“不使用用户”的分类，每种类型的用户对音乐产品的诉求是差距很大的。比如“专业用户”，他们可能对音乐有固定的喜好，同时乐于尝试新的音乐类型，对音乐极度挑剔，他们可能不需要电台式的音乐产品，因为他们会直接去点播式的产品里找到自己想听的音乐。而“普通使用用户”则可能进入点播式的产品会一头雾水，不知从何下手，只好跟着榜单或推荐歌单去听歌，对于电台式产品，又懒于调教。
Private
Declare
Function
sndPlaySound
Lib
"winmmdll"
Alias
"sndPlaySoundA"
(ByVal
lpszSoundName
As
String,
ByVal
uFlags
As
Long)
As
Long
Const
SND_SYNC
=
&H0
'播
放WAV文件，
播放完毕后将控制转移回你的应用程序中。
Const
SND_ASYNC
=
&H1
'播
放WAV文件，然后将控制立即转移回你应用程序中，而不管对WAV文件的播放是否结束。
Const
SND_NODEFAULT
=
&H2
'不要播放缺省的WAV文件，
以免发生某些意外的错误。
Const
SND_MEMORY
=
&H4
Const
SND_ALIAS
=
&H10000
Const
SND_FILENAME
=
&H20000
Const
SND_RESOURCE
=
&H40004
Const
SND_ALIAS_ID
=
&H110000
Const
SND_ALIAS_START
=
0
Const
SND_LOOP
=
&H8
'环
播
放WAV
文
件。
Const
SND_NOSTOP
=
&H10
'在开始播放其它的WAV文件之前,需要完成对本WAV文件的播放
Const
SND_VALID
=
&H1F
Const
SND_NOWAIT
=
&H2000
Const
SND_validflags
=
&H17201F
Const
SND_RESERVED
=
&HFF000000
Const
SND_TYPE_MASK
=
&H170007
使用方法如下:
fullpath为地址
holdmewav为歌曲文件
ReturnValue
=
sndPlaySound(fullpath
+
"holdmewav",
SND_ASYNC)
分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
我想在music页面上点“试听”就把musiame这个参数传到play进行播放音乐，点“试听”也能到play页面，但是播放器里显是的是“准备就绪”
music的连接代码
<td align=center valign="middle" bgcolor="#000000"><span class="style10 style4"><a href="playmusic=<%=rs("music")%>">试听<a></span></td>
play( 这个页面的代码是从网上考的，就改了一点点)
<!--#include file="configinc"-->
<% dim musiame
musiame=requestQueryString("musiame")
set rs=serverCreateObject("adodbrecordset")
sql="select from music where musiame='"& musiame &"'"
rsopen sql,conn,1,1
%>
<>
<head>
<meta -equiv="Content-Type" content="text/; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<object id="MediaPlayer1" width=460 height=68 classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"
codebase="[url=activexmicrosoft/activex/controls/mplayer/en/n p2infcab#Version=6]activexmicrosoft/activex/controls/mplayer/en/n p2infcab#Version=6,4,5,715"
align="baseline" border=0 standby="Loading Microsoft Windows Media Player ponents"
type="application/x-oleobject">
<param name=invokeURLs value="0">
<param name=FileName value="<% ResponseWrite rsqumu("musiame")%>">
<param name=ShowControls value="1">
<param name=ShowPositionControls value="0">
<param name=ShowAudioControls value="1">
<param name=ShowTracker value="1">
<param name=ShowDisplay value="0">
<param name=ShowStatusBar value="1">
<param name=AutoSize value="0">
<param name=ShowGotoBar value="0">
<param name=ShowCaptioning value="0">
<param name=AutoStart value="1">
<param name=PlayCount value="0">
<param name=AnimationAtStart value="0">
<param name=TransparentAtStart value="0">
<param name=AllowScan value="0">
<param name=EnableContextMenu value="1">
<param name=ClickToPlay value="0">
<param name=DefaultFrame value="datawindow">
<embed src=music/<% ResponseWrite rs(musiame")%>" align=baseline border=0 width=460 height=68
type="application/x-mplayer2"
pluginspage="microsoft/isapi/redirdllprd=windows&; p=mediaplayer&ar=media& a=plugin&"
name="MediaPlayer" showcontrols="1" showpositioncontrols="0"
showaudiocontrols="1" showtracker="1" showdisplay="0"
showstatu ar="1"
autosize="0"
showgotobar="0" showcaptioning="0" autostart="1" autorewind="0"
animationatstart="0" transparentatstart="0" allowscan="1"
enablecontextmenu="1" clicktoplay="0"
defaultframe="datawindow" invokeurls="0">
</embed>
</object>
</body>
</>
数据库里music表里有musiame这个字段，存的是文件名（如：眼泪wma）
解析:
播放的应该是完整的URL
就是/眼泪wma
而且建议文件名都最好用英文字姆。
以上就是关于求一份C51单片机数字音乐盒（LCD1602显示歌词，歌词需与音乐同步）的课程设计。程序为C语言程序的。全部的内容，包括:求一份C51单片机数字音乐盒（LCD1602显示歌词，歌词需与音乐同步）的课程设计。程序为C语言程序的。、音乐软件的设计中，目标用户的核心诉求是什么、VB程序设计中文本阅读器的设计中怎么样添加音乐等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）