zhweb 发表于 2020-12-17 17:30:15

学习了，这个必须顶

Dontang2018 发表于 2020-12-18 11:44:09

支持一下,支持一下

callmekq 发表于 2021-2-5 15:48:14

谢谢分享~~

jwwlchen 发表于 2021-2-6 15:20:02

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

itzyx 发表于 2021-2-8 13:11:56

观摩一下A大以前的作品

austere 发表于 2021-2-24 15:03:29

本帖最后由 austere 于 2021-2-24 15:10 编辑

如果有源码就香了

austere 发表于 2021-2-24 15:11:37

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


循环很简单啊~   

6FINGERS 发表于 2021-2-24 16:44:01

看着好像不错

chzj589 发表于 2021-2-24 19:22:23

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

能给个提示？

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

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 发表于 2021-2-25 08:32:58

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


谢谢!学习了

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

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 发表于 2021-3-2 12:50:03

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


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

chzj589 发表于 2021-3-5 14:15:30

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 发表于 2021-3-5 14:29:27

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


_SoundPlay($sound, 1) 参数1是 等待，直到声音完成。如果你有其它操作就不能使用该方法。
页: 1 2 3 [4] 5 6
查看完整版本: 抽奖程序Demo版