Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Lanzar un pitido (https://www.cobolforo.es/showthread.php?t=129)

Begoguay 6 de mayo de 2015 21:57
Lanzar un pitido
 
Hola!!!!

Mi problema es el siguiente. Necesito que al recoger un dato con una TextBox, y después de comprobar que es erróneo, me lance un pitido. Pero no se como hacerlo.

¿Me podriais ayudar?

Muchas gracias.

Kuk 7 de mayo de 2015 08:36
Begoguay, solo quieres un pitido? No vas a mostrar un MessageBox con texto e icono de error? Lo digo mas que nada porque lo mismo vienes de un compilador mas antiguo, seguramente con pantallas en modo consola, y por eso quieres un Beep. En PowerCOBOL creo que existe algo asi :

Código COBOL:
  1. INVOKE POW-SELF "Beep"

Rero nunca lo he usado. Normalmente uso:

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01  WS-ICONO           PIC 99.
  3.      88  WS-ICON-ERR             VALUE '16'.
  4.      88  WS-ICON-WRN             VALUE '48'.
  5.      88  WS-ICON-INF             VALUE '64'.
  6.      
  7.  PROCEDURE DIVISION.
  8.  
  9.  SET WS-ICON-??? TO TRUE
  10.   
  11.  INVOKE POW-SELF "DisplayMessage" USING "Texto mensaje" "Titulo Mensaje" WS-ICONO

Rapinto 7 de mayo de 2015 10:48
Begoguay,

Do manual de Fujitsu Cobol:

Código:
Alarm Method
Description:
      Plays the wave file configured for the defined sound in the Windows system.
 
      Used in controls:  None.
 
      Used in objects:  Form
 
Parameters:
                        [VT_I4 - SoundType  S9(9) COMP-5]
 Description of Parameters:
        Defines the sound to use. You can use the following constants to set the sound.

            POW-MBOK: (Default)  The default sound (Normal)
            POW-MBASTERISK:      The Asterisk sound (Information)
            POW-MBQUESTION:      The Question sound
            POW-MBEXCLAMATION:The Exclamation sound (Warning)
            POW-MBHAND: The Critical Stop sound
 Return value:
          VT_I4 - ReturnValue  S9(9) COMP-5
          Non-zero indicates normal completion.
          Zero indicates an error.
Example:
Código COBOL:
  1.  * Play the exclamation sound for the  current form
  2.  
  3.  INVOKE POW-SELF "Alarm"  USING  POW-MBEXCLAMATION  RETURNING ReturnValue


Espero que ajude.

Saludo,
RaPinto

Begoguay 7 de mayo de 2015 16:14
Hola.

Kuk, lo que me dijiste de INVOKE...Beep, da error al compilar.

Sin embargo, con la solucion de Rapinto ya me funciona.

Muchas gracias.

Saludos


La franja horaria es GMT +2. Ahora son las 07:31.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.