| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 553 人关注过本帖
标题:怎么关哪!
只看楼主 加入收藏
shanshanai
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2006-3-22
收藏
 问题点数:0 回复次数:4 
怎么关哪!

用下面的程序后可以播放文件,有了音乐 

set bell on &&使bell有效

  set bell to′ .WAV文件′,1000 &&使bell定向到一个.WAV 文件。
  ?chr(7)

  &&播放该.WAV文件

可是退出的时候怎么关闭音乐呢?
我试了set bell off 和又写一个代码,再调用一个文件,把时间设为0,这样都不行!
哎。。。。。。。。

上面的代码还是昨天在该论坛上看到的!

搜索更多相关主题的帖子: 音乐 定向 
2006-06-10 12:13
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
为什么要 1000啊?时间短一点儿就行了!

2006-06-10 12:56
fp2001
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-5-26
收藏
得分:0 
1、调用Windows的APT函数SndPlaySound播放声音文件(.WAV)。
首先建立一个表单(FORM1),然后编写表单的 Activate过程:
PUBLIC Sound
SET LIBRARY TO Foxtool.FLL
Sound=Regfn("SndPlaySound","CI","I","Mmsystem")
=Callfn(Sound,"BACK.WAV",1)
再编写FORM1的Release过程:
=Callfn(Sound,"",10)
SET LIBRARY TO
运行表单后,BACK.WAV就作为背景音乐在后台播放,关闭表单时音乐自动停止。如果想让音乐自动循环播放,将Activate过程中最后一句换为:
=Callfn(Soun,"BACK.WAV",1+8)即可。
注意:如果你的计算机没有声卡,运行以上程序时将出错。
2、用“SET BELL TO” 响铃命令。
编写表单的Activate过程:
SET BELL ON
SET BELL TO "BACK.WAV"
??CHR(7)
再编写表单的Release过程:
SET BELL TO
注意:该种方法在运行时,不能进行循环播放,不能中断音乐的播放,但是在没有声卡的情况下,该种程序不会出错,只是进行PC喇叭的响铃一次。
2006-06-10 13:25
shanshanai
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2006-3-22
收藏
得分:0 

我在表单的release中按你说的写了set bell to ,运行后再关表单还是不行!
这是?


我很乖,但不娇!
2006-06-10 15:16
shanshanai
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2006-3-22
收藏
得分:0 
我在reaease中又写

set bell on &&使bell有效

  set bell to′2.WAV文件′,10 &&使bell定向到一个.WAV 文件。
  ?chr(7)

2。WAV是一个只有一秒钟的音频文件
这样在退出来的时候转而执行2。wav,不过还是有一个‘砰’的声响
我把时间设为0也不行!


我很乖,但不娇!
2006-06-10 15:25
快速回复:怎么关哪!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017521 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved