Chương trình đổi số thành chữ, có thể đọc luôn cho nghe

[BNTT]

Xin giới thiệu với các bạn chương trình tNumber2Text ver 1.1:

Chương trình miễn phí, rất nhỏ gọn, chỉ có 38KB, chạy thẳng không cần cài đặt.
Mọi việc bạn cần làm chỉ là gõ con số vào, nhấn nút Copy to Clipboard, rồi dán vào bảng tính.
Ngoài ra, nếu thích, bạn có thể nhấn nút Đọc số để nghe đọc con số này bằng tiếng Việt.

Tuy không hay bằng một Addin chạy trong Excel, nhưng chương trình này cũng có ưu điểm hơn các Addin, là bạn có thể dịch một con số ra chữ, rôi dán vào bất kỳ đâu, Word chẳng hạn, chứ không riêng gì ở trong Excel.

Link download: tNumber2Text

 

[boyxin]

Xin giới thiệu với các bạn chương trình tNumber2Text ver 1.1:

Chương trình miễn phí, rất nhỏ gọn, chỉ có 38KB, chạy thẳng không cần cài đặt.
Mọi việc bạn cần làm chỉ là gõ con số vào, nhấn nút Copy to Clipboard, rồi dán vào bảng tính.
Ngoài ra, nếu thích, bạn có thể nhấn nút Đọc số để nghe đọc con số này bằng tiếng Việt.

Tuy không hay bằng một Addin chạy trong Excel, nhưng chương trình này cũng có ưu điểm hơn các Addin, là bạn có thể dịch một con số ra chữ, rôi dán vào bất kỳ đâu, Word chẳng hạn, chứ không riêng gì ở trong Excel.

Link download: tNumber2Text

Hic, Sau khi xem thông tin chương trình, nhấn OK ---> Giật mình tưởng máy tính của mình nhão nhoét ra thành cháo

 

[Đào Việt Cường]

Dear all,
--------
Thực ra với VNSpeech engine được cung cấp miễn phí bởi Phòng Công nghệ phần mềm (ISG) chúng ta có thể xây dựng được ứng dụng này. Đây là một ứng dụng "Tổng hợp tín hiệu tiếng nói tiếng Việt bằng phương pháp tổng hợp dựa trên các luật về mô hình và nguyên lý tạo tiếng nói con người và từ các thông tin ngữ âm (không phải bằng ghi âm tiếng nói tự nhiên)" - theo ISG. Vì không phải bằng ghi âm tiếng nói tự nhiên nên "nó" phát âm... hơi buồn cười!

Lưu ý, engine này chỉ hỗ trợ đọc văn bản TCVN, nhưng bằng việc sử dụng các hàm chuyển đổi mã văn bản về TCVN, trở ngại này không phải là vấn đề lớn.

Hi vọng với VNSpeech, anh chị có thể tự thiết kế những "phần mềm biết nói" thú vị cho riêng mình!

 

[ongtrungducmx25]

Xin giới thiệu với các bạn chương trình tNumber2Text ver 1.1Chương trình miễn phí, rất nhỏ gọn, chỉ có 38KB, chạy thẳng không cần cài đặt.

Lưu ý : dấu phân cách hàng ngàn là dấu phảy (,) và dấu phân cách số lẻ là dấu chấm (.), theo kiểu Anh, Mỹ .Chương trình có thể chuyển đến 28 chữ số và hỗ trợ copy kết quả vào bộ nhớ Clipboard ở mã Unicode và không cần cài đặt ngoài ra bạn còn có thể tải bản hỗ trợ độc số tịa http://mediafire.com/?wlyvyekmmiv,dung lượng 317KB

 

[Nguyễn Duy Tuân]

Text2Voice - Đọc số thành chưc có âm thanh

Gửi các bạn tham khảo mã chương trình tôi viết trong Excel mã nguồn rất ngắn gọn.

'Author: Nguyen Duy Tuan

Option Explicit

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_ALIAS As Long = &H10000
Private Const SND_ALIAS_ID As Long = &H110000
Private Const SND_ALIAS_START As Long = 0
Private Const SND_APPLICATION As Long = &H80
Private Const SND_ASYNC As Long = &H1
Private Const SND_FILENAME As Long = &H20000
Private Const SND_LOOP As Long = &H8
Private Const SND_MEMORY As Long = &H4
Private Const SND_NODEFAULT As Long = &H2
Private Const SND_NOSTOP As Long = &H10
Private Const SND_NOWAIT As Long = &H2000
Private Const SND_PURGE As Long = &H40
Private Const SND_RESERVED As Long = &HFF000000
Private Const SND_RESOURCE As Long = &H40004
Private Const SND_SYNC As Long = &H0
Private Const SND_TYPE_MASK As Long = &H170007
Private Const SND_VALID As Long = &H1F
Private Const SND_VALIDFLAGS As Long = &H17201F

Const cVoiceDict = "VoiceDict"

Function GetPath() As String
    GetPath = ThisWorkbook.Path
End Function
Function VBA_Vlookup(ByVal ValToFind As Variant, ByVal cTableName As String, ByVal RetCol As Long, ByVal vType As Boolean) As Variant
    On Error Resume Next
    VBA_Vlookup = WorksheetFunction.VLookup(ValToFind, Range(cTableName), RetCol, vType)
End Function

Function Text2Voice(ByVal cText As String) As Boolean
    Dim cSndFile As String, RetVal As Boolean
    Dim TextArr
    Dim i As Long
    
    RetVal = cText <> ""
    TextArr = Split(cText, " ")
    
    For i = LBound(TextArr) To UBound(TextArr)
        cSndFile = VBA_Vlookup(TextArr(i), cVoiceDict, 2, False)
        If Not PlaySound(cSndFile, 0, SND_FILENAME) Then
            RetVal = False
        End If
    Next i
    Text2Voice = RetVal
End Function

Mã file nguồn gửi kèm:
http://www.bluesofts.net/Programming/Text2Voice.zip