teststring.java

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

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

public 
class TestString extends Applet {
  int no_draws = 1;
  String str;

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

  public void paint(Graphics g){
    System.out.println("no_draws="+no_draws);
    g.drawString(str,100,++no_draws*10);
  }

  public void setString(String s){
    str = s;
  }
}