[Sintaxis] Lanzar un pitido

[Begoguay]

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]

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 :

INVOKE POW-SELF "Beep"

Rero nunca lo he usado. Normalmente uso:

 WORKING-STORAGE SECTION.
 01  WS-ICONO           PIC 99.
     88  WS-ICON-ERR             VALUE '16'.
     88  WS-ICON-WRN             VALUE '48'.
     88  WS-ICON-INF             VALUE '64'.
     
 PROCEDURE DIVISION.
 
 SET WS-ICON-??? TO TRUE
  
 INVOKE POW-SELF "DisplayMessage" USING "Texto mensaje" "Titulo Mensaje" WS-ICONO

[Rapinto]

Begoguay,

Do manual de Fujitsu Cobol:

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:

 * Play the exclamation sound for the  current form
 
 INVOKE POW-SELF "Alarm"  USING  POW-MBEXCLAMATION  RETURNING ReturnValue

Espero que ajude.

Saludo,
RaPinto

[Begoguay]

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