sayıyı yazıya çeviren ve okuyan delphi kodları

[halo_27_son]

benim bir program yapmam lazım mayıs sonuna kadar arkadaslar

ödev delphide (form üzerindeki) bir edite rakamlarla yazdığım sayıyı, hemen yanında baska bir edit ya da label de çevir butonuna bastığımda yazıya (string ifadeye) çeviren ve ayrıca oku butonuna bastığımda bana sesli bir şekilde bu sayıyı okuyan bir program yapmam gerekiyor (mysql bilmiyorum sadece delphi ile)

bana yardım ederseniz çok sevinirim bana yol gösterin nolur nasıl yapabilirim adım adım
şimdiden yardımlarınız için çok tesekkur ederim allah razı olsun soru soranınız bol olsun ki sevap kazanın tekrar tesekkur

[Caylaq]

Merhaba,



Sayıyı Yazıya çevirmek için , formunuza bir edit birde label koyunuz.

Editin onchange olayına,

 
Label7.Caption := SayiToSozlu(StrToInt(Edit4.TExt));

yazınız.

Ve aşağıdaki procedureyide formunuza ekleyiniz.

 
 
 
function SayiToSozlu (Number :Double):String;
var
Text :Array [0..9,0..1] of String;
Sy,
Syt,
S :String;
 
function Oku(Deg:String):String;
var
B1,B2,B3:String;
P:Integer;
begin
try
B1 := Text[strToInt(copy(Deg, 3, 1)), 0];
B2 := Text[strToInt(Copy(Deg, 2, 1)), 1];
P := strToInt(Copy(Deg, 1, 1));
except
end;
if P > 1 then
b3 := Text[P, 0] + 'YÜZ '
else if P = 1 then
b3 := 'YÜZ'
else b3 := '';
Oku := b3 + B2 + B1;
end;
begin
Text[0, 0] :='';
Text[1, 0] := 'BİR';
Text[2, 0] := 'İKİ';
Text[3, 0] := 'ÜÇ';
Text[4, 0] := 'DÖRT';
Text[5, 0] := 'BEŞ';
Text[6, 0] := 'ALTI';
Text[7, 0] := 'YEDİ';
Text[8, 0] := 'SEKİZ';
Text[9, 0] := 'DOKUZ';
Text[1, 1] := 'ON';
Text[2, 1] := 'YİRMİ';
Text[3, 1] := 'OTUZ';
Text[4, 1] := 'KIRK';
Text[5, 1] := 'ELLİ';
Text[6, 1] := 'ALTMIŞ';
Text[7, 1] := 'YETMİŞ';
Text[8, 1] := 'SEKSEN';
Text[9, 1] := 'DOKSAN';
if Number<=0 then
begin
Result:='';
exit;
end;
S := FormatFloat('0',Number);
S:='000000000000000' + S;
S := copy(S,length(s)-14,15);
Sy := '';
syt := '';
{Boluk$ := MID$(S$, 13, 3): Bolok Boluk$, Sy$, Text$()}
syt := Oku(copy(S, 13, 3));
if Oku(copy(S, 10, 3)) <> '' then
if strToInt(copy(S, 10, 3)) = 1 then
syt := 'BİN ' +Syt
else
syt := Oku(copy(S, 10, 3))+'BİN ' +Syt;
if Oku(copy(S, 7, 3)) <> '' then
syt := Oku(copy(S, 7, 3))+'MİLYON ' + Syt;
if Oku(copy(S, 4, 3)) <> '' then
syt := Oku(copy(S, 4, 3))+'MİLYAR ' + Syt;
if Oku(copy(S, 1, 3)) <> '' then
syt := Oku(copy(S, 7, 3))+'TRİLYON ' + Syt;
SayiToSozlu := syt;
end;

Sayıyı okutmak için 3. parti bileşenler var. Bunlar ile kolayca yapabilirsiniz. Eğer bulamassanız size yollarım


Projenizde başarılar

Kolay gelsin.

[cemaliozan]

Eğer amacın araştırarak öğrenmekse bunu indirip incele, işine yarayacağını düşünüyorum.

http://www.teksevgi.com/edosya/code/ses.zip

[Caylaq]

Teşekkürler Cemali Hocam Bende inceleyeceğim