<img src=2.gif>지금 아밥을 시작한 초보입니다 ^^ 공부하다 사다리타기 프로그램심심해서 짜봤어요..

그림장이 2011.02.18 03:02 조회 수 : 2229

진지한 아밥 자료실엔 올리기 머하고 자유게시판에 올려요

허접하지만... 아직 공부하고 있는중이니 너그럽게 봐주세요 ㅠㅠ

사다리 타기.. 이름 7개에 넣으시고... 돌리세요 ㅋㅋ

사람 인원에따라 편집해서 하세요 ㅎㅎ;;;;

PARAMETERS: num1(10),
            num2(10),
            num3(10),
            num4(10),
            num5(10),
            num6(10),
            num7(10).

DATA: num_1 TYPE i VALUE '1',
      num_2 TYPE i VALUE '2',
      num_3 TYPE i VALUE '3',
      num_4 TYPE i VALUE '4',
      num_5 TYPE i VALUE '5',
      num_6 TYPE i VALUE '6',
      num_7 TYPE i VALUE '7'.
DATA: unluck LIKE datatype-integer4.
DATA: rmin TYPE i,
      rmax TYPE i.
rmin = 1.
rmax = 7.

DO 100 TIMES.
  CALL FUNCTION 'RANDOM_I4'
    EXPORTING
      rnd_min   = rmin
      rnd_max   = rmax
    IMPORTING
      rnd_value = unluck.
ENDDO.

IF num_1 = unluck.
  MESSAGE i001(abap)  WITH num1'은/는 꽝!!!!떡볶이사오세요!!!'.
ELSEIF num_2 = unluck.
  MESSAGE i002(abap)  WITH num2'은/는 꽝!!!!떡볶이사오세요!!!'.
ELSEIF num_3 = unluck.
  MESSAGE i003(abap)  WITH num3'은/는 꽝!!!!떡볶이사오세요!!!'.
ELSEIF num_4 = unluck.
  MESSAGE i004(abap)  WITH num4'은/는 꽝!!!!떡볶이사오세요!!!'.
ELSEIF num_5 = unluck.
  MESSAGE i005(abap)  WITH num5'은/는 꽝!!!!떡볶이사오세요!!!'.
ELSEIF num_6 = unluck.
  MESSAGE i006(abap)  WITH num6'은/는 꽝!!!!떡볶이사오세요!!!'.
ELSEIF num_7 = unluck.
  MESSAGE i007(abap)  WITH num7'은/는 꽝!!!!떡볶이사오세요!!!'.
ENDIF.

* e-abap님에 의해서 게시물 이동되었습니다 (2011-02-17 18:36)

이 게시물을

수정 삭제 목록

초보아밥퍼

2011.02.18 04:07

혼자하니 전부 꽝 ㅜ^ㅜ 재밌네요

댓글 수정 삭제
양키

2011.02.18 17:49

'RANDOM_I4' 이런 Function도 있었네요. ㅎㅎ

댓글 수정 삭제
늦깍이대뷰자

2011.02.18 17:52

공부하시는 분이 이걸 짜시니 대단하신데요..^^

댓글 수정 삭제
육포먹는 스님

2011.02.18 18:08

재미있는 펑션 및 프로그램 갑니다..

댓글 수정 삭제
그림장이

2011.02.18 18:35

아 재밌게 봐주셔서 감사합니다 ^^;; 분명히 자유게시판에 올린거 같은데 ... 이동되어있네요 ㅋ;;

댓글 수정 삭제
Abap

2011.02.18 19:25

와.. 재미있게 공부하시네요..^^ 실력도 금방금방 올라가실듯 합니다!

댓글 수정 삭제
icarus

2011.02.18 19:42

공부하신다고 하셔서...

일단 올려주신 소스 기준으로 필드심벌 사용하시면 아래처럼 할 수 있어요...

PARAMETERS: num1(10),
            num2(10),
            num3(10),
            num4(10),
            num5(10),
            num6(10),
            num7(10).

DATA: num_1 TYPE i VALUE '1',
      num_2 TYPE i VALUE '2',
      num_3 TYPE i VALUE '3',
      num_4 TYPE i VALUE '4',
      num_5 TYPE i VALUE '5',
      num_6 TYPE i VALUE '6',
      num_7 TYPE i VALUE '7'.
DATA: unluck LIKE datatype-integer4.
DATA: rmin TYPE i,
      rmax TYPE i.

DATA: lv_num(01) TYPE n,
      lv_unluck(20).
FIELD-SYMBOLS: <fs>.

rmin = 1.
rmax = 7.

