PureBasic

; nono(A$, B, C )
; A$: phrase_a_dire$
; B: panoramique de : 0=gauche a 200=droite : 100=Centre
; C: si 0=affiche la tete , si 1=n'affiche pas la tete (moins de temps machine pris)

; exemple :
phrase.s="coucou, je m'appelle Nono , et je suis enchanté de pouvoir vous parler "
nono(phrase.s,100,1)

; exemple d'appel

; nono(A$, B, C )
; A$: phrase_a_dire$
; B: panoramique de : 0=gauche a 200=droite : 100=Centre
; C: si 0=affiche la tete , si 1=n'affiche pas la tete (moins de temps machine pris)

; exemple :
phrase.s = "coucou, je m'appel Nono , et je suis enchanté de pouvoir vous parler "
nono(phrase.s, 100, 1)

voix$ = getvoix()  ; on recupere le nombre et le nom des voix installé
; getvoix() retourne une chaine "nbr_de_voix,voix1$,voix2$,voix3$........ etc "
Dim t_v.s(10)
Debug voix$
nombre.i = Val(StringField(voix$, 1, ",")) ; recupere le nombre de voix installé (premier element de la chaine)
voix$ = Right(voix$, Len(voix$)-2) ; on retire le nombre de voix, et sa virgule de la liste des noms de voix
vi$ = ""
Speak(vo$, "Bonjour, comment allez vous ?", 100, -5) ; Speak2 (Text$,Volume,vitesse de diction)
t_v(0) = Str(nombre)
;**************************************************************************************************************************
If OpenWindow(0, 0, 0, 300, 100, "ComboBoxGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ComboBoxGadget(0, 10, 10, 290, 20, #PB_ComboBox_Editable)
EndIf

;**************************************************************************************************************************
For i = 1 To nombre ;
  Debug StringField(voix$, i, ",") ; ressort tout les noms des voix installées
  t_v(i) = StringField(voix$, i, ",")
  AddGadgetItem(0, -1, t_v(i))
 
Next i
mgg$ = gg$
Repeat
  gg$ = GetGadgetText(0)
Until (WaitWindowEvent() = #PB_Event_CloseWindow) And gg$<>mgg$

Debug gg$

#stpx = 20
For vol.i = -100 To 100 Step #stpx
  For vit.i = -100 To 100 Step #stpx
    chx.i = Abs(vol*vit)
    ch.i = (chx%(nombre))
    If ch = 0 : ch + 1 : EndIf
    vo$ = t_v(ch) ; ou l'on donne directe le nom de virginie
    text$ = "Bonjour " + t_v(ch) + " , Volume , " + Str(Vol) + " , vitesse , " + Str(vit)
    ;Debug formn(ch) + " " + forms(gg$) + " , " + forms(text$)
    Speak(gg$, text$, Vol, vit) ; Speak2 (voix$,Text$,Volume,vitesse de diction)
   
    ;     Debug formn(ch) + " " + forms(vo$) + " , " + forms(text$)
    ;     Speak(vo$, text$, Vol, vit) ; Speak2 (voix$,Text$,Volume,vitesse de diction)
   
  Next
Next

#Masc = 1
#Defini = 2
#Pluriel = 4
#Prep = 8 ; à

;Type Mot
#NomCommun = 8
#AdjQual = 16

Structure MotInfo
   Type.I
   Ctn.S
   Genre.I
   
   Attr.I
EndStructure

   Global NewList Mot.MotInfo()

Procedure.S DvpAlpha(Niveau)
   Protected Result.S
   Protected I.I
   Protected Niv.I
   For I = 1 To Len(Mot()\Ctn)
      If Mid(Mot()\Ctn, I, 1) = "["
         Niv + 1
         Goto StartAlpha
      EndIf
      If Mid(Mot()\Ctn, I, 1) = "]"
         Niv - 1
         Goto StartAlpha
      EndIf
      If Niv <= Niveau
         Result + Mid(Mot()\Ctn, I, 1)
      EndIf
StartAlpha:
   Next I
   ProcedureReturn Result
EndProcedure

Procedure.I VoyPreTest(Lettre.S)
   Protected Result.I
   Select LCase(Lettre)
      Case "a", "e", "i", "o", "u", "é", "è", "ê", "à", "â", "î", "û", "ô", "ù"
         Result = 1
   EndSelect
   ProcedureReturn Result
EndProcedure

Procedure.S Article()
   Protected Result.S
   Attr = Mot()\Attr
   If Attr & #Defini
      If Attr & #Pluriel
         If Attr & #Prep
            Result = "aux"
         Else
            Result = "les"
         EndIf
      Else
         If Attr & #Masc
            If Attr & #Prep
               Result = "au"
            Else
               Result = "le"
            EndIf
         Else
            If Attr & #Prep
               Result = "à la"
            Else
               Result = "la"
            EndIf
         EndIf
         If VoyPreTest(Left(Mot()\Ctn, 1) )
            If #Prep
               Result = "à l'"
            Else
               Result = "l'"
            EndIf
         EndIf
      EndIf
   Else
      If Attr & #Pluriel
         Result = "des"
      Else
         If Attr & #Masc
            Result = "un"
         Else
            Result = "une"
         EndIf
      EndIf
      If Attr & #Prep
         Result = "à " + Result
      EndIf
   EndIf
   If Right(Result, 1) <> "'"
      Result + " "
   EndIf
   ProcedureReturn Result
EndProcedure

Procedure.S Nom()
   Protected Result.S
   If Mot()\Attr & #Pluriel
      If Right(Mot()\Ctn, 2) = "au"
         Result = Mot()\Ctn + "x"
      Else
         Result = Mot()\Ctn + "s"
      EndIf
      If Right(Result, 3) = "als"
         Result = ReplaceString(Result, "als", "aux")
      EndIf
   Else
      Result = Mot()\Ctn
   EndIf
   ProcedureReturn Result
EndProcedure

Procedure.S GN(Nombre.I)
   Protected Result.S
      Mot()\Attr = Mot()\Genre | Nombre
      Result = Article() + Nom()
   ProcedureReturn Result
EndProcedure

   Repeat
      AddElement(Mot() )
      Read.S Mot.S
      If Left(Mot, 3) = "/!\"
         If Len(Mot) = 3
            Break
         EndIf
         Select Right(Mot, Len(Mot) - 3)
            Case "Nom"
               Type = #NomCommun
            Case "Adj"
               Type = #AdjQual
         EndSelect     
      EndIf
      Mot()\Type = Type
      If Right(Mot, 1) <> "§"
         Mot()\Genre = #Masc
      Else
         Mot = Left(Mot, Len(Mot) - 1)
      EndIf
      Mot()\Ctn = Mot
   ForEver

;- Test
   
DataSection
Data.S "/!\Nom"
Data.S "bateau", "cheval", "pont", "voile§"
Data.S "/!\"
EndDataSection

   SelectElement(Mot(), 2)
   Debug GN(#Pluriel|#Defini)

   SelectElement(Mot(), 1)
   Debug GN(#Pluriel|#Prep)

   SelectElement(Mot(), 4)
   Debug GN(0)