导航:首页 > 源码编译 > 易语言双音轨源码

易语言双音轨源码

发布时间:2023-02-01 01:30:01

❶ 易语言怎么播放MID音乐,源码怎么写

.版本 2

播放MP3 (-1, 取运行目录 () + “\1.MP3 ”)

===============华丽的分割线====================
建议用播放MP3,以为现在很多音频文件都是mp3格式的。如果你需要用MID也是一样的。
你那个错在,没指定音频文件的路径。
我这个源码第一个参数“-1”表示循环播放。你也可以用数字1.2.3......来表示具体的播放次数
第二个参数,这个就是关键了,指定 音频文件的位置,
”取运行目录 () + “\1.MP3 ”“
前面这个取运行目录,就是表示你软件的位置,在易语言的调试中就表示你易语言源码的位置。
“+\1.MP3”就是说是那个音频文件文件名。
合在一起是,循环播放,和易语言程序文件夹相同文件夹里面的一个叫做“1.mp3”的文件。
=================再次分割=============
如果你需要用到MID也可以,原理是一样的,
“播放MID”的参数
第一个参数,也是表示播放的次数,同播放MP3
第二个参数,表示两次播放的间隔时间
第三个参数,也是文件路径,道理和播放MP3是一样的

❷ 易语言运用BASS播放非内存音乐取文件目录的源码怎么写...

BASS_Init
(-1,
44100,
0,
取窗口句柄
(),
0)
BASS_StreamFree
(Handle)
Handle

BASS_StreamCreateFile
(假,"xxxx.mp3",
0,
0,
0)
.如果真
(Handle

0)
调试输出
(“出错”)
调试输出
(BASS_ErrorGetCode
())
.如果真结束
BASS_ChannelPlay
(Handle,
真)
-------------------------------------------上面是初始化+播放。
BASS_ChannelStop
(Handle)
BASS_Free
()
--------------------------------------------窗口关闭时必须释放BASS,否则会卡音。
另外说一下,GetPosition不是这样用的[我想笑!快笑死了哈哈哈哈果然是没用过BASS的~]
BASS_ChannelGetPosition
(Handle,
0)
÷
BASS_ChannelGetLength
(Handle,
0)
×
1000)
----应该这样用。取音乐播放的进度的。
太晚了早点休息

❸ 易语言源码

哦 哦 ,那我给你个记事本的源码吧 如下
.版本 2
.支持库 iext2
.支持库 iext
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 文件路径, 文本型
.程序集变量 当前是否正在打字, 逻辑型

.子程序 _超级编辑框1_内容被改变, , , 更改超级编辑框的颜色
.局部变量 颜色, 字符格式

颜色.文本颜色 = 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
超级编辑框1.置选择区字符格式 (颜色)
状态条1.置文本 (0, “行 ” + 到文本 (超级编辑框1.取行数 ()) + “ 文本长度 ” + 到文本 (超级编辑框1.取文本长度 ()))

.子程序 __启动窗口_创建完毕, , , 设置通用对话框

通用对话框1.过滤器 = “txt|*.txt”
通用对话框1.默认文件后缀 = “txt”
通用对话框1.标题 = “传说记事本保存对话框...”
_时间日期_被选择 ()
_炫银皮肤_被选择 ()
备忘录提醒 ()

.子程序 __启动窗口_位置被改变, , , 位置被改变后超级编辑框也跟着改变(按钮1也跟着改变)

.如果真 (_启动窗口.位置 = 3)
超级编辑框1.宽度 = 取屏幕宽度 () - 3
超级编辑框1.高度 = 取屏幕高度 () - 80 - 按钮1.高度 - 10
按钮1.顶边 = 取屏幕高度 () - 状态条1.高度 - 100
按钮1.宽度 = 取屏幕宽度 () - 5
按钮1.高度 = 状态条1.高度 + 10
.如果真结束
.如果真 (_启动窗口.位置 = 0)
超级编辑框1.宽度 = _启动窗口.宽度 - 10
超级编辑框1.高度 = _启动窗口.高度 - 55 - 按钮1.高度 - 10
按钮1.顶边 = 200
按钮1.宽度 = 560

