Text to Speech

Các ví dụ nho nhỏ và những thứ linh tinh không thuộc nhóm nào
Đăng trả lời
Hình đại diện của thành viên
truongphu
VIP
VIP
Bài viết: 4785
Ngày tham gia: Chủ nhật 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 528 times

Text to Speech

Gửi bài by truongphu »

Tên chương trình: Text to Speech
Phiên bản: Alpha
Tác giả: truongphu
Chức năng: Đọc văn bản tiếng Anh

Mã: Chọn tất cả

Dim objVoice As Object Private Sub Command1_Click()Text1.Text = ""End Sub Private Sub Command2_Click()Text1.Text = Clipboard.GetTextEnd Sub Private Sub Command3_Click()For i = 1 To Text2    objVoice.Speak Text1.TextNextEnd Sub Private Sub Command4_Click()For Each strVoice In objVoice.GetVoices    Combo1.AddItem strVoice.GetDescriptionNextEnd Sub Private Sub Command5_Click()If Text1.Text = "" Then    MsgBox "Chu'a có nôi dung Ðê Ðoc và thu âm"    Exit SubEnd IfCommonDialog1.InitDir = "D:\"CommonDialog1.Filter = "*.WAV"CommonDialog1.ShowSaveIf CommonDialog1.FileName <> "" Then    If Right(CommonDialog1.FileName, 4) <> ".wav" Then CommonDialog1.FileName = CommonDialog1.FileName & ".Wav"    Set objFile = CreateObject("SAPI.SpFileStream.1")    Const SSFMCreateForWrite = 3    objFile.Open CommonDialog1.FileName, SSFMCreateForWrite    Set objVoice.AudioOutputStream = objFile    objVoice.Speak Text1.Text    MsgBox "Ðã Xong!"End IfEnd Sub Private Sub Form_Load()Set objVoice = CreateObject("SAPI.SpVoice")objVoice.Speak "Welcome to Visual Basic Club"End Sub 
TTS.rar
Project1
(2.02 KiB) Đã tải về 1150 lần
Text to Speech.rar
Application
(5.13 KiB) Đã tải về 1145 lần
-----------------------------
gửi bởi truongphu » CN 12/07/2009 2:41 pm

Text to Speech phiên bản Alpha chỉ có một giọng là Sam
Để sản phẩm hoàn thiện hơn, mời các bạn ghé thăm:
http://www.microsoft.com/products/msage ... /user.aspx
Và download các phần bổ sung
viewtopic.php?f=52&t=8133&p=52450#p51548

download/file.php?id=6282
download/file.php?id=6283

-----------------
Hai file cài đặt của Microsoft
download/file.php?id=6295
Sửa lần cuối bởi 2 vào ngày truongphu với 0 lần sửa trong tổng số.
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh
Hình đại diện của thành viên
truongphu
VIP
VIP
Bài viết: 4785
Ngày tham gia: Chủ nhật 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 528 times

Re: Text to Speech

Gửi bài by truongphu »

Text to Speech phiên bản Alpha chỉ có một giọng là Sam
Để sản phẩm hoàn thiện hơn, mời các bạn ghé thăm:
http://www.microsoft.com/products/msage ... /user.aspx
Và download các phần bổ sung

Sau đây là bản Beta
Add References
Add References
Giao diện với nhiều giọng
Giao diện với nhiều giọng
Phần code đơn giản với 3 phần:
Form Load: tải các giọng vào List1
List1 Click: Chọn giọng
TextToSpeech1 Clickln: Đọc text

Mã: Chọn tất cả

