Agent microsoft

Télécharger le projet
Commenter

Description

c'est plutôt amusant, je l'es tester ce soir avec des fichiers telechargés depuis:
http://cantoche.com

Amusé vous aussi

Source / Exemple : 


Dim caractere As IAgentCtlCharacterEx
Public EditListIndex As Integer
Dim change As Boolean

Private Sub Check1_Click()
caractere.SoundEffectsOn = Check1.Value
If Check1.Value = 0 Then
caractere.SoundEffectsOn = True
Check1.Caption = "Sound Effects On"
Else
caractere.SoundEffectsOn = False
Check1.Caption = "Sound Effects Off"

End If
End Sub

Private Sub Command1_Click()

'Enregistrement du patient

' Attribue à CancelError la valeur True
    CMD.CancelError = True
    On Error GoTo ErrHandler
    ' Définit la propriété Flags
    CMD.Flags = cdlOFNHideReadOnly
    ' Définit les filtres
    CMD.Filter = "Tous les fichiers (*.*)|*.*|Fichiers caractere " & _
            "(*.acs)|*.acs"
    ' Définit le filtre par défaut
    CMD.FilterIndex = 2
    CMD.InitDir = App.Path + "*.rot"

    ' Affiche la boîte de dialogue Ouverture
    CMD.DialogTitle = "Ouvrir caractere"

    CMD.ShowOpen
    ' Affiche le nom du fichier sélectionné
   MousePointer = 11
    
    Text1.Text = CMD.FileName
    
    
    ' Ensure all the controls are sized as needed.
    Agent1.Characters.Load Text1.Text, Text1.Text
    Set caractere = Agent1.Characters(Text1.Text)
    presence = True
       caractere.MoveTo 300, 300
        Check1_Click
        S2.Value = caractere.Height
        S1.Value = caractere.Width
        change = True
On Error GoTo 1000
             Combo1.Text = caractere.LanguageID
1000

           
        caractere.Show
       caractere.Speak "bonjour, utiliser les options disponibles pour me tester et regarder ce que je suis capable de faire. "
    
            

MousePointer = 0
    Exit Sub
ErrHandler:
    'L'utilisateur a cliqué sur Annuler
    Exit Sub

End Sub

   

Private Sub Command2_Click()
Check1_Click
caractere.LanguageID = Combo1.Text
caractere.Speak (Text2.Text)
caractere.Play (List1.Text)
End Sub

Private Sub Command3_Click()
caractere.Show
End Sub

Private Sub Command4_Click()
caractere.Hide
End Sub

Private Sub Command5_Click()
Dim loge$
loge = loge & Chr$(13) & "Activation:    " & caractere.Active
'loge = loge & Chr$(13) & caractere.AnimationNames
loge = loge & Chr$(13) & "AutoPopupMenu:   " & caractere.AutoPopupMenu
'loge = loge & Chr$(13) & caractere.Balloon
'loge = loge & Chr$(13) & caractere.Commands
loge = loge & Chr$(13) & "description:    " & caractere.Description
loge = loge & Chr$(13) & "extradata:    " & caractere.ExtraData
loge = loge & Chr$(13) & "serial guid:   " & caractere.Guid
loge = loge & Chr$(13) & "HasOtherClients:   " & caractere.HasOtherClients
loge = loge & Chr$(13) & "nom:    " & caractere.Name
loge = loge & Chr$(13) & "pitch:    " & caractere.Pitch
loge = loge & Chr$(13) & "speed:   " & caractere.Speed
loge = loge & Chr$(13) & "SRModeID:    " & caractere.SRModeID
loge = loge & Chr$(13) & "SRStatus:    " & caractere.SRStatus
loge = loge & Chr$(13) & caractere.TTSModeID
loge = loge & Chr$(13) & "Version:   " & caractere.Version
loge = loge & Chr$(13) & caractere.VisibilityCause
Label7.Caption = loge

End Sub

Private Sub Command8_Click()
End

End Sub

Private Sub Command7_Click()
On Error GoTo 1002
caractere.Play List1.Text
Exit Sub
1002 MsgBox "il y a une erreur:" + Chr$(13) + Error
End Sub

Private Sub Form_Load()

Label7.Caption = ""
S1.Min = 0
S2.Min = 0
S2.Max = 10000
S1.Max = 10000
change = False
End Sub

Private Sub S1_Change()
If change = True Then caractere.Height = S2.Value
End Sub

Private Sub S2_Change()
If change = True Then caractere.Width = S1.Value
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Alex001)