没有合适的资源?快使用搜索试试~ 我知道了~
ABAP GAME1
需积分: 9 0 下载量 42 浏览量
2010-01-11
22:22:19
上传
评论
收藏 5KB TXT 举报
温馨提示
试读
7页
game1.txtgame1.txtgame1.txtgame1.txtgame1.txtgame1.txt
资源推荐
资源详情
资源评论
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.
* 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.
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.
剩余6页未读,继续阅读
资源评论
donnie126
- 粉丝: 1
- 资源: 24
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功