Tự làm chương trình phát âm tiếng Anh.

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Tự làm chương trình phát âm tiếng Anh.

Bài gửi  PhanThanhLiem(I22A) on 22/3/2013, 23:13

Hôm trước nghe thầy giới thiệu về VnVoice mình chợt nhớ tới thủ thuật này, chia sẻ cùng các bạn.
Ta sẽ tự tạo 1 chương trình phát âm tiếng Anh ngay trong Windows.

*Các bước thực hiện:
- B1: Mở Notepad.
- B2: Copy đoạn code sau:
Code:
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
- B3: Save lại với tên là "Speak.vbs". Nhớ lưu tên có thêm ngoặc kép.
- B4: Mở chương trình lên và nhập 1 đoạn text English bất kỳ bạn sẽ nghe Windows phát âm. Very Happy

PhanThanhLiem(I22A)

Tổng số bài gửi : 17
Join date : 11/03/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Like

Bài gửi  LuGiaLam(I22A) on 25/3/2013, 10:20

Like vì tinh thần chia sẽ của bạn nhe
Thủ thuật này mình cũng mới biết đó Rolling Eyes

LuGiaLam(I22A)

Tổng số bài gửi : 18
Join date : 11/03/2013
Age : 28
Đến từ : Viet Nam

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Tự làm chương trình phát âm tiếng Anh.

Bài gửi  AnhDao(I22B) on 25/3/2013, 23:20

Ố ồ , good good . Thanks bạn !!!

AnhDao(I22B)

Tổng số bài gửi : 52
Join date : 09/03/2013
Age : 26
Đến từ : HoChiMinh

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Tự làm chương trình phát âm tiếng Anh.

Bài gửi  PhanThanhPhu(I22A) on 26/3/2013, 09:20

hay thật, quá đỉnh luôn

PhanThanhPhu(I22A)

Tổng số bài gửi : 21
Join date : 11/03/2013
Age : 25

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Tự làm chương trình phát âm tiếng Anh.

Bài gửi  HoangThanhThien(I22B) on 26/3/2013, 15:30

Hay lắm

HoangThanhThien(I22B)

Tổng số bài gửi : 43
Join date : 14/03/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Tự làm chương trình phát âm tiếng Anh

Bài gửi  Tran Thi Diem Thuy (I22A) on 27/3/2013, 09:20

Thanks vì tinh thần chia sẻ ^^!
Nhưng có cách nào mỗi lần phát âm xong textbox vẫn còn trên màn hình để thực hiện câu chữ tiếp theo mà không bị tắt không?

Admin
Chính ở đây, Lập trình phải vào cuộc !

Tran Thi Diem Thuy (I22A)

Tổng số bài gửi : 8
Join date : 24/03/2013
Age : 28

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Tự làm chương trình phát âm tiếng Anh.

Bài gửi  PhanThanhLiem(I22A) on 27/3/2013, 14:05

Bạn thử thay đoạn code sau đây, cách làm như trên. Khi phát âm xong sẽ có thông báo tiếp tục hay thoát. Smile
Code:
Option Explicit
Const MyTitle = "English speech"
Dim MsgRet, EngString, OrgString
OrgString = "What is your name?"
Do While MsgRet <> vbNo
    EngString = InputBox("Enter your English sentence:", MyTitle, OrgString)
    Select Case EngString
    Case ""
        MsgBox "Oh no, you must type an English sentence", vbExclamation+vbOkOnly, MyTitle
    Case Else
        OrgString = EngString
        CreateObject("SAPI.SpVoice").Speak(EngString)
        MsgRet = MsgBox("Do you want to continue?", vbYesNo+vbQuestion, MyTitle)
    End Select
   
Loop

PhanThanhLiem(I22A)

Tổng số bài gửi : 17
Join date : 11/03/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Tự làm chương trình phát âm tiếng Anh.

Bài gửi  TranDacTruong( I22A ) on 28/3/2013, 19:56

Qua hay lun ban oi.

TranDacTruong( I22A )

Tổng số bài gửi : 25
Join date : 17/03/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Tự làm chương trình phát âm tiếng Anh.

Bài gửi  PhamThiThao (I22B) on 29/3/2013, 12:50

hay đó bạn Laughing

PhamThiThao (I22B)

Tổng số bài gửi : 54
Join date : 19/03/2013

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Tự làm chương trình phát âm tiếng Anh.

Bài gửi  Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết