반응형

2007년 5월 3일 네이버 블로그에 올려 두었던 소스  입니다.

네이버에서 이곳으로 이사 하느라 그대로 글을 가져 오느라 내용이 이상한 점이 있더라도

이해 부탁드립니다.

------------------------------------------------------
요즘 내가 만들고 있는 프로그램의 소스 이다.. 

웹 브라우져를 만들고 있는데 이건 도무지...

머랄까 일반 웹브라우져처럼 표기를 못해준다 ㅠ.ㅠ

머리 굴려 보고 있긴 한데... CSS 처리를 안해서 그런가..

암튼 기필고 브라우져 만들어 본다!!

아래 소스를 붙여 놓는다.. 코멘트는 없다~~~

왜냐고... 저소스도 간신히 살렸다...

코딩하다가 컴 따운 되서 리붓 되었더니 소스 날라가 버렸다 ㅠ.ㅠ

 

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
import java.io.*;
import java.net.*;
import javax.swing.text.*;
import javax.swing.text.html.*;
import javax.swing.event.*;

public class m_Frame extends JFrame implements ActionListener, HyperlinkListener {
  
 public m_Frame() {
  set_Design();
 }
 JButton test = new JButton("나누어 보기");
 JTextField tf_url = new JTextField();
 
 JEditorPane paneArea = new JEditorPane();
 JTextArea paneArea2 = new JTextArea();
 EditorKit htmlKit = paneArea.getEditorKitForContentType("text/html");
 HTMLDocument doc = (HTMLDocument)htmlKit.createDefaultDocument();
 JScrollPane s_pan = new JScrollPane(paneArea2);
    JScrollPane s_pan2 = new JScrollPane(paneArea);
   
     private void set_Design() {
  Container con = this.getContentPane();
  con.setLayout(null);
  this.setTitle("Super");
  paneArea.setEditorKit(htmlKit);
  tf_url.setBounds(10,10,380,20);
  test.setBounds(400, 10, 80, 20);
 
   
  paneArea.setPreferredSize(new Dimension(700, 400));
  /*paneArea.setContentType("text/html");
  htmlKit = new HTMLEditorKit();
  paneArea.setEditorKit(htmlKit);
  StyleSheet ssh = htmlKit.getStyleSheet();
  doc = new HTMLDocument();*/
  //paneArea.setDocument(doc);
  //paneArea.addHyperlinkListener(listener);
  paneArea.setEditable(false);
  /* 이곳은 어느분의 소스에서 긁어 온 부분이라 주석 처리로 돌려 놓았다..
  helpContent = new JEditorPane("text/html", "");
        HTMLEditorKit kit = new HTMLEditorKit();
        helpContent.setEditorKit(kit);
        StyleSheet ssh = kit.getStyleSheet();
        ssh.addRule(".menuitem { font-family: Verdana;  } ");
        ssh.addRule(".menuitem { font-weight: bold;  } ");
        ssh.addRule(".menuitem { color: #003399;  } ");
        */
  s_pan2.setBounds(10,40,800,330);
  s_pan.setBounds(10,400,700,200);
  //s_pan2.add(paneArea);
  try {
   UIManager.setLookAndFeel(UIManager.getCrossPlatformLookAndFeelClassName());
  } catch(Exception ex) {
   
  }
  
  this.add(tf_url);
  this.add(test);
  //this.add(span);
  this.add(s_pan2);
  this.add(s_pan);
  this.setSize(900,620);
  this.setLocation(100, 100);
  test.addActionListener(this);
  paneArea.addHyperlinkListener(this);
  this.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
 }
 public void hyperlinkUpdate(HyperlinkEvent ev) {
  if(ev.getEventType() == HyperlinkEvent.EventType.ACTIVATED) {
   try {
    paneArea.setPage(ev.getURL());
   } catch(Exception ex) {}
  }
 }
 public void actionPerformed(ActionEvent ev) {
  Object ob = ev.getSource();
  if(ob == test) {
   String url = tf_url.getText();
   show_Tag(url);
  }
 }
 
 private void show_Tag(String url) {
  try {
   URL aURL = new URL(url);
   BufferedReader br = new BufferedReader(new InputStreamReader(aURL.openStream()));
   String line = null;
   int co = 0;
   String sb = "javascript:show_id_layer(this,'";//   ','
   String temp = null;
   String u_id = null;
   //doc.setBase(aURL);
   paneArea.validate();
   paneArea.updateUI();
   //paneArea.setPage(aURL);
   InputStream in = aURL.openStream();
   paneArea.read(in, doc);
   System.out.println(aURL.getContent());
   //while(br.readLine() != null) { 
   // line = br.readLine();
   // paneArea2.append("\n" + line);
    
    
    //co = line.indexOf(sb);
    
    /*if(co > 1) {
     temp = line.substring(co+31);
     u_id = temp.substring(0, temp.indexOf("'"));
     ta.append("u_id = " + u_id+"\n");
     
    }*/
   //}
  } catch(MalformedURLException e) {
    
  } catch(IOException e) {
    
  } catch(Exception ex) {
   ex.printStackTrace();
   
  }
 }

반응형
Posted by onlyTheOne
,
반응형

지식인에 Button을 마우스 드래그 할때 마우스 따라 움직이게 하는 방법에 대해서

제가 올린 답변입니다. 질문자가 요청 한 만큼은 처리 못했네요...

내공 향상을 위해 오늘도 열공중입니다....

아래 소스 한번 참고 해 보세요.~~

 

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;

public class TestButton extends JFrame {
 
  JPanel pan = new JPanel(); // 이벤트 등록용 패널

  // AWT의 Button으로도 가능
  JButton bu = new JButton("버튼");

  // 버튼의 기본 좌표용 변수
  int x = 10;
  int y = 10;
  int width = 80;
  int height = 20;
 
  // 버튼의 움직임 여부 결정용 변수
  boolean moves = false;
 
 
  public TestButton(){ // 생성자 디자인 및 이벤트 설정
    this.getContentPane().setLayout(new BorderLayout());
    pan.setLayout(null);
    bu.setBounds(x,y,width,height);
    pan.add(bu);
    this.getContentPane().add("Center", pan); 
    this.setSize(600,400);
    this.setVisible(true);
    bu.setFocusable(false);
   
    // 마우스 버튼을 놓았을경우 이동 가능 여부 false로 돌림
    pan.addMouseListener(new MouseAdapter() {
     public void mouseReleased(MouseEvent ev) {
      moves = false;
     }
    });
   
    // 배경 JPanel에 MouseMotionListener를 등록시켜 Drag때 처리하도록 함...
    pan.addMouseMotionListener(new MouseMotionAdapter() {
     public void mouseDragged(MouseEvent ev) {
      int tem_x = ev.getX(); // 이벤트 발생 좌표값중 x값 추출
      int tem_y = ev.getY(); // 이벤트 발생 좌표값중 y값 추출..

   
      /*System.out.println("버튼의 좌표 : " + bu.getX() + ", " + bu.getY());
      *System.out.println("버튼의 영역 : " + (bu.getX()+bu.getWidth()) + "," +
       * (bu.getY() + bu.getHeight()));
      *System.out.println("이벤트발생위치 : " + ev.getX() + ", " + ev.getY());
      * 버튼의 영역 안에 있으면 true로 설정...
     */

     if((tem_x >= bu.getX()) && (tem_x <= (bu.getX() + bu.getWidth()))) {
       
       if((tem_y > bu.getY()) && (tem_y <= (bu.getY() + bu.getHeight()))) {
        moves = true;
       }
      }
      // 마우스 포인터가 버튼 영역 안 여부 판단 후 버튼 위치 재지정...
      if(moves) {       
       bu.setBounds(tem_x-(width/2), tem_y-(height/2), width, height);
       
      }
     }
    });
  }
 
