Tipp 0218 MS-Agent - 1 -
Autor/Einsender:
Datum:
  Marcel Kubon
05.04.2002
Entwicklungsumgebung:   VB 6
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 sprechen lassen kann.
 
Option Explicit

Dim Merlin As IAgentCtlCharacter

Private Sub Form_Load()
  Dim Animation As Variant

  On Error Resume Next
  Agent1.Characters.Load "Merlin", "Merlin.acs"
  Set Merlin = Agent1.Characters("Merlin")
  Merlin.Show

  List1.Clear
  For Each Animation In Merlin.AnimationNames 
    List1.AddItem Animation
  Next Animation

  With Merlin
    .MoveTo (Form1.Left + Form1.Width) / Screen.TwipsPerPixelX, _
         (Form1.Top + (Form1.Height / 2)) / Screen.TwipsPerPixelY
    .Play "Surprised"
    .Play "Greet"
    .Speak "Hallo, Mein Name ist Merlin. Stets zu Diensten."
    .Play "GestureDown"
    .Speak "Klicken sie bitte auf einem Listeneintrag, " & _
           "um meine Fähigkeiten zu testen."
  End With
End Sub

Private Sub List1_Click()
  On Error Resume Next
  Merlin.Stop
  Merlin.Play List1.Text
  Merlin.Speak "Meine Animation " & List1.Text
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 - 2 - 

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  (5 kB) Downloads bisher: [ 1750 ]

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: Dienstag, 27. September 2011