Programación General > ABAP
Decimal A Binario En Abap
RadicalEd:
Bueno aqui voy.
Solamente coloco desde la captura de valores, ya que todo el resto no lo entiendo.
--- Código: Text ---SELECTION-SCREEN BEGIN OF BLOCK BLOCK WITH FRAME TITLE TEXT-T01.REPORT FUNCIONES.DATA: iN1 TYPE I, iN2 TYPE I, fRES TYPE I.*CREO QUE ESTO VA PRIMERO PARA CAPTURAR EL VALORWRITE:/'1. SUMA'.WRITE:/'2. RESTA'.WRITE:/'3. MULTIPLICACION'.WRITE:/'4. DIVISION'.WRITE:/'DIGITE OPCION: '.PARAMETERS: iOP TYPE I.SELECTION-SCREEN END OF BLOCK BLOCKSTART-OF-SELECTION.CASE iOP. WHEN '1'. PERFORM SUMA USING iOP. WHEN '2'. PERFORM RESTA USING iOP. WHEN '3'. PERFORM MULTI USING iOP. WHEN '4'. PERFORM DIVI USING iOP.ENDCASE.FORM SUMA USING iOP. fRES = iN1 + iN2. WRITE:/'LA SUMA ES: ', fRES.ENDFORM. FORM RESTA USING iOP. fRES = iN1 - iN2. WRITE:/'LA RESTA ES: ', fRES.ENDFORM. FORM MULTI USING iOP. fRES = iN1 * iN2. WRITE:/'EL RESULTADO DE LA MULTIPLICACION ES: ', fRES.ENDFORM. FORM DIVI USING iOP. fRES = iN1 / iN2. WRITE:/EL RESULTADO DE LA DIVISION ES: ', fRES.ENDFORM. Alguna pregunta, Blag la responde con mucho gusto, jejeje
Blag:
--- Citar ---Alguna pregunta, Blag la responde con mucho gusto, jejeje
--- Fin de la cita ---
Que bien RadicalEd :kicking: Solo tuviste un par de errores :lol: Aquí está el programa corregido :comp:
--- Código: Text --- ****************************************************** Programa : Z_ATG_DUMMY ** Consultor ABAP : Alvaro Tejada Galindo ** Descripción: Programa de Ejemplo de ABAP ****************************************************** REPORT Z_ATG_DUMMY. DATA: FRES TYPE I. SELECTION-SCREEN BEGIN OF BLOCK BLOCK.PARAMETERS: IN1 TYPE I, IN2 TYPE I, IOP TYPE I.SELECTION-SCREEN END OF BLOCK BLOCK. START-OF-SELECTION. CASE IOP. WHEN '1'. PERFORM SUMA USING IOP. WHEN '2'. PERFORM RESTA USING IOP. WHEN '3'. PERFORM MULTI USING IOP. WHEN '4'. PERFORM DIVI USING IOP. ENDCASE. *---------------------------------------------------------------------** FORM SUMA **---------------------------------------------------------------------** ........ **---------------------------------------------------------------------*FORM SUMA USING IOP. FRES = IN1 + IN2. WRITE:/'LA SUMA ES: ', FRES.ENDFORM. *---------------------------------------------------------------------** FORM RESTA **---------------------------------------------------------------------** ........ **---------------------------------------------------------------------*FORM RESTA USING IOP. FRES = IN1 - IN2. WRITE:/'LA RESTA ES: ', FRES.ENDFORM. *---------------------------------------------------------------------** FORM MULTI **---------------------------------------------------------------------** ........ **---------------------------------------------------------------------*FORM MULTI USING IOP. FRES = IN1 * IN2. WRITE:/'EL RESULTADO DE LA MULTIPLICACION ES: ', FRES.ENDFORM. *---------------------------------------------------------------------** FORM DIVI **---------------------------------------------------------------------** ........ **---------------------------------------------------------------------*FORM DIVI USING IOP. FRES = IN1 / IN2. WRITE:/'EL RESULTADO DE LA DIVISION ES: ', FRES.ENDFORM.
Aquí está optimizado a como debería de ser B) Sería mejor utilizar RadioButtons para poder seleccionar la operación a realizar :rolleyes:
--- Código: Text --- ****************************************************** Programa : Z_ATG_DUMMY ** Consultor ABAP : Alvaro Tejada Galindo ** Descripción: Programa de Ejemplo de ABAP ****************************************************** REPORT Z_ATG_DUMMY. DATA: FRES TYPE I. SELECTION-SCREEN BEGIN OF BLOCK BLOCK.PARAMETERS: IN1 TYPE I, IN2 TYPE I, SUMA RADIOBUTTON GROUP OPER, RESTA RADIOBUTTON GROUP OPER, MULTI RADIOBUTTON GROUP OPER, DIVI RADIOBUTTON GROUP OPER.SELECTION-SCREEN END OF BLOCK BLOCK. START-OF-SELECTION. IF SUMA EQ 'X'. PERFORM SUMA USING IN1 IN2. ELSEIF RESTA EQ 'X'. PERFORM RESTA USING IN1 IN2. ELSEIF MULTI EQ 'X'. PERFORM MULTI USING IN1 IN2. ELSEIF DIVI EQ 'X'. PERFORM DIVI USING IN1 IN2. ENDIF. *---------------------------------------------------------------------** FORM SUMA **---------------------------------------------------------------------** SUMA 2 VALORES **---------------------------------------------------------------------*FORM SUMA USING IN1 IN2. FRES = IN1 + IN2. WRITE:/'LA SUMA ES: ', FRES.ENDFORM. *---------------------------------------------------------------------** FORM RESTA **---------------------------------------------------------------------** RESTA 2 VALORES **---------------------------------------------------------------------*FORM RESTA USING IN1 IN2. FRES = IN1 - IN2. WRITE:/'LA RESTA ES: ', FRES.ENDFORM. *-----------------[B]----------------------------------------------------** FORM MULTI **---------------------------------------------------------------------** MULTIPLICA 2 VALORES **---------------------------------------------------------------------*FORM MULTI USING IN1 IN2. FRES = IN1 * IN2. WRITE:/'EL RESULTADO DE LA MULTIPLICACION ES: ', FRES.ENDFORM. *---------------------------------------------------------------------** FORM DIVI **---------------------------------------------------------------------** DIVIDE 2 VALORES **---------------------------------------------------------------------*FORM DIVI USING IN1 IN2. FRES = IN1 / IN2. WRITE:/'EL RESULTADO DE LA DIVISION ES: ', FRES.ENDFORM.
Realmente quiero felicitarte....aprenderías ABAP muy rapidamente :lightsabre:
Saludos,
Blag :smartass:
RadicalEd:
A ver pongame uno.
:D Pero no tan dificil :(
Blag:
--- Citar ---A ver pongame uno.
:D Pero no tan dificil :(
--- Fin de la cita ---
Bueno....el ABAP no está pensado para este tipo de programas :lol: pero no importa, todo sea por aprender :hola:
A ver.....puedes hacer un programa que calcule el factorial de un número :comp:
Por ejemplo:
--- Código: Text --- Ingreso: 5.Resultado: 120.
Saludos,
Blag :smartass:
RadicalEd:
Pregunta???
Como creo un TextBox?
Como hago un ciclo?
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa