Tạo chương trình đọc tiếng Anh

Hôm nay ngày 27 tháng 3 năm 2010 chúng ta cùng trao đổi và học tiếp với nội dung:
1-Tạo chương trình đọc tiếng Anh
Nếu bạn không biết đọc tiếng Anh như thế nào bạn có thể làm một chương trình nhỏ bằng vài dòng lệnh đơn giản, cách làm như sau:
+Nháy vào Start \ Programs \ Accessories \ Notepad.
+Bạn nhập các dòng sau đây:
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
Sapi.Speak message
Xem hình dưới đây:


+Nháy vào File chọn Save.
+Trong ô Name bạn đặt tên là Doc tieng anh.vbs
+Nháy vào Save để ghi lại.
Cách sử dụng chương trình.
+Nháy đúp vào tập tin Doc tieng anh.vbs
+Nhập từ cần nghe vào ô thí dụ: Customize bấm OK.
Xin mời xem hình dưới đây:


Bạn sẽ nghe thấy tiếng Anh phát ra, tất nhiên bạn phải có loa mới nghe được.
Bài học hôm nay tạm dừng tại đây, cảm ơn các bạn đã đọc những thông tin này trên Blog, mọi góp ý xin bạn vui lòng gửi Email cho tác giả để thông tin ngày càng phong phú và đáp ứng được yêu cầu bạn đọc, tác giả nhận cung cấp các CD phần mềm tới bạn đọc cả nước qua bưu điện.

Số người xem bài này

Posted in: Lập trình