تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تحويل النص إلى صوت عن طريق جوجل
#1
بسم الله الرحمن الرحيم
السلام عليكم شباب
ايه الحل فى المشكلة دى
او ايه الى ناقص


الملفات المرفقة صورة/صور
   
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة:
#2
Project > Add Reference > COM
واختار ما في الصوره


الملفات المرفقة صورة/صور
   


ربما تغمض عينيك في سقف غرفتك فلا تفتحها الا أمام جبار السماوات والأرض يوم القيامه ... 
 " لا تنس آخرتك "
الرد
تم الشكر بواسطة:
#3
شكرا لك اخى العزيز شريف لاكن على ما اعتقد ان البرنامج به اكواد ناقصة مو كامل او ممكن مثال بمشروع بسيط يوضع اوامر الزر والكمبو بوكس
ولا اعمل اين اضع هذه الاكواد
PHP كود :
Private Sub DownloadAndPlay()
       Try
           
'main delecration'
           
Dim soundData As Byte()
           
Dim url As String String.Format("http://translate.google.com/translate_tts?tl={0}&q={1}"comboBox1.Text.ToLower(), textBox1.Text.Trim())

           
'create requset'
           
Dim rq As HttpWebRequest TryCast(WebRequest.Create(url), HttpWebRequest)
           
rq.UserAgent "Mozilla/5.0 (Windows NT 6.1; rv:27.0) Gecko/20100101 Firefox/27.0"

           'read response'
           
Dim response As HttpWebResponse TryCast(rq.GetResponse(), HttpWebResponse)
           
Using stream As New BinaryReader(response.GetResponseStream())
               
soundData stream.ReadBytes(CInt(response.ContentLength))
               
stream.Close()
               
response.Close()
           
End Using


           
'create voice file in windows-temprary folder'
           
Dim tempFilePath As String CreateTempFile(soundData)

           
'play temprary-file sound'
           
PlaySound(tempFilePath)

       Catch 
ex As Exception
           MessageBox
.Show(ex.Message)
       
End Try
   
End Sub

   
Private Function CreateTempFile(ByVal data As Byte()) As String
       
'sound format is mpeg'
       
Dim soundFileName As String System.IO.Path.GetTempPath() & Guid.NewGuid().ToString() & ".mpeg"
       
File.WriteAllBytes(soundFileNamedata)
       Return 
soundFileName
   End 
Function

   Private 
Sub PlaySound(ByVal file As String)
       
'initlize player'
       
Dim player As New WMPLib.WindowsMediaPlayer()
       
player.settings.volume 100
       player
.settings.autoStart True
       AddHandler player
.PlayStateChangeAddressOf player_PlayStateChange
       player
.URL file
   End Sub

   
Private Sub player_PlayStateChange(ByVal NewState As Integer)
       
Application.DoEvents()
       If 
NewState CInt(WMPLib.WMPPlayState.wmppsMediaEndedThen
           
'release everything'
           
toolStripProgressBar1.Style ProgressBarStyle.Blocks
       End 
If
   
End Sub 
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  نقل بيانات DataGridView1 الى DataGridView2 و تحويل قيمة موجبة الى سالبة nabil.1710 3 55 أمس, 08:59 PM
آخر رد: سعود
  [VB.NET] ماهي الطريقة في تحويل قاعدة البيانات sql hglogtd 21 285 19-04-18, 12:39 AM
آخر رد: حريف برمجة
  طباعة مربعات النص من علي النموذج مباشرة السيد الجوهري 4 85 18-04-18, 08:55 AM
آخر رد: السيد الجوهري
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 14 1,698 17-04-18, 07:49 PM
آخر رد: رمضان محمد
  احتاج مساعده في تحويل كود الاستعلام Marwan9990 0 41 15-04-18, 12:31 PM
آخر رد: Marwan9990
  كيف يمكن طباعة مربعات النص الموجودة علي الفورم مباشرة السيد الجوهري 2 87 12-04-18, 11:37 PM
آخر رد: السيد الجوهري
  [VB.NET] برنامج تشفير النص rootkit 8 137 08-04-18, 04:53 PM
آخر رد: rootkit
  [VB.NET] تحويل الورد الي بي دي اف محمد اسماعيل 0 45 04-04-18, 04:41 AM
آخر رد: محمد اسماعيل
  تحويل النص تلقائيا للعربية او الانجليزية nooralcown 5 172 22-03-18, 01:45 AM
آخر رد: اسامه الهرماوي
Lightbulb [سؤال] اريد مشروع تحويل الارقام الى حروف فرنسية بالفجوال بيسك نت tichouckt 3 109 19-03-18, 02:28 AM
آخر رد: عبد العزيز البسكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم