資源簡介
java做的電子琴,可直接運行!畫面漂亮!可隨便彈出自己喜歡的旋律,錄音,播放歌曲!容易理解!是學習java的好資料!
代碼片段和文件信息
import?java.applet.applet;
import?java.applet.AudioClip;
import?java.awt.*;
import?java.awt.event.*;
import?javax.swing.*;
public?class?Piano?extends?applet?implements??ActionListener
{
????public?void?init()
????{
????????byte?byte0?=?12;
????????byte?byte1?=?21;
????????byte?byte2?=?15;
byte?byte3?=?20;
????????byte?byte4?=?100;
????????byte?byte5?=?5;
????????byte?byte6?=?16;
????????byte?byte7?=?66;
byte?byte8?=?21;
byte?byte9?=?15;
char?c?=?‘\216‘;
????????sound[0]?=?“w0.au“;
????????sound[1]?=?“w1.au“;
????????sound[2]?=?“w2.au“;
????????sound[3]?=?“w3.au“;
????????sound[4]?=?“w4.au“;
????????sound[5]?=?“w5.au“;
????????sound[6]?=?“w6.au“;
????????sound[7]?=?“w7.au“;
????????sound[8]?=?“w8.au“;
????????sound[9]?=?“w9.au“;
????????sound[10]?=?“w10.au“;
????????sound[11]?=?“w11.au“;
????????sound[12]?=?“w12.au“;
????????sound[13]?=?“w13.au“;
????????sound[14]?=?“w14.au“;
????????sound[15]?=?“w15.au“;
????????sound[16]?=?“w16.au“;
????????sound[17]?=?“w17.au“;
????????sound[18]?=?“w18.au“;
????????sound[19]?=?“w19.au“;
????????sound[20]?=?“w20.au“;
????????soundb[0]?=?“b0.au“;
????????soundb[1]?=?“b1.au“;
????????soundb[2]?=?“b2.au“;
????????soundb[3]?=?“b3.au“;
????????soundb[4]?=?“b4.au“;
????????soundb[5]?=?“b5.au“;
????????soundb[6]?=?“b6.au“;
????????soundb[7]?=?“b7.au“;
????????soundb[8]?=?“b8.au“;
????????soundb[9]?=?“b9.au“;
????????soundb[10]?=?“b10.au“;
????????soundb[11]?=?“b11.au“;
????????soundb[12]?=?“b12.au“;
????????soundb[13]?=?“b13.au“;
????????soundb[14]?=?“b14.au“;
????????record[0]?=?-1;
????????for(int?i?=?0;?i?<=?49;?i++)
????????{
????????????memory1[i]?=?0;
????????????memory[i]?=?0;
????????}
????????showStatus(“歡迎使用?Java?Piano!“);
????????for(int?k1?=?0;?k1?<=?2;?k1++)
????????{
????????????for(int?k?=?0;?k?<=?6;?k++)
????????????{
????????????????play(getCodebase()?sound[k1?*?7?+?k]);
????????????????String?s?=?“載入?“;
????????????????s?=?s.concat(String.valueOf(k1?*?7?+?k?+?1));
????????????????s?=?s.concat(“?21?個音符.....“);
????????????????showStatus(s);
???????????????????setBackground(Color.white);
????????????????show();
????????????}
????????????for(int?l?=?0;?l?<=?4;?l++)
????????????????audio[0]?=?getAudioClip(getCodebase()?soundb[k1?*?5?+?l]);
????????}
????????kx[0]?=?32;
????????color[0]?=?0;
????????for(int?i1?=?1;?i1?????????{
????????????kx[i1]?=?kx[0]?+?i1?*?20;
????????????color[i1]?=?0;
????????}
????????kbx[0]?=?kx[0]?+?byte0;
????????kbx[1]?=?kx[1]?+?byte0;
????????kbx[2]?=?kx[3]?+?byte0;
????????kbx[3]?=?kx[4]?+?byte0;
????????kbx[4]?=?kx[5]?+?byte0;
????????kbx[5]?=?kx[7]?+?byte0;
????????kbx[6]?=?kx[8]?+?byte0;
????????kbx[7]?=?kx[10]?+?byte0;
????????kbx[8]?=?kx[11]?+?byte0;
????????kbx[9]?=?kx[12]?+?byte0;
????????kbx[10]?=?kx[14]?+?byte0;
????????kbx[11]?=?kx[15]?+?byte0;
????????kbx[12]?=?kx[17]?+?byte0;
????????kbx[13]?=?kx[18]?+?byte0;
????????kbx[14]?=?k
?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
????......R??????3064??1996-11-07?23:01??11?Java電子琴\B0.AU
????......R??????4492??1996-11-07?23:02??11?Java電子琴\B1.AU
????......R??????2260??1996-11-07?23:08??11?Java電子琴\B10.AU
????......R??????4279??1996-11-07?23:08??11?Java電子琴\B11.AU
????......R??????2408??1996-11-07?23:09??11?Java電子琴\B12.AU
????......R??????2748??1996-11-07?23:10??11?Java電子琴\B13.AU
????......R??????4109??1996-11-07?23:10??11?Java電子琴\B14.AU
????......R??????2260??1996-11-07?23:02??11?Java電子琴\B2.AU
????......R??????2707??1996-11-07?23:03??11?Java電子琴\B3.AU
????......R??????6278??1996-11-07?23:04??11?Java電子琴\B4.AU
????......R??????3153??1996-11-07?23:04??11?Java電子琴\B5.AU
????......R??????3823??1996-11-07?23:05??11?Java電子琴\B6.AU
????......R??????2483??1996-11-07?23:05??11?Java電子琴\B7.AU
????......R??????2483??1996-11-07?23:06??11?Java電子琴\B8.AU
????......R??????5832??1996-11-07?23:07??11?Java電子琴\B9.AU
????......R?????17879??2002-07-22?17:09??11?Java電子琴\Piano.java
????......R?????36406??2002-05-28?10:41??11?Java電子琴\Piano.jpg
????......R??????3122??1996-11-07?22:44??11?Java電子琴\W0.AU
????......R??????2915??1996-11-07?22:44??11?Java電子琴\W1.AU
????......R??????2297??1996-11-07?22:53??11?Java電子琴\W10.AU
????......R??????2710??1996-11-07?22:54??11?Java電子琴\W11.AU
????......R??????2710??1996-11-07?22:54??11?Java電子琴\W12.AU
????......R??????2503??1996-11-07?22:55??11?Java電子琴\W13.AU
????......R??????2709??1996-11-07?22:55??11?Java電子琴\W14.AU
????......R??????2709??1996-11-07?22:56??11?Java電子琴\W15.AU
????......R??????2709??1996-11-07?22:57??11?Java電子琴\W16.AU
????......R??????2709??1996-11-07?22:57??11?Java電子琴\W17.AU
????......R??????2091??1996-11-07?22:58??11?Java電子琴\W18.AU
????......R?????11817??2002-07-22?17:10??11?Java電子琴\piano.class
????......R???????152??2002-07-18?11:15??11?Java電子琴\test.html
............此處省略7個文件信息
- 上一篇:java做的世界杯程序
- 下一篇:java 記事本(功能較全面且界面美觀)
評論
共有 條評論