home *** CD-ROM | disk | FTP | other *** search
/ MacPeople 1998 January 15 / MACPEOPLE-1998-NO2.ISO.7z / MACPEOPLE-1998-NO2.ISO / おまけ / ジャバジャバ工作教室 / 第４回 / MPPApplet4.java < prev   
Text File  |  1997-08-29  |  952b  |  45 lines
  1. import java.awt.*;
  2. import java.util.Random;
  3.  
  4. public class MPPApplet4 extends java.applet.Applet{
  5.     
  6.     int lastX,lastY,addX,addY;
  7.     Font myFont;
  8.     Random myR;
  9.     
  10.     public void start() {
  11.         lastX = 150;
  12.         lastY = 150;
  13.         addX = 0;
  14.         addY = 10;
  15.         myFont = new Font ("Courier",Font.BOLD,36);
  16.         myR = new Random ();
  17.         repaint ();
  18.     }
  19.  
  20.      public void paint (Graphics g) {
  21.         g.setFont (myFont);
  22.         g.setColor (Color.red);
  23.         g.fillOval (lastX,lastY,20,20);
  24.         g.setColor (Color.blue);
  25.         g.drawString ("Moving Ball",30,100);
  26.     }
  27.  
  28.     public boolean mouseMove (Event evt,int x,int y) {
  29.         lastX = lastX + addX;
  30.         lastY = lastY + addY;
  31.         if (lastX > 300) {lastX = -20;}
  32.         if (lastY > 300) {lastY = -20;}
  33.         if (lastX < -20) {lastX = 300;}
  34.         if (lastY < -20) {lastY = 300;}
  35.         repaint ();
  36.         return true;
  37.     }
  38.  
  39.     public boolean mouseUp (Event evt,int x,int y) {
  40.         addX = Math.abs (myR.nextInt ()) % 50 - 25;
  41.         addY = Math.abs (myR.nextInt ()) % 50 - 25;
  42.         repaint ();
  43.         return true;
  44.     }
  45. }