DO 100 TIMES.
  CALL FUNCTION 'RANDOM_I4'
    EXPORTING
      rnd_min   = rmin
      rnd_max   = rmax
    IMPORTING
      rnd_value = unluck.
ENDDO.

lv_num = unluck.
CONCATENATE 'NUM' lv_num INTO lv_unluck.
ASSIGN (lv_unluck) TO <fs>.

MESSAGE i001(abap)  WITH <fs> '은/는 꽝!!!!떡볶이사오세요!!!'.

댓글 수정 삭제
기쁨

2011.02.18 20:09

잼있는 프로그램이네요. 떡볶이 사러가야징.. ㅋㅋ

댓글 수정 삭제
그림장이

2011.02.18 20:21

하앍 ^^ 필드심볼까지 ㅎㅎ 감사합니다 열공하겠습니다....

댓글 수정 삭제
ABAPCHOJJA

2011.02.18 23:11

재미있을 것 같아 저도 한번 만들어봤어요. ^^

DATA RAND_I TYPE I.
DATA FNAME  TYPE FIELDNAME.
DATA NUMBER TYPE N LENGTH 1.
DATA POS    TYPE I.
DATA RAND_T TYPE SORTED TABLE OF I WITH UNIQUE KEY TABLE_LINE.

FIELD-SYMBOLS <FS_RESULT> TYPE ANY.

" 이름 지정 ( 7명 기준 )
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : P_1 TYPE CHAR10,
             P_2 TYPE CHAR10,
             P_3 TYPE CHAR10,
             P_4 TYPE CHAR10,
             P_5 TYPE CHAR10,
             P_6 TYPE CHAR10,
             P_7 TYPE CHAR10.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN END   OF BLOCK BLOCK1.
" Blank
SELECTION-SCREEN BEGIN OF BLOCK BLOCK2.
SELECTION-SCREEN SKIP 7.
SELECTION-SCREEN END  OF BLOCK BLOCK2.
" 벌칙
SELECTION-SCREEN BEGIN OF BLOCK BLOCK3.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : P_F1 TYPE CHAR10 DEFAULT '꽝',
             P_F2 TYPE CHAR10 DEFAULT '1000',
             P_F3 TYPE CHAR10 DEFAULT '꽝',
             P_F4 TYPE CHAR10 DEFAULT '2000',
             P_F5 TYPE CHAR10 DEFAULT '꽝',
             P_F6 TYPE CHAR10 DEFAULT '3000',
             P_F7 TYPE CHAR10 DEFAULT '5000'.
SELECTION-SCREEN END   OF LINE.
SELECTION-SCREEN END   OF BLOCK BLOCK3.

START-OF-SELECTION.

  WRITE : (10) P_1 NO-GAP CENTERED COLOR 1,
          (10) P_2 NO-GAP CENTERED COLOR 2,
          (10) P_3 NO-GAP CENTERED COLOR 3,
          (10) P_4 NO-GAP CENTERED COLOR 4,
          (10) P_5 NO-GAP CENTERED COLOR 5,
          (10) P_6 NO-GAP CENTERED COLOR 6,
          (10) P_7 NO-GAP CENTERED COLOR 7.

  FORMAT RESET.

  WRITE /.

  DO 7 TIMES.
    WRITE : (10) SY-VLINE NO-GAP CENTERED,
            (10) SY-VLINE NO-GAP CENTERED,
            (10) SY-VLINE NO-GAP CENTERED,
            (10) SY-VLINE NO-GAP CENTERED,
            (10) SY-VLINE NO-GAP CENTERED,
            (10) SY-VLINE NO-GAP CENTERED,
            (10) SY-VLINE NO-GAP CENTERED.
    WRITE /.
  ENDDO.

  CLEAR NUMBER.

  DO 7 TIMES.

    CALL FUNCTION 'RANDOM_I4'
      EXPORTING
        RND_MIN   = 1
        RND_MAX   = 7
      IMPORTING
        RND_VALUE = RAND_I.

    " 중복 점검 및 재시도
    DO 1000 TIMES.
      READ TABLE RAND_T TRANSPORTING NO FIELDS
                        FROM RAND_I.
      IF SY-SUBRC IS NOT INITIAL.
        INSERT RAND_I INTO TABLE RAND_T.
        EXIT.
      ELSE.
        CALL FUNCTION 'RANDOM_I4'
          EXPORTING
            RND_MIN   = 1
            RND_MAX   = 7
          IMPORTING
            RND_VALUE = RAND_I.
      ENDIF.
    ENDDO.

    POS = RAND_I * 10 - 10.

    ADD 1 TO NUMBER.
    CONCATENATE 'P_F' NUMBER INTO FNAME.
    ASSIGN (FNAME) TO <FS_RESULT>.

    WRITE AT POS(10) <FS_RESULT> NO-GAP CENTERED.

