خواندن اعداد بانک

[sall_2005_1363]

چطور می تونم عملیات زیر را در انبار (در اس کیو ال ) را داشته باشم.ضمناً از آقای کشاورز هم به علت پویا بودنش تشکر می کنم.


1) هرکس زنگ بزنه با تلفن بتونه مانده هر محصول رو داشته باشه یعنی اعداد مانده رو نرم افزار بخونه؟(اصلاً برنامه ای هست که اعداد را بخوانه و پخش کنه)

2) هرکس بتونه سفارش خود رو ثبت کنه با تلفن؟


دوستان سپاسگذارم بسیار.

[sall_2005_1363]

خواهشمند است پاسخ بدهید؟

[Felony]

خوب کجاش مشکل دارید ، سوالاتون خیلی کلی هست و برای هر دو در سایت راه حل ارائه شده ، برای مورد اول ( خواندن اعداد ) قبلا یه سورس نوشته بودم خودتون میتونید بهینه ترش کنید ( ضمیمه کردمش ) و در مورد سوال دوم هم عبارت kdtele رو جست و جو کنید .

[Felony]

کدی که قرار دادم رو الان بعد از مدتها بازبینی کردم جزء اولین کدهای من هست و کثیفی توش موج میزنه ! ، کد رو الان تصحیح کردم :

var
Tol: Integer;
Num: Array [1..5] of string;
const
w: String= '.wav';
begin
Tol:= Length(e1.Text);
if StrToInt(e1.Text)<20 then
begin
MP.FileName:='Sounds\'+e1.Text+w;
MP.Open;
MP.Play;
end;

if (StrToInt(e1.Text)>20) and (StrToInt(e1.Text)<100) then
begin
Num[1]:= Copy(e1.Text,1,1);
Num[2]:= Copy(e1.Text,2,1);
if num[2]='0' then
begin
MP.FileName:='Sounds\'+e1.Text+w;
MP.Open;
MP.Play;
end else
begin
MP.FileName:='Sounds\'+num[1]+'0'+w;
MP.Open;
MP.Play;
Sleep(530);
MP.FileName:='Sounds\'+'va'+w;
MP.Open;
MP.Play;
sleep(350);
MP.FileName:='Sounds\'+num[2]+w;
MP.Open;
MP.Play;
end;
end;

if strtoint(e1.Text)>99 then if strtoint(e1.Text)<1000 then
begin
Num[1]:= Copy(e1.Text,1,1);
Num[2]:= Copy(e1.Text,2,1);
Num[3]:= Copy(e1.Text,3,1);
if Num[3]='0' then
begin
mp.FileName:='Sounds\'+e1.Text+w;
MP.Open;
MP.Play;
end else
if Num[2]='0' then
begin
MP.FileName:= 'Sounds\'+Num[1]+Num[2]+'0'+w;
MP.Open;
MP.Play;
Sleep(530);
MP.FileName:= 'Sounds\'+'va'+w;
MP.Open;
MP.Play;
Sleep(350);
MP.FileName:= 'Sounds\'+Num[3]+w;
MP.Open;
MP.Play;
end else
begin
MP.FileName:= 'Sounds\'+Num[1]+'00'+w;
MP.Open;
MP.Play;
Sleep(530);
MP.FileName:= 'Sounds\'+'va'+w;
MP.Open;
MP.Play;
Sleep(350);
MP.FileName:='Sounds\'+Num[2]+'0'+w;
MP.Open;
MP.Play;
Sleep(530);
MP.FileName:= 'Sounds\'+'va'+w;
MP.Open;
MP.Play;
Sleep(350);
MP.FileName:= 'Sounds\'+Num[3]+w;
MP.Open;
MP.Play;
end;
end;
end;

[sall_2005_1363]

کدی که قرار دادم رو الان بعد از مدتها بازبینی کردم جزء اولین کدهای من هست و کثیفی توش موج میزنه ! ، کد رو الان تصحیح کردم :

