عمل برنامج للدور queening system مضاف اليه الصوت باللغة العربية

[Alaa Malk]

السلام عليكم ..

احتاج مساعدة في حزمة الصوت باللغة العربية

كيف احصل على هذه الحزمة ؟؟

وذلك لجعل البرنامج ينطق ارقام الدور باللغة العربية بصوت انثى او ذكر

 

THE FUNCTION I USE

 

Sub Speak(Msg As String, Optional Gender As String = "FEMALE")
    Dim Vox As Object ' SpeechLib.SpVoice
    Set Vox = CreateObject("SAPI.SpVoice") ' New SpeechLib.SpVoice
    Set Vox.Voice = Vox.GetVoices("Gender = " & Gender).Item(0)
    Vox.Speak Msg
End Sub

مع الاحترام ,,

تم تعديل فبراير 7 بواسطه Alaa Malk