  public static void main(String [] args) {
    TestButton tb = new TestButton();
  }
}

반응형
Posted by onlyTheOne
,
반응형
앞으로 다른 것에 대한 이야기의 흐름은 언제 이어 질지 모르겠으나...

그 이야기 들중.....

검색 이야기에 대해 해 볼려고 합니다...

첫 번째 스토리로....... 네이버 검색 이야기를 하려 합니다.......

앞서 ..

네이버에 대한 상표권 및 저작권은 (주)nhn에 있음을 밝히는 바입니다.....

네이버에서 검색이 얼마나 좋은 자료를 찾아 내는지......

알려 드리도록 하겠습니다..

반응형
Posted by onlyTheOne
,
반응형

으음.. 제 블로그 방문 자 분들을 보니...

lisp 관련하여 분들이 많으신거 같습니다...

남들이 안하는 부분.....

남들에게 자료가 많지 않은 부분에 대한 자료를 많이 올리도록 하겠습니다.

그럼... 즐거운 인터넷 서핑 하세요

반응형
Posted by onlyTheOne
,
반응형
스택 예제를 예전에 구현하였던것을...

이곳에 다시 올려 둡니다.

// 스택//
#include<stdio.h>
#include<conio.h>

int stack[10];
int top;

void init_stack() {
    top = -1;
}

void push(int vall) {
  if(top >= 9)
    printf("\n######## 스택이 꽉 차버렸네요 ########\n");
  else
    stack[++top] = vall;
}

void pop() {
  if(top < 0) 
    printf("########## 더이상 비울 스택이 없습니다. ##########\n");
  else
    --top;
}

void print_stack() {
  int i;
  printf("스택 top --------------------- buttom\n");

  for(i = top; i>= 0; i--)
    printf("%d ", stack[i]);
    printf("\n");
}

void main() {
  int select_num;
  int push_num;
  int exit_flag = 0;

  printf(" 배열을 이용한 스택 프로그램 입니다. \n");

  init_stack();
  while(1) {
    printf(" 1) push 2) pop 3) data print 4) Quit! \n");
    printf(" 숫자를 선택해 주세요 : ");
    scanf("%d",&select_num);
 
    if(select_num > 3) break;
    else {
      switch(select_num) {
         case 1 :
           printf("푸쉬 숫자를 입력해 주세요 =>");
           scanf("%d",&push_num);
           push(push_num);
           printf("푸쉬(push)를 실행 했습니다\n");
         break;
         case 2:
           pop();
           printf("팝(pop)을 실행했습니다\n");
         break;
         case 3:
           print_stack();
         break;
      }
    }
  }
  printf("프로그램을 종료합니다\n");
  getch();
}
반응형
Posted by onlyTheOne
,
반응형
안녕하세요

오랜만에 강좌를 진행하는 쥔장입니다.

텍스트만 있으니 좀 그러시죠 ^^:

저도 이미지도 넣고 그러고 싶답니다.~~~

하지만 그러기는 많이 힘들다는거..

하지만 노력해 보려 합니다.

그 이야기 계속 이어 가려 합니다.

제가 자바라는 언어를 처음 접하게 된 것은...

자바로 만들어진 하늘사랑 채팅 방일 겁니다...

처음 자바라는 언어를 배운건...

2000년 4월.... 모 학원에서 시작하였습니다.

당시 저는 고2.....  (제 나이 대충 계산 되시죠 ^^:)

음 그러니... 운영체제이니, 알고리즘이니, 자료구조이니...

이런건 그냥 자격증을 따기 위한 목적으로 머 제대로 배우지도 않았지만...

프로그램이 왜 저렇게 돌아가느냐.. 이런걸 모르는 나이 였습니다.

그러니 제가 프로그램을 잘 짜는 줄 알았죠..

바로 전에는 VC++을 잠깐 배우고 있었습니다.

머 VC++이래 봤자 API가 아닌 MFC 였지만...

그렇게 시작한 자바라는 언어와의 인연...

처음 시작은... 일찍 하였으나...

저는 자바라는 언어의 빛을 많이 못 봤습니다...

하지만 좋은 분들과의 인연을 만들수 있었다는게..

(자바동 형들.. 형 들을 알게된게 저에겐 행운중 하나 였습니다.)

2001년 각종 소프트웨어 공모전에 나갔지만 전부

예선탈락이라는 수모를 당했습니다...

예선 탈락을 당한 이유는 세가지 였습니다.

하나는 심사위원분들이 자바라는 언어로 프로그램을 짤수 있는 고등학생은 없다. 라고 단정 지은 겁니다.

즉 누가 만들어서 대신 출품 하는 거라고 생각한 거죠..

자바가 2000년에 퍼지기 시작하였으니.. 그럴수 밖에요...

이건 좀 나았지만...

두번째는 심사위원분들이... 자바를 모르시는 은근히 많았습니다...

결론적으로 자바를 모르기에... 심사가 불가능하여 탈락 된거죠..

일화를 하나 말씀드리면 당시 제가 참여한 모학교 대회에 제가 출품한 작품이..

화상강의 소프트웨어 였습니다...

그런데.. 그날 출품한 학생중에.. 저와 똑같은 아이디어로 VC++로 만든 학생이 있었던 겁니다.

발표날 저는 깜짝 놀랐습니다.

그 학생은 2위를 한 것입니다.  프로그램 완성도야 자바 보다 는 좋았을 겁니다.

하지만 저는 예선 탈락이였습니다...

더욱 저를 힘들게 했던건.. 그 출품작이 이미 타 대회 입상 작품이였다는 겁니다...

한마디로 하나의 작품으로 우려 먹기를 한거죠...

그렇게... 쓴맛을 보며 공모전을 마감하며 자바와 세월을 보냈습니다...

2001년 저는 JMF라 불리우는 Java Media Framework API를 공부하며...

화상/음성 관련 부분에 대해 공부하고 있었습니다.. 물론 결과물이..

이런거 관련된 것만 나오게 됬죠... 당시 제가 JSP나 moblie로 갔다면

아마 다른 일이 발생했을 수도... 남들이 안한다는걸 한다고 자부심을 느끼며

제대로 모르는 초짜가 사고를 치며 살아 온것입니다.

자바를 잘한다고 느끼며... 전혀 아니였지만...

여기서.. 제 이야기를 마치고..

자바에 대해 다시 이야기 해 보려 합니다.

제가 자바를 처음 공부할때 자바의 버전은 혁명이라 불릴 만큼 변화가 있어서

Java2라고 불리우는 JDK 버전 1.2.1 이였습니다.. 지금 1.6이니 오래 된걸 수도 있겠네요...

그때 쓰던 IDE 중 하나가 3.0 이였고.. 윈도우가 98에서 2000으로 변화 하는 시기였습니다.

다시 생각해 보면 2000 professional 버전은 정말 가볍고 안정적인 OS인거 같습니다...

지금은 윈도우 2003 -> 비스타 까지 나왔으니..

하긴 벌써 2007년이 끝나 가니깐요.... 내년이면 벌써 자바를 안지 8년이 되가네요...

그동안 자바라는 언어를 하면서 무얼 했나 세삼 돌이켜 봅니다...

사장된 기술....그리고 잘못 선택한 choice.... 시련... 고독........

to be continue...
반응형
Posted by onlyTheOne
,
반응형

Prime 구하기 소스 올립니다.


(defun tf_prime(n i)
       (setq j 1)
       (loop
            (cond ((= (- n (* i j)) 0) (return nil))
                  ((< (- n (* i j)) i) (return t)))
            (setq j (+ j 1))))


(defun p_prime(n)
       (let ((nmt (/ (+ n 1) 2)) (counting 2))
            (loop
                (cond ((< n 4) (return t))
                      ((NOT (tf_prime n counting)) (return nil))
                      ((= counting nmt) (return t)))
                (setq counting (+ counting 1)))))


실행 방법 : ( p_prime 17) <- 요렇게 하시면 됩니다.

이렇게 되구요... 입력수가 Prime이면... T를... 아니면 nil을 반환 합니다.

사용자 지정구간에 대한 Prime은 어디가 문제 인지 모르겠는데.. 결과 도출이 또 제대로 안되네요 ㅡㅡ;

관련 부분은 소스 코드 점검을 해봐야 될거 같습니다.

구간 점검을 위한 prime 구하는 소스는 다음 번에 올려 드리겠습니다.

반응형
Posted by onlyTheOne
,
반응형

안녕하세요 생각 보다 Lisp 언어를 많이 찾아 보시는거 같으시네요 ^^:

반응이... Lisp 생각 보다 어렵고 자료구하기도 힘든거 같습니다.

이번 소스는 소수 구하기 입니다. 소수가 소숫점  1.234 이게 아니라

X라는 숫자를 나누어 떨어지는 수가 1과 자기 자신인 수 입니다.

즉, 2, 3, 5, 7, 11같은 (1 은 소수가 아니라고 합니다. 궁금하신분은 검색해 보시길...)

이 소스는 사용자로 부터 2개의 수를 입력 받아

두 수 사이의 소수를 모두 구해 내는 프로그램 입니다.

그래서!~~ 이렇게 소스를 올리고 있습니다. 물론 소스에 있는 내용을

공부도 안하면서 그냥 배끼면 안되기 때문에.!!!

저는 소스의 일부를 지워 둡니다.

정 공부하다가 모르겠다 하시는 분은 방명록이나

다른 방법으로 연락을 주신다면 힌트나 완전체 소스를 드리도록 하겠습니다.

(세상에서 가장 비싼건 공짜 이다.! )

------------------------- 아래 는 해당 소스 입니다.---------------------------------------------
1. prime 확인 함수 (인자 사용자 입력수, 나누는 수)
(defun tf_prime(n i)
(setq j 1)
/* 이 구간을 삭제 합니다.
*/
(setq j (+ j 1))))