var
Tol: Integer;
Num: Array [1..5] of string;
const
w: String= '.wav';
begin
Tol:= Length(e1.Text);
if StrToInt(e1.Text)<20 then
begin
MP.FileName:='Sounds\'+e1.Text+w;
MP.Open;
MP.Play;
end;

if (StrToInt(e1.Text)>20) and (StrToInt(e1.Text)<100) then
begin
Num[1]:= Copy(e1.Text,1,1);
Num[2]:= Copy(e1.Text,2,1);
if num[2]='0' then
begin
MP.FileName:='Sounds\'+e1.Text+w;
MP.Open;
MP.Play;
end else
begin
MP.FileName:='Sounds\'+num[1]+'0'+w;
MP.Open;
MP.Play;
Sleep(530);
MP.FileName:='Sounds\'+'va'+w;
MP.Open;
MP.Play;
sleep(350);
MP.FileName:='Sounds\'+num[2]+w;
MP.Open;
MP.Play;
end;
end;

if strtoint(e1.Text)>99 then if strtoint(e1.Text)<1000 then
begin
Num[1]:= Copy(e1.Text,1,1);
Num[2]:= Copy(e1.Text,2,1);
Num[3]:= Copy(e1.Text,3,1);
if Num[3]='0' then
begin
mp.FileName:='Sounds\'+e1.Text+w;
MP.Open;
MP.Play;
end else
if Num[2]='0' then
begin
MP.FileName:= 'Sounds\'+Num[1]+Num[2]+'0'+w;
MP.Open;
MP.Play;
Sleep(530);
MP.FileName:= 'Sounds\'+'va'+w;
MP.Open;
MP.Play;
Sleep(350);
MP.FileName:= 'Sounds\'+Num[3]+w;
MP.Open;
MP.Play;
end else
begin
MP.FileName:= 'Sounds\'+Num[1]+'00'+w;
MP.Open;
MP.Play;
Sleep(530);
MP.FileName:= 'Sounds\'+'va'+w;
MP.Open;
MP.Play;
Sleep(350);
MP.FileName:='Sounds\'+Num[2]+'0'+w;
MP.Open;
MP.Play;
Sleep(530);
MP.FileName:= 'Sounds\'+'va'+w;
MP.Open;
MP.Play;
Sleep(350);
MP.FileName:= 'Sounds\'+Num[3]+w;
MP.Open;
MP.Play;
end;
end;
end;
برای بعضی از عدد ها رو نمی تونه بگه مثل 211 را می گه 200 و 10 و یک
ورژن جدید این برنامه جناب مهندس واسمون بزارید همش برنامه های نسخه بتا رو مدید که؟
در هر حال از لطف شما ممنونم.

[sall_2005_1363]

من لیسانس برق قدرت هستم و علاقمند به دلفی . بانک ها

مدتی هست که داخل یک شرکت خصوصی مشغول به کار شده ام و علاقه زیادی دارم که به صورت مدرن وظیفه خودم که سرپرستی یک خط کوچک است رو انجام بدم و در این خصوص از همه کمک می گیرم.

این برنامه ای که گفته ام سورسش هم پیدا می شه که برای نوشتن برنامش شهید نشم.

خوشحال می شم بیشتر تر کمکم کنید

[Felony]

برای بعضی از عدد ها رو نمی تونه بگه مثل 211 را می گه 200 و 10 و یک
ورژن جدید این برنامه جناب مهندس واسمون بزارید همش برنامه های نسخه بتا رو مدید که؟
گفتم که این برنامه جزء برنامه های اولیه من بود ، از سورس ایده بگیرید و تکمیلش کنید ، کار خاصی نداره .


خوشحال می شم بیشتر تر کمکم کنید
اول باید اصول و مبانی برنامه نویسی و دلفی رو یاد بگیرید در غیر این صورت کارتون خیلی سخت میشه ، بعد از یاد گرفتن اصول اولیه تو همین انجمن جواب همه سوالاتون رو پیدا میکنید .