abap game2
来源:互联网 发布:sql 获取update行数 编辑:程序博客网 时间:2024/06/03 18:13
REPORT z_number_puzzle.
* Declarations.
DATA: v_first TYPE xfeld,
v_won TYPE xfeld.
DATA: BEGIN OF v_name,
name TYPE char4,
num TYPE char1,
END OF v_name.
DATA: v_blank_push LIKE v_name.
DATA: v_name_tmp LIKE v_name.
DATA: v_fieldname TYPE fieldname.
DATA: BEGIN OF s_pos,
s TYPE char1,
t TYPE char1,
END OF s_pos,
t_pos LIKE STANDARD TABLE OF s_pos.
FIELD-SYMBOLS: <fs>,<fs1>.
* selection-screen objects.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE v_text.
SELECTION-SCREEN PUSHBUTTON /10(3) push1 USER-COMMAND push1.
SELECTION-SCREEN PUSHBUTTON 14(3) push2 USER-COMMAND push2.
SELECTION-SCREEN PUSHBUTTON 18(3) push3 USER-COMMAND push3.
SELECTION-SCREEN PUSHBUTTON /10(3) push4 USER-COMMAND push4.
SELECTION-SCREEN PUSHBUTTON 14(3) push5 USER-COMMAND push5.
SELECTION-SCREEN PUSHBUTTON 18(3) push6 USER-COMMAND push6.
SELECTION-SCREEN PUSHBUTTON /10(3) push7 USER-COMMAND push7.
SELECTION-SCREEN PUSHBUTTON 14(3) push8 USER-COMMAND push8.
SELECTION-SCREEN PUSHBUTTON 18(3) push9 USER-COMMAND push9.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN PUSHBUTTON /10(10) output USER-COMMAND output.
SELECTION-SCREEN PUSHBUTTON 22(10) start USER-COMMAND start.
* Initialization event.
INITIALIZATION.
* Move initial text.
PERFORM move_initial_text.
* At selection-screen output.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
* First time.
IF v_first IS INITIAL.
IF screen-name = 'PUSH9'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ELSE.
IF screen-name = v_name.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
IF v_won = 'X'.
MESSAGE i208(00) WITH 'You won'.
ENDIF.
* Set the first flag.
IF v_first IS INITIAL.
v_first = 'X'.
ENDIF.
* At selection-screen.
AT SELECTION-SCREEN.
* Check the sy-ucomm.
CASE sy-ucomm.
WHEN 'OUTPUT'.
* Show the output.
PERFORM show_output.
WHEN 'START'.
* Move the initial text.
CLEAR v_first.
PERFORM move_initial_text.
ENDCASE.
* Check if the sy-ucomm is one of the push buttons.
CHECK sy-ucomm = 'PUSH1' OR
sy-ucomm = 'PUSH2' OR
sy-ucomm = 'PUSH3' OR
sy-ucomm = 'PUSH4' OR
sy-ucomm = 'PUSH5' OR
sy-ucomm = 'PUSH6' OR
sy-ucomm = 'PUSH7' OR
sy-ucomm = 'PUSH8' OR
sy-ucomm = 'PUSH9'.
* move the sy-ucomm.
v_name_tmp = sy-ucomm.
* Check valid button.
CLEAR: s_pos.
READ TABLE t_pos INTO s_pos WITH KEY s = v_name_tmp-num
t = v_blank_push-num.
IF sy-subrc <> 0.
v_name = v_blank_push.
EXIT.
ENDIF.
* Move the user command.
v_name = sy-ucomm.
* Get the text.
CLEAR v_fieldname.
CONCATENATE 'PUSH' v_name-num INTO v_fieldname.
ASSIGN (v_fieldname) TO <fs>.
* Get the blank push value.
CLEAR v_fieldname.
CONCATENATE 'PUSH' v_blank_push-num INTO v_fieldname.
ASSIGN (v_fieldname) TO <fs1>.
* Move the values.
<fs1> = <fs>.
* success.
IF push1 = '1' AND
push2 = '2' AND
push3 = '3' AND
push4 = '4' AND
push5 = '5' AND
push6 = '6' AND
push7 = '7' AND
push8 = '8'.
v_won = 'X'.
ENDIF.
* Move the blank push to the current.
v_blank_push = v_name.
DEFINE pop.
clear: s_pos.
s_pos-s = &1.
s_pos-t = &2.
append s_pos to t_pos.
END-OF-DEFINITION.
*---------------------------------------------------------------------*
* FORM move_initial_text *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM move_initial_text.
* Move frame title.
MOVE 'Game' TO v_text.
MOVE 'Output' TO output.
MOVE 'Start' TO start.
* Move values to the push button.
MOVE '4' TO push1.MOVE '3' TO push2.
MOVE '2' TO push3.MOVE '7' TO push4.
MOVE '5' TO push5.MOVE '6' TO push6.
MOVE '8' TO push7.MOVE '1' TO push8.
MOVE ' ' TO push9.
* Set the blank push.
v_blank_push = 'PUSH9'.
* Prepare the possible values for each place.
CLEAR: t_pos.
pop '1' '2'.pop '1' '4'.
pop '2' '1'.pop '2' '3'.pop '2' '5'.
pop '3' '2'.pop '3' '6'.
pop '4' '1'.pop '4' '5'.pop '4' '7'.
pop '5' '2'.pop '5' '4'.pop '5' '6'.pop '5' '8'.
pop '6' '3'.pop '6' '5'.pop '6' '9'.
pop '7' '4'.pop '7' '8'.
pop '8' '5'.pop '8' '7'.pop '8' '9'.
pop '9' '6'.pop '9' '8'.
ENDFORM.
*---------------------------------------------------------------------*
* FORM show_output *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM show_output.
* Move values to the push button.
MOVE '1' TO push1.MOVE '2' TO push2.
MOVE '3' TO push3.MOVE '4' TO push4.
MOVE '5' TO push5.MOVE '6' TO push6.
MOVE '7' TO push7.MOVE '8' TO push8.
MOVE ' ' TO push9.
* Set the blank push.
v_blank_push = 'PUSH9'.
CLEAR v_first.
ENDFORM.
- abap game2
- leetcode-jump Game2
- My New Game2
- mj评-《HUNGE-R GAME2>>8
- use javascript for game2 slaying dragon
- ABAP
- ABAP
- abap
- ABAP
- 【leetcode】Array——Jump Game2(45)
- Game2.0会不会为程序员们带来美好的钱途
- abap--About ABAP Debugger
- abap 破解
- ABAP-指针
- ABAP FAQs
- ABAP Qusetionlist
- ABAP OOP
- ABAP 1
- Android学习之Alarm driver
- ABAP GAME
- 深入研究java.long.Class类
- Android 之 Looper、MessageQueue、Handler 与消息循环
- abap game1
- abap game2
- 使用 office2007 document imaging control 控件 做识别 OCR
- 出现了一个关于TC的疑问。。。。高手请来。。。
- 利用DB Link实现数据库间的表同步
- 【转】C#打开运行exe程序
- Ext Js 3.2 EditorGridPanel 的使用方法
- 动态生成程序例子
- ENC28J60 SPI网卡移植 linux 2.6.28 SAMSUNG 6410 ARM11
- 【Android】 Canvas、Path 和 Paint 实例 (游戏开发必备)