.如果真结束

.子程序 _新建_被选择, , , New文件

.如果真 (超级编辑框1.内容 ≠ “”)
.如果真 (信息框 (“您还没保存!请问您要进行保存吗?”, 4, ) = #是钮)
通用对话框1.类型 = 1
通用对话框1.打开 ()
写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))
.如果真结束

.如果真结束

.子程序 _打开_被选择, , , Open文件

通用对话框1.类型 = 0
通用对话框1.打开 ()
.如果真 (通用对话框1.文件名 ≠ “”)
超级编辑框1.内容 = 到文本 (读入文件 (通用对话框1.文件名))
文件路径 = 通用对话框1.文件名

.如果真结束

.子程序 _保存_被选择, , , Save文件

.如果真 (文件路径 = “”)
通用对话框1.类型 = 1
通用对话框1.打开 ()
写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))
.如果真结束
.如果真 (文件路径 ≠ “”)
写到文件 (文件路径, 到字节集 (超级编辑框1.内容))
.如果真结束

.子程序 _保存到_被选择, , , Save As文件

通用对话框1.类型 = 1
通用对话框1.打开 ()
.如果真 (通用对话框1.文件名 ≠ “”)
写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))
.如果真结束

.子程序 _撤销_被选择, , , Undo 文本

超级编辑框1.撤消 ()

.子程序 _剪切_被选择, , , Cut 文本

超级编辑框1.剪切 ()

.子程序 _复制_被选择, , , Copy 文本

超级编辑框1.复制 ()

.子程序 _粘连_被选择, , , Paste文本

超级编辑框1.粘贴 ()

.子程序 _删除_被选择, , , Delete文本

超级编辑框1.删除 ()
超级编辑框1.内容 = 取文本左边 (超级编辑框1.内容, 取文本长度 (超级编辑框1.内容) - 1)

.子程序 _寻找_被选择, , , Find文本

载入 (Find窗口, , 真)

.子程序 _寻找下一个_被选择, , , 还没解决好

.子程序 _文本替换_被选择, , , 文本替换

载入 (文本替换窗口, , 真)

.子程序 _跳到_被选择, , , 还没解决好

载入 (跳到窗口, , 真)

.子程序 _全选_被选择, , , Select All文本

超级编辑框1.被选择字符数 = 取文本长度 (超级编辑框1.内容)

.子程序 _时间日期_被选择, , , Time-Date
.局部变量 小时, 文本型
.局部变量 分钟, 文本型
.局部变量 日期, 文本型
.局部变量 年份, 文本型
.局部变量 月份, 文本型
.局部变量 日份, 文本型

小时 = 到文本 (取小时 (取现行时间 ()))
分钟 = 到文本 (取分钟 (取现行时间 ()))
年份 = 到文本 (取年份 (取现行时间 ()))
月份 = 到文本 (取月份 (取现行时间 ()))
日份 = 到文本 (取日 (取现行时间 ()))
状态条1.置文本 (1, 小时 + “:” + 分钟 + “ ” + 年份 + “-” + 月份 + “-” + 日份)

.子程序 _传说记事本v13_被选择, , , About Notepad

