FiveTech Software tech support forums

Carlos, El código tiene su nivel de complejidad porque usa DirectSound, etc y son objetos OLE que hay que investigar, probar, etc. No te valdría modificar el ejemplo en VB para que le pases los parámetros que necesites y los ejecute, y que llamases a ese EXE desde tu aplicación ? :-) En relación al ...

Maestro Antonio, Por aquello de la dignidad, ya intalé VB y lo compilé. Funciona perfecto. Ahora voy a ver si puedo simular las notas musicales. Como se portaría a C ? Hasta allá no llegan mis conocimientos. :oops: Este es el código en VB: VERSION 5.00Begin VB.Form frmMain    BorderStyle     =   1  ...

Antonio, :D Estás de muy buen humor. Windows 7 : El médico me prohibió que lo usara antes de 7 meses hasta ver si ese nuevo virus-S.O. muta y gira hacia AH1N1-Vista, o AH1N1-XP ó es un nuevo bicho. El ejemplo que me indicas está en VB 6.0 y no tengo la herramienta (ni la he usado) :? Tal vez alguna ...

Carlos,

Aqui teneis un ejemplo de como simular tone en la tarjeta externa usando DirectSound:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=39362&lngWId=1

Prueba el ejemplo y si te funciona, habría que portar el código a C para usarlo desde [x]Harbour

Carlos,

En Windows 7 Beep() usa los altavoces externos:

On Windows 7 Beep does not make sound on a motherboard speaker, but on a sound card

http://msdn.microsoft.com/en-us/library/ms679277(VS.85).aspx

Una solución podría ser que useis Windows 7

... respuesta. Ya había probado el código suegerido por Roger Seiler. Pero nada. Parece que si el equipo no tiene parlante interno no hay forma de que Beep() suene. Ya hemos probado de todo sin suerte. Nos queda conseguir un equipo viejo que tenga el bendito parlante. Gracias por tu interés. Si se ...

... code takes over to finish the job...#pragma BEGINDUMP#include <hbapi.h>#include <windows.h>HB_FUNC( MYTONE ){   Beep( hb_parnl( 1 ), hb_parnl( 2 ) * 70 );}#pragma ENDDUMP  Según comentario de Roger Seiler "Confirmed: this ...

Hola amigos, Estoy haciendo una pequeña aplicación en la que es indispensable el uso de las funciones Tone() o Beep() en virtud de que se necesitan diferentes frecuencias y duraciones. Hemos probado en 13 equipos nuevos, incluídos portátiles, y ninguno trae Speaker Interno. Parece ...

Jose,

Agregale una pausa y un sysrefresh() antes del enddo del ciclo que controla el beep.


Atte..,

Lautaro Moreira

... VAR cSAY ID 104 OF oDlg UPDATE COLOR CLR_HRED,CLR_BLACK FONT oFontBIG ACTIVATE DIALOG oDlg CENTER NOWAIT DO WHILE T<1500 .AND. !lStop T+=20 BEEP(T,1) cSAY:=ALLTRIM(STR(T))+' Hz';oSAY:REFRESH();SYSREFRESH() ENDDO do while .not. lstop ... ... sysrefresh() enddo odlg:end() RETU[] Atte., Lautaro ...

... example : it's not that simple. I got an error almost on every line OLE is used. Here are some of these lines : On this line I can hear a strange beep, which wasn't heard before : JuWole1:Run("JUD_CHECK") On this line, I got an error "No exported method:Open" : JuDoc1 ...

... unresolved external symbol GetProcessTimes referenced in function hb_secondsCPU rtl.lib(gttone.obj) : error LNK2019: unresolved external symbol Beep referenced in function hb_gt_wNtTone tosfrit.exe : fatal error LNK1120: 3 unresolved externals

... unresolved external symbol GetProcessTimes referenced in function hb_secondsCPU rtl.lib(gttone.obj) : error LNK2019: unresolved external symbol Beep referenced in function hb_gt_wNtTone tosfrit.exe : fatal error LNK1120: 4 unresolved externals

This new version manages the mouse and the keyboard. Please notice that it will beep like crazy because it detects all the mouse movements :-) Next we need to select the events that are just for our window: rawinput.prg #include "FiveWin.ch" #define ...

You could use oGet:bChange to check the length of the data and beep or whatever. Or, you could create your own version of a memo field in a separate file. You need two fields, one for the primary key and another for the text. You use a one-to-many relationship ...