[原创] LISP 音乐播放器 V2.0 更新 打破CAD无声世界
本帖最后由 nonsmall 于 2013-5-13 11:42 编辑 <br /><br /> <p>完全的Lisp语言编写 by nonsmall 2008</p><p>;版权声明:本程序作者保留所有权利</p><p>;除非得到作者的授权同意否则不得将本程序用于任何商业目的</p><p>;可以在法律允许的范围内对本程序进行分发和使用 未经作者同意但不得进行修改</p><p>=====================</p><p>版本2.0</p><p>更新内容:</p><p>增加wav格式支持</p><p>增加音量控制(不修改系统音量)</p><p>增加4种播放模式(除<单曲一次>正常操作外 其他模式需要Esc停止)</p><p>增加物理删除功能</p><p>增加播放列表清空</p><p>增加歌词预览效果(前3种播放模式)</p><p>增加暂停功能</p><p>改进的随机播放跳转</p><p>--------------------------</p><p>版本1.0</p><p>实现音乐播放基本功能</p><p>实现文件选择删除</p><p>--------------------------</p><p>目前支持的格式有Mp3 WMA Wav</p><p></p><p>就算是给奋斗在明经的朋友们一个放松吧</p><p>by nonsmall 20081202</p><p>另:程序需要Express Tools扩展工具的支持 如果没有的话容易出错</p><p>--------------------------------------------------------</p><p>本程序的应用可以用来做语音的帮助提示 想法来自于让lisp说英语的程序</p><p>如果先录制好自己的语音 在需要的时候播放 有时会比枯燥的文字提示更加友好</p><p>下载程序:</p><p> </p><p></p><p></p> nonsmall 发表于 2008-12-3 10:37读书的用这个(vlax-invoke-method (vlax-create-object "Sapi.SpVoice") "Speak" "Hello" 0)中文的语言引擎 ...
用这个会造成cad卡顿 <p>我没有音箱 没有耳机 也帮我创造个有声世界吧 </p><p>水个沙发 奈何公司是无声世界 下下来看看 支持 </p> 本帖最后由 作者 于 2008-12-5 11:38:10 编辑 <br /><br /> <p>2.0预览</p><p></p> <p><strong><font face="Verdana" color="#61b713">nonsmal兄弟</font></strong></p><p><strong><font face="Verdana" color="#61b713">能否开放你的源码让大家学习呢？</font></strong></p> 支持原创，你的进步真快 本帖最后由 作者 于 2008-12-7 11:50:45 编辑 <br /><br /> xiaoliang200发表于2008-12-2 16:23:00static/image/common/back.gifnonsmal兄弟能否开放你的源码让大家学习呢？
<p>程序的源码和方法在网上都有的为什么不自己先找找呢</p><p>vlisp做一些看似平时做不到的事情 其实也无非是调用系统的控件</p><p>去找找VB中的相关知识 转为lisp语句即可</p><p>方法就这么简单 相信你也能做到</p><p></p><font color="#ff0000">13 楼的朋友 提供了wav播放的简单方法</font> 以下是引用nonsmall在2008-12-2 14:46:00的发言：
nonsmall太能整了
播放器无论用处有多大
起码开拓思路，说不定可以扩展
<p>建议：</p><p>能直接播放图中的文字，象读书程序一样。。。。。。。。。。。。。</p> <p>读书的用这个</p><p>(vlax-invoke-method (vlax-create-object "Sapi.SpVoice") "Speak" "Hello" 0)</p><p>中文的语言引擎问题找一找论坛和网络 有人研究过</p>