Clipper On Line • Ver Tópico - Função cumprimentar (bom dia, boa tarde, boa noite)

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

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

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

Mensagempor Itamar M. Lins Jr. » 26 Set 2018 16:15

Ola!
Alguém tem uma ai ?

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

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

Mensagempor alxsts » 26 Set 2018 17:01

Olá!

Segue:
#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
//------------------------------------------------------------------------------
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

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

Mensagempor Softwhouse » 26 Set 2018 17:27

Imaginei que o Itamar quisesse que o programa falasse ...
Fernando
Softwhouse
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 300
Data de registro: 07 Dez 2011 17:44
Cidade/Estado: Porto Alegre/RS
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

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

Mensagempor alxsts » 26 Set 2018 18:07

Olá!

Dá para fazer. Está lançado o desafio!
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

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

Mensagempor Itamar M. Lins Jr. » 26 Set 2018 21:11

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.
  <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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

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

Mensagempor JoséQuintas » 26 Set 2018 22:03

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


Não entendi.
Tá falando disto?

test.zip
(442.32 KiB) Baixado 113 vezes


hbmk2 test josequintas.hbc
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

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

Mensagempor JoséQuintas » 26 Set 2018 22:09

Isso é coisa velha.... rs
5 anos atrás.

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=14500&p=84691&hilit=playtext#p84691

Passou por aqui num post, apenas deixei anotado até que deu pra usar, e no W10 liberou geral.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

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

Mensagempor alxsts » 26 Set 2018 23:32

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
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

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

Mensagempor JoséQuintas » 27 Set 2018 02:49

https://github.com/JoseQuintas/JoseQuintas/blob/master/source/ze_playtext.prg

Uso a rotina executada em mulithread, por isso a janela invisível da GTWVG.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

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

Mensagempor alxsts » 27 Set 2018 03:42

Olá!

Agora compilou. Funcionou até com UTF8 e palavras acentuadas. Valeu.
#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
//------------------------------------------------------------------------------
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

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

Mensagempor clodoaldomonteiro » 27 Set 2018 12:50

Quintas,

Esse Driver "SAPI.SPVoice" tem que estar instalado no PC do Cliente né?
At. Clodoaldo Monteiro
Linguagens: Clipper / Harbour
Área de Atuação: Sistemas de gestão para Prefeituras Municipais
Fones: (86)3223-0653, 98859-0236
www.simplesinformatica.com.br
Avatar de usuário

clodoaldomonteiro
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 741
Data de registro: 30 Dez 2006 12:17
Cidade/Estado: Teresina-PI
Curtiu: 110 vezes
Mens.Curtidas: 31 vezes

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

Mensagempor clodoaldomonteiro » 27 Set 2018 12:54

Usava a WinMM, no clipper puro.

   **********************************
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)
At. Clodoaldo Monteiro
Linguagens: Clipper / Harbour
Área de Atuação: Sistemas de gestão para Prefeituras Municipais
Fones: (86)3223-0653, 98859-0236
www.simplesinformatica.com.br
Avatar de usuário

clodoaldomonteiro
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 741
Data de registro: 30 Dez 2006 12:17
Cidade/Estado: Teresina-PI
Curtiu: 110 vezes
Mens.Curtidas: 31 vezes

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

Mensagempor alxsts » 27 Set 2018 13:05

Olá!

Não precisei instalar nada aqui. Só inclui o hbwin.hbc na compilação.
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

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

Mensagempor asimoes » 02 Out 2018 20:46

Alguém sabe como troca a voz ? do objeto SAPI.SPVoice
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

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

Mensagempor alxsts » 02 Out 2018 21:01

Olá!

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

Página acima traduzida para o Português.
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 11 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro