Tentactics – A Simple Puzzle Game
Some time ago I found a very simple but very addictive puzzle game in the AppStore: Numberama2 (for iOS). Once I had an idea how to program this in ABAP. It’s a pity, the idea wasn’t good enough so I had to spend more time on the game than I wanted to…
Gameplay
The Game uses a endless playing field in the width of 9 columns. The starting sequence for classic mode is:
123456789
111213141
516171819
You must find pairs of numbers that
a) are equal (1 and 1, 2 and 2 and so on)
b) sum is 10 (1+9, 2+8 and so on)
The pairs must be
a) in a row
b) in a column
c) at the end of one row and at the beginning of the next row
In random mode you will get a random set of 27 numbers.
Each pair you eliminate decreases your start score of 1000 points.
Each line you eliminate increases your score by 10.
Goal is to eliminate all numbers.
If no more pairs exist you will have to hit the NEXT-Button and all existing numbers will be put at the end of the playing field.
The Name
Firstly I wanted to name the game NUMBERABAP in the style of the original game NUMBERAMA but when writing the program I thought that TENTACTICS sounds much better 😉
Code Description
the first idea of programming the game was to use an internal table with fields
- number
- column
- row
using onw primary key “column – row” and a secondary key “row – column”. Empty fields are not in this table.
With this configuration it is easy to check if pairs are correct. Matched pairs must be adjacent table rows in primary key or secondary key.
The idea might be good but it was not good for programming the game, because I also needed the playing field and had to maintain both: playing field AND numbers table.
I use the “Adjacent pairs check” for checking all possible solutions but for every single check I run through the plaing field and check if the “path to the second clicked number” is free and if first and second clicked number match the rule.
The code does not find all pairs reliably but gives a hint where the paris might be.
The playing field is a simple ALV-Grid with a little enhancement: the method SET_RESIZE_COLS( 0 ) will be called in the new method SET_NO_RESIZE to prevent the user to change the column size.
I decided to use buttons to simply click on one to choose a number. I tried to use hotspot but the hotspot are underlined which makes it harder to identify numbers. The buttons also give a better overview on the existing numbers. They bring out the used numbers in a better way.
Tipps
Concentrate on obvious pairs. If there are triple numbers, try to eliminate numbers around so that you can get rid of all of the three numbers.
If there is an obvious pair check out if there might be a better combination.
Hit button “Check” to display number of solutions and known pairs.
Known Bugs
– no end determination
– the shown solutions are not always right. I think each number should be checked for pairs. The solutions I try to find first work horizontally and then vertically.
Differences To The Original
– You will not be informed if there are no more moves possible (Hit “Check-Button” instead)
– You will get hints where possible pairs are
How To Start
Copy code of TENTACTICS to SE38 editor and activate. Run program, choose “Classic” or “Random” game. Presse ENTER. Enjoy!
The Code
REPORT zz_tentactics NO STANDARD PAGE HEADING.
CLASS lcx_hit DEFINITION INHERITING FROM cx_static_check.
ENDCLASS.
CLASS lcx_no_hit DEFINITION INHERITING FROM cx_static_check.
ENDCLASS.
CLASS lcl_my_grid DEFINITION INHERITING FROM cl_gui_alv_grid.
PUBLIC SECTION.
METHODS set_no_resize.
ENDCLASS.
CLASS lcl_my_grid IMPLEMENTATION.
METHOD set_no_resize.
CALL METHOD me->set_resize_cols
EXPORTING
enable = 0
EXCEPTIONS
error = 1
OTHERS = 2.
ENDMETHOD.
ENDCLASS.
CLASS lcl_main DEFINITION.
PUBLIC SECTION.
TYPES: ty_number TYPE c LENGTH 4,
BEGIN OF ty_field,
s01 TYPE ty_number,
s02 TYPE ty_number,
s03 TYPE ty_number,
s04 TYPE ty_number,
s05 TYPE ty_number,
s06 TYPE ty_number,
s07 TYPE ty_number,
s08 TYPE ty_number,
s09 TYPE ty_number,
style TYPE lvc_t_styl,
END OF ty_field,
ty_field_all TYPE STANDARD TABLE OF ty_field,
BEGIN OF ty_numbers,
num TYPE n LENGTH 1,
col TYPE i,
row TYPE i,
END OF ty_numbers,
BEGIN OF ty_undo,
field TYPE STANDARD TABLE OF ty_field WITH DEFAULT KEY,
score TYPE i,
END OF ty_undo
.
METHODS start IMPORTING type TYPE char01 sequence TYPE any.
METHODS constructor.
PROTECTED SECTION.
DATA mt_field TYPE STANDARD TABLE OF ty_field.
DATA mt_undo TYPE STANDARD TABLE OF ty_undo.
DATA mv_type TYPE c LENGTH 1.
DATA mv_sequence TYPE n LENGTH 80.
DATA mv_score TYPE i.
DATA mv_row TYPE i.
DATA mv_col TYPE i.
DATA c_row_max TYPE i VALUE 9.
DATA mv_last_clicked_row TYPE i.
DATA mv_last_clicked_col TYPE i.
DATA mv_first_click TYPE boolean.
DATA mv_second_click TYPE boolean.
DATA mr_grid TYPE REF TO lcl_my_grid.
DATA mr_docker_game TYPE REF TO cl_gui_docking_container.
DATA mr_docker_text TYPE REF TO cl_gui_docking_container.
DATA mr_text TYPE REF TO cl_gui_textedit.
METHODS display.
METHODS init.
METHODS refresh.
METHODS delete_numbers IMPORTING row1 TYPE i
col1 TYPE i
row2 TYPE i
col2 TYPE i.
METHODS delete_number IMPORTING row TYPE i
col TYPE i.
METHODS check IMPORTING row1 TYPE i
col1 TYPE i
row2 TYPE i
col2 TYPE i
RETURNING VALUE(result) TYPE boolean.
METHODS check_right
IMPORTING row1 TYPE i
col1 TYPE i
row2 TYPE i
col2 TYPE i
RAISING lcx_hit
lcx_no_hit.
METHODS check_down
IMPORTING row1 TYPE i
col1 TYPE i
row2 TYPE i
col2 TYPE i
RAISING lcx_hit
lcx_no_hit.
METHODS get_number
IMPORTING row TYPE i
col TYPE i
field TYPE ty_field_all OPTIONAL
RETURNING VALUE(number) TYPE ty_number.
METHODS check_hit
IMPORTING num1 TYPE ty_number
num2 TYPE ty_number
RAISING lcx_hit
lcx_no_hit.
METHODS check_solutions IMPORTING show TYPE boolean.
METHODS add_number IMPORTING number TYPE clike.
METHODS add_hotspot CHANGING field TYPE any.
METHODS click IMPORTING i_row TYPE any
i_fieldname TYPE clike.
METHODS get_random_number RETURNING VALUE(number) TYPE numc1.
METHODS add_end_button.
METHODS add_numbers IMPORTING i_row TYPE i i_col TYPE i.
METHODS shrink_lines.
METHODS add_undo.
METHODS undo.
*== button click event
METHODS button_click FOR EVENT button_click OF lcl_my_grid
IMPORTING es_col_id
es_row_no.
*== hotspot click event
METHODS hotspot_click FOR EVENT hotspot_click OF lcl_my_grid
IMPORTING e_row_id
e_column_id
es_row_no.
*== user command
METHODS handle_user_command
FOR EVENT user_command
OF cl_gui_alv_grid
IMPORTING e_ucomm sender.
*== toolbar event
METHODS handle_toolbar
FOR EVENT toolbar
OF cl_gui_alv_grid
IMPORTING e_object e_interactive sender.
*== Build toolbar
METHODS build_toolbar
IMPORTING i_object TYPE REF TO cl_alv_event_toolbar_set.
ENDCLASS.
CLASS lcl_main IMPLEMENTATION.
METHOD constructor.
ENDMETHOD.
METHOD start.
mv_type = type.
mv_sequence = sequence.
SHIFT mv_sequence LEFT DELETING LEADING ‘0’.
mv_col = 1.
mv_row = 1.
init( ).
display( ).
ENDMETHOD.
METHOD display.
IF mr_grid IS INITIAL.
CREATE OBJECT mr_docker_game
EXPORTING
side = cl_gui_docking_container=>dock_at_bottom
ratio = 80.
CREATE OBJECT mr_docker_text
EXPORTING
side = cl_gui_docking_container=>dock_at_right
extension = 2000. “Completely hide Selection Screen
CREATE OBJECT mr_text
EXPORTING
parent = mr_docker_text.
mr_text->set_statusbar_mode( 0 ).
mr_text->set_toolbar_mode( 0 ).
mr_text->set_readonly_mode( 1 ).
CREATE OBJECT mr_grid
EXPORTING
i_parent = mr_docker_game.
DATA ls_layout TYPE lvc_s_layo.
DATA lt_fieldcatalog TYPE lvc_t_fcat.
FIELD-SYMBOLS <fcat> LIKE LINE OF lt_fieldcatalog.
DO 9 TIMES.
APPEND INITIAL LINE TO lt_fieldcatalog ASSIGNING <fcat>.
<fcat>–fieldname = |S{ sy–index WIDTH = 2 ALIGN = RIGHT PAD = ‘0’ } |.
<fcat>–datatype = ‘NUMC’.
<fcat>–outputlen = ‘3’.
<fcat>–just = ‘C’.
<fcat>–f4availabl = abap_false.
ENDDO.
ls_layout–grid_title = ‘Tentactics’.
ls_layout–smalltitle = abap_true.
ls_layout–no_rowmove = abap_true.
ls_layout–no_headers = abap_true.
ls_layout–stylefname = ‘STYLE’.
ls_layout–no_f4 = abap_true.
DATA ls_exclude TYPE ui_func.
DATA lt_exclude TYPE ui_functions.
ls_exclude = cl_gui_alv_grid=>mc_fc_excl_all.
APPEND ls_exclude TO lt_exclude.
mr_grid->set_table_for_first_display(
EXPORTING
is_layout = ls_layout
it_toolbar_excluding = lt_exclude
CHANGING
it_outtab = mt_field
it_fieldcatalog = lt_fieldcatalog
EXCEPTIONS
OTHERS = 4 ).
mr_grid->set_no_resize( ).
SET HANDLER button_click FOR mr_grid.
SET HANDLER hotspot_click FOR mr_grid.
SET HANDLER handle_toolbar FOR mr_grid.
SET HANDLER handle_user_command FOR mr_grid.
mr_grid->set_toolbar_interactive( ).
ENDIF.
ENDMETHOD.
METHOD delete_numbers.
delete_number( row = row1 col = col1 ).
delete_number( row = row2 col = col2 ).
SUBTRACT 5 FROM mv_score.
refresh( ).
ENDMETHOD.
METHOD delete_number.
DATA fieldname TYPE string.
fieldname = |S{ col WIDTH = 2 ALIGN = RIGHT PAD = ‘0’ }|.
READ TABLE mt_field ASSIGNING FIELD–SYMBOL(<field>) INDEX row.
ASSIGN COMPONENT fieldname OF STRUCTURE <field> TO FIELD–SYMBOL(<number>).
IF sy–subrc = 0.
CLEAR <number>.
ENDIF.
DATA ls_style TYPE lvc_s_styl.
FIELD-SYMBOLS <style_tab> TYPE lvc_t_styl.
ASSIGN COMPONENT ‘STYLE’ OF STRUCTURE <field> TO <style_tab>.
IF sy–subrc = 0.
READ TABLE <style_tab> ASSIGNING FIELD–SYMBOL(<style>)
WITH KEY fieldname = fieldname.
IF sy–subrc = 0.
SUBTRACT cl_gui_alv_grid=>mc_style_button FROM <style>–style.
* SUBTRACT cl_gui_alv_grid=>mc_style_hotspot FROM <style>-style.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD init.
CASE mv_type.
WHEN ‘C’.
DO.
DATA(index) = sy–index – 1.
DATA(number) = mv_sequence+index(1).
IF number = space.
EXIT.
ELSE.
add_number( number ).
ENDIF.
ENDDO.
WHEN ‘R’.
DO 27 TIMES.
add_number( get_random_number( ) ).
ENDDO.
ENDCASE.
mv_score = 1000.
add_end_button( ).
add_undo( ).
ENDMETHOD.
METHOD add_end_button.
FIELD-SYMBOLS <field> LIKE LINE OF mt_field.
READ TABLE mt_field ASSIGNING <field> INDEX mv_row.
IF sy–subrc > 0.
APPEND INITIAL LINE TO mt_field ASSIGNING <field>.
ENDIF.
DATA(lv_fieldname) = |S{ mv_col WIDTH = 2 ALIGN = RIGHT PAD = ‘0’ }|.
ASSIGN COMPONENT lv_fieldname OF STRUCTURE <field> TO FIELD–SYMBOL(<position>).
<position> = icon_next_object.
add_hotspot( CHANGING field = <field> ) .
ENDMETHOD.
METHOD get_random_number.
DATA random_number TYPE i.
CALL FUNCTION ‘QF05_RANDOM_INTEGER’
EXPORTING
ran_int_max = 9
ran_int_min = 1
IMPORTING
ran_int = random_number.
number = random_number.
ENDMETHOD.
METHOD add_number.
FIELD-SYMBOLS <field> LIKE LINE OF mt_field.
CHECK number IS NOT INITIAL.
READ TABLE mt_field ASSIGNING <field> INDEX mv_row.
IF sy–subrc > 0.
APPEND INITIAL LINE TO mt_field ASSIGNING <field>.
ENDIF.
DATA(lv_fieldname) = |S{ mv_col WIDTH = 2 ALIGN = RIGHT PAD = ‘0’ }|.
ASSIGN COMPONENT lv_fieldname OF STRUCTURE <field> TO FIELD–SYMBOL(<position>).
<position> = number.
add_hotspot( CHANGING field = <field> ) .
ADD 1 TO mv_col.
IF mv_col > c_row_max.
mv_col = 1.
ADD 1 TO mv_row.
ENDIF.
ENDMETHOD.
METHOD add_hotspot.
DATA ls_style TYPE lvc_s_styl.
FIELD-SYMBOLS <style_tab> TYPE lvc_t_styl.
ASSIGN COMPONENT ‘STYLE’ OF STRUCTURE field TO <style_tab>.
CHECK sy–subrc = 0.
DATA(lv_fieldname) = |S{ mv_col WIDTH = 2 ALIGN = RIGHT PAD = ‘0’ }|.
READ TABLE <style_tab> ASSIGNING FIELD–SYMBOL(<style>)
WITH KEY fieldname = lv_fieldname.
IF sy–subrc > 0.
ls_style–fieldname = lv_fieldname.
INSERT ls_style INTO TABLE <style_tab> ASSIGNING <style>.
ENDIF.
* ADD cl_gui_alv_grid=>mc_style_hotspot TO <style>-style.
ADD cl_gui_alv_grid=>mc_style_button TO <style>–style.
ENDMETHOD.
METHOD button_click.
click( i_row = es_row_no–row_id
i_fieldname = es_col_id–fieldname ).
ENDMETHOD.
METHOD hotspot_click.
click( i_row = es_row_no–row_id
i_fieldname = e_column_id ).
ENDMETHOD.
METHOD click.
DATA ls_color TYPE lvc_s_scol.
FIELD-SYMBOLS <color_tab> TYPE lvc_t_scol.
FIELD-SYMBOLS <field> LIKE LINE OF mt_field.
FIELD-SYMBOLS <number> TYPE any.
DATA row TYPE i.
DATA col TYPE i.
row = i_row.
col = i_fieldname+1(2).
CHECK mv_last_clicked_row <> row
OR mv_last_clicked_col <> col.
READ TABLE mt_field ASSIGNING <field> INDEX row.
ASSIGN COMPONENT i_fieldname OF STRUCTURE <field> TO <number>.
IF <number>(1) = ‘@’.
add_numbers( i_row = row i_col = col ).
RETURN.
ENDIF.
IF mv_first_click = abap_false AND
mv_second_click = abap_false.
mv_first_click = abap_true.
ELSEIF mv_first_click = abap_true.
mv_first_click = abap_false.
mv_second_click = abap_true.
ENDIF.
IF mv_second_click = abap_true.
IF check( row1 = mv_last_clicked_row
col1 = mv_last_clicked_col
row2 = row
col2 = col ) = abap_true.
*== pair found
delete_numbers( row1 = row col1 = col
row2 = mv_last_clicked_row col2 = mv_last_clicked_col ).
CLEAR mv_first_click.
CLEAR mv_second_click.
check_solutions( show = abap_false ).
add_undo( ).
ELSE.
*== not suitable
ENDIF.
ENDIF.
*== mark last click
mv_last_clicked_row = row.
mv_last_clicked_col = col.
ENDMETHOD.
METHOD add_numbers.
DATA lt_numbers TYPE STANDARD TABLE OF i.
DATA ls_number LIKE LINE OF lt_numbers.
DATA lt_field TYPE ty_field_all.
DATA row TYPE i.
DATA col TYPE i.
delete_number( row = i_row
col = i_col ).
FIELD-SYMBOLS <field> LIKE LINE OF mt_field.
DATA number TYPE ty_number.
mv_row = i_row.
mv_col = i_col.
row = 0.
col = 0.
CLEAR number.
lt_field = mt_field.
WHILE number <> ‘STOP’.
ADD 1 TO row.
col = 0.
DO 9 TIMES.
ADD 1 TO col.
number = get_number( col = col row = row field = lt_field ).
IF number = ‘STOP’.
EXIT. “from do
ELSE.
add_number( number ).
ENDIF.
ENDDO.
ENDWHILE.
add_end_button( ).
check_solutions( show = abap_false ).
refresh( ).
ENDMETHOD.
METHOD get_number.
FIELD-SYMBOLS <field> LIKE LINE OF mt_field.
FIELD-SYMBOLS <number> TYPE ty_number.
DATA fieldname TYPE string.
IF field IS SUPPLIED.
READ TABLE field ASSIGNING <field> INDEX row.
ELSE.
READ TABLE mt_field ASSIGNING <field> INDEX row.
ENDIF.
IF sy–subrc > 0.
number = ‘STOP’.
ELSE.
fieldname = |S{ col WIDTH = 2 ALIGN = RIGHT PAD = ‘0’ }|.
ASSIGN COMPONENT fieldname OF STRUCTURE <field> TO <number>.
number = <number>.
ENDIF.
ENDMETHOD.
METHOD check.
result = abap_false.
TRY.
*== CHECK UP/ DOWN
TRY.
check_down( col1 = col1
row1 = row1
col2 = col2
row2 = row2 ).
CATCH lcx_no_hit.
ENDTRY.
*== CHECK LEFT/RIGHT
TRY.
check_right( col1 = col1
row1 = row1
col2 = col2
row2 = row2 ).
CATCH lcx_no_hit.
ENDTRY.
CATCH lcx_hit.
result = abap_true.
ENDTRY.
ENDMETHOD.
METHOD check_right.
DATA l_num1 TYPE ty_number. “Number of left click
DATA l_num2 TYPE ty_number. “Number of right click
DATA l_col TYPE i. “column current check
DATA l_row TYPE i. “row current check
DATA l_cnt TYPE i. “counter
DATA l_row1 TYPE i.
DATA l_row2 TYPE i.
DATA l_col1 TYPE i.
DATA l_col2 TYPE i.
*== get clicked cells in right order
IF row1 <= row2.
IF row1 = row2.
IF col1 < col2.
l_row1 = row1.
l_row2 = row2.
l_col1 = col1.
l_col2 = col2.
ELSE.
l_row1 = row2.
l_row2 = row1.
l_col1 = col2.
l_col2 = col1.
ENDIF.
ELSE.
l_row1 = row1.
l_row2 = row2.
l_col1 = col1.
l_col2 = col2.
ENDIF.
ELSE.
l_row1 = row2.
l_row2 = row1.
l_col1 = col2.
l_col2 = col1.
ENDIF.
l_col = l_col1.
l_row = l_row1.
IF row1 = row2.
*== Click in same row
l_cnt = l_col2 – l_col1.
ELSEIF l_row2 – l_row1 = 1.
*== Click in different rows
l_cnt = 9 + l_col2 – l_col1.
ELSE.
*== if more than 1 row difference: No hit possible
RAISE EXCEPTION TYPE lcx_no_hit.
ENDIF.
l_col = l_col1.
l_row = l_row1.
DO l_cnt TIMES.
ADD 1 TO l_col.
IF l_col > 9.
l_col = 1.
ADD 1 TO l_row.
ENDIF.
l_num2 = get_number( col = l_col row = l_row ).
IF l_col = l_col2 AND l_row = l_row2.
*== 2nd clicked cell reached
“get top/left number
l_num1 = get_number( col = l_col1 row = l_row1 ).
“check if hit
check_hit( num1 = l_num1 num2 = l_num2 ).
ELSE.
IF l_num2 IS NOT INITIAL.
“path is not free
RAISE EXCEPTION TYPE lcx_no_hit.
ENDIF.
ENDIF.
ENDDO.
ENDMETHOD.
METHOD check_down.
DATA l_num1 TYPE ty_number. “Number of top click
DATA l_num2 TYPE ty_number. “Number of bottom click
DATA l_row TYPE i. “row
DATA l_cnt TYPE i. “counter
DATA l_row1 TYPE i.
DATA l_row2 TYPE i.
DATA l_col1 TYPE i.
DATA l_col2 TYPE i.
IF col1 <> col2.
“clicks must be in same column
RAISE EXCEPTION TYPE lcx_no_hit.
ENDIF.
IF row1 = row2.
“clicks must be in different rows
RAISE EXCEPTION TYPE lcx_no_hit.
ENDIF.
*== get clicked cells in right order
IF row1 <= row2.
l_row1 = row1.
l_row2 = row2.
l_col1 = col1.
l_col2 = col2.
ELSE.
l_row1 = row2.
l_row2 = row1.
l_col1 = col2.
l_col2 = col1.
ENDIF.
l_row = l_row1.
l_cnt = l_row2 – l_row1.
DO l_cnt TIMES.
ADD 1 TO l_row.
*== get current cell
l_num2 = get_number( col = l_col1 row = l_row ).
IF l_row < l_row2.
*== check if path is clear
IF l_num2 IS NOT INITIAL.
“cell MUST be empty!
RAISE EXCEPTION TYPE lcx_no_hit.
ENDIF.
ELSE.
*== reached 2nd clicked cell: Get number of first clicked cell
l_num1 = get_number( col = l_col1 row = l_row1 ).
*== Check if hit
check_hit( num1 = l_num1
num2 = l_num2 ).
ENDIF.
ENDDO.
ENDMETHOD.
METHOD check_hit.
DATA n1 TYPE i.
DATA n2 TYPE i.
CHECK num1 CO ‘123456789 ‘.
CHECK num2 CO ‘123456789 ‘.
n1 = num1.
n2 = num2.
IF n1 + n2 = 10.
RAISE EXCEPTION TYPE lcx_hit.
ELSEIF n1 = n2.
RAISE EXCEPTION TYPE lcx_hit.
ELSE.
RAISE EXCEPTION TYPE lcx_no_hit.
ENDIF.
ENDMETHOD.
METHOD check_solutions.
TYPES: BEGIN OF ty_check,
num TYPE ty_number,
col TYPE i,
row TYPE i,
sol TYPE boolean,
END OF ty_check.
DATA lt_numbers TYPE STANDARD TABLE OF ty_check.
DATA ls_number TYPE ty_check.
DATA ls_number2 TYPE ty_check.
FIELD-SYMBOLS <number> TYPE ty_check.
FIELD-SYMBOLS <number2> TYPE ty_check.
DATA l_num1 TYPE ty_number.
DATA l_num2 TYPE ty_number.
DATA lv_index TYPE i.
DATA lv_num_of_solutions TYPE i.
*== build numbers table from playing field
TRY.
DO. “rows
ADD 1 TO ls_number–row.
ls_number–col = 0.
DO 9 TIMES. “cols
ADD 1 TO ls_number–col.
ls_number–num = get_number( row = ls_number–row
col = ls_number–col ).
IF ls_number–num IS NOT INITIAL.
IF ls_number–num(1) CN ‘123456789’. “NUM is CHAR4!
“Reached the end: @
RAISE EXCEPTION TYPE lcx_no_hit.
ELSE.
“Add number to numbers table
APPEND ls_number TO lt_numbers.
ENDIF.
ENDIF.
ENDDO.
ENDDO.
CATCH lcx_no_hit.
ENDTRY.
*== check horizontal solutions
LOOP AT lt_numbers ASSIGNING <number>.
CHECK <number>–sol = abap_false.
lv_index = sy–tabix.
CHECK lv_index < lines( lt_numbers ).
ADD 1 TO lv_index.
READ TABLE lt_numbers ASSIGNING <number2> INDEX lv_index.
TRY.
check_hit( num1 = <number>–num
num2 = <number2>–num ).
CATCH lcx_no_hit.
CATCH lcx_hit.
<number>–sol = abap_true.
<number2>–sol = abap_true.
ADD 1 TO lv_num_of_solutions.
ENDTRY.
ENDLOOP.
*== Check vertical solutions
SORT lt_numbers BY col row.
LOOP AT lt_numbers ASSIGNING <number>.
CHECK <number>–sol = abap_false.
lv_index = sy–tabix.
CHECK lv_index < lines( lt_numbers ).
ADD 1 TO lv_index.
READ TABLE lt_numbers ASSIGNING <number2> INDEX lv_index.
CHECK <number>–col = <number2>–col.
TRY.
check_hit( num1 = <number>–num
num2 = <number2>–num ).
CATCH lcx_no_hit.
CATCH lcx_hit.
<number>–sol = abap_true.
<number2>–sol = abap_true.
ADD 1 TO lv_num_of_solutions.
ENDTRY.
ENDLOOP.
*== Build solutions
IF show = abap_true.
DATA l_text TYPE string.
l_text = |Solutions: { lv_num_of_solutions }{ cl_abap_char_utilities=>cr_lf }|.
LOOP AT lt_numbers ASSIGNING <number> WHERE sol = abap_true.
l_text = |{ l_text } { <number>–num }: row { <number>–row } col { <number>–col }{ cl_abap_char_utilities=>cr_lf }|.
ENDLOOP.
mr_text->set_textstream( l_text ).
ENDIF.
ENDMETHOD.
METHOD refresh.
*== shrink lines before
shrink_lines( ).
*== Refresh display
DATA ls_stable TYPE lvc_s_stbl.
ls_stable–col = abap_true.
ls_stable–row = abap_true.
mr_grid->refresh_table_display( is_stable = ls_stable i_soft_refresh = abap_true ).
cl_gui_container=>set_focus( mr_text ).
ENDMETHOD.
METHOD shrink_lines.
DATA lt_lines_to_delete TYPE STANDARD TABLE OF i.
FIELD-SYMBOLS <field> LIKE LINE OF mt_field.
*== shrink lines
LOOP AT mt_field TRANSPORTING NO FIELDS
WHERE s01 IS INITIAL
AND s02 IS INITIAL
AND s03 IS INITIAL
AND s04 IS INITIAL
AND s05 IS INITIAL
AND s06 IS INITIAL
AND s07 IS INITIAL
AND s08 IS INITIAL
AND s09 IS INITIAL.
APPEND sy–index TO lt_lines_to_delete.
ADD 10 TO mv_score.
ENDLOOP.
CHECK sy–subrc = 0.
DELETE mt_field
WHERE s01 IS INITIAL
AND s02 IS INITIAL
AND s03 IS INITIAL
AND s04 IS INITIAL
AND s05 IS INITIAL
AND s06 IS INITIAL
AND s07 IS INITIAL
AND s08 IS INITIAL
AND s09 IS INITIAL.
IF mt_field IS INITIAL.
MESSAGE i000(oo) WITH ‘You won! Your Score:’ mv_score.
ELSEIF lines( mt_field ) = 1.
READ TABLE mt_field ASSIGNING <field> INDEX 1.
“Check, if last line is empty (except of “next-Button”)
“todo
ENDIF.
ENDMETHOD.
METHOD add_undo.
DATA ls_undo TYPE ty_undo.
ls_undo–field = mt_field.
ls_undo–score = mv_score.
APPEND ls_undo TO mt_undo.
ENDMETHOD.
METHOD undo.
DATA ls_undo TYPE ty_undo.
CHECK lines( mt_undo ) > 1.
DELETE mt_undo INDEX lines( mt_undo ).
READ TABLE mt_undo INTO ls_undo INDEX lines( mt_undo ).
CHECK sy–subrc = 0.
mt_field = ls_undo–field.
mv_score = ls_undo–score.
refresh( ).
ENDMETHOD.
METHOD handle_user_command.
*** HandleUserCommand ***
*>>> Hierdurch wird die Methode “HANDLE_TOOLBAR” erneut durchlaufen
CASE e_ucomm.
WHEN ‘Undo’.
undo( ).
WHEN ‘Check’.
check_solutions( show = abap_true ).
ENDCASE.
* mr_grid->set_toolbar_interactive( ).
ENDMETHOD. “handle_user_command
METHOD handle_toolbar.
*** HandleToolbar ***
build_toolbar( e_object ).
ENDMETHOD. “handle_toolbar
METHOD build_toolbar.
*== build Toolbar
DATA: ls_toolbar TYPE stb_button.
*== Icon “Undo”
CLEAR ls_toolbar.
MOVE ‘Undo’ TO ls_toolbar–function.
MOVE ‘Undo last move’ TO ls_toolbar–quickinfo.
MOVE ‘Undo’ TO ls_toolbar–text.
MOVE icon_system_undo TO ls_toolbar–icon.
APPEND ls_toolbar TO i_object->mt_toolbar.
*== Icon “Check Solutions”
CLEAR ls_toolbar.
MOVE ‘Check’ TO ls_toolbar–function.
MOVE ‘Check solutions’ TO ls_toolbar–quickinfo.
MOVE ‘Check’ TO ls_toolbar–text.
MOVE icon_check TO ls_toolbar–icon.
APPEND ls_toolbar TO i_object->mt_toolbar.
*== Icon “Score”
CLEAR ls_toolbar.
MOVE ‘Score’ TO ls_toolbar–function.
MOVE ‘Current Score’ TO ls_toolbar–quickinfo.
ls_toolbar–text = |Score:{ mv_score }|.
MOVE icon_modify TO ls_toolbar–icon.
MOVE abap_true TO ls_toolbar–checked.
MOVE abap_true TO ls_toolbar–disabled.
APPEND ls_toolbar TO i_object->mt_toolbar.
ENDMETHOD. “build_toolbar
ENDCLASS.
DATA gr_main TYPE REF TO lcl_main.
PARAMETERS p_typ AS LISTBOX VISIBLE LENGTH 40 OBLIGATORY DEFAULT ‘C’ USER-COMMAND enter.
PARAMETERS p_seq TYPE n LENGTH 80 DEFAULT ‘123456789111213141516171819’ MODIF ID dsp .
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen–group1 = ‘DSP’.
CASE p_typ.
WHEN ‘C’.
screen–active = ‘1’.
WHEN ‘R’.
screen–active = ‘0’.
ENDCASE.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
INITIALIZATION.
DATA(values) = VALUE vrm_values( ( key = ‘C’ text = ‘Classic’ )
( key = ‘R’ text = ‘Random’ ) ).
CALL FUNCTION ‘VRM_SET_VALUES’
EXPORTING
id = ‘P_TYP’
values = values
EXCEPTIONS
OTHERS = 2.
AT LINE-SELECTION.
DATA field_name TYPE string.
DATA field_value TYPE string.
DATA field_row TYPE i.
DATA field_col TYPE i.
GET CURSOR FIELD field_name VALUE field_value LINE field_row OFFSET field_col.
BREAK-POINT.
AT SELECTION-SCREEN.
WRITE space.
CHECK gr_main IS INITIAL.
gr_main = NEW lcl_main( ).
gr_main->start( type = p_typ sequence = p_seq ).
Hi Enno,
there seems to be a problem at line 202 ff. The field-symbol is gone 😉
Btw. it was hard for me to copy the source because i had to manually adjust the block comments (copy & paste inserted space upfront). Maybe you can change them to line comments? This would make it easier for others.
Regards Christian
Thank Christian! I copied again the complete code. Seems to be ok now.
Regards
Enno