2. prime 중간 함수 사용자로 부터 값을 받아... 해당 결과를...
prime이 아니면 nil을... prime이면 숫자를 반환
(defun p_prime(n)
(let ((nmt (/ (+ n 1) 2)) (counting 2))
(loop
/* 여기도 삭제 합니다.  */
(setq counting (+ counting 1)))))

3. (사용자 입력 받고 값 내주는 함수)
// n 부터 m까지의 prime number중 최고 높은 값 구하기
(defun primes(n m)
(let ((at n) (max_n nil))
(loop
/*  여기도 삭제 합니다.
*/
(setq at (+ at 1)))))

반응형
Posted by onlyTheOne
,
반응형
이번학기 Artificial Intelligence 수업을 듣고 있습니다.

수업 내용 중에 Lisp이라는 언어를 배우게 되었는데요

음 이 Lisp에 대한 자료를 조사해 보니...

그리 많지는 않았습니다. 우선 제가 아는 lisp은

xlisp 이라 하여 오리지날 lisp과 요즘 많이 쓰여진다고 보여지는

common lisp입니다...

common lisp에 대한 부분은 한국리습사용자모임을 방문하시면 도움이 많이 되실 겁니다.

과제로 나왔던 문제 중 하나를 코딩 한 걸 올려 둡니다.

