Agent microsoft

Soyez le premier à donner votre avis sur cette source.

Vue 13 601 fois - Téléchargée 855 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
23
Date d'inscription
dimanche 10 août 2008
Statut
Membre
Dernière intervention
23 septembre 2008

bonjour sa fait loin 2002........
mais j'envoies quand même explication pour les agent microsoft
http://pagesperso-orange.fr/richardmoreau/RM/Site-Riri/index.html
a vous de voir interessant ou pas
on s'amuse bien avec
richard a+++++++++++++++
Messages postés
80
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
15 décembre 2010

d'ailleur j'ai aussi fait un fadeur pour aol7 et aol8
un fadeur parlant en telechargement
http://dreamlandart.free.fr/index.htm
Messages postés
80
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
15 décembre 2010

n'oublier pas de retourner sur ma page une fois installé sur votre machine les fichiers necessaire a son utilisation

je ferrai une page d'explication "comment creer son agent"
mais tout d'abort je fini le mien
puis pour repondre au animation bmp
essayer de les faire en gif animé ya des logiciel pour ca
et enregistrer vos sequences en bmp c deja un bon debut pour reussir son premier agent aller tous a vos pations moi j'en ais trouver une je terminerai mon Newby surtout quand vous pouvez faire une animation sur un site c trop top regarder un peu la source du code de ma page et vous verrez c pas si compliquer
faut juste que les perssonnes interessé par les agents telecharges les fichiers et voila byeeeeeeeee
"
Messages postés
80
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
15 décembre 2010

http://dreamlandart.free.fr/etoile.htm
mon newby

oui il faut un peu d'imagination pour creer un agent
aller voir sur ma page oui c encore un newby mais je viens de le commencer
deja chouette je trouve un peu rap loooooool
aller a pluche je ferrais des mise a jour a chaque animation
Messages postés
17
Date d'inscription
vendredi 4 octobre 2002
Statut
Membre
Dernière intervention
22 mars 2003

coucou tout le peuple ;
moi g une kestion (?)
c koi ce truc et on le met ou ?
et surtout on s'en sert comment ?
;o)
Afficher les 14 commentaires

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.