Tipp 0219 MS-Agent - 2 -
Autor/Einsender:
Datum:
  Michael Werner
05.04.2002
Entwicklungsumgebung:   VB 6
Jeder, der Microsoft-Office benutzt, kennt auch die Klammer und (seit Windows XP) den Hund als die kleinen (mehr oder weniger nervenden) Helferlein. Microsoft hat eine ganze Reihe weiterer interessante Figuren (Characters) geschaffen, die sich nicht nur bewegen und gestikulieren, sondern vor allem auch sprechen können. Darüber hinaus können manche Figuren sogar zuhören, d.h. auf (über Mikrofon) Gesprochenes reagieren, also antworten.
Dieser Tipp soll zeigen, wie die Microsoft-Figuren in VB einzusetzen sind, wie das Agent Control 2.0 einrichtet wird, eine Figur geladen und aufgerufen wird, wie man eine Figur bewegen, gestikulieren und aus einer Textdatei sprechen lassen kann.
Aufgrund des umfangreichen Codes wurde hier darauf verzichtet, die im Download-Beispiel vorhandene Animations-Show, in der die Fähigkeiten des Characters aufgezeigt werden, abzubilden.
 
Option Explicit

Dim Peedy As IAgentCtlCharacterEx

Private Sub Form_Activate()
  Agent1.Characters.Load "Peedy", "Peedy.acs"
  Set Peedy = Agent1.Characters("Peedy")

  StartPeedyShow
End Sub

Private Sub StartPeedyShow()
  With Peedy
    .Show
    .Play "Surprised"
    .Play "Greet"
    .Speak "Hallo, Vb-Fann-Gemeinde!"
    .Play "Acknowledge"
    .MoveTo 10, 200
    .Play "GestureLeft"
    '... weiterer Code im Download-Beispiel ...
  End With
End Sub

Private Sub Command1_Click()
  Peedy.Show
  If Dir(App.Path & "\speaktext.txt") <> "" Then
    Shell "notepad.exe " & App.Path & "\speaktext.txt", _
        vbNormalFocus
  Else
    MsgBox "Die Textdatei " & vbNewLine & _
        App.Path & "\speaktext.txt" & vbNewLine & _
        "konnte nicht gefunden werden.", vbExclamation, "Abbruch"
    Exit Sub
  End If

  SpeakTextFile App.Path & "\SpeakText.txt"
  Peedy.Hide
End Sub

Private Sub SpeakTextFile(file As String)
  Dim txt As String
  Dim FN As Integer
  FN = FreeFile

  Open file For Input As #FN
  While Not EOF(FN)
  Line Input #FN, txt
    Peedy.Speak txt
  Wend
  Close #FN
End Sub
 
Hinweis
Um diesen Tipp ausführen zu können, muss das Microsoft Agent Control 2.0 als Komponente in das Projekt eingebunden werden. Dazu werden noch die folgenden Dateien benötigt, die alle bei Microsoft kostenlos heruntergeladen werden können:
MsAgent.exe Microsoft Agent core components
AgtX0407.exe Language component (German in Liste auswählen)
Peedy.exe Character (Peedy.exe ist für den Tipp erforderlich).
lhttsged.exe Text-to-speech engines (German in Liste auswählen).
Für Windows XP ist zusätzlich erforderlich:
spchapi.exe Die Microsoft SAPI 4.0a runtime binaries ist nur für Windows XP erforderlich.
Weitere Links zum Thema
CodeSamples
Weitere Character
MS-Agent - 1 - 

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (7 kB) Downloads bisher: [ 1667 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Montag, 12. September 2011