Ola!
Alguém tem uma ai ?
Saudações,
Itamar M. Lins Jr.
Moderador: Moderadores
#include "set.ch"
Function Main()
cls
? Greetings()
Return Nil
//------------------------------------------------------------------------------
Function Greetings()
Local cString := "", nHour, cOldTime
cOldTime := Set( _SET_TIMEFORMAT, "hh:mm:ss" )
nHour := Val( Left( Time(), 2 ) )
Do Case
Case nHour < 12
cString := "Bom dia"
Case nHour < 18
cString := "Boa tarde"
OtherWise
cString := "Boa noite"
End Case
Set( _SET_TIMEFORMAT, cOldTime )
Return cString
//------------------------------------------------------------------------------
<input type="text" name="nome" maxlength="10" size="30" etc...>
alxsts escreveu:Dá para fazer. Está lançado o desafio!
JoséQuintas escreveu:Isso é coisa velha.... rs
Não entendi.
Tá falando disto?
#include "hbgtinfo.ch"
Function Main()
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_UTF8
hb_cdpSelect( "UTF8" )
hb_gtInfo( HB_GTI_COMPATBUFFER, .f. ) // acentos
cls
AppIsPlayText(.T.)
DO CASE
CASE Time() < "12:00"; PlayText( "Bom dia e vá te ferrar" )
CASE Time() < "18:00"; PlayText( "Boa tarde" )
OTHERWISE ; PlayText( "Boa noite" )
ENDCASE
Inkey(10)
Return Nil
//------------------------------------------------------------------------------
/*
ZE_PLAYTEXT
José Quintas
*/
//#include "hbgtinfo.ch"
FUNCTION AppIsPlayText( xValue )
STATIC AppIsPlayText := .F.
IF xValue != NIL
AppIsPlayText := xValue
ENDIF
RETURN AppIsPlayText
FUNCTION PlayText( cText )
LOCAL oTalk
IF ! AppIsPlayText() .OR. Empty( cText )
RETURN NIL
ENDIF
hb_gtReload( hb_gtInfo( HB_GTI_VERSION ) )
oTalk := win_OleCreateObject( "SAPI.SPVoice" )
oTalk:Speak( cText ) // , SVSFDefault
oTalk:WaitUntilDone( 1 )
RETURN NIL
//------------------------------------------------------------------------------
**********************************
FUNCTION Play_Som(pszSound,fuSound)
**********************************
STATIC hLib
STATIC nProcAddr
IF nProcAddr==NIL
hLib:=Loadlibrary("WINMM")
nProcAddr:=GetProcAddress(hLib,"sndPlaySoundA")
ENDIF
RETURN CallDLL (hLib,nProcAddr,,8,10,pszSound,-3,fuSound)
Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes