Autor Tema: Decimal A Binario En Abap (Leído 8577 veces)

Blag · « **en:** Sábado 11 de Junio de 2005, 00:37 »

Aquí está un Decimal a Binario en ABAP

Código: Text

 
*****************************************************
* Programa : Z_ATG_DUMMY                            *
* Consultor ABAP : Alvaro Tejada Galindo            *
* Descripción: Programa de Ejemplo de ABAP          *
*****************************************************
 
*---Este es el nombre del programa
REPORT Z_ATG_DUMMY.
 
*=======================================================================
* Variables
*=======================================================================
*---Declaramos la variables para el programa
*--- I es INTEGER y C es CHAR
DATA: SUMA(20) TYPE C,
      DIGITO TYPE I,
      AUX TYPE I,
      EXPO TYPE I.
 
DATA: DIVISION TYPE I,
      RESIDUO TYPE I.
 
*=======================================================================
* Selection screen
*=======================================================================
*---Declaramos el espacio en donde va a estar la interfaz del programa
SELECTION-SCREEN BEGIN OF BLOCK BLOCK WITH FRAME TITLE TEXT-T01.
*---Declaramos el parámetro de entrada
PARAMETERS:
           NUMERO TYPE I.
SELECTION-SCREEN END OF BLOCK BLOCK.
 
*=======================================================================
* Start-of-selection
*=======================================================================
*---Cuando se ejecuta el programa
START-OF-SELECTION.
*---Llamamos a la función CALCULA_BINARIO, y le pasamos como parámetro
*---el número que leímos en la pantalla del programa
  PERFORM CALCULA_BINARIO USING NUMERO.
 
*&---------------------------------------------------------------------*
*&      Form  CALCULA_BINARIO
*&---------------------------------------------------------------------*
*       Obtiene el número binario de un decimal.
*----------------------------------------------------------------------*
FORM CALCULA_BINARIO USING P_DECIMAL.
  SUMA = 0.
  EXPO = 1.
*---Mientras la variable NUMERO sea mayor igual que 1
  WHILE NUMERO GE 1.
*---Llamamos a la función CALCULA_RESIDUO, pasandolo 2 parámetros
*---de entrada NUMERO y 2. Además, un tercer parámetro de cambio
*---de variable RESIDUO
    PERFORM CALCULA_RESIDUO USING NUMERO '2'
                            CHANGING RESIDUO.
 
    DIGITO = RESIDUO.
*---Dividimos NUMERO entre 2 y truncamos el resultado, es decir,
*---no tomamos los decimales y lo redondeamos al entero inferior
    NUMERO = TRUNC( NUMERO / '2' ).
    AUX = DIGITO * EXPO.
    SUMA = SUMA + AUX.
    EXPO = EXPO * '10'.
 
  ENDWHILE.
 
*---Imprimos el número en binario
  WRITE:/ 'El número binario es: ', SUMA.
ENDFORM.
 
*---------------------------------------------------------------------*
*       FORM CALCULA_RESIDUO                                          *
*---------------------------------------------------------------------*
*       Calcula el residuo de la división.                            *
*---------------------------------------------------------------------*
FORM CALCULA_RESIDUO USING P_DIVS P_DIVD
                     CHANGING RESIDUO.
*---Dividimos NUMERO entre 2 y truncamos el resultado, es decir,
*---no tomamos los decimales y lo redondeamos al entero inferior
  DIVISION = TRUNC( P_DIVS / P_DIVD ).
  RESIDUO = P_DIVS - ( DIVISION * P_DIVD ).
ENDFORM.
 
 

Si lo ejecutamos por ejemplo con el número 30 como parámetro, nos dará el siguiente resultado:

Código: Text

 
Programa de Pruebas Variadas              
                                          
El número binario es:                11110

Saludos,

Blag

RadicalEd

Como hago la captura de un valor?
Como hago un switch o un if?
Para que diras...
Para hacer una desición y seleccionar entre varias funciones, a ver si hago uno pequeño y me dices si me quedo bien.

Blag

Citar

Como hago la captura de un valor?

Así:

