Francisico.ajudando.delphi

Amigo Jhonas, fiz o programinha, 'relogio falante' deu certo conforme os codigos fontes que você passou na tua postagem, mas para incrementar o programa coloquei um componente da paleta ACTIVEX (TextToSpeech) para visualizar e movimentar a boca que fala. inseri um codigo assim "TextToSpeech1.Speak(edit1.text);" Funcionou, mas somente responde em ingles. acho que esta faltando algumas coisas (codigos). Queria que o componente 'TextToSpeech" falasse o testo em portugues (Raquel). Sem mais, por hoje, fico aguardando uma possivel resposta, e desde já agradeço. Um abraço

Ok, estou "fusando" nos exemplos de VU Meeter que você me mostrou, mas esta complicado demais p minha capacidade. Mas devagar eu aindo chego lá. Pergunto então: O componente VU então mostra visivelmente o nivel de som através de faixas luminosas, tudo bem, penso que estou no caminho agora, mas eu precisaria que o resultado fosse em numeros, tipo assim: volume maximo do som = 100, volume minimo do som = 0 e volumes intermediarios de 0 a 100. o resultado deveria aparecer num Edit ou Label. Outra pergunta: em que paleta do delphi esta o tal de componente VU meter. uso o delphi7.

Ok amigo. entre outras coisas era isso que eu queria. Muito Obrigado, Que Deus abençõe a todos da sua familia. vi que voce gosta de estatísticas. Muitas coisas podem ser avaliadas por numero, outras coisas podem ser avaliadas por comportamento, e tantas coisas mais são avaliadas por uma diversidade de maneiras, e ou valores, mas o que me chama a atenção é sobre estatisticas do evangelho, digo: Quantas pessoas morrem por dia, sem ter conhecido o evangelho??? por minutos, por hora, por segundo....... Mas tudo bem. Deus sabe tudo. Obrigado pela ajuda em delphi e um abraço.

ok amigo, funcionou, para ajustar o volume do som wav. Parabens, mas eu preciso na verdade que o nivel do som acione diretamente o gauge, tipo assim: som alto o ponteiro do gauge mostra no maximo e x som baixo o ponteiro do gauge mostra no minimo, e pontos intermediarios par som com volume médio. o volume do som eu controlo noutra parte. quero usar o gauge para mostrar a intensidade do som. Se possivel, me ajude denovo. sem mais, fico aguardando. Um abraço amigo. Francisco

{Amigo, coloquei os codigos como estão abaixo, mas deu erro. Pergunto: as variaveis eu terei que colocar acima de implementation ou pode ficar onde esta? coloquei tb na propriedade max de tractbarr valor 15. se possivel corrija p mim. Desde já agradeço.} unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, MMSystem, ComCtrls, Gauges; type TForm1 = class(TForm) TrackBar1: TTrackBar; Gauge1: TGauge; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} ////procedure TForm1.FormCreate(Sender: TObject); ////begin procedure TForm1.tbVolumeChange(Sender: TObject); // TrackBar var Count, i: integer; begin Count := waveOutGetNumDevs; for i := 0 to Count do begin waveOutSetVolume(i,longint(tbVolume.position*4369)*65536+longint(tbVolume.position*4369)); end; end; end; end.

Amigos, preciso de ajuda. Preciso acionar um componente Gauge com microfone. Quero aumentar a numeração progressiva do gauge com som alto, e som baixo. Que fique proporcional o progresso do gauge. digo: som alto= gouge valor alto x som baixo = gauge valor alto. Caso não tenha esta possibilidade quero determinar ou mostrar num edit.texr a frequencia do som a partir de um microfone. Sem mais, agradeço desde já. Francisco

Amigo, como vai. Estou respondendo pela primeira vez em forum. penso que é isso que você quer: me retorne se deu certo. ///////////////////////////////////// procedure TForm1.Button1Click(Sender: TObject); begin ///Acrescente MMSystem na Uses do começo na Unit PlaySound('C:\Arquivos de programas\nomedoarquivo.wav',1,SND_ASYNC); end;