testarray.java

PRl教学程序 PRl教学程序 PRl教学程序

import java.applet.Applet;
import java.awt.*;
import bprolog.plc.Plc;

public class TestArray extends Applet implements Runnable {
	String Close=new String();
	Integer[][] a=new Integer[10][10];
	public static void main(String[] args){
		Frame f=new Frame();
		TestArray l=new TestArray();
		l.init();
		f.add("Center",l);
		f.setSize(300,300);
		f.show();
		l.run();
		System.exit(0);
	}
	int x=10;

	public void run(){
		enter();		
		Plc.startPlc(new String[] {});
		Plc goal=new Plc("testArray",new Object[] {a,this});
		Plc.exec("consult(testArray)");
		goal.call();
	}
	public void enter(){
		int i,j;
		for(i=0;i<=9;i++)
		    for(j=0;j<=9;j++)
			a[i][j]= new Integer(i*j);
		}
	public void drawList(Object[] args){
                for (int i=0;i<args.length;i++){
		  drawListElm((Integer)args[i]);
		}

	}
	public void drawListElm(Integer elm){
		String s=elm.toString();
		Graphics g=getGraphics();
		g.drawString(s,100,x);
		x=x+10;
		Thread.yield();
	}
	public void sleep(Integer mill) {
		try {
			Thread.sleep(mill.intValue(),0);
		} catch(InterruptedException e) {}
	}
}