ParlaS - DAi voce al tuo computer

[Ceskho]

Salve ragazzuoli....

Ho ideato un programma per far parlare il computer ( :-o sconcertante vero?) che si poggia su un programma per terminale (eSpeak).....

vorrei allegarvi il file sorgente così potete visualizzarlo e dirmi cosa ne pensate......ogni tipo di commento è gradito, bello o brutto che sia!!

Il codice che allego è la versione base del software....sarà infatti possibile impostare solo la lingua e la tonalità....sto ancora sviluppando la versione completa dove le impostazioni saranno mooooolto più numerose....

in attesa dei vostri pareri vi posto il file....

[leo72]

A me non funziona. Inoltre ci sono dei bug nel codice....

[Ceskho]

se mi dicessi quali mi tornerebbe più utile....

per farlo funzionare devi avere semplicemente installato eSpeak (che dovrebbe trovarsi di default sul pc)

[leo72]

1)
Ho riavviato la tua applicazione ed ora il programma riesce a far parlare il PC anche a me. Non è che dipende dal fatto che, forse, espeak non lo avevo mai utilizzato e doveva, diciamo, essere "inizializzato" lanciandolo da terminale la prima volta? Boh..

2)
Se apri il form per configurare l'applicazione (menu "Impostazioni/Configura"), premendo il pulsante Imposta ottengo "ValueBox.Value is not static perché nel codice hai scritto ValueBox.Value invece di ValueBox1.Value.

[Ceskho]

Hai pienamente ragione!!!!era un bug di cui mi ero accorto e che avevo "fixato" (quanto mi piace dirlo!!!!).....spero mi scuserai...ho caricato il programma buono...

[Ceskho]

Ho completato la mia versione del programma....

ho aggiutno la possibilità di:

- salvare il file in formato .wav direttamente nella home
- regolare tono di voce e tipo (uomo-donna)
- regolare la velocità di lettura
- impostare la lingua di lettura
- importare file di testo

vorrei che qualcuno lo provasse e mi facesse sapere....mi farebbbe piacere sapere cosa ne pensate. Magari dicendomi se manca qualcosa. Ringrazio chiunque voglia aiutarmi in questo.

[Ceskho]

nessuno vuole vedere anche solo per curiosità????

anche per dire solo bello o brutto?

[leo72]

E' molto carino.
L'unica cosa che correggerei è il fatto che quando riapri la finestra delle impostazioni, non visualizza gli attuali valori ma ripropone sempre quelli standard.
Ad esempio, se imposto la voce su "maschio 2", quando riapro il pannello mi ritrovo di nuovo "maschio 1".

Correggi e poi manda in area download, che te metto online sul sito. ;-)

[Ceskho]

ok...grazie mille per il suggerimento...provvedo subito....

[Ceskho]

come promesso ho aggiustato il tutto...comunque avevo già tenuto in mente questa possibilità...infatti se hai notato la velocità e il tono venivano "ricordati"...poi però avevo dimenticato lingua e tipo....

posto qui il file così se qualcuno vuole ancora provarlo e dare suggerimenti è ben accetto!

grazie mille Leo per il tuo interessamento...

[md9327]

Complimenti! Un bell'esempio dell'uso di gambas e l'interazione con librerie esterne.

A me ha funzionato tutto e subito, anche perchè avevo già installate le necessarie librerie... :-P

[leo72]

Altra piccola modifica: metti un check all'avvio del programma per controllare se sono presenti le librerie necessarie al suo funzionamento ;-)

[Ceskho]

Eh..bella cosa...ci devo lavorare perchè per ora non ho idea di come fare....

comunque grazie a md9327 per i complimenti e a Leo per essere il mio alpha tester di fiducia!!!

[leo72]

Interroga da console (via SHELL) il programma chiedendo l'help (espeak --help): se hai in risposta un errore allora il programma non è installato, se ti risponde con l'help (allora è installato).
Riguardo alla risposta positiva, ho visto che tra le prime righe "spara" la versione:

eSpeak text-to-speech: 1.36.02  13.Mar.08

Quindi, basta vedere se nell'output del comando c'è questa parte:

Codice: [Seleziona]

SHELL "espeak --help" TO variabile
IF Instr(variabile, "eSpeak text-to-speech:") < 1 THEN
  '--NON TROVATO
ENDIF

[Ceskho]

ho provato a creare un form (FSplash) dove compare un messaggio che invita ad installare eSpeak...tale form deve "apparire" soo che eSpeak non c'è....

però non funziona...

ecco il codice inserito nell' Form_open: dell'FMain:

Codice: [Seleziona]

'*******************************************************
'cerca la dipendenza se presente(eSpeak)

DIM verifica AS String

SHELL "espeak --help" TO verifica

IF InStr(verifica, "eSpeak text-to-speech:") < 1 THEN 

  Fmain.Visible = FALSE
  FSplash.visible = TRUE

ENDIF

'*******************************************************

ma non va...dove sbaglio?