Программирование на Java

       

Исходные тексты приложения


Основной файл исходных текстов приложения приведен в листинге 1.

Листинг 1. Файл PlayClip.java

import java.applet.*; import java.awt.*;

public class PlayClip extends Applet { private String m_ClipName = "kaas.au"; private final String PARAM_ClipName = "ClipName"; AudioClip auClip; Button btPlay; Button btLoop; Button btStop; boolean fLoopPlay = false;

public String getAppletInfo() { return "Name: PlayClip"; }

public String[][] getParameterInfo() { String[][] info = { { PARAM_ClipName, "String", "Audioclip filename" }, }; return info; }

public void init() { String param; param = getParameter(PARAM_ClipName); if (param != null) m_ClipName = param;

btPlay = new Button("Play"); btLoop = new Button("Loop"); btStop = new Button("Stop");

btStop.disable();

add(btPlay); add(btLoop); add(btStop);

auClip = this.getAudioClip(getCodeBase(), m_ClipName); }

public boolean action(Event evt, Object obj) { Button btn;

if(evt.target instanceof Button) { btn = (Button)evt.target;

if(evt.target.equals(btPlay)) { auClip.play(); btStop.enable(); }

else if(evt.target.equals(btLoop)) { auClip.loop(); fLoopPlay = true; btStop.enable(); }

else if(evt.target.equals(btStop)) { auClip.stop(); fLoopPlay = false; btStop.disable(); }

else { return false; }

return true; }

return false; }

public void paint(Graphics g) { Dimension dimAppWndDimension = size();

g.setColor(Color.yellow); g.fillRect(0, 0, dimAppWndDimension.width - 1, dimAppWndDimension.height - 1);



g.setColor(Color.black); g.drawRect(0, 0, dimAppWndDimension.width - 1, dimAppWndDimension.height - 1); }

public void start() { if(fLoopPlay) auClip.loop(); }

public void stop() { if(fLoopPlay) auClip.stop(); } }

В листинге 2 вы найдете исходный текст документа HTML, созданного автоматически для нашего приложения системой Java WorkShop.

Листинг 2. Файл PlayClip.tmp.html

<applet name="PlayClip" code="PlayClip" codebase= "file:/e:/sun/articles/vol14/src/PlayClip" width="200" height="100" align="Top" alt="If you had a java-enabled browser, you would see an applet here."> <param name="ClipName" value="kaas.au"> <hr> If your browser recognized the applet tag, you would see an applet here. <hr> </applet>



Содержание раздела