Un nouveau arrive

dll_on "kgf"

dim a$, b$, res%, vitesse_voix%, numero_voix_francais%

sub prononcer_texte_francais(a$)
    b$=string$(255," ")
    res%=dll_call1("SpeakVoices",adr(b$))

    if instr(b$,"Virginie")=0
       installer_voix()
       exit_sub
    end_if

    lire_numeros_voix()
    res%=dll_call4("Speak",adr(a$),100,vitesse_voix%,numero_voix_francais%)
end_sub

sub lire_numeros_voix()
    ' Valeur de b$
    ' 1: Microsoft Hortense Desktop - French: ne pas utiliser cette voix.
    ' 2: ScanSoft Emily_Dri40_16kHz
    ' 3: ScanSoft Isabel_Dri40_16kHz
    ' 4: ScanSoft Silvia_Dri40_16kHz
    ' 5: ScanSoft Steffi_Dri40_16kHz
    ' 6: ScanSoft Virginie_Dri40_16kHz
    ' 7: Microsoft Zira Desktop - English (United States): ne pas utiliser cette voix.

    for kk%=1 to 7
        yy%=instr(b$,str$(kk%)+":")
        if yy%=0 then exit_for
        temporaire$=mid$(b$,yy%,32)

        if instr(temporaire$,"Emily")>0 then numero_voix_anglais%=kk%
        if instr(temporaire$,"Virginie")>0 then numero_voix_francais%=kk%
        if instr(temporaire$,"Isabel")>0 then numero_voix_espagnol%=kk%
        if instr(temporaire$,"Steffi")>0 then numero_voix_allemand%=kk%
    next kk%
end_sub

sub installer_voix()
    ' 1: Microsoft Hortense Desktop - French
    ' 2: ScanSoft Emily_Dri40_16kHz
    ' 3: ScanSoft Isabel_Dri40_16kHz
    ' 4: ScanSoft Silvia_Dri40_16kHz
    ' 5: ScanSoft Steffi_Dri40_16kHz
    ' 6: ScanSoft Virginie_Dri40_16kHz
    ' 7: Microsoft Zira Desktop - English (United States)
    if synthese_vocale%=false% then exit_sub
   
    b$=string$(255," ")
    res%=dll_call1("SpeakVoices",adr(b$))

    if instr(b$,"Virginie")=0
      temporaire$="Le synthétiseur de la voix française n'est pas installé sur votre poste."+CRLF$
      temporaire$=temporaire$+"Nous allons donc procéder à son installation."+double_CRLF$
      temporaire$=temporaire$+"Cette voix fonctionne avec Windows 64-bit."+CRLF$
      temporaire$=temporaire$+"Désirez-vous installer la voix française ?"
     
      file_open_read 99,"synthese_vocale_francais.txt"
      file_readln 99,a$
      file_close 99

      if a$="non"
          message(1,0,temporaire$)
          if res%=1
            execute_wait "voix\RSSolo4FrenchVirginie.exe"
                else
            temporaire$="Désirez-vous que la question ne vous soit plus posée"+crlf$
            temporaire$=temporaire$+"la prochaine fois ?"
            message(1,0,temporaire$)
            if res%=2
                file_open_write 99,"synthese_vocale_francais.txt"
                file_writeln 99,"oui"
                file_close 99
            end_if
          end_if
      end_if
    end_if

    if langue_cible$<>""
      if langue_cible$="espagnol" then flag%=instr(b$,"Isabel")
      if langue_cible$="anglais" then flag%=instr(b$,"Emily")
      if langue_cible$="allemand" then flag%=instr(b$,"Steffi")

      if flag%=0
          temporaire$="Le synthétiseur de la voix "+langue_cible$+" n'est pas installé sur votre poste."+CRLF$
          temporaire$=temporaire$+"Nous allons donc procéder à son installation."+double_CRLF$
          temporaire$=temporaire$+"Cette voix fonctionne avec Windows 64-bit."+CRLF$
          temporaire$=temporaire$+"Désirez-vous installer la voix "+langue_cible$+"e ?"
          message(1,0,temporaire$)
          if res%=1
            if langue_cible$="espagnol" then execute_wait "voix\RSSolo4SpanishIsabel.exe"
            if langue_cible$="anglais" then execute_wait "voix\RSSolo4UKEnglishEmily.exe"
            if langue_cible$="allemand" then execute_wait "voix\RSSolo4GermanSteffi.exe"
          end_if
      end_if
    end_if
end_sub

DIM a% , t$

DLL_ON "D:\BASIC\DLLs\KGF.dll"

t$="Bonjour et bienvenue dans panoramic"
a% = dll_call4("Speak",adr(t$),50,0,0)

END

DIM a% , t$

DLL_ON "C:\Users\therm\Desktop\Panoramic\DLL\KGF.dll"

t$="Bonjour et bienvenue dans panoramic"
a% = dll_call4("Speak",adr(t$),50,0,0)

END 

rem ============================================================================
rem      Faites parler vos ordinateurs pour égayer vos programmes
rem               Parler.bas par Papydall
rem ============================================================================
dim t$
t$ = "Bonjour Panoramicien. Je suis contente de vous revoir..."
t$ = t$ + "Ceci est un exemple de ce que vous pouvez réaliser dans vos programmes,"
t$ = t$ + "afin d'expliquer leur rôle ,ou leur fonctionnement..."
t$ = t$ + "Vous voulez peut-être, annoncer un score ou simplement dire BRAVO ? ..."
t$ = t$ + "Pour que ça fonctionne bien et obtenir une voix douce comme la mienne,"
t$ = t$ + "vous devez disposer de la voix de Virginie, ou celle de, Hortense,"
t$ = t$ + "ou encore, celle de Harmonie"
parler(t$)

t$ = "Au lieu d'afficher des messages dans vos programmes, laissez-moi les lire pour vous..."
t$ = t$ + "ça sera plus gaie, n'est-ce pas ? ..."
parler(t$)

t$ = "Si ça ne vous plait pas, hé bien, ne m'appelez pas ! C'est simple..."
t$ = t$ + "Au revoir!"
parler(t$)

end
rem ============================================================================
SUB parler(tex$)
    dim_local f$,g$
    f$ = "c:\temp\parler.vbs"
    g$ = chr$(34)
    FILE_OPEN_WRITE 9999, f$
    file_writeln 9999, "Dim speaks, speech"
    file_writeln 9999, "speaks = " + g$ + tex$ + g$
    file_writeln 9999, "Set speech = CreateObject(" + g$ + "sapi.spvoice" + g$+ ")"
    file_writeln 9999, "speech.Speak speaks"
    FILE_CLOSE 9999
    EXECUTE_WAIT f$ : FILE_DELETE f$
END_SUB
rem ============================================================================