mostafaserial
شنبه 10 مرداد 1388, 18:54 عصر
با سلام
كسي ميتونه اين كد رو براي من تبديل كنه به زبون پاسكال تا بتونم ازش توي دلفي استفاده كنم
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, n, m,s As Integer
Dim digit(9) As Integer
s = Int(TextBox1.Text)
m = 9
While (s > 0)
n = s Mod 10
digit(m) = n
m = m - 1
s = s / 10
End While
For n = 0 To 9
a = digit(n)
Select Case (a)
Case 0
نام فایل صوتی 0
Case 1
نام فایل صوتی 1
Case 2
نام فایل صوتی 2
Case 3
نام فایل صوتی 3
Case 4
نام فایل صوتی 4
Case 5
نام فایل صوتی 5
Case 6
نام فایل صوتی 6
Case 7
نام فایل صوتی 7
Case 8
نام فایل صوتی 8
Case 9
نام فایل صوتی 9
End Select
Next
End Sub
End Class
من ميخوام يه عدد مثلا 85858رو از طريق تكست بكس بگيرم بعد اون عدد رو تفكيك كنم
تا فايل رو تك تك با دستور
KDVoice1.Play( KDPhone1.WavePlayID,'5.wav',0,-1 );
برام بخونه
واضحتر بگم مثل تلفن گويا كه اعدادرو تك تك ميخونه اين دستور براي پخش فايل صوتي
از طريق خط تلفنه
يك عدد از ورودي خونده ميشه بعد به صورت تك تك پخش ميشه
ممنون از كمكتون
كسي ميتونه اين كد رو براي من تبديل كنه به زبون پاسكال تا بتونم ازش توي دلفي استفاده كنم
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, n, m,s As Integer
Dim digit(9) As Integer
s = Int(TextBox1.Text)
m = 9
While (s > 0)
n = s Mod 10
digit(m) = n
m = m - 1
s = s / 10
End While
For n = 0 To 9
a = digit(n)
Select Case (a)
Case 0
نام فایل صوتی 0
Case 1
نام فایل صوتی 1
Case 2
نام فایل صوتی 2
Case 3
نام فایل صوتی 3
Case 4
نام فایل صوتی 4
Case 5
نام فایل صوتی 5
Case 6
نام فایل صوتی 6
Case 7
نام فایل صوتی 7
Case 8
نام فایل صوتی 8
Case 9
نام فایل صوتی 9
End Select
Next
End Sub
End Class
من ميخوام يه عدد مثلا 85858رو از طريق تكست بكس بگيرم بعد اون عدد رو تفكيك كنم
تا فايل رو تك تك با دستور
KDVoice1.Play( KDPhone1.WavePlayID,'5.wav',0,-1 );
برام بخونه
واضحتر بگم مثل تلفن گويا كه اعدادرو تك تك ميخونه اين دستور براي پخش فايل صوتي
از طريق خط تلفنه
يك عدد از ورودي خونده ميشه بعد به صورت تك تك پخش ميشه
ممنون از كمكتون