|
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
|
|
|
|
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. |
|
|
|
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: [ 1825 ]
|
|
|