Código: Text

 
*---Declaramos el espacio en donde va a estar la interfaz del programa
SELECTION-SCREEN BEGIN OF BLOCK BLOCK WITH FRAME TITLE TEXT-T01.
*---Declaramos el parámetro de entrada
PARAMETERS:
          NUMERO TYPE I.
SELECT-OPTIONS:
          FECHA FOR PA0001-BEGDA.
SELECTION-SCREEN END OF BLOCK BLOCK.
 
 

NUMERO es el valor que puedes capturar (En este caso es un parámetro).
FECHA, es un rango de valores.

Para llamar a NUMERO, simplemente lo llamas como una variable cualquiera.
Para llamar a FECHA, como es un rango de valores, se divide en 2. En FECHA-LOW y FECHA-HIGH.....Por ejemplo, si FECHA, va de '01.01.2005' (FECHA-LOW) al '31.12.2005' (FECHA-HIGH).

Puedes utilizar un IN o un BETWEEN, para poder utilizarlo.

Por ejemplo:

Código: Text

 
SELECT BELNR
INTO T_TAB
FROM BKPF
WHERE GJAHR IN FECHA.

En este caso, seleccionas de la tabla BKPF, el campo BELNR (Número de un documento contable), siempre y cuando el campo GJAHR (Ejercicio), este dentro del rango de valores de la variable FECHA.

Citar

Como hago un switch o un if?

Para hacer un IF:

Código: Text

 
IF NUMERO = '5'.
WRITE:/ '5'.
ELSE.
WRITE:/ 'Otro número'.
ENDIF.
 
 

Con WRITE, escribimos en la pantalla.

Para hacer un SWITCH.....No existe la sentencia SWITCH

Sería así:

Código: Text

 
CASE NUMERO.
WHEN '5'.
WRITE:/ '5'.
WHEN 'OTHERS'.
WRITE:/ 'Otro número'.
ENDCASE.
 
 

Citar

Para hacer una desición y seleccionar entre varias funciones, a ver si hago uno pequeño y me dices si me quedo bien.

Jejeje.....Espero con ansias tu código

Saludos,

Blag

RadicalEd

Sigo sin entender lo de la captura, como hacer en VB

x = Text1.Text

osea, capturar en 'x' el valor que se entra en el Control Texto.

Ya tengo casi la mitad, solo me falta no mas entender esta captura y listo

Blag · « **Respuesta #4 en:** Lunes 13 de Junio de 2005, 16:35 »

Citar

Sigo sin entender lo de la captura, como hacer en VB

x = Text1.Text

osea, capturar en 'x' el valor que se entra en el Control Texto.

Bueno...

....la cosa es así.....

Código: Text

 
*---Declaramos el espacio en donde va a estar la interfaz del programa
SELECTION-SCREEN BEGIN OF BLOCK BLOCK WITH FRAME TITLE TEXT-T01.
*---Declaramos el parámetro de entrada
PARAMETERS:
         NUMERO TYPE I.
SELECT-OPTIONS:
         FECHA FOR PA0001-BEGDA.
SELECTION-SCREEN END OF BLOCK BLOCK.
 
 

Como ves, NUMERO es un parámetro, cuando aparece la pantalla de parámetros, y colocas por ejemplo "5" en ese campo y ejecutas el programa, entonces NUMERO vale 5. No es necesario hacer un

Código: Text

 
X = NUMERO.

Puesto que NUMERO ya tiene el valor porque es un parámetro de entrada del programa

Saludos,

Blag

RadicalEd · « **Respuesta #5 en:** Lunes 13 de Junio de 2005, 18:16 »

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 VALOR
WRITE:/'1. SUMA'.
WRITE:/'2. RESTA'.
WRITE:/'3. MULTIPLICACION'.
WRITE:/'4. DIVISION'.
WRITE:/'DIGITE OPCION: '.
PARAMETERS:
        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 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 · « **Respuesta #6 en:** Lunes 13 de Junio de 2005, 21:57 »

Citar

Alguna pregunta, Blag la responde con mucho gusto, jejeje

Que bien RadicalEd

Solo tuviste un par de errores

Aquí está el programa corregido

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

