ITPUB论坛－专业的IT技术社区

登录 注册
ITPUB论坛－专业的IT技术社区»论坛 › ≡ 企业信息化 ≡ › SAP R/3 › 用ＡＢＡＰ作游戏开发？
12345678下一页
返回列表 发新帖
楼主: alexyang1223
收藏 | 打印 上一主题 下一主题

用ＡＢＡＰ作游戏开发？

[复制链接]
SKmadfrog
论坛徽章:
65
娜美 日期:2019-11-05 22:10:22日产 日期:2013-10-25 16:03:35比亚迪 日期:2013-10-10 21:14:31蛋疼蛋 日期:2013-07-11 12:50:51蜘蛛蛋 日期:2013-06-15 14:48:28复活蛋 日期:2013-05-09 22:48:44奥运会纪念徽章:射击 日期:2012-08-22 18:54:11灰彻蛋 日期:2011-12-08 22:41:29灰彻蛋 日期:2011-11-26 23:41:15蛋疼蛋 日期:2011-11-19 18:41:26
11#
发表于 2008-11-19 17:17 | 只看该作者
急求游戏代码

使用道具 举报

回复
alexyang1223
论坛徽章:
0
12#
 楼主| 发表于 2008-11-19 17:17 | 只看该作者
写过游戏的人分享一下经验,

使用道具 举报

回复
rosefish
论坛徽章:
121
紫蛋头 日期:2013-07-02 19:27:392014年新春福章 日期:2014-02-18 16:41:11马上有车 日期:2014-02-18 16:41:112014年世界杯参赛球队: 波黑 日期:2014-06-07 00:05:53喜羊羊 日期:2015-03-04 14:49:392015年新春福章 日期:2015-03-06 11:57:31
13#
发表于 2008-11-19 17:22 | 只看该作者
试玩过别人写的俄罗斯方块

使用道具 举报

回复
wellking
论坛徽章:
5
奥运会纪念徽章:自行车 日期:2008-05-11 12:38:22奥运会纪念徽章:摔跤 日期:2008-10-24 13:21:29生肖徽章2007版:猴 日期:2008-11-16 14:42:48生肖徽章2007版:牛 日期:2009-01-04 13:19:22生肖徽章2007版:狗 日期:2009-03-10 21:31:05
14#
发表于 2008-11-19 17:32 | 只看该作者
这么牛!谁做过先谈谈思路啊.

使用道具 举报

回复
alexyang1223
论坛徽章:
0
15#
 楼主| 发表于 2008-11-19 17:54 | 只看该作者
原帖由 rosefish 于 2008-11-19 17:22 发表
试玩过别人写的俄罗斯方块


玩过？？
羡慕，
我见都没有见过，

把思路弄个出来

大家凑着弄个游戏出来，

使用道具 举报

