专业级的语音效果——期货语音时间提醒软件（含源代码）
此软件是专为期货操作而制作的，播放的语音为专业播音员播出，根据开盘和收盘的紧张程度，提醒的语调和节奏会有所不同，本人已经使用了1年多的时间，感觉效果非常好，所以基本能固定下来了。此次特用按键精灵（采用8.0版本），制作成一个小的执行程序（无广告 病毒和插件），提供给大家，希望大家喜欢。这个软件是本人原创，首次发表在MACD论坛，但是本人不反对再创作，所以特将源代码和语音包提供出来，欢迎大家使用， 同时也欢迎各期货软件公司或期货公司对语音改进和采用 应用，以提高服务质量。如果大家怕有病毒，可直接用源代码在按键精灵8上制作。
运行时会生成一些配置文件和和库文件，这是正常的，可放心，建议采用普通模式，进程优先级宜采用较低，毕竟这只是辅助工具而已。
代码做了解释，即使新手也应当能看懂。
软件已经包含有语音，可直接使用。
语音包共有3个压缩文件组成，供大家自己来制作。分别发表在2 楼3楼和4楼
[*]源代码（语法与按键精灵8兼容）：[*]//获得一次当前时间[*]dqsj=Time[*]//预定时间[*]sj=TimeValue("8:54:55")[*]//判断当前时间是否小于预定时间[*]sj=TimeValue("8:55:00")[*]If dqsj<sj[*]//调用子程序[*] Gosub dengdai[*] //播放媒体文件[*] Call Plugin.Media.Play("I:\声音\声音\离开盘还有五分钟！音乐提醒.wav")[*]Else[*]EndIf[*]dqsj=Time[*]sj=TimeValue("8:58:55")[*]If dqsj<sj[*]Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\离开盘还有一分钟！音乐提醒.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("8:59:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\开盘.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("10:13:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\据小节收盘还有1分钟.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("10:14:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\收盘.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("10:24:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\离开盘还有五分钟！音乐提醒.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("10:28:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\离开盘还有一分钟！音乐提醒.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("10:29:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\开盘.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("11:24:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\距上午收盘还有5分钟.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("11:28:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\距上午收盘还有1分钟.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("11:29:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\收盘.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("13:24:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\离开盘还有五分钟！音乐提醒.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("13:28:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\离开盘还有一分钟！音乐提醒.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("13:29:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\开盘.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("14:08:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\距上海市场休息还有1分钟.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("14:09:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\上海收盘.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("14:18:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\距上海开盘还有1分钟.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("14:19:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\上海开盘.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("14:56:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\距收盘还有3分钟.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("14:58:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\距收盘还有1分钟 音乐提醒.wav")[*]EndIf[*]dqsj=Time[*]sj=TimeValue("14:59:55")[*]If dqsj<sj[*] Gosub dengdai[*] Call Plugin.Media.Play("I:\声音\声音\收盘.wav")[*]EndIf[*]EndScript[*]//子程序[*]Sub dengdai[*] //跳转标志，继续运行[*] Rem jxyx[*] //等待秒钟[*] Delay 1000[*][*] //捕获一次现在的时间[*] xzsj=time[*] //将现在时间和预定时间比较[*] If xzsj<sj[*] Goto jxyx[*] Else[*] EndIf[*]Return dengdai
[ 本帖最后由 wjlhc 于 2010-4-26 22:58 编辑 ] 语音包是供大家自己来制作的软件的，有兴趣的不妨自己试试。
这是语音包的第一部分
[ 本帖最后由 wjlhc 于 2010-4-26 19:26 编辑 ] 语音包是供大家自己来制作的软件的，有兴趣的不妨自己试试。
这是语音包的第二部分
[ 本帖最后由 wjlhc 于 2010-4-26 19:27 编辑 ] 语音包是供大家自己来制作的软件的，有兴趣的不妨自己试试。
这是语音包的第三部分（已全部传完）
[ 本帖最后由 wjlhc 于 2010-4-26 19:27 编辑 ] 自己做软件的时候，语音的路径要自己改一下。
按键精灵的官方网站是：http://www.vrbrothers.com/cn/qmacro/
[ 本帖最后由 wjlhc 于 2010-4-26 18:11 编辑 ] #vv1# #vv1# 这个很简单，可以用VC++写一个，但意义不大。 原帖由 the 于 2010-4-26 19:18 发表 http://bbs.macd.cn/static/image/common/back.gif
这个很简单，可以用VC++写一个，但意义不大。
关键是声音，用啥软件来做倒是次要的。为了大家自己能做，才使用按键精灵的，面向群体主要还是不懂编程的人。欢迎大家提建议和意见！
[ 本帖最后由 wjlhc 于 2010-4-26 19:31 编辑 ] 谢谢楼主，慢慢消化#vv1# “关键是声音，用啥软件来做倒是次要的。”
上面一句话，合成的声音，见附件。 专业+热心肠！#*d1*# （我最近一直在用手机上面提供的5个闹钟来勉强应付） 太专业了，佩服#*d1*# #*d1*# #vv1# #*)*# #*(# 谢谢分享，试试看，怎么样
页:
[1]