teststruct.java

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

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

public 
class TestStruct extends Applet {
  Object[] list_array;
  Object[] str_array;
  int no_draws = 1;

  public static void main(String args[]) {
    Frame f = new Frame("TestStruct");
     TestStruct ts = new  TestStruct();
     ts.init();
     f.add("Center",ts);
     f.setSize(321,321);
     f.show();
  }
  public void init(){
    Plc.startPlc(new String []{});
		
    Plc goal = new Plc("testStruct", new Object[] {this});
    Plc.exec("consult('testStruct')");
    goal.call();
  }

  public void paint(Graphics g){
    if (list_array != null){
      drawList(g,list_array);
    }
    if (str_array != null)  drawList(g,str_array);
  }

  public void setListArray(Object[] l){
    list_array = l;
  }

  public void setStructArray(Object[] l){
    str_array = l;
  }

  public void drawList(Graphics g, Object[] args){
    String s = arrayToString(args);
    System.out.println(s);
    no_draws++;
    g.drawString(s,100,no_draws*10);
  }

  public String arrayToString(Object[] args){
    String s = "";
    for (int i=0;i<args.length;i++){
      s += ((Integer)args[i]).toString();
    }
    return s;
  }
}