댓글 수정 삭제
그림장이

2011.02.19 01:53

호곡.. 이건 또 머지 .. 함 실행해보고 어떻게 돌아가는지 연구해봐야겠네요 ㅋ

댓글 수정 삭제
남군

2011.02.21 17:54

ㅎㅎ 잘 보고 갑니다. Online으로도 만들어도 꽤 재밌을것도 같네요~

댓글 수정 삭제
젊은시인

2011.02.22 21:30

ㅋㅋㅋ

댓글 수정 삭제
싼타할배

2011.02.23 22:19

저도 재밌게 공부해야겠습니다^^

댓글 수정 삭제

번호	제목	글쓴이	날짜	조회 수
5879	<img src=3.gif>넷위버 트라이얼 버전 프로그램 생성문의.. [2]	abap왕초보	2010.05.19	1055
5878	<img src=2.gif>ABAP에서 오늘 연도 및 날짜 구하는 법 알려주시기 바랍니다. [3]	체사레	2010.05.13	1276
5877	<img src=3.gif>넷위버 설치관련해서 설치 파일 담아논곳을 찾습니다~ [2]	abap왕초보	2010.05.13	1074
5876	<img src=3.gif>200번 화면에서 기본값을 바꾼 후 엔터시 다시 기본값으로 돌아가는 현상 [3]	맨날초보	2011.02.24	1526
5875	<img src=2.gif>[proxy] 개발에 생성한 proxy를 운영에 cts 하는 방법??? [1]	맹꽁이	2011.02.24	1663
5874	<img src=3.gif> Function 만들떄 Typing에 TYPE REF TO는 어떤때 쓰는 것 인가요? [1]	초보자라네	2011.02.24	2021
5873	<img src=2.gif>GUI다운로드로 파일 다운받은 후 변환에 대해서 [1]	열공합시다	2011.02.24	1622
5872	<img src=1.gif>F-04에서 전표 부분반제 하려는데 BAPI 있나요?	yang	2011.02.23	2389
5871	<img src=1.gif>itutor 설치시 문의 사항입니다..	슈퍼복덩이	2011.02.23	1394
5870	<img src=2.gif>structure 생성시 specify reference table AND reference field 에러 발생 [1]	모포	2011.02.23	1951
5869	<img src=3.gif>리포트프로그램 엑셀 다운로드시 총계도 같이 출력하려면???;; [2]	ymjeong	2011.02.23	1728
5868	<img src=2.gif>userexit, badi, 대체관련 질문입니다. [3]	쓰나미	2011.02.22	2505
5867	<img src=2.gif>C#으로 해서 RFC Fuction 호출하고 싶습니다. 어떻게 해야 한데요?? [1]	젊은시인	2011.02.22	2626
5866	<img src=2.gif>A프로그램에서 B프로그램의 결과 ITAB을 받아오고싶습니다. [3]	아밥맨	2011.02.22	2174
5865	<img src=2.gif>Tree ALV에서 컨텍스트 메뉴 생성하는 방법좀 알려주세요. [1]	초밥	2011.02.22	2016
5864	<img src=3.gif>공부중인 아밥 초보입니다 ^^;;; 달력을 만들어봤는데요.. [5]	그림장이	2011.02.21	1994
5863	<img src=2.gif>과거 Sales group name 유지시키는 방법 ? [2]	모포	2011.02.21	1544
5862	<img src=3.gif>XI가 로그를 남기는 테이블을 알고 계시면 알려주세요. [2]	처음처럼	2011.02.21	1233
5861	<img src=2.gif>유저사용변경기록 남기는건 없나요? [3]	marco	2011.02.21	1175
5860	<img src=1.gif>HR 스키마관련 특히 일할생성을 알고싶은데...	후니~	2011.02.21	1380

쓰기 태그

첫 페이지 29 30 31 32 33 34 35 36 37 38 끝 페이지

SAP 한국 커뮤니티

로그인

<img src=2.gif>지금 아밥을 시작한 초보입니다 ^^ 공부하다 사다리타기 프로그램심심해서 짜봤어요..

댓글 14

초보아밥퍼

양키

늦깍이대뷰자

육포먹는 스님

그림장이

Abap

icarus

기쁨

그림장이

ABAPCHOJJA

그림장이

남군

젊은시인

싼타할배