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