抽奖程序Demo版

zhweb

学习了，这个必须顶

Dontang2018

支持一下,支持一下

callmekq

谢谢分享~~

jwwlchen

这个就好看多了，支持一下

itzyx

观摩一下  A大以前的作品

austere

如果有源码就香了

austere

chzj589 发表于 2020-9-11 20:59
猜不出。
有个问题请教：如何循环播放音乐文件
播放音乐文件是：

循环很简单啊~   

6FINGERS

看着好像不错

chzj589

austere 发表于 2021-2-24 15:11
循环很简单啊~

能给个提示？

afan

chzj589 发表于 2021-2-24 19:22
能给个提示？

#include <Sound.au3>

Local $fMusic = @ScriptDir & "\MP3.mp3"
While 1
        $sound = _SoundOpen($fMusic)
        _SoundPlay($sound, 1)
        _SoundClose($sound)
WEnd

chzj589

afan 发表于 2021-2-24 19:35

谢谢!学习了

austere

chzj589 发表于 2021-2-24 19:22
能给个提示？

#include <Sound.au3>
$ss = _SoundOpen(@TempDir & "\sheng123\何茫然.wma")
While 1
        Sleep(20)
        If _SoundStatus($ss) = "stopped" Then _SoundPlay($ss, 0)
WEnd

afan

austere 发表于 2021-3-2 12:38

这种方式对于某些文件不行，常见于很简短的，比如1、2秒的提示音之类。
诸如类似于 _SoundPos($aSound, 2) >= _SoundLength($aSound, 2) 判断结束也存在同样问题。

chzj589

afan 发表于 2021-2-24 19:35

#include <Sound.au3>
Local $fMusic = @ScriptDir & "\MP3.mp3"
While 1
        $sound = _SoundOpen($fMusic)
        _SoundPlay($sound, 1)
        _SoundClose($sound)
WEnd
放入播音代码中，运行时控件都失效了，要等运行结束后才能回复。不知是什么原因？

afan

chzj589 发表于 2021-3-5 14:15
#include
Local $fMusic = @ScriptDir & "\MP3.mp3"
While 1

_SoundPlay($sound, 1) 参数1是 等待，直到声音完成。如果你有其它操作就不能使用该方法。