爱问知识人 爱问教育 医院库

高手帮忙啊!求JAVA源程序2个

首页

高手帮忙啊!求JAVA源程序2个

1个是比较简单的 能计算4则运算开方等基本运算的计算器
2是一个比较简单的聊天程序

先谢谢拉!

提交回答
好评回答
  • 2006-05-13 19:40:49
      import  t。*;
    import  t。event。*;
    import  。*;
    public class Chat{
    	Frame f = new Frame("JJ聊天");
    	TextField tfIP = new TextField(15);
    	List lst = new List(6);
    	DatagramSocket ds;
    	public Chat(){
    		try{
    			ds=new DatagramSocket(3000);
    		}catch(Exception ex){
    			 intStackTrace();
    		}
    		new Thread(new Runnable() {
    					 	public void run(){
    							byte buf[] =new byte[1024];
    							DatagramPacket dp=new DatagramPacket(buf,1024);
    							while(true){
    								try{
    									 ceive(dp);
    									 d(new String(buf,0, tLength())+"from"+ tAddress()。
      getHostAddress(),0); }catch(Exception e){ intStackTrace(); } } } } )。
      start(); } public static void main(String [] args) { Chat chat = new Chat(); it(); } public void init(){ tSize(300,300); d(lst); Panel p = new Panel(); tLayout(new BorderLayout()); d("West",tfIP); TextField tfData = new TextField(20); d("East",tfData); d("South",p); tVisible(true); tResizable(false); dWindowListener(new WindowAdapter() { public void windowClosing(WindowEvent e) { ose(); tVisible(false); f。
      dispose(); System。exit(0); } } ); dActionListener(new ActionListener() { public void actionPerformed(ActionEvent e) { byte[] buf; buf= tActionCommand()。
      getBytes(); try{ DatagramPacket dp=new DatagramPacket(buf,buf。length, tByName( tText()),3000); nd(dp); }catch(Exception ex){ intStackTrace(); } ((TextField) tSource())。
      setText(" "); } } ); } }。

    j***

    2006-05-13 19:40:49

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 175-194
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):