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 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. | 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 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 - chứa các mệnh đề đặc biệt hay thành ngữ tiếng Anh at night at times . . - chứa các chủ ngữ và động từ tiếng Anh I am he is we do . . - 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_1 tu_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ía dướ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ập tin . Bạn có thể tải mã nguồn và CSDL của ứng dụng tại . Chúc bạn thành công. H1 Bảng 1 Control Name Font RichTextboxI txtenglish 14 Bold RichTextbox2 txtvietnam 14 Bold Bảng 2 Control Name Interval Timerl t_1 5 Timer2 t_2 1 Đoạn mã 1 Dim vn_words 1 To 1000 Dim en_words 1 To 1000 Dim dotime As String Dim strings As String Dim check_verbs As Integer Dim check_phrases As Integer Dim englishtext vietnamtext Private Sub Form_Load False True listwords 1 Open For Input As 1 Do While Not EOF 1 Input 1 englishtext vietnamtext en_words listwords englishtext vn_words listwords vietnamtext listwords listwords 1 Loop Close 1 check_phrases listwords Open For Input As 1 Do While Not EOF 1 Input 1