信息框 (“软件作者:古老的传说” + #换行符 + “QQ:1041750677” + #换行符 + “MSN:[email protected]” + #换行符 + “编写工具:易语言” + #换行符 + “软件版本:1.3” + #换行符, 0, )

.子程序 _密码保管_被选择, , , Password Protect

载入 (密码窗口, , 真)

.子程序 _备忘录_被选择, , , 载入备忘录窗口

载入 (备忘录窗口, , 真)

.子程序 备忘录提醒, , , 备忘录提醒
.局部变量 分割文本, 文本型, , "0"
.局部变量 今天日期, 文本型
.局部变量 分割今天日期, 文本型, , "0"

分割文本 = 分割文本 (读配置项 (取运行目录 () + “\备忘录.ini”, “备忘录”, “提示日期”, ), “日”, )
今天日期 = 到文本 (取日期 (取现行时间 ()))
分割今天日期 = 分割文本 (今天日期, “日”, )
.如果真 (取数组成员数 (分割文本) = 1 或 取数组成员数 (分割文本) > 1)
.如果真 (分割文本 [1] = 分割今天日期 [1])
状态条1.置文本 (2, “您今天有一份备忘录噢^_^”)
.如果真结束

.如果真结束

.子程序 _银白皮肤_被选择, , , 银白皮肤

更换新皮肤 (1)

.子程序 _浅白皮肤_被选择, , , 浅白皮肤

更换新皮肤 (10)

.子程序 _浅灰皮肤_被选择, , , 浅灰皮肤

更换新皮肤 (13)

.子程序 _浅蓝皮肤_被选择, , , 浅蓝皮肤

更换新皮肤 (19)

.子程序 _浅黑皮肤_被选择, , , 浅黑皮肤

更换新皮肤 (5)

.子程序 _炫银皮肤_被选择, , , 炫银皮肤

更换新皮肤 (2)

.子程序 _炫白皮肤_被选择, , , 炫白皮肤

更换新皮肤 (15)

.子程序 _炫蓝皮肤_被选择, , , 炫蓝皮肤

更换新皮肤 (18)

.子程序 _深黑皮肤_被选择, , , 深黑皮肤

更换新皮肤 (14)

.子程序 __启动窗口_可否被关闭, 逻辑型, , 透明显示最小化运行
.局部变量 变量1, 整数型

变量1 = 255
.计次循环首 (255, )
设置窗口透明度 (_启动窗口.取窗口句柄 (), 变量1)
变量1 = 变量1 - 1
.如果真 (变量1 = 1)
置托盘图标 (#程序图标, “古老的传说记事本v1.2”)
_启动窗口.可视 = 假
.如果真结束

.计次循环尾 ()

返回 (假)

.子程序 __启动窗口_托盘事件, , , 透明显示_启动窗口
.参数 操作类型, 整数型
.局部变量 变量1, 整数型

.如果真 (操作类型 = 1)
_启动窗口.可视 = 真
.计次循环首 (255, 变量1)
设置窗口透明度 (_启动窗口.取窗口句柄 (), 变量1)
.计次循环尾 ()
.如果真结束
.如果真 (操作类型 = 3)
弹出菜单 (图标菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())

.如果真结束

.子程序 __启动窗口_将被销毁, , , 销毁任务栏图标

置托盘图标 ({ }, )

.子程序 _打开传说记事本_被选择, , , _启动窗口.可视=真

__启动窗口_托盘事件 (1)

.子程序 _销毁_被选择, , , 销毁软件

销毁 ()

.子程序 _超级编辑框1_按下某键, 逻辑型, , 正在打字中...
.参数 键代码, 整数型
.参数 功能键状态, 整数型

当前是否正在打字 = 真
按钮1.标题 = “正在打字中...”
时钟1.时钟周期 = 800
返回 (真)

.子程序 _超级编辑框1_放开某键, 逻辑型, , 暂停打字中...
.参数 键代码, 整数型
.参数 功能键状态, 整数型

当前是否正在打字 = 假
返回 (真)

.子程序 _时钟1_周期事件, , , 暂停打字中...

.如果真 (当前是否正在打字 = 假)
按钮1.标题 = “暂停打字中...”

.如果真结束

.子程序 _超级编辑框1_选择区被改变, , , 超级编辑框1.滚动

超级编辑框1.滚动 (1)

❹ 易语言怎么做YY音效软件,和源码

我可以教你做 但是输出通道用易语言我写不出来 但是各个音效在软件上实现我可以教你 也可以给你源码

❺ 易语言源码是什么

就是 文件名.e的文件 用这个文件 可以修改程序的功能 界面等 把它改写成你自己的程序 如果你想学习易语言推荐去赤血学院 学习一下 哪里成套的视频教程 可以让你快速入门。

❻ 易语言音轨

在取随机数之前必须要置随机数种子否则会返回1个值正确的代码如下:.版本2置随机数种子()播放音乐(取运行目录()+“\res\dani”+到文本(取随机数(1,3))+“.wav”,)

❼ 易语言如何把两个源码合并

首先要理解,源码是什么。
然后是所谓的源码合并,就是将编写的功能代码的作用编写在一起。
后面就是解决问题了:
针对易语言的源码来说,你可以将二个源码分别的编写了EC模块模块。然后是在新的程序里,添加这二个模块。就跟调用命令一样的调用了,注意编译为模块里。源码里的子程序应该是要公开的,不然你不能进行调用。

❽ 求如何修改易语言源码过程,

修改易语言源码过程:
在你的电脑上安装一个易语言

得到你想修改的易语言源码(*.e格式的文件)

用易语言打开源码文件

改成你希望的效果

保存文件

关闭易语言.

就是这么简单.

❾ 易语言源码

通过易语言特定语言来调用组件来实现你想要的功能的!!!
比如你想在单击一个按钮后出现提示,就可以这样写

.子程序 _按钮1_被单击

信息框 (“就这样写 0, “特别提醒”)
多看看教程你就会了····

❿ 求助,求简单的 易语言源码

你看一下 是不是这样的。我大概的按你所要求的写的。如果哪里不合适的请追加提问!尽量帮你完善帮助到你!
以下是代码:
----------------------------------------------------------------------------------------------------------------------
.版本 2

.程序集 窗口程序集1
.程序集变量 时间, 整数型
.程序集变量 计时, 整数型
.程序集变量 可否关闭, 逻辑型

.子程序 _时钟1_周期事件

时间 = 时间 - 1
.判断开始 (时间 = 0)
关闭系统 (#关机, 真)
.默认

.判断结束
标签1.标题 = “请在 ” + 到文本 (时间) + “ 内输入 我爱你 否则将强制关机!”

.子程序 _编辑框1_内容被改变

.如果真 (编辑框1.内容 = “我爱你”)
.如果 (信息框 (“你确认吗?”, 32 + 1, “请确认”) = #确认钮)
图片框1.图片 = 读入文件 (取运行目录 () + “\1.jpg”)
图片框1.可视 = 真
可否关闭 = 真
.否则
时钟1.时钟周期 = 1000
可否关闭 = 假
.如果结束

返回 ()
.如果真结束
时钟1.时钟周期 = 1000

.子程序 __启动窗口_创建完毕

时间 = 60

.子程序 __启动窗口_可否被关闭, 逻辑型

.如果真 (假 = 可否关闭)
.如果 (信息框 (“结束本程序将会关闭本系统!你确认要结束本程序吗?”, 32 + 4, “关机操作”) = #是钮)
关闭系统 (#关机, 真)
结束 ()
.否则
返回 (假)
.如果结束
返回 ()
.如果真结束
结束 ()

阅读全文

与易语言双音轨源码相关的资料

热点内容
偷袭珍珠港国语版全部 浏览:611
美国一个电影叫什么汉 浏览:673
叔嫂外遇电影 浏览:736
露点外国电影 浏览:197
镇江服务器做棋牌游戏怎么样 浏览:855
uni小游戏源码 浏览:116
母乳在线母乳中出 浏览:783
鸿蒙为什么没有安卓彩蛋 浏览:997
可乐老师创意编程 浏览:28
七日杀如何设置专用服务器 浏览:28
主机怎么打开加密文件 浏览:19
重生收母系统小说 浏览:691
韩国电影静华 浏览:415
女的参加女儿运动会,下体塞了性爱玩具的电影 浏览:249
特警破案电影大全 浏览:443
学而思哪个app免费 浏览:972
孝敬爸妈电影介绍 浏览:94
软件编程前端月收入多少 浏览:983
在线网站78影院 浏览:587
发送接收邮件服务器是什么协议 浏览:737