xlisp을 이용한 sorting 이구요...

기본 알고리즘은 시간 복잡도가 linear인... 버킷 sort 입니다.

주의사항 !! 100% 완벽 지원 아닙니다.

간단히 버킷 정렬에 대해 말씀 드리면

정렬 속도를 극대화 시키기 위한 방법으로 저장공간을 사용자 입력한 데이터 만큼 이용합니다.

데이터 숫자만큼의 배열 또는 데이터를 받는 공간을 만들고 loop를 한번 돌면서..

각 공간에 매칭되는 데이터를 집어 넣고 그 결과값을 보여줍니다.

여기서 구현한건 일부 제약조건이 있지만 버킷정렬과 비슷하다고 보시면 됩니다.

어찌되었든 정렬은 되니깐요 ㅋㅋ

거의 무지 막지하게 만든 거라서요...

소스는 아래와 같습니다...

아! 그 전에 이 자료를 찾는 목적이 단순한 copy를 통한 레포트 제출용을 방지 하기 위해서

코드의 일부를 지워 두었습니다.

이 자료를 바탕으로 정렬을 만드는 법에 대해 익히는것을 바라지만...

레포트 제출용이라면 볼 필요가 없다고 생각합니다...

혹시 완전한 소스를 필요로 하신다면 방명록에 메일 주소를 남겨주시면 알려드리도록 하겠습니다.

1. array에 data를 저장 하는 함수
(defun add_arre(number)
  (setf (aref s_arr (- number 1)) number))

2. 여러 data를 array 함수로 보내는 loop용 함수
(defun sorts (l n)
  (dotimes (i n) (.....))))

3. 배열에 저장된 값을 다시 list로 반환 보여 주는 함수
(defun print_arr(n)
  ...

4. 메인 함수로 위에 선언된 함수를 호출하여 sort를 합니다.
(defun sorting (l)
  (setq num (length l)) // list의 length를 구함
  (setq s_arr (make-array num)) // array 생성
  (sorts l num) // sort 함수 호출 sorting
  (print_arr num)) // array에 저장된 값을 list 변환 출력

이렇게 코딩하시면 됩니다. 여기서 3번 함수중 맨마지막 줄을 수정하신다면 내림차순 정렬을 보실수가
있습니다.

이 소스의 단점이 하나 있는데요 바로 연속 된 수만 집어 넣어야 한다는 부분이구요
연속된 수가 1부터 시작해야 한다는 것입니다...

다음에도 xlisp에서 작성된 프로그램 예제 몇가지를 더 올리도록 하겠습니다.



반응형
Posted by onlyTheOne
,
반응형
반응형
Posted by onlyTheOne
,