Untitled Application MyApp Author name 1.0 Samsung Galaxy Tab 7 False 1024 600 False False True WebApp False D:\Documents\VisualNeoWeb\Libraries\img\default-icon.png en #000000 [AndroidOS,iOS,WindowsPhoneOS] normal True True False True True False False True False False setvar [grabados] 0 neoDragGetPositionX "obarrastre" [xpos] neoDragGetPositionY "obarrastre" [ypos] Refresh AlertBox "Drag Start" "Dragging has started [xpos] [ypos]" "" .SetVar [num] [num]+1 SetVar [message] "Correctly dropped: [object1] into [object2]" Refresh [object1]|STRING|Draggable object;[object2]|STRING|Drop object SetVar [message] "Incorrectly dropped: [object1]" Refresh [object1]|STRING|Draggable object CreateEmptyArray [arrayData] setvar [arrayData][data] ArrayLen [arrayData][total] setvar [CurrentRecord] 0 setvar [id][arrayData([CurrentRecord]).id] setvar [pregunta][arrayData([CurrentRecord]).pregunta] setvar [runo][arrayData([CurrentRecord]).runo] setvar [rdos][arrayData([CurrentRecord]).rdos] setvar [rtres][arrayData([CurrentRecord]).rtres] setvar [rcuatro][arrayData([CurrentRecord]).rcuatro] setvar [correcta][arrayData([CurrentRecord]).correcta] setvar [mcorrecta][arrayData([CurrentRecord]).mcorrecta] . chequeo setvar [mmal][arrayData([CurrentRecord]).mmal] .AlertBox "Total" "[total] - [grabados]" "" neoDragSetEvents "obarrastre" "arrastre" "" "" .arrastre [data]|STRING|Recibidas del servidor slDraggableInit "obarrastre" "both" "" 0 0 "" slDraggableSetDropObject "obarrastre" "droprcuatro" "center" "ondropsuccess" "ondropfail" slDraggableSetDropObject "obarrastre" "dropruno" "center" "ondropsuccess" "ondropfail" slDraggableSetDropObject "obarrastre" "droprdos" "center" "ondropsuccess" "ondropfail" slDraggableSetDropObject "obarrastre" "droprtres" "center" "ondropsuccess" "ondropfail" AlertBox "Variables" "Correcta: [correcta]" "" If [correcta] == 4 slDraggableSetDropObject "obarrastre" "droprcuatro" "center" "ondropsuccess" "ondropfail" Endif If [correcta] == 1 slDraggableSetDropObject "obarrastre" "dropruno" "center" "ondropsuccess" "ondropfail" Endif If [correcta] == 2 slDraggableSetDropObject "obarrastre" "droprdos" "center" "ondropsuccess" "ondropfail" Endif If [correcta] == 3 slDraggableSetDropObject "obarrastre" "droprtres" "center" "ondropsuccess" "ondropfail" Endif neoPhpExecSql "db1" "select" "" "parseData" 643px 559px 352px 24px [message] 504px 280px 492px 111px [rtres] 504px 16px 492px 111px [runo] 504px 140px 492px 125px [rdos] 504px 414px 492px 111px [rcuatro] 30px 275px 466px 121px 30px 140px 463px 127px [pregunta] 9px 552px 51px 41px svgArrowAltCircleRight SetVar [CurrentRecord] [CurrentRecord]+1 If [grabados] >= [total] SetVar [CurrentRecord] [CurrentRecord]-1 AlertBox "Muy Bien !" "Haz Terminado !" "" Refresh Else If [CurrentRecord] >= [total] setvar [CurrentRecord] [CurrentRecord]-1 EndIf setvar [id][arrayData([CurrentRecord]).id] setvar [pregunta][arrayData([CurrentRecord]).pregunta] setvar [runo][arrayData([CurrentRecord]).runo] setvar [rdos][arrayData([CurrentRecord]).rdos] setvar [rtres][arrayData([CurrentRecord]).rtres] setvar [rcuatro][arrayData([CurrentRecord]).rcuatro] setvar [correcta][arrayData([CurrentRecord]).correcta] setvar [mcorrecta][arrayData([CurrentRecord]).mcorrecta] setvar [mmal][arrayData([CurrentRecord]).mmal] slDraggableSetPosition "obarrastre" "30" "275" slDraggableEnable "obarrastre" Refresh neoDragSetEvents "obarrastre" "arrastre" "" "" . arrastre Endif setvar [grabados] [grabados]+1 GotoPage "NewPage" 0px 0px 1024px 600px False