100分奖励:如何让1、2、3发出声音do,re,mi 各位大侠,请告诉我如何将1,2,3,4,5,6,7转换为do,re,mi,fa,so,la,xi,并有高低之分,我认为是很简单的事情,但就是找不到办法,请大侠不吝赐教。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 哈哈,给你这个。以前写的procedure TForm1.Button2Click(Sender: TObject);var a,b,c,d,e,f,g: integer;begin a:= 262 *2; b:= 294 *2; c:= 330 *2; d:= 349 *2; e:= 392 *2; f:= 440 *2; g:= 494 *2; windows.Beep(a,200); windows.Beep(b,200); windows.Beep(c,200); windows.Beep(d,200); windows.Beep(e,200); windows.Beep(f,200); windows.Beep(g,200);end; PianoEx v1.0 (模拟钢琴)http://www.2ccc.com/article.asp?articleid=2617这个更有意思!下下来看一看吧! 谢谢xixuemao!请帮忙提供其他音符对应的数值为多少,比如高音DO,等等。今明两日结贴,谢谢大侠! ``*********************************************************************TryMyBestToKnowSomethingAboutEverythingAndEverythingAboutSomething! ******************************************************************** 谢谢xixuemao!请帮忙提供其他音符对应的数值为多少,比如高音DO,等等。今明两日结贴,谢谢大侠!=============================呵呵,这个也是我以前一个同事没事写的,我能提供的也就这7个音符了至于高音的你自己摸索吧,哈哈 多谢xixuemao大侠,同时也谢谢各位的参与和支持! 数据库异常处理的方法 delphi 如何取 word 里的 文档结构图 里的字符串 frame怎么访问承载它的form上的方法或控件? delphi 访问远程 accesss 为什么用Delphi6保存的dfm文件,用文本编辑器打开,caption全是数字? 谁有电信工作的经验??? 大家,帮帮忙。关于www服务器的问题. *****关于Delphi程序与网站的问题***** 创建启动画面时出错了 怎么模拟系统按扭? 如何获得 excel 版本?????? 急!!!!!!!!!!!!! SQL问题:如何把一条记录插入到表结尾处?
procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c,d,e,f,g: integer;
begin
a:= 262 *2;
b:= 294 *2;
c:= 330 *2;
d:= 349 *2;
e:= 392 *2;
f:= 440 *2;
g:= 494 *2;
windows.Beep(a,200);
windows.Beep(b,200);
windows.Beep(c,200);
windows.Beep(d,200);
windows.Beep(e,200);
windows.Beep(f,200);
windows.Beep(g,200);
end;
http://www.2ccc.com/article.asp?articleid=2617这个更有意思!下下来看一看吧!
*TryMyBestToKnowSomethingAboutEverythingAndEverythingAboutSomething!
********************************************************************
=============================
呵呵,这个也是我以前一个同事没事写的,我能提供的也就这7个音符了至于高音的你自己摸索吧,哈哈