Phiên dịch tiếng Anh sang tiếng Việt bằng VB

Viết ứng dụng để dịch một đoạn văn tiếng Anh sang tiếng Việt dường như là việc quá ư khó khăn. Tuy nhiên, nếu ta chỉ xét những câu đàm thoại thông thường thì việc "phiên dịch tự động" không phức tạp lắm. Xin trình bày một ý tưởng để giúp bạn... học tiếng Anh tốt hơn.Bạn hãy tạo dự án mới trong VB rồi bấm Ctrl+T. Trên hộp thoại vừa hiện ra, bạn chọn Microsoft Rich Textbox Control 6.0 và nhấn OK. Tiếp theo, bạn thiết kế giao diện như hình 1 với các thuộc tính như trong bảng...
Nội dung trích xuất từ tài liệu:
Phiên dịch tiếng Anh sang tiếng Việt bằng VB Phiên dịch tiếng Anh sang tiếng Việt bằng VB Viết ứng dụng để dịch một đoạn văn tiếng Anh sang tiếng Việt dường như là việc quá ư khó khăn. Tuy nhiên, nếu ta chỉ xét những câu đàm thoại thông thường thì việc phiên dịch tự động không phức tạp lắm. Xin trình bày một ý tưởng để giúp bạn... học tiếng Anh tốt hơn.Bạn hãy tạo dự án mới trong VB rồi bấm Ctrl+T. Trên hộp thoại vừa hiện ra, bạn chọn MicrosoftRich Textbox Control 6.0 và nhấn OK. Tiếp theo, bạn thiết kế giao diện như hình 1 với các thuộc tính như trong bảng 1 và bảng 2 rồi đánh đoạn mã 1.Sau khi lưu ứng dụng, bạn tạo 3 tập tin văn bản TXT trong thư mục của ứng dụng:- phrases.txt: chứa các mệnh đề đặc biệt hay thành ngữ tiếng Anh (at night, at times,...).- verbs.txt: chứa các chủ ngữ và động từ tiếng Anh (I am, he is, we do,...).- words.txt: chứa các từ tiếng Anh thông dụng (I, hello, you,...).Cả ba tập tin như vậy có dạng thức như sau:tu_tieng_Anh_1,nghia_1tu_tieng_Anh_2,nghia_2...Bạn chạy thử và đánh câu tiếng Anh ở khung văn bản phía trên xem sao. Thật ngạc nhiên, phíadưới xuất hiện câu tiếng Việt tương ứng! Bạn chú ý, ứng dụng hoạt động tốt hay không là do cơsở dữ liệu (CSDL) từ ngữ của ta có phong phú hay không. Bạn nên đưa nhiều thành ngữ vào tậptin phrases.txt. Bạn có thể tải mã nguồn và CSDL của ứng dụng tại: www.echip.com.vn. Chúcbạn thành công. H1Bảng 1 Control Name Font RichTextbox1 txtenglish 14, Bold RichTextbox2 txtvietnam 14, BoldBảng 2 Control Name Interval Timer1 t_1 5 Timer2 t_2 1Đoạn mã 1Dim vn_words(1 To 1000)Dim en_words(1 To 1000)Dim dotime As StringDim strings As StringDim check_verbs As IntegerDim check_phrases As IntegerDim englishtext, vietnamtextPrivate Sub Form_Load()Form1.Showt_1.Enabled = Falset_2.Enabled = Truelistwords = 1Open (App.Path & phrases.txt) For Input As #1Do While Not EOF(1)Input #1, englishtext, vietnamtexten_words(listwords) = englishtextvn_words(listwords) = vietnamtextlistwords = listwords + 1LoopClose #1check_phrases = listwordsOpen (App.Path & verbs.txt) For Input As #1Do While Not EOF(1)Input #1, englishtext, vietnamtexten_words(listwords) = englishtextvn_words(listwords) = vietnamtextlistwords = listwords + 1LoopClose #1check_verbs = listwords - check_phrasesOpen (App.Path & words.txt) For Input As #1Do While Not EOF(1)Input #1, englishtext, vietnamtexten_words(listwords) = englishtextvn_words(listwords) = vietnamtextlistwords = listwords + 1LoopClose #1End SubPrivate Sub t_1_Timer()If txtvietnam.Text = Then Exit SubIf dotime = txtvietnam.Text Then Exit Subtxtenglish.Text = whereareweat = 1dotime = txtvietnam.Textstrings = txtvietnam.TextFor i = 1 To 13strings = Replace(strings, vn_words(i), en_words(i) & )Next iFor i = 1 To 1000strings = Replace(strings, vn_words(i), en_words(i) & )Next itxtvietnam.Text = stringsEnd SubPrivate Sub t_2_Timer()If txtenglish.Text = Then Exit SubIf dotime = txtenglish.Text Then Exit Subtxtvietnam.Text = whereareweat = 1dotime = txtenglish.Textstrings = txtenglish.TextFor i = 1 To check_phrasesstrings = Replace(strings, vn_words(i), en_words(i) & )Next iFor i = check_phrases To check_verbsstrings = Replace(strings, vn_words(i), en_words(i) & )Next iFor i = 1 To 1000strings = Replace(strings, en_words(i), vn_words(i) & )Next itxtvietnam.Text = stringsEnd Sub