Synthétiseur vocal.

' basculer entre mode synchrone et asynchrone
      speak% = 1 - speak%
      SpeakMode(speak%)
      if speak%=0 then message "Mode synchrone (défaut)"
      if speak%=1 then message "Mode asynchrone"
' prononcer un texte contenu dans une chaîne de caractères
      s$ = "Ceci est un essai de texte parlé."
      Speak(s$,80,0,0)
      message "Prêt"
' activer le haut-parleur
      SetSpeaker(checked(10))
      Speak("Le haut-parleur, est branché.",100,0,0)
' récupérer la liste des voix installées
      SpeakVoices()
      memo 10 : top 10,10 : left 10,200
      item_add 10,SpeakVoices$
      message "Taper Return pour continuer"
      delete 10
' changer le volume général
      SetSpeakerVolume(val(text$(12)))
      message "Ancien volume: "+str$(SetSpeakerVolume)

' Demo_SelecteurDeVoix.bas

label prononcer

KGF_initialize("KGF.dll")

dim i%

alpha 10 : top 10,10 : left 10,10 : caption 10,"Voix installées:"
' *************** création su sélecteur **************************
SelecteurDeVoix(11,12,10,100,200)
' ****************************************************************
alpha 20 : top 20,40 : left 20,10 : caption 20,"Volume:"
scroll_bar 21 : top 21,40 : left 21,100 : width 21,200
  min 21,0 : max 21,100 : position 21,50
alpha 30 : top 30,70 : left 30,10 : caption 30,"Vitesse:"
scroll_bar 31 : top 31,70 : left 31,100 : width 31,200
  min 31,0 : max 31,20 : position 31,10
alpha 40 : top 40,100 : left 40,10 : caption 40,"Texte:"
memo 41 : top 41,100 : left 41,100 : width 41,400
button 50 : top 50,200 : left 50,100 : caption 50,"Prononcer"
  on_click 50,prononcer

end

prononcer:
  if item_index(11)=0
    message "Il faut sélectionner une langue"
    return
  end_if
' *************** prononcer le texte *****************************
  Speak(text$(41),position(21),position(31)-10,item_index(11))
' ****************************************************************
  return

sub SelecteurDeVoix(n_combo%,n_temp%,haut%,gauche%,large%)
  combo n_combo% : top n_combo%,haut% : left n_combo%,gauche% : width n_combo%,large%
  memo n_temp% : width n_temp%,500 : hide n_temp%
' *************** charger la liste des voix installées ***********
  SpeakVoices()  : ' cette fonction crée automatiquement la variable SpeakVoices$
' ****************************************************************
  item_add n_temp%,SpeakVoices$  : ' le memo contient la liste des voix
  for i%=1 to count(n_temp%)
    item_add n_combo%,item_read$(n_temp%,i%)
  next i%
  delete n_temp%
end_sub

#INCLUDE "KGF_SUB.bas"