各位大侠,请告诉我如何将1,2,3,4,5,6,7转换为do,re,mi,fa,so,la,xi,并有高低之分,我认为是很简单的事情,但就是找不到办法,请大侠不吝赐教。

解决方案 »

  1.   

    哈哈,给你这个。以前写的
    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;
      

  2.   

    PianoEx v1.0 (模拟钢琴)
    http://www.2ccc.com/article.asp?articleid=2617这个更有意思!下下来看一看吧!
      

  3.   

    谢谢xixuemao!请帮忙提供其他音符对应的数值为多少,比如高音DO,等等。今明两日结贴,谢谢大侠!
      

  4.   

    ``********************************************************************
    *TryMyBestToKnowSomethingAboutEverythingAndEverythingAboutSomething! 
    ********************************************************************
      

  5.   

    谢谢xixuemao!请帮忙提供其他音符对应的数值为多少,比如高音DO,等等。今明两日结贴,谢谢大侠!
    =============================
    呵呵,这个也是我以前一个同事没事写的,我能提供的也就这7个音符了至于高音的你自己摸索吧,哈哈
      

  6.   

    多谢xixuemao大侠,同时也谢谢各位的参与和支持!