Private Sub List1_Click()On Error Resume NextTextToSpeech1.CurrentMode = List1.ListIndex + 1 If (TextToSpeech1.Gender(TextToSpeech1.CurrentMode) = 1) ThenTextToSpeech1.LipType = 0ElseTextToSpeech1.LipType = 1End IfEnd Sub Private Sub TextToSpeech1_ClickIn(ByVal x As Long, ByVal y As Long)TextToSpeech1.Speak Text1.TextEnd Sub Private Sub Form_Load()Dim strVoiceType As StringDim intEngine As IntegerDim i As Integer intEngine = TextToSpeech1.Find("Mfg=Microsoft;Gender=1")TextToSpeech1.Select intEngine For i = 1 To TextToSpeech1.CountEnginesstrVoiceType = TextToSpeech1.ModeName(i)List1.AddItem strVoiceTypeNext i List1.ListIndex = TextToSpeech1.CurrentMode - 1 End Sub  
TextToSpeech1.rar
Project
(2.34 KiB) Đã tải về 827 lần
Text to Speech.rar
Application
(3.97 KiB) Đã tải về 742 lần
Đương nhiên bạn có thể viết ứng dụng nhiều hơn thế.
Code trên chỉ là code minh họa

(Kể cả dấu ^ nó cũng đọc tuốt! :D )
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh
Hình đại diện của thành viên
truongphu
VIP
VIP
Bài viết: 4785
Ngày tham gia: Chủ nhật 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 528 times

Re: Text to Speech

Gửi bài by truongphu »

truongphu đã viết:Text to Speech phiên bản Alpha chỉ có một giọng là Sam
Để sản phẩm hoàn thiện hơn, mời các bạn ghé thăm:
http://www.microsoft.com/products/msage ... /user.aspx
Và download các phần bổ sung
http://www.microsoft.com/products/msage ... /user.aspx
Địa chỉ trên có nhiều mục đáng load lắm
Còn tiện thì mời các bạn dùng tạm:
Tập tin đính kèm
msttsl Multi Voices.rar
(7.29 MiB) Đã tải về 1602 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh
Hình đại diện của thành viên
andylam1992
Thành viên danh dự
Thành viên danh dự
Bài viết: 380
Ngày tham gia: Thứ 2 06/04/2009 12:57 pm
Đến từ: TP.HCM Q5
Has thanked: 2 times
Been thanked: 4 times
Tiếp xúc:

Re: Text to Speech

Gửi bài by andylam1992 »

"Sp5TTIntXP.rar" unzip xong nó ra 1 file "*.Msm-installer database" chứ không phải file cài đặt. Nhờ Bác Phú xem lại dùm.

不相信未作牺牲竟先可拥有
只相信是靠双手找到我欲求
Cần - Kiệm- Liêm(liêm kiết) - Nghĩa - Chí - Tín
Hình đại diện của thành viên
truongphu
VIP
VIP
Bài viết: 4785
Ngày tham gia: Chủ nhật 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 528 times

Re: Text to Speech

Gửi bài by truongphu »

Đúng thế, tôi xem lại và ngẩn người ra...
Mà tìm trong máy không có gì thêm

Thôi thì bạn chịu khó vào trang sau, bảo đảm còn sống:
http://www.microsoft.com/downloads/deta ... laylang=en

http://www.microsoft.com/downloads/deta ... laylang=en

File Name: File Size
msttss22L.exe
2.0 MB

sapi.chm
2.3 MB

Sp5TTIntXP.exe
3.5 MB

SpeechSDK51.exe
68.0 MB

SpeechSDK51LangPack.exe
81.5 MB

SpeechSDK51MSM.exe
131.5 MB
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh
dactung93
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 496
Ngày tham gia: Thứ 3 04/11/2008 8:43 am
Has thanked: 6 times
Been thanked: 8 times

Re: Text to Speech

Gửi bài by dactung93 »

Dowwnload thêm cả cái Acapela để nghe giọng chuẩn Anh và Anh-Mỹ hơn nhá

US English

Heather US English Female 22khz Voice
http://www.mediafire.com/?nzzyn3wyj1b
http://www.mediafire.com/?jmdmdntmmml

