内容丰富的java电子琴

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 < byte1; 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个文件信息