FiveTech Software tech support forums

Hi.

I haven't touched it yet but that's almost what I need when using the slider but automatically, I think it would be more interesting in my case although I could do something similar and let the user choose the tone they prefer.

Would it be possible to share so you can have a beginning?

Hugs

... FUNCTION Parpadeo( oWnd ) If oWnd:IsIconic() .and. oWnd:lNewMsg FlashWnd( oWnd:hWnd, 1 ) Tone( 2000, .1 ) else oWnd:lNewMsg := .F. EndIf Return .T. //////////////////////////////////////////////////////////////////////////////// DLL32 FUNCTION ...

... Tokennum([<@cTokenEnv>])->nTokenCount TokenSep([<lRightSeparator>])->cSeparator Tone(<nFrequency>,<nDuration>)->Nil TraceLog(<xVariables,...>)->lTrue Transform(<exp>,<cSayPicture>)->cFormatString ...

... Tokennum([<@cTokenEnv>])->nTokenCount TokenSep([<lRightSeparator>])->cSeparator Tone(<nFrequency>,<nDuration>)->Nil TraceLog(<xVariables,...>)->lTrue Transform(<exp>,<cSayPicture>)->cFormatString ...

... Tan TanH TBMouse Throw Time TimeToSec TimeValid Token TokenAt TokenEnd TokenExit TokenInit TokenLower TokenLower TokenNext Tokennum TokenSep Tone TraceLog Transform Trim TrueName TtoC TtoS Type U2bin UnCompressString UnSelected UpDated Upper Used Val ValPos ValToPrg ValToPrgExp ValType Version ...

I made before the command PRINTER ::oPrn TO ::cPrinter IF !IsPrinter() Tone(4000) Tone(3000) MsgInfo("Verificare la stampante...","Attenzione!") Endif BUT this control not run !!!! HOW resolve it ? But My problem also is another more important ...

... oReport:aGroups[1]:bFootFont :={|| AMARILLO } oReport:bInit:={|| DBGOTOP() } oReport:bSkip:={|| DBSKIP() } ACTIVATE REPORT oReport ; ON STARTPAGE Tone( 100, 1 ) RETURN NIL //----------------------------------------------------------------------------// Agradezco la atención del caso

... la clase tget y listo, en por ejemplo (depende de la version de fw que tengas): METHOD lValid() CLASS TGet local lRet := .t. if ::oGet:BadDate Tone( 100, 3 ) // agregar if BadDate ::buffer:=CTOD(' / / ') endif return .f. else Saludos, Daniel Puente

... ::aDias[::nPosicion] + "/" +; ::cMesNumero + "/" +; ::cAno ) ) ::nLastDay := ::nDiaMes ELSE IF ::lCuerpo( nRow, nCol) //Bingen TONE(500,3) ::lSelectOK :=.F. ENDIF ::nPosicion := nPosAnterior ENDIF ENDIF // Se evalua si es la linea de los botones. IF ::lBotones( nRow, nCol) // ...

Mr. Rao, on tone function of Andy try to wrote #define SAMPLING_RATE 126100 instead of #define SAMPLING_RATE 44100 it change the duration of note Perhaps we can found a function to control it !!! See it please I add : now the Piano ...

... the frequencies for all octaves, please share the final values with me. How can we make the duration controlled by the user? That is the tone should start playing when the user presses the key and stop when he releases the key.( ofcourse that is not piano). I like to have this variation ...

Please try this with #define METHOD1 and also commenting out //#define METHOD1. Are you sure the frequencies are right? Is it possible to stop the Tone when the user presses another key? /***  Piano.prg*  G.N.Rao**/#include "fiveWin.Ch"#define METHOD1#ifdef METHOD1static aTone ...

... 4 }, { 493, 4 }, { 440, 4 }, { 698.4, 3 }, ; { 698.4, 1 }, { 659.2, 4 }, { 523.3, 4 }, { 587.4, 4 }, ; { 523.4, 8 } } for i := 1 to len( a ) tone( a[ i, 1 ], a[ i, 2 ] * 2 ) next return

How simulate a sound of a paper in a old printer ?

... When I talk to those people and show them what I have accomplished with (x)Harbour\FiveWin and a C++ compiler, single .exe .. they just seem 'tone deaf' .. like I am "talking to the wind'. :roll: I found this excerpt about dot net in an article I was recently reading .. and I thought ...