Laura US English Female 22khz Voice
http://www.mediafire.com/?2ndjuhy0cql
http://www.mediafire.com/?1uewziymewa

Aaron US English 22khz Voice
http://www.mediafire.com/?zk4kcztjjmz
http://www.mediafire.com/?ljz1htmuhwt

British English

Graham British English Male 22khz Voice
http://www.mediafire.com/?mwxjjjuucj5
http://www.mediafire.com/?zi1mtmyjmmg

Lucy British English Female 22khz Voice
http://www.mediafire.com/?imydtnywzyt
http://www.mediafire.com/?i1qwmhiijrf

(Sơ sơ nếu download hết thì cũng tầm 200 - 400 MB không nhớ được ) Nhưng bạn sẽ có một giọng đọc chuẩn như đang giao tiếp với người bản sứ vậy. Chứ còn ăn theo mấy cái của Microsoft thì mình nghĩ không ổn vì nghe chán lắm ( Cái trên là bản Trail nhưng có đặc điểm là trailer vĩnh viễn nên không sợ thiếu chức năng và thời hạn đâu. Cứ như là vĩnh viễn luôn mà )



--------------
22/5/2010
viết lại TTS cho gọn:
Tập tin đính kèm
Text to Speech.rar
(4.83 KiB) Đã tải về 582 lần
chipmunk
Thành viên tích cực
Thành viên tích cực
Bài viết: 125
Ngày tham gia: Thứ 2 28/03/2011 9:19 am
Has thanked: 2 times
Been thanked: 5 times

Re: Text to Speech

Gửi bài by chipmunk »

Cái này em cũng đã làm một cái tương tự
Em cũng đã sử dụng nó để đọc các câu tiếng Việt, kết quả nghe cũng được.Dạo trước trên msdn có rất nhiều engine cho các thứ tiếng nhưng bây giờ chẳng thấy đâu cả, mục đích là để tìm ra engine nào có thể phát âm tiếng việt chuẩn nhất
method speak có thể chứa tham số tần số phát âm
Dùng cái này kèm agent ở web nghe cũng hay
Hình đại diện của thành viên
phanthequang4101987
Thành viên danh dự
Thành viên danh dự
Bài viết: 116
Ngày tham gia: Thứ 3 01/04/2008 6:39 am
Đến từ: Nghi Xuân - Hà Tĩnh
Has thanked: 4 times
Been thanked: 21 times
Tiếp xúc:

Re: Text to Speech

Gửi bài by phanthequang4101987 »

để đọc tiếng việt bạn hãy lấy mã và thư viện từ chương trình virtualfriend có trên diễn đàn đó
chú ý: nó hình như đọc bảng mã TCVN3 thì phải ^^. lâu ko coi ko nhớ ^^
chipmunk_
Bài viết: 1
Ngày tham gia: Thứ 7 22/09/2018 9:12 am

Re: Text to Speech

Gửi bài by chipmunk_ »

chipmunk đã viết:Cái này em cũng đã làm một cái tương tự
Em cũng đã sử dụng nó để đọc các câu tiếng Việt, kết quả nghe cũng được.Dạo trước trên msdn có rất nhiều engine cho các thứ tiếng nhưng bây giờ chẳng thấy đâu cả, mục đích là để tìm ra engine nào có thể phát âm tiếng việt chuẩn nhất
method speak có thể chứa tham số tần số phát âm
Dùng cái này kèm agent ở web nghe cũng hay
Nói rõ một chút, ý mình là dùng thư viện tiếng Anh để phát âm tiếng Việt
ví dụ đọc "Xin chào tất cả" thì cách phát âm tiếng Anh tương ứng là "seen chown tack car", nhưng có nhiều vần như "ươn","ưu"... không có cách phát âm tương ứng trong tiếng Anh
còn dấu thanh thì có thể điều chỉnh tấn số phát âm cao hay thấp, nhưng dấu hỏi ngã thì bó tay
Đăng trả lời

Quay về