[原创] LISP 音乐播放器 V2.0 更新 打破CAD无声世界

nonsmall

完全的Lisp语言编写 by nonsmall 2008

;版权声明:本程序作者保留所有权利

;除非得到作者的授权同意否则不得将本程序用于任何商业目的

;可以在法律允许的范围内对本程序进行分发和使用 未经作者同意但不得进行修改

=====================

版本2.0

更新内容:

增加wav格式支持

增加音量控制(不修改系统音量)

增加4种播放模式(除<单曲一次>正常操作外 其他模式需要Esc停止)

增加物理删除功能

增加播放列表清空

增加歌词预览效果(前3种播放模式)

增加暂停功能

改进的随机播放跳转

--------------------------

版本1.0

实现音乐播放基本功能

实现文件选择删除

--------------------------

目前支持的格式有Mp3 WMA Wav

就算是给奋斗在明经的朋友们一个放松吧

by nonsmall 20081202

另:程序需要Express Tools扩展工具的支持 如果没有的话容易出错

--------------------------------------------------------

本程序的应用可以用来做语音的帮助提示 想法来自于让lisp说英语的程序

如果先录制好自己的语音 在需要的时候播放 有时会比枯燥的文字提示更加友好

下载程序:

[Post=5]

[/Post]

1291500406

nonsmall 发表于 2008-12-3 10:37
读书的用这个(vlax-invoke-method (vlax-create-object "Sapi.SpVoice") "Speak" "Hello" 0)中文的语言引擎 ...

用这个会造成cad卡顿

16335181

我没有音箱  没有耳机   也帮我创造个有声世界吧 

水个沙发  奈何公司是无声世界  下下来看看  支持

nonsmall

2.0预览

xiaoliang200

nonsmal兄弟

能否开放你的源码让大家学习呢？

c3a139

支持原创，你的进步真快

nonsmall

xiaoliang200发表于2008-12-2 16:23:00nonsmal兄弟能否开放你的源码让大家学习呢？

程序的源码和方法在网上都有的为什么不自己先找找呢

vlisp做一些看似平时做不到的事情 其实也无非是调用系统的控件

去找找VB中的相关知识 转为lisp语句即可

方法就这么简单 相信你也能做到

13 楼的朋友 提供了wav播放的简单方法

露水2

1. 以下是引用nonsmall在2008-12-2 14:46:00的发言：

复制代码

nonsmall太能整了
播放器无论用处有多大
起码开拓思路，说不定可以扩展

HRQ28

建议：

能直接播放图中的文字，象读书程序一样。。。。。。。。。。。。。

nonsmall

读书的用这个

(vlax-invoke-method (vlax-create-object "Sapi.SpVoice") "Speak" "Hello" 0)

中文的语言引擎问题找一找论坛和网络 有人研究过