回复
zltpc007
论坛徽章:
55
Jeep 日期:2013-09-09 14:56:182014年新春福章 日期:2014-02-18 16:42:02马上有房 日期:2014-02-18 16:42:022014年新春福章 日期:2014-04-10 10:59:40马上有对象 日期:2014-05-04 16:31:492014年世界杯参赛球队: 阿根廷 日期:2014-07-01 19:32:06罗罗诺亚·索隆 日期:2018-10-19 09:52:41
16#
发表于 2008-11-19 18:00 | 只看该作者
ABAP编写的小游戏

  1. *&---------------------------------------------------------------------*
  2. *& Report  Z_BUTTON_GAME                                               *
  3. *&                                                                     *
  4. *&---------------------------------------------------------------------*
  5. *&                                                                     *
  6. *&                                                                     *
  7. *&---------------------------------------------------------------------*

  9. REPORT z_button_game .

  11. INCLUDE <icon>.
  12. TABLES : sscrfields.
  13. *** internal table for storing the list of icons temporarily
  14. DATA : BEGIN OF i_icons OCCURS 1000,
  15. id LIKE icon-id,
  16. END OF i_icons.
  17. *** internal table for storing the 32 icons/pictures
  18. DATA : BEGIN OF i_iconlist OCCURS 32,
  19. id LIKE icon-id,
  20. END OF i_iconlist.
  21. *** internal table for storing the icons in the 64 positions
  22. DATA : BEGIN OF i_layout OCCURS 0,
  23. row(1) TYPE n,
  24. col(1) TYPE n,
  25. id LIKE icon-id,
  26. END OF i_layout.
  27. *** data declaration
  28. DATA : w_layout LIKE i_layout.
  29. DATA : ran_no TYPE i.
  30. DATA : len TYPE i.
  31. DATA : subrc LIKE sy-subrc.
  32. DATA : count TYPE i.
  33. DATA : name(10).
  34. DATA : flg_one.
  35. DATA : flg_two.
  36. DATA : icon_one LIKE icon-id.
  37. DATA : icon_two LIKE icon-id.
  38. DATA : b_one(5).
  39. DATA : b_two(5).
  40. DATA : current_ucomm LIKE sscrfields-ucomm.
  41. FIELD-SYMBOLS : <fs> TYPE ANY.
  42. **** selection-screen declaration.
  43. *** keeping the button names and its user-command same will
  44. *** make things easier later....
  45. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME NO INTERVALS.
  46. SELECTION-SCREEN SKIP 1.
  47. SELECTION-SCREEN PUSHBUTTON /2(4) pb11 USER-COMMAND pb11.
  48. SELECTION-SCREEN PUSHBUTTON 9(4) pb12 USER-COMMAND pb12.
  49. SELECTION-SCREEN PUSHBUTTON 16(4) pb13 USER-COMMAND pb13.
  50. SELECTION-SCREEN PUSHBUTTON 23(4) pb14 USER-COMMAND pb14.
  51. SELECTION-SCREEN PUSHBUTTON 30(4) pb15 USER-COMMAND pb15.
  52. SELECTION-SCREEN PUSHBUTTON 37(4) pb16 USER-COMMAND pb16.
  53. SELECTION-SCREEN PUSHBUTTON 44(4) pb17 USER-COMMAND pb17.
  54. SELECTION-SCREEN PUSHBUTTON 51(4) pb18 USER-COMMAND pb18.
  55. SELECTION-SCREEN SKIP 1.
  56. SELECTION-SCREEN PUSHBUTTON /2(4) pb21 USER-COMMAND pb21.
  57. SELECTION-SCREEN PUSHBUTTON 9(4) pb22 USER-COMMAND pb22.
  58. SELECTION-SCREEN PUSHBUTTON 16(4) pb23 USER-COMMAND pb23.
  59. SELECTION-SCREEN PUSHBUTTON 23(4) pb24 USER-COMMAND pb24.
  60. SELECTION-SCREEN PUSHBUTTON 30(4) pb25 USER-COMMAND pb25.
  61. SELECTION-SCREEN PUSHBUTTON 37(4) pb26 USER-COMMAND pb26.
  62. SELECTION-SCREEN PUSHBUTTON 44(4) pb27 USER-COMMAND pb27.
  63. SELECTION-SCREEN PUSHBUTTON 51(4) pb28 USER-COMMAND pb28.
  64. SELECTION-SCREEN SKIP 1.
  65. SELECTION-SCREEN PUSHBUTTON /2(4) pb31 USER-COMMAND pb31.
  66. SELECTION-SCREEN PUSHBUTTON 9(4) pb32 USER-COMMAND pb32.
  67. SELECTION-SCREEN PUSHBUTTON 16(4) pb33 USER-COMMAND pb33.
  68. SELECTION-SCREEN PUSHBUTTON 23(4) pb34 USER-COMMAND pb34.
  69. SELECTION-SCREEN PUSHBUTTON 30(4) pb35 USER-COMMAND pb35.
  70. SELECTION-SCREEN PUSHBUTTON 37(4) pb36 USER-COMMAND pb36.
  71. SELECTION-SCREEN PUSHBUTTON 44(4) pb37 USER-COMMAND pb37.
  72. SELECTION-SCREEN PUSHBUTTON 51(4) pb38 USER-COMMAND pb38.
  73. SELECTION-SCREEN SKIP 1.
  74. SELECTION-SCREEN PUSHBUTTON /2(4) pb41 USER-COMMAND pb41.
  75. SELECTION-SCREEN PUSHBUTTON 9(4) pb42 USER-COMMAND pb42.
  76. SELECTION-SCREEN PUSHBUTTON 16(4) pb43 USER-COMMAND pb43.
  77. SELECTION-SCREEN PUSHBUTTON 23(4) pb44 USER-COMMAND pb44.
  78. SELECTION-SCREEN PUSHBUTTON 30(4) pb45 USER-COMMAND pb45.
  79. SELECTION-SCREEN PUSHBUTTON 37(4) pb46 USER-COMMAND pb46.
  80. SELECTION-SCREEN PUSHBUTTON 44(4) pb47 USER-COMMAND pb47.
  81. SELECTION-SCREEN PUSHBUTTON 51(4) pb48 USER-COMMAND pb48.
  82. SELECTION-SCREEN SKIP 1.
  83. SELECTION-SCREEN PUSHBUTTON /2(4) pb51 USER-COMMAND pb51.
  84. SELECTION-SCREEN PUSHBUTTON 9(4) pb52 USER-COMMAND pb52.
  85. SELECTION-SCREEN PUSHBUTTON 16(4) pb53 USER-COMMAND pb53.
  86. SELECTION-SCREEN PUSHBUTTON 23(4) pb54 USER-COMMAND pb54.
  87. SELECTION-SCREEN PUSHBUTTON 30(4) pb55 USER-COMMAND pb55.
  88. SELECTION-SCREEN PUSHBUTTON 37(4) pb56 USER-COMMAND pb56.
  89. SELECTION-SCREEN PUSHBUTTON 44(4) pb57 USER-COMMAND pb57.
  90. SELECTION-SCREEN PUSHBUTTON 51(4) pb58 USER-COMMAND pb58.
  91. SELECTION-SCREEN SKIP 1.
  92. SELECTION-SCREEN PUSHBUTTON /2(4) pb61 USER-COMMAND pb61.
  93. SELECTION-SCREEN PUSHBUTTON 9(4) pb62 USER-COMMAND pb62.
  94. SELECTION-SCREEN PUSHBUTTON 16(4) pb63 USER-COMMAND pb63.
  95. SELECTION-SCREEN PUSHBUTTON 23(4) pb64 USER-COMMAND pb64.
  96. SELECTION-SCREEN PUSHBUTTON 30(4) pb65 USER-COMMAND pb65.
  97. SELECTION-SCREEN PUSHBUTTON 37(4) pb66 USER-COMMAND pb66.
  98. SELECTION-SCREEN PUSHBUTTON 44(4) pb67 USER-COMMAND pb67.
  99. SELECTION-SCREEN PUSHBUTTON 51(4) pb68 USER-COMMAND pb68.
  100. SELECTION-SCREEN SKIP 1.
  101. SELECTION-SCREEN PUSHBUTTON /2(4) pb71 USER-COMMAND pb71.
  102. SELECTION-SCREEN PUSHBUTTON 9(4) pb72 USER-COMMAND pb72.
  103. SELECTION-SCREEN PUSHBUTTON 16(4) pb73 USER-COMMAND pb73.
  104. SELECTION-SCREEN PUSHBUTTON 23(4) pb74 USER-COMMAND pb74.
  105. SELECTION-SCREEN PUSHBUTTON 30(4) pb75 USER-COMMAND pb75.
  106. SELECTION-SCREEN PUSHBUTTON 37(4) pb76 USER-COMMAND pb76.
  107. SELECTION-SCREEN PUSHBUTTON 44(4) pb77 USER-COMMAND pb77.
  108. SELECTION-SCREEN PUSHBUTTON 51(4) pb78 USER-COMMAND pb78.
  109. SELECTION-SCREEN SKIP 1.
  110. SELECTION-SCREEN PUSHBUTTON /2(4) pb81 USER-COMMAND pb81.
  111. SELECTION-SCREEN PUSHBUTTON 9(4) pb82 USER-COMMAND pb82.
  112. SELECTION-SCREEN PUSHBUTTON 16(4) pb83 USER-COMMAND pb83.
  113. SELECTION-SCREEN PUSHBUTTON 23(4) pb84 USER-COMMAND pb84.
  114. SELECTION-SCREEN PUSHBUTTON 30(4) pb85 USER-COMMAND pb85.
  115. SELECTION-SCREEN PUSHBUTTON 37(4) pb86 USER-COMMAND pb86.
  116. SELECTION-SCREEN PUSHBUTTON 44(4) pb87 USER-COMMAND pb87.
  117. SELECTION-SCREEN PUSHBUTTON 51(4) pb88 USER-COMMAND pb88.
  118. SELECTION-SCREEN SKIP 1.
  119. SELECTION-SCREEN BEGIN OF LINE.
  120. SELECTION-SCREEN COMMENT 2(15) no_tries.
  121. PARAMETERS : p_tries TYPE i MODIF ID hid VISIBLE LENGTH 3.
  122. SELECTION-SCREEN END OF LINE.
  123. SELECTION-SCREEN END OF BLOCK b1.

  125. INITIALIZATION.
  126.   PERFORM do_initialization.

  128. AT SELECTION-SCREEN OUTPUT.
  129.   IF i_layout[] IS INITIAL.
  130.     MESSAGE i000(z01) WITH 'You have WON !!!'.
  131.   ENDIF.
  132. *** make the count field display only
  133.   LOOP AT SCREEN.
  134.     IF screen-group1 = 'HID'.
  135.       screen-input = 0.
  136.       MODIFY SCREEN.
  137.     ENDIF.
  138.   ENDLOOP.

  140. AT SELECTION-SCREEN.
  141. *** make sure it is one of the buttons that is clicked and
  142. *** not clicking the same button again
  143. *** exception is if 2 are open and you want to keep the 2nd one open
  144. *** you can do so....
  145.   CHECK sscrfields-ucomm CS 'PB' AND
  146.   ( sscrfields-ucomm <> current_ucomm OR
  147.   NOT flg_two IS INITIAL ).
  148.   current_ucomm = sscrfields-ucomm.
  149. *** making sure again that a button is clicked and get the icon
  150. *** hidden in the clicked button.
  151.   READ TABLE i_layout WITH KEY row = sscrfields-ucomm+2(1)
  152.   col = sscrfields-ucomm+3(1).
  153.   CHECK sy-subrc = 0.
  154.   PERFORM validate.
  155. *&---------------------------------------------------------------------*
  156. *& Form validate
  157. *&---------------------------------------------------------------------*
  158. * checking whether its the 1st or the 2nd button click, assign the ucomm
  159. * to the field-symbol. The trick is the buttons have been named same as
  160. * its ucomm, so assigning it gives the value of the button.
  161. *----------------------------------------------------------------------*
  162. * --> p1 text
  163. * <-- p2 text
  164. *----------------------------------------------------------------------*
  165. FORM validate.
  166.   IF NOT flg_two IS INITIAL.
  167.     ASSIGN (b_one) TO <fs>.
  168.     <fs> = '@5F@'.
  169.     ASSIGN (b_two) TO <fs>.
  170.     <fs> = '@5F@'.
  171.     CLEAR : flg_one,flg_two,
  172.     icon_one,icon_two,
  173.     b_one,b_two.
  174.   ENDIF.
  175.   IF flg_one IS INITIAL OR
  176.   flg_two IS INITIAL.
  177.     ASSIGN (sscrfields-ucomm) TO <fs>.
  178.     IF sy-subrc = 0.
  179.       <fs> = i_layout-id.
  180.     ENDIF.
  181.     IF flg_one IS INITIAL.
  182.       flg_one = 'X'.
  183.       icon_one = i_layout-id.
  184.       b_one = sscrfields-ucomm.
  185.     ELSEIF flg_two IS INITIAL.
  186.       flg_two = 'X'.
  187.       icon_two = i_layout-id.
  188.       b_two = sscrfields-ucomm.
  189.     ENDIF.
  190.   ENDIF.
  191.   IF icon_one = icon_two.
  192.     p_tries = p_tries + 1.
  193.     DELETE i_layout WHERE id = icon_one.
  194.     CLEAR : flg_one,flg_two,icon_one,icon_two.
  195.   ENDIF.
  196.   IF NOT flg_two IS INITIAL.
  197.     p_tries = p_tries + 1.
  198.   ENDIF.
  199. ENDFORM. " validate
  200. *&---------------------------------------------------------------------*
  201. *& Form do_initialization
  202. *&---------------------------------------------------------------------*
  203. * Make all the buttons show blank space. Also select, the list of
  204. * all icons from the standard table and select 32 from it randomly. Once
  205. * the 32 icons are selected, lay it out in pairs on the 8 X 8 board of
  206. * buttons.
  207. *----------------------------------------------------------------------*
  208. *----------------------------------------------------------------------*
  209. FORM do_initialization.
  210.   no_tries = 'No. of Tries'.
  211.   pb11 = pb12 = pb13 = pb14 = pb15 = pb16 = pb17 = pb18 = icon_space.
  212.   pb21 = pb22 = pb23 = pb24 = pb25 = pb26 = pb27 = pb28 = icon_space.
  213.   pb31 = pb32 = pb33 = pb34 = pb35 = pb36 = pb37 = pb38 = icon_space.
  214.   pb41 = pb42 = pb43 = pb44 = pb45 = pb46 = pb47 = pb48 = icon_space.
  215.   pb51 = pb52 = pb53 = pb54 = pb55 = pb56 = pb57 = pb58 = icon_space.
  216.   pb61 = pb62 = pb63 = pb64 = pb65 = pb66 = pb67 = pb68 = icon_space.
  217.   pb71 = pb72 = pb73 = pb74 = pb75 = pb76 = pb77 = pb78 = icon_space.
  218.   pb81 = pb82 = pb83 = pb84 = pb85 = pb86 = pb87 = pb88 = icon_space.
  219.   SELECT id FROM icon INTO TABLE i_icons
  220.   WHERE NOT id IN ('@5F@','@E5@','@00@','@E6@','@E7@',
  221.   '@EI@','@GE@','@GG@','@JX@','@JY@',
  222.   '@JZ@','@K0@').
  223.   DESCRIBE TABLE i_icons LINES len.
  224.   CLEAR : subrc.
  225.   WHILE subrc < 32.
  226.     CALL FUNCTION 'QF05_RANDOM_INTEGER'
  227.       EXPORTING
  228.         ran_int_max   = len
  229.         ran_int_min   = 1
  230.       IMPORTING
  231.         ran_int       = ran_no
  232.       EXCEPTIONS
  233.         invalid_input = 1
  234.         OTHERS        = 2.
  235.     READ TABLE i_icons INDEX ran_no.
  236.     READ TABLE i_iconlist WITH KEY id = i_icons-id.
  237.     IF sy-subrc <> 0.
  238.       i_iconlist-id = i_icons-id.
  239.       APPEND i_iconlist.
  240.     ENDIF.
  241.     DESCRIBE TABLE i_iconlist LINES subrc.
  242.   ENDWHILE.
  243.   REFRESH : i_icons.
  244.   CLEAR : subrc.
  245.   WHILE subrc < 64.
  246.     IF subrc <> 0.
  247.       READ TABLE i_layout INDEX subrc.
  248.       IF i_layout-col = 8.
  249.         i_layout-col = 1.
  250.         i_layout-row = i_layout-row + 1.
  251.       ELSE.
  252.         i_layout-col = i_layout-col + 1.
  253.       ENDIF.
  254.     ELSE.
  255.       i_layout-row = 1.
  256.       i_layout-col = 1.
  257.     ENDIF.
  258.     CLEAR : count,i_iconlist.
  259.     CALL FUNCTION 'QF05_RANDOM_INTEGER'
  260.       EXPORTING
  261.         ran_int_max   = 32
  262.         ran_int_min   = 1
  263.       IMPORTING
  264.         ran_int       = ran_no
  265.       EXCEPTIONS
  266.         invalid_input = 1
  267.         OTHERS        = 2.
  268.     READ TABLE i_iconlist INDEX ran_no.
  269.     LOOP AT i_layout INTO w_layout WHERE id = i_iconlist-id.
  270.       count = count + 1.
  271.     ENDLOOP.
  272.     IF count < 2.
  273.       i_layout-id = i_iconlist-id.
  274.       APPEND i_layout.
  275.     ENDIF.
  276.     CLEAR : i_layout.
  277.     DESCRIBE TABLE i_layout LINES subrc.
  278.   ENDWHILE.
  279.   CLEAR : flg_one,flg_two,icon_one,icon_two, current_ucomm.
  280. ENDFORM. " do_initialization

