Desde hace una hora no he podido que salga sonido del altavoz ni con PlayBeep() ni Tone(1000,3), ni.... ??? Ya reinicie la maquina, ya busque un ejemplo (Tipos de mensajes que están en miniguiExtend) y lo ejecute y nada... ya hice una verificación de virus y nada..... Ya oi varios videos y todo bien. El ejemplo que les mando es el que esta en HMG/Samples/Boton.1 solo le Agregue PlayBeep() y Tone(1000,3) y no logro escuchar el sonido.
*-----------------------------------------------------------------------------------------------------------------------------------------------
Hi all ...
For one hour I could not output sound speaker nor PlayBeep () or Tone (1000.3), or .... ??? Now restart the machine, and find an example (Types of messages that are in miniguiExtend) and run it and nothing ... I have done a virus check and nothing ..... I've heard several videos and all good. The example that I send is he that is in you alone HMG/Samples/Boton.1 PlayBeep Add () and Tone(1000.3) and I can not hear the sound.
Code: Select all
Function Main()
set century on
set date ital
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 200 ;
HEIGHT 200 ;
MAIN;
TITLE 'Button Test'
DEFINE MAIN MENU
POPUP 'Test'
ITEM 'Disable button' ACTION Form_1.Button_1.Enabled := .f.
ITEM 'Enable button' ACTION Form_1.Button_1.Enabled := .t.
END POPUP
END MENU
PlayBeep()
Tone(1000,3)
@ 30,70 BUTTON Button_1 PICTURE "button.bmp" WIDTH 50 HEIGHT 50 ACTION {|| PlayBeep() , getprinter()}
@ 100,70 textbox t1 value date() date
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
Gracias
Polo
