Lập trình MS AGENT với ngôn ngữ VISUAL BASIC

MS Agent được cài mặc định khi sử dụng hệ điều hành Windows 2000 và Windows XP. Với các phiên bản cũ, bạn cần cài đặt:

1. Microsoft Speech ControlPanel (Spchcpl.exe) để quản lý, thiết lập thông số của MS Agent như tốc độ đọc, đối tượng đọc.

2. Các thư viện động (DLL), các hàm gọi bằng API (Spchapi.exe).

3. MS Agent ver 2.0 (MSagent.exe). Tất cả được tải trên http://www.microsoft.com/msagent, mục download.

Thoạt đầu, bạn phải cài đặt ngôn ngữ lập trình Visual Basic (VB). Ta tạo một dự án mới (File/New Project). VB sẽ tự tạo một Form sẵn, do đó ta chỉ thêm một TextBox (Properties: Name=TxtSay,Multiline=True nhằm giúp người dùng có thể nhập nhiều ký tự xuống dòng), một CommandButton (Properties: Name=CmdSayIt, Caption=Say It!). Bạn có thể thêm gia vị (Properties) cho nó đẹp mắt như BackGround, ForeColor, Font...

Sau đó, bạn chọn menu Project/Components (phím tắt Ctrl+T) để bật hộp thoại Components. Tại thẻ Controls, kiếm chọn thành phần Microsoft Agent Control 2.0/Apply/Ok. Thành phần này sẽ thêm biểu tượng tại Toolbox, đặt đối tượng này lên Form, thiết lập thuộc tính Properties với Name=Agent.

Bật soạn thảo mã và copy đoạn mã dưới đây:

Private NhaAoThuat As

IAgentCtlCharacterPrivate Sub

HienThi_MSAgentOn Error

Resume Next ‘Bỏ qua nếu gặp lỗi không tìm thấy MS Agent

If Right(App.Path, 1) = “\”

Then

Agent.Characters.Load

“Merlin”, App.Path &

“merlin.acs” Else

Agent.Characters.Load

“Merlin”, App.Path &

“\merlin.acs” End If

Set NhaAoThuat =

Agent.Characters(“Agent”)

NhaAoThuat.Show ‘Hiển thị MS Agent NhaAoThuat.Speak

“E-CHIP” ‘Đọc lời giới thiệu

NhaAoThuat.Speak “Moi thac mac xin lien he pcquocanh@yahoo.com”End

SubPrivate Sub Form_Load()

HienThi_MSAgent ‘Hàm gọi

MSAgent

End SubPrivate Sub

CmdSayIt_Click()

NhaAoThuat.Speak

TxtSay.Text End

Sub

Khi nhập vào hộp thoại và nhấn nút Say it!, MS Agent sẽ tự động đọc đoạn văn trong hộp thoại với câu cú đầy diễn cảm. Hiện nay, MS Agent hỗ trợ rất nhiều thứ tiếng tại website của Microsoft (http://www.micro-soft.com/msagent) như: Anh, Tây Ban Nha, Nhật, Hàn Quốc... nhưng lại chưa có tiếng Việt. Nếu cần dùng, bạn có thể sử dụng các thành phần (Component) của hãng thứ ba và không ai khác chính là Lạc Việt từ điển 2002, tôi đã thử kiểm tra bộ đọc tiếng Việt của Lạc Việt quả là khá tốt.

MS Agent có nhiều hiệu ứng trên cả tuyệt vời như: hiển thị, vỗ tay, nháy mắt, suy nghĩ, hay di chuyển,...

Chú ý: Với đoạn mã sau, bạn cần phải chép tập tin .acs cần dùng nằm ngay thư mục chương trình thực thi của bạn, nhằm gọi MS Agent mới trong khi hệ điều hành Windows (95->XP) chưa hỗ trợ khi ta phân tán qua CD-ROM, đĩa mềm cho bạn bè và người dùng:

If Right(App.Path, 1) = “\”

Then

Agent.Characters.Load

“Agent”, App.Path &

“merlin.acs” Else

Agent.Characters.Load

“Agent”, App.Path &

“\merlin.acs” End If

Nếu biết chắc người dùng có MS Agent mà bạn mong muốn, bạn có thể thay thế đoạn mã trên bằng chỉ đường dẫn tuyệt đối (có thể dùng API để xác định thư mục hệ thống):

Agent.Characters.Load

“Agent”,”C:\WINDOWS\msagent\chars\merlin.acs”

hoặc đối với NTFS:

Agent.Characters.Load

“Agent”,”C:\WINNT\msagent\chars\merlin.acs”

Hiện MS Agent được phát triển rộng rãi

trên internet bởi các nhóm MS Agent như:

* Nhà phù thủy – merlin.acs

* Robot – robby.acs

* Thần đèn – Genie.acs

* Cô gái – Vrgirl.acs

và còn nhiều hình khác để bạn tha hồ chọn.

Mọi thắc mắc, yêu cầu chi tiết về MS Agent, xin liên hệ tác giả nhé!

Nguyễn Quốc Anh

(pcquocanh@yahoo.com)