Petit synthétiseur vocal

[Backup]

exacte

[Kwai chang caine]

a aucun moments , mon comportement est incorrecte

Au sens figuré, le terme « con » est aussi un terme vulgaire[1] en général employé comme insulte en France,

http://fr.wikipedia.org/wiki/Con

[Kwai chang caine]

[Ar-S]

Envoyez vous des fions par MP vous serez brave.

En revenant à la lib, pourrais tu la recompiler en ajoutant cette procédure ?

Code : Tout sélectionner

; Procédure pour afficher facilement le nom des voix installées
; by Ar-S
; a évidement lancer avec le debug

Procedure DebugVoice(optionvoice = 0)
  
  NbrVoix = Val(Left(getvoix(),1))
  If NbrVoix = 0 
    ProcedureReturn 0
    
  Else
    
    StringVoix$ = Mid(getvoix(),3,Len(getvoix())-2)
    
    For i = 1 To NbrVoix
      NomVoix$ = StringField(StringVoix$,i,",")
      Debug NomVoix$
      
      Select optionvoice
        Case 1
          Speak(NomVoix$, "Bonjour je suis la voix "+NomVoix$ , 100, 1, 100)
      EndSelect
    Next
      
    ProcedureReturn 1
    
  EndIf

EndProcedure

; Affiche le nom des voix et les dicte.
DebugVoice(1)

; Affiche le nom des voix.
DebugVoice()

[Backup]

pour info , pour recuperer les nombre de voix
et la liste il vaut mieux faire

Code : Tout sélectionner

nombre = Val(StringField(voix$,1,",")) ; recupere le nombre de voix installé (premier element de la chaine)
voix$=Right(voix$,Len(voix$)-2)  ; recupere tout les noms de voix séparé par des virgules

comme j'ai utilisé les virgules comme séparateur , Stringfield() est mieux que Mid()
parce que ton Mid() ira tant qu'il y a moins de 10 voix ...

le getvoix( ) me semblais suffisant ...
je vais voir ce que je peux faire ...
le probleme dest Lib , c'est qu'on n'as pas les memes liberté qu'avec une simple procedure

[Ar-S]

Si c'est trop la misère le GetVoix() suffira, mais faudrait ajouter un petit speak.chm ou .html à inclure dans ton installeur.

[Backup]

j'ai modifié GetVoix()

dorenavant ce sera

GetVoix(0) : meme fonctionnement qu'avant (retourne dans une chaine le nombre de voix suivi du nom des voix séparées par une virgule )
GetVoix(1) : renvoi la liste des voix par messagerequester()
Getvoix(2) : les voix se présentent oralement


je n'ai pas encore uploader l'archive (serai peut etre pas là une partie de la journée )

faut que je fasse une petite doc


Rappel
j'avais ouvert un topic Dédié a ma lib ici :
http://www.purebasic.fr/french/viewtopi ... 29#p145829

le code est la bas ...