用于喇叭播放的声音文件，如何播放！分不够可以再加！解决了，立即结贴！

Question

我想利用计算机的小喇叭播放乐曲，不知道那位高手有这种声音文件（格式是频率+时间长度），或者是如何播放wav文件或midi文件

Answer 1

以前在Basic 中可以用Play语句，现在不知道怎么处理！

Answer 2

我有一个解决办法！http://firststep.ahwww.com/newdos/doswaren.html
在上面的页面下，有一个Beep 1.5的DOS程序，这个程序可以让PC喇叭发出各种不同的声音，然后做一个批处理文件，各种音调是这个程序的参数，请自己下载后做做实验吧！
我试验了！没有问题，看看合不合你的要求。

Answer 3

这是一首友谊天长日久的歌曲，现公布给大家。如果各位也有的话请贴出来，大家共享！谢谢了！Dim Freq, Dely, i As Long
Freq = Array(196, 262, 262, 262, 330, 294, 262, 294, 330, 294, 262, _
           330, 394, 440, 440, 394, 330, 330, 262, 294, 262, 294, _
           330, 394, 262, 230, 230, 196, 262, 440, 394, 330, 330, _
           262, 294, 262, 294, 440, 394, 330, 330, 394, 440, 523, _
           394, 330, 330, 262, 294, 262, 294, 330, 294, 262, 230, _
           230, 196, 262, 440, 394, 330, 330, 262, 294, 262, 294, _
           440, 394, 330, 330, 394, 440, 523, 394, 330, 330, 262, _
           294, 262, 294, 330, 294, 262, 230, 230, 196, 262)
Dely = Array(25, 38, 12, 25, 25, 38, 12, 25, 12, 12, 56, 25, 25, 50, 25, _
             38, 12, 12, 12, 38, 12, 25, 12, 12, 38, 12, 25, 25, 100, 25, _
             38, 12, 12, 12, 38, 12, 25, 25, 38, 12, 25, 25, 100, 25, 38, _
             12, 12, 12, 38, 12, 25, 12, 12, 38, 12, 25, 25, 100, 25, 38, _
             12, 12, 12, 38, 12, 25, 25, 38, 12, 25, 25, 100, 25, 38, 12, _
             12, 12, 38, 12, 25, 12, 12, 38, 12, 25, 25, 100)For i = 0 To 86
    APISound Freq(i), Dely(i) * 25
    DoEvents
Next ilionqun(学海无涯) ：我要的是如何播放wav等格式文件或者这种频率+时长的数据！不过也谢谢了！

Answer 4

以前看过超级解霸的作者写了一个用PC喇叭模拟声卡的程序,以前我也玩过,像听收音机一样,不过只能在win98以下的系统中运行,你如果要的话可以Mail给你.下面是它的说明:软声霸
异步声音驱动程序
     1.00版
此声音驱动程序不占用CPU时间,象声霸卡一样,所以可称为
软声霸.
可播放8位和16位单声或立体声.但立体声只能放一个声道,
至于左声道或右声道可以从Control Panel/Drivers中Setup配置.
因为是PC机器喇叭,所以会有点杂音,但很少很少.另外,当
正在放音时进行硬盘读写也会发出点杂音.
这声音驱动程序中无MIDI映象能力,所以不能放MIDI声音.
有了这声音驱动程序就可组成软多媒体.可以令AVI,QTW,MPEG
或VCD声象同步.

Answer 5

APISound声明：
Public Declare Function APISound Lib "kernel32" Alias "Beep" (ByVal Frequet As Long, ByVal wdruat As Long) As Long
zjcxc(邹建) 谢谢你了，我的EMail:[email protected]

Answer 6

你的EMail不对,用特快专递发不出,我用普通方式发送,收不到的话再出声.

Answer 7

zjcxc(邹建) 谢谢你了，我的错了，因该是EMail:[email protected]
麻烦你再发一次！

Answer 8

pasl(阿龙1) ( )  音调不准嘛，要是不知道那是什么曲子的话，肯定听不出来！

Answer 9

用Beep函数,Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Answer 10

CityBird(鹰扬九洲) 你真行，我根本听不出那是什么曲子，不过我的同事在我没有告诉他的情况下，竟然听出来了！可能有点像，只是音调有点不准。
请问大家还有没有好的曲子，贡献出来大家一起共享！

Answer 11

我在N年前学Basic的时候曾经在一本讲Basic的书上看到过如何用PC喇叭放音乐的资料，我记得那本书上讲了音调和频率，拍子和延时之间的对应算法，不过现在已经找不到那些资料了！

Answer 12

建议你看看Pcm格式的相关内容。PCM格式：模拟音频信号经模数转换（A/D变换）直接形成的二进制序列。延时可以对应PCM的采样时间，至于频率能不能对应PCM的二进制序列就不清楚了！

Answer 13

Sound
beep
API???
Basic是用中断来播放的!!!
方法不是没有,只不过还有点难:
先去看看汇编播放声音的例子
再用VB内嵌汇编就可以了嘛!!!