Sería mejor utilizar RadioButtons para poder seleccionar la operación a realizar

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

Saludos,

Blag

RadicalEd · « **Respuesta #7 en:** Lunes 13 de Junio de 2005, 22:39 »

A ver pongame uno.

Pero no tan dificil

Blag

Citar

A ver pongame uno.
Pero no tan dificil

Bueno....el ABAP no está pensado para este tipo de programas

pero no importa, todo sea por aprender

A ver.....puedes hacer un programa que calcule el factorial de un número

Por ejemplo:

Código: Text

 
Ingreso: 5.
Resultado: 120.

Saludos,

Blag

RadicalEd

Pregunta???
Como creo un TextBox?
Como hago un ciclo?

Blag

Así:

Código: Text

 
SELECTION-SCREEN BEGIN OF BLOCK BLOCK.
PARAMETERS:
     NUMERO  TYPE I,
SELECTION-SCREEN END OF BLOCK BLOCK.

Saludos,

Blag

RadicalEd

Cual de las 2 preguntas es???.
Mira he hecho esto:

Código: Text

REPORT FACTORIAL.
DATA: FACT TYPE I,
      ICICLO TYPE I.
SELECTION-SCREEN BEGIN OF BLOCK BLOCK.
PARAMETERS:
      XCAPT TYPE I.
SELECTION-SCREEN END OF BLOCK BLOCK.
START-OF-SELECTION.
FACT = 1.
WHILE XCAPT GE 1.
FOR ICICLO = 1 TO XCAPT.
  FACT = ICICLO * FACT.
ENDFOR
PERFORM FACTORIAL USING FACT.
ENDWHILE
FOR FACTORIAL USING FACT.
 WHILE:/'EL FACTORIAL DE: ',XCAPT,' ES: ',FACT.
ENDFORM
 

Blag

Bueno.....no está mal

pero en ABAP, no existe el FOR

Me acabo de dar cuenta de que me preguntaste por los ciclos

, puedes utilizar....

Código: Text

 
DO N TIMES.
ENDDO.
 
WHILE.
ENDWHILE.

Aquí está el programa resuelto

Código: Text

 
*****************************************************
* Programa : Z_ATG_DUMMY                            *
* Consultor ABAP : Alvaro Tejada Galindo            *
* Descripción: Programa de Ejemplo de ABAP          *
*****************************************************
 
REPORT Z_ATG_DUMMY.
 
DATA: FACT TYPE I,
      ICICLO TYPE I.
 
SELECTION-SCREEN BEGIN OF BLOCK BLOCK.
PARAMETERS:
     XCAPT TYPE I.
SELECTION-SCREEN END OF BLOCK BLOCK.
 
START-OF-SELECTION.
  FACT = 1.
 
  DO XCAPT TIMES.
    ICICLO = ICICLO + 1.
    FACT = ICICLO * FACT.
  ENDDO.
  PERFORM FACTORIAL USING FACT.
 
*---------------------------------------------------------------------*
*       FORM FACTORIAL                                                *
*---------------------------------------------------------------------*
*       Obtiene el factorial                                          *
*---------------------------------------------------------------------*
FORM FACTORIAL USING FACT.
  WRITE:/'EL FACTORIAL DE: ',XCAPT,' ES: ',FACT.
ENDFORM.
 
 

Saludos,

Blag

SoloCodigo

Autor Tema: Decimal A Binario En Abap (Leído 8577 veces)

Blag

Decimal A Binario En Abap

RadicalEd

Re: Decimal A Binario En Abap

Blag

Re: Decimal A Binario En Abap

RadicalEd

Re: Decimal A Binario En Abap

Blag

Re: Decimal A Binario En Abap

RadicalEd

Re: Decimal A Binario En Abap

Blag

Re: Decimal A Binario En Abap

RadicalEd

Re: Decimal A Binario En Abap

Blag

Re: Decimal A Binario En Abap

RadicalEd

Re: Decimal A Binario En Abap

Blag

Re: Decimal A Binario En Abap

RadicalEd

Re: Decimal A Binario En Abap

Blag

Re: Decimal A Binario En Abap