السلام عليكم اخواني الكريم
اتمنى ان تكونوا بخير ..
بخصوص البرنامج لقد قمت بتطويره، و قمت بإضافة التالي:
- نطق الارقام من الصفر إلى الألف (بالإضافة إلى الارقام العشرية)
- إضافة العملة
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text.Contains(".") Then
Dim ss As String() = (TextBox1.Text).ToString.Split(".")
checkPlayNumber(ss(0), ss(1))
Else
PlayNumber(TextBox1.Text)
PlaySoundFile("دينار")
End If
End Sub
Sub checkPlayNumber(number1 As Integer, number2 As Integer)
If number1 = 0 Then
PlayNumber(number2)
PlaySoundFile("درهم")
ElseIf number2 = 0 Then
PlayNumber(number1)
PlaySoundFile("دينار")
ElseIf number1 <> 0 And number2 <> 0 Then
PlayNumber(number1)
PlaySoundFile("دينار")
PlaySoundFile("و")
PlayNumber(number2)
PlaySoundFile("درهم")
End If
End Sub
Sub PlayNumber(number As Integer)
If number = 1 Then
PlaySoundFile("دينار")
ElseIf (number >= 1 And number <= 19) Or (number Mod 10 = 0 And number <= 1000) Then
PlaySoundFile(number)
ElseIf number < 100 Then
Dim ones As Integer = number Mod 10
Dim tens As Integer = number - ones
PlayNumber(ones)
PlaySoundFile("و")
PlayNumber(tens)
ElseIf number > 100 And number < 110 Then
Dim ones As Integer = number Mod 10
Dim tens As Integer = number - ones
PlayNumber(tens)
PlaySoundFile("و")
PlayNumber(ones)
ElseIf number >= 110 Or number Mod 10 = 0 Then
Dim ones As Integer = number Mod 100
Dim tens As Integer = number - ones
PlayNumber(tens)
PlaySoundFile("و")
PlayNumber(ones)
End If
End Sub
Sub PlaySoundFile(number As String)
Dim filePath As String = String.Format("C:\Users\u\source\repos\numToSpeech\sounds\{1}.wav", Application.StartupPath, number)
My.Computer.Audio.Play(filePath, AudioPlayMode.WaitToComplete)
End Sub
ولكن لدي مشكلة وهي عند إدخال الارقام: 10,20,30,40,50,60,90 مع المئات لا يتم نطق الصوت أي على سبيل المثال : لا يتم نطق "120"
و اخيراً أريد منكم مساعدة في نطق الارقام فوق الألف و المليون.