se vc já tem o número, basta fazer alguns ajustes na função q gera extenso...
acrescenta a palavra reais antes da vírgula e centavos no final (caso seja > 0)
basta vc dar uma olhadinha no código... analise-o q vc consegue... nem é tão
difícil assim....
para tocar vc pode usar a função:
procedure TOCASOM(arquivo : string);
var
aux : Array[0..255]of char;
begin
if arquivo <> '' then
begin
StrPCopy(Aux,arquivo);
try
sndPlaySound(Aux,SND_ASYNC);
except
// erro ao acessar dispositivo de som...
end;
end;
end;
ps: acrescentar a unit MMSystem
Mais fácil q isso, só passatempo com leite... hummmm
rsrsrs
Abração
and.
----- Original Message -----
From: Jefferson - Fórum
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 15, 2007 3:31 PM
Subject: Re: [delphi-br] Numero por extenso
Aproveitando a dúvida do amigo, gostaria de saber como eu poderia fazer uma
função que reproduziria um valor através de som, já que possuo todos arquivos
(*.wav) referentes aos valores.
Seria igual aos quiosques do supermercado, quando colocamos um produto e ele
diz o valor do mesmo.
Obrigado!
Jefferson
----- Original Message -----
From: Valdir UOL
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 15, 2007 10:22 AM
Subject: RES: [delphi-br] Numero por extenso
Pega ai um exemplo.
unit Ext;
interface
function extenso (valor: real): string;
implementation
uses
SysUtils, Dialogs;
function extenso (valor: real): string;
var
Centavos, Centena, Milhar, Milhao, Texto, msg: string;
const
Unidades: array[1..9] of string = ('Um', 'Dois', 'Tres', 'Quatro', 'Cinco',
'Seis', 'Sete', 'Oito', 'Nove');
Dez: array[1..9] of string = ('Onze', 'Doze', 'Treze', 'Quatorze', 'Quinze',
'Dezesseis', 'Dezessete', 'Dezoito',
'Dezenove');
Dezenas: array[1..9] of string = ('Dez', 'Vinte', 'Trinta', 'Quarenta',
'Cinquenta', 'Sessenta', 'Setenta',
'Oitenta', 'Noventa');
Centenas: array[1..9] of string = ('Cento', 'Duzentos', 'Trezentos',
'Quatrocentos', 'Quinhentos',
'Seiscentos',
'Setecentos', 'Oitocentos',
'Novecentos');
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Igor Alexandre
Enviada em: segunda-feira, 15 de janeiro de 2007 11:09
Para: Delphi-Br; Delphi-Total
Assunto: [delphi-br] Numero por extenso
Alguem sabe como retornar um numero por extenso. ex: 29 - Vinte e nove;
--
Igor Alexandre.
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
__________ Informação do NOD32 IMON 1980 (20070115) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
