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