PC Toledo

Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/

Função cumprimentar (bom dia, boa tarde, boa noite)

https://pctoledo.org/viewtopic.php?t=19467

Página 1 de 1

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 26 Set 2018 16:15
por Itamar M. Lins Jr.
Ola!
Alguém tem uma ai ?

Saudações,
Itamar M. Lins Jr.

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 26 Set 2018 17:01
por alxsts
Olá!

Segue:

Código: Selecionar todos

#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
 //------------------------------------------------------------------------------

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 26 Set 2018 17:27
por Softwhouse
Imaginei que o Itamar quisesse que o programa falasse ...

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 26 Set 2018 18:07
por alxsts
Olá!

Dá para fazer. Está lançado o desafio!

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 26 Set 2018 21:11
por Itamar M. Lins Jr.
Ola!
Há muitas "eras" atrás... Já tinha visto algumas, mas sempre tem uma mais simples. Essa tá show!
To estudando, CGI com Apache/PHP/Harbour, acho que não falta muito da parte do Harbour para ser usando em pé de igualdade com PHP, e ainda podemos compilar os fontes. Ai existe "os poréns" conforme a letra do samba ai eu volto para o Harbour rsrsrs é da Portela mas a gente associa da um "class inherit" para o Harbour rsrsrs e não usamos muito o PHP, Só de leitura do APACHE, configuração etc... coloca ai tempo...
Vejo fontes em PHP na internet e acabo fazendo no Harbour, funciona e eu entendo o que estou fazendo, e ainda tem o "mala" do APACHE para aprender, aprender HTML, CSS(só firulas) paginas bonitinhas e mais tempo, para aprender. A vantagem é que são coisas usadas para tudo praticamente!
Dizem que HTML é uma linguagem de marcação, mas isso foi no inicio, com HTML5 é programação "NORMAL" DIRETO no HTML. Para comprovarem basta olhar os códigos de HTML5 por ai.

Código: Selecionar todos

  <input type="text" name="nome" maxlength="10" size="30" etc...>
Define na variável nome, tamanho, tipo, cor etc... se isso não é programação normal não sei mais o que é programar.
Sobre computadores e a IA(inteligencia Artificial) isso que está acontecendo com Win10, foi mais um motivo para ir deixando de usar o windows.
Fui instalar em um cliente 2 notebooks novos, um veio com 2MB, pense numa maquina lenta, o "cortana" enchendo o saco, um software de propaganda das "casas bahia" afff o note ficou uma carroça, nem removendo alguns programas ficou bom, pq o tempo todo a tal "telemetria" comendo recursos da "máquina" e outras tantas doidices... tá todo mundo mundo querendo nossa atenção para vender algo desnecessário no momento.

Saudações,
Itamar M. Lins Jr.

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 26 Set 2018 22:03
por JoséQuintas
alxsts escreveu:Dá para fazer. Está lançado o desafio!
Não entendi.
Tá falando disto?
test.zip
(442.32 KiB) Baixado 161 vezes

hbmk2 test josequintas.hbc

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 26 Set 2018 22:09
por JoséQuintas
Isso é coisa velha.... rs
5 anos atrás.

https://pctoledo.org/forum/viewto ... ext#p84691

Passou por aqui num post, apenas deixei anotado até que deu pra usar, e no W10 liberou geral.

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 26 Set 2018 23:32
por alxsts
Olá!
JoséQuintas escreveu:Isso é coisa velha.... rs
Não entendi.
Tá falando disto?
Não tinha visto aquele tópico, agora que vi. Boa evolução em cinco anos. Eu tinha pensado em algo usando a API do Google mas não sei se tem para Harbour e nem se é gratuita. Ela é capaz disto e do inverso: converter fala em arquivos de texto (reconhecimento de voz). De novo, quanta evolução!

Quanto ao anexo, como compilar isto sem a tua lib?
Capturar.JPG

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 27 Set 2018 02:49
por JoséQuintas
https://github.com/JoseQuintas/JoseQuin ... aytext.prg

Uso a rotina executada em mulithread, por isso a janela invisível da GTWVG.

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 27 Set 2018 03:42
por alxsts
Olá!

Agora compilou. Funcionou até com UTF8 e palavras acentuadas. Valeu.

Código: Selecionar todos

#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
//------------------------------------------------------------------------------

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 27 Set 2018 12:50
por clodoaldomonteiro
Quintas,

Esse Driver "SAPI.SPVoice" tem que estar instalado no PC do Cliente né?

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 27 Set 2018 12:54
por clodoaldomonteiro
Usava a WinMM, no clipper puro.

Código: Selecionar todos

   **********************************
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)

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 27 Set 2018 13:05
por alxsts
Olá!

Não precisei instalar nada aqui. Só inclui o hbwin.hbc na compilação.

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 02 Out 2018 20:46
por asimoes
Alguém sabe como troca a voz ? do objeto SAPI.SPVoice

Função cumprimentar (bom dia, boa tarde, boa noite)

Enviado: 02 Out 2018 21:01
por alxsts
Olá!

Ainda não consegui estudar mas deve ter aqui: SpVoice Interface (SAPI 5.3).

Página acima traduzida para o Português.
Todos os horários são UTC-03:00
Página 1 de 1

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB