تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
استخدام شخصيات مايكروسوفت مع مكتبة speech
#1
كاتب الموضوع : egyption-coder

ضع تكست بوكس و زر
اضف المصدر (الريفرانس) الخاص بالتحكم فى شخصيات مايكروسوفت
من com اختار microsoft agent control
ثم اعلن المتغيرات الخاصة بالأوبجيكت و الشخصية


كود :
Private agentController As AgentObjects.Agent
Private agentCharacter As AgentObjects.IAgentCtlCharacter

و فى حدث الفورم لود


كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
agentController = New AgentObjects.Agent()
With agentController
.Connected = True
.Characters.Load("merlin", "merlin.acs")
agentCharacter = .Characters("merlin")
End With
With agentCharacter
.MoveTo(CShort(Me.Location.X + 420), CShort(Me.Location.Y + 130))
.Show()
.Play("Announce")

.Speak("Hello, my name is ahmed. " & _
"i hope i can help you to learn english!")
.Play("GestureRight")

.MoveTo(CShort(Me.Location.X + 340), CShort(Me.Location.Y + 250))
.Play("GestureRight")
.Speak("lets start it")

End With


End Sub
ثم اضف الكود فى حدث ضغط الزر


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
Exit Sub
End If
agentCharacter.StopAll()
Dim path As String = TextBox1.Text
Dim dilem As Char = " "
Dim parts() As String
parts = path.Split(dilem)
Dim ipart As IEnumerator
ipart = parts.GetEnumerator
While ipart.MoveNext
Dim xx As String = ipart.Current.ToString
Dim A As New SpeechLib.SpVoice
Dim ln As Integer = xx.Length - 1, i
For i = 0 To ln
Dim nn As Char = xx.Chars(i)
If TextBox1.Text = "" Then
Exit Sub
Else

A.AlertBoundary = SpeechLib.SpeechLexiconType.SLTApp
A.AlertBoundary = SpeechLib.SpeechVoiceEvents.SVEPhoneme
A.AlertBoundary = SpeechLib.SpeechVoiceEvents.SVEVoiceChange
agentController = New AgentObjects.Agent()
agentCharacter.StopAll()
With agentController
.Connected = True
.Characters.Load("merlin", "merlin.acs")
agentCharacter = .Characters("merlin")
End With
agentCharacter.Speak(CStr(nn))
A.Rate = -2
A.Speak(nn)
End If
Next i
A.Rate = -3
A.Speak(xx)
agentCharacter.Speak(CStr(xx))
End While
Dim g As New SpeechLib.SpVoice
agentCharacter.Speak(CStr(TextBox1.Text))
g.Rate = -4
g.Speak(TextBox1.Text)


End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  @@@ استخدام دوال مكتبة من ملف DLL بدون إضافته كمرجع Reference @@@ @@أبورائد@@ 6 1,788 27-07-15, 04:44 AM
آخر رد: ابو ابراهيم
  مثال بسيط لتغيير طريقة استخدام اداة العنان Label مع الشرح RaggiTech 0 801 20-10-12, 11:50 AM
آخر رد: RaggiTech
  سورس كود ملف ربط ديناميكى لتحديد فتره استخدام البرنامج RaggiTech 0 723 17-10-12, 08:52 PM
آخر رد: RaggiTech
  حمايه استخدام البرنامج عن طريق ملف خارجى RaggiTech 0 525 17-10-12, 08:51 PM
آخر رد: RaggiTech
  طريقة استخدام مكتبة internet download manager في برنامجك !! RaggiTech 0 491 17-10-12, 08:07 PM
آخر رد: RaggiTech
  مثال رائع من مايكروسوفت يوضح اكواد التعامل مع الملفات و بتصميم ممتاز(80ك ب) RaggiTech 0 417 17-10-12, 07:19 PM
آخر رد: RaggiTech
  استخدام مجال الأسماء My.Computer لمعرفة هل ازرارالوظائف تستخدم ام لاكزر Ctrl و خلافه RaggiTech 0 341 17-10-12, 06:59 PM
آخر رد: RaggiTech
  مكتبة أكواد التطوير على منصات ال Windows Mobile RaggiTech 0 367 17-10-12, 06:49 PM
آخر رد: RaggiTech
  كيفيه استخدام ال progress bar RaggiTech 0 286 17-10-12, 05:18 PM
آخر رد: RaggiTech
  كيفية استخدام شريط التحميل Progress bar RaggiTech 0 553 17-10-12, 05:16 PM
آخر رد: RaggiTech

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


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