testfloatarray.java

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

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

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

	public void run(){
		enter();		
		Plc.startPlc(new String[] {});
		Plc goal=new Plc("testFloatArray",new Object[] {a,this});
		Plc.exec("consult(testFloatArray)");
		goal.call();
	}
	public void enter(){
		int i,j;
		for(i=0;i<=9;i++)
  		    for(j=0;j<=9;j++)
			a[i][j]=new Float(i*j*1.1);
	}
	public void drawList(Object[] args){
                for (int i=0;i<args.length;i++){
		  System.out.println(args[i]);
		  drawListElm((Double)args[i]);
		}
	}
	public void drawListElm(Double 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) {}
	}
}