复制代码

使用道具 举报

回复
alexyang1223
论坛徽章:
0
17#
 楼主| 发表于 2008-11-19 18:17 | 只看该作者







如果想写成例如俄罗斯方块，动态类的，
该如何呢？？

请高手指点一二....

使用道具 举报

回复
renken158
论坛徽章:
3
生肖徽章2007版:猪 日期:2009-03-10 21:31:232012新春纪念徽章 日期:2012-01-04 11:50:442013年新春福章 日期:2013-02-25 14:51:24
18#
发表于 2008-11-19 20:23 | 只看该作者
强啊，哈哈

使用道具 举报

回复
xiebinren
论坛徽章:
1
授权会员 日期:2008-07-29 13:58:59
19#
发表于 2008-11-20 08:51 | 只看该作者
收藏

使用道具 举报

回复
sapblaster
论坛徽章:
44
ITPUB元老 日期:2014-08-11 09:08:00秀才 日期:2017-08-18 11:06:45妮可·罗宾 日期:2017-07-28 14:32:572015年新春福章 日期:2015-06-02 15:10:36慢羊羊 日期:2015-04-21 10:06:082015年新春福章 日期:2015-03-06 11:58:18itpub13周年纪念徽章 日期:2014-10-08 15:19:03itpub13周年纪念徽章 日期:2014-10-08 15:19:03itpub13周年纪念徽章 日期:2014-10-08 15:19:03itpub13周年纪念徽章 日期:2014-10-08 15:19:03
20#
发表于 2008-11-20 09:31 | 只看该作者

回复 #16 zltpc007 的帖子

你真是太有才了

收藏了

使用道具 举报

回复

12345678下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

TOP技术积分榜 社区积分榜 徽章 团队 统计 知识索引树 积分竞拍 文本模式 帮助
  ITPUB首页 | ITPUB论坛 | 数据库技术 | 企业信息化 | 开发技术 | 微软技术 | 软件工程与项目管理 | IBM技术园地 | 行业纵向讨论 | IT招聘 | IT文档
  ChinaUnix | ChinaUnix博客 | ChinaUnix论坛
CopyRight 1999-2011 itpub.net All Right Reserved. 北京盛拓优讯信息技术有限公司版权所有　联系我们 未成年人举报专区　
京ICP备16024965号-8 　北京市公安局海淀分局网监中心备案编号：11010802021510　广播电视节目制作经营许可证：编号（京）字第1149号   
快速回复 返回顶部 返回列表