شماره خوان

[lpln852]

با سلام
دوستان من یه پروژه دارم که باید شماره ای رو که کاربر وارد میکنه رو پخش کنم (با بلندگو)
یعنی این که کاربر یک شماره بین 0 تا 999 وارد میکنه وبعد با زدن یک کلید باید اون شماره از بلنگو پخش بشه
مشکل من این جاست چون من یک سری صداها رو توی ایسی ریختم و بعد با توجه به شماره باید اون ها رو پخش کنم
صدا های که تو ایسی هست
0 .1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.2 0.30.
40.50.60.70.80.90.100.200.300.400.500.600.700.800. 900

لطفا کمک کنید که چطور برنامه ی این رو بنویسم

به عنوان مثال اگه کاربر شماره 842 رو وارد کرد من باید صدای 800 بعد 40 بعد 2 روپخش کنم

[mohammadeijie]

پاسخ : شماره خوان

اول باید تشخیص بدی که عدد وارد شده چند رقمیه. بعد با یک حلقه FOR ارقام رو از هم جدا میکنی . و در نهایت رقم یکان رو به صورت خودش پخش میکنی مثلا اگه 4 بود خود 4 رو پخش میکنی . رقم دوم رو باید از اعداد دورقمی پخش کنی مثلا اگه 2 بود باید 20 رو پخش کنی . و آخر هم رقم سوم رو از سه رقمی ها پخش میکنی . اگه 8 بود 800 رو پخش کن و ...

[aliila]

پاسخ : شماره خوان

خودتو خسته نکن این کار راهش avr و arm و میکرو و ... نیست با کامپوتر خانگی خیلی راحت انجام میشه الان یک کیس تارخ گذشته کامل 80 هزار تومن است تو دلفی یا وبی دات نت می تونی در کمتر از یک ساعت برنامه شو بنوی سی

[spman]

پاسخ : شماره خوان

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

[microware]

پاسخ : شماره خوان

سلام دوست عزیز. این چطوره؟
Number = 842
Num = Number
Yek = Num Mod 10
Num = Num / 10
Dah = Num Mod 10
Num = Num / 10
Sad = Num Mod 10
If Sad > 0 Then
Gosub Play_sadgan
Gosub Play_dahgan
Else
If Dah > 0 Then
Gosub Play_dahgan
End If
End If

Play_sadgan:
Select Case Sad:
Case 1:
'paly 100'
Case 2:
'play 200'
.
.
.
.
.
Case 9:
'plau 900
End Select

Play_dahgan:
If Dah > 1 Then
Select Case Dah
Case 2:
'play 20'
Case 3:
'paly 30'
.
.
.
.
Case 9:
'play 90'
End Select
Else
If Dah = 1 Then
Select Case Yek
Case 0:
'play 10'
Case 1:
'play 11'
.
.
.
Case 9:
'play 19
End Select
Else
Select Case Yek
Case 1:
'play 1'
Case 2:
'play 2'
.
.
.
Case 9;
'play 9'
End Select
End If
End If