Xây dựng từ điển multimedia

Bộ Giáo Dục Đào tạo Trờng Đại học Dân lập Đông Đô Khoa Công Nghệ Thông Tin luận văn tốt nghiệp Chuyên ngành: Công nghệ thông tin Nguyễn Quang Hng văn tốt nghiệp Luận Mục lục Lời nói đầu Chơng I: Phát biểu toán .4 Mét sè kh¸i niƯm a Kĩ thuật công nghệ multimedia b Tõ ®iĨn multimedia Những hệ thống sử dụng .6 Yêu cầu hệ thống a Yªu cÇu tra cøu b Yêu cầu liệu c Yªu cầu bảo mật .7 Chơng II: Phân tích hệ thống Phân tích liệu Phân tích chức 10 2.1 Chức tổng quát .10 2.2.1 Chức bảo mËt 11 2.2.2Chức cập nhật .11 2.2.3Chức tra cứu 11 NguyÔn Quang Hng LuËn văn tốt nghiệp Chơng III: Thiết kế hệ thống 14 Bảng liÖu 15 Mô hình quan hệ 16 ThiÕt kÕ giao diÖn .1 a Màn hình 17 b MËt khÈu 18 c Màn hình cập nhật thông tin 19 d Màn hình soan thảo file ©m thanh,video 20 e Giao dien nhËp néi dung text 21 f Giao diên cập nhật file ảnh 22 KÕt luËn .23 Phô lôc .24 Phô luc .30 Tµi liƯu tham kh¶o Nguyễn Quang Hng văn tốt nghiệp Luận Lời nói đầu Ngày nay, thĨ phđ nhËn vai trß cđa tin häc mäi lÜnh vùc khoa häc kÜ thuËt ®êi sèng x· héi Tin học đợc ứng dụng nhiều công tác quản lí, phục vụ vui chơi giải trí, nghiên cứu khoa học đặc biệt tin học đợc ứng dụng nhiều kĩ thuật từ điển Với khả lu trữ lớn máy tính đà thay hoàn toàn từ điển đồ sộ, với tốc độ tìm kiếm nhanh, sác máy tính đà trở thành công cụ đắc lực giúp đỡ ngời việc tra cứu tìm kiếm thông tin đạt hiệu cao Hiện nay, phát triển mạnh mẽ công nghệ multimedia đà cung cấp diện mạo cho từ điển Với kết hợp đa dạng âm hình ảnh đà cung cấp cho ngời sử dụng nhiều thông tin mở mét híng hoµn toµn míi viƯc tra cøu cung nh thiết kế từ điển Xây dựng từ điển multimedia đề tài mẻ bắt kịp phát triển công nghệ thông tin đáp ứng đợc nhu cầu ngày cao xà hội Mục tiêu đề tài thiết kế công cụ để xây dựng liệu cho từ điển có chủ đề văn hoá với dạng liệu nh hình ảnh (hội họa), phim video (sân khấu điện ảnh) nội dung chữ (văn học thơ ca) âm (âm nhạc) Mặc dù có nhiều cố gắng nhng hạn chế thời gian nh kinh nghiệm nên luận văn chắn nhiều thiếu sót Em mong đợc góp ý kiến thầy bè bạn để chơng trình đợc hoàn thiện Em xin chân thành cảm ơn thầy giáo Nguyễn Văn Xuất thầy giáo khoa Công Nghệ Thông Tin Trờng Đại học Dân Lập Đông Đô đà hớng dẫn tận tình tạo điều kiện cho em hoàn thành đề tài Nguyễn Quang Hng văn tốt nghiệp Luận Chơng I Phát Biểu toán Một số khái niệm a Kỹ thuật công nghệ Multimedia Để hiểu thêm chi tiết mô hình hệ thống multimedia ta sâu vào tìm hiểu dạng file multimedia Các u điểm, nhợc điểm nh ứng dụng dạng file liệu Từ đa cách sử dụng thích hợp Các dạng file liệu multimedia Trong multimedia có dạng liệu lu trữ máy tính nh sau : Văn (text) Âm (sound, void) Đối với liệu dạng âm có số chuẩn để lu trữ liệu Phỉ biÕn nhÊt hiƯn theo Microsoft ®a ra, theo chuẩn này, liệu âm phục vụ cho multimedia đợc cất giữ file có phần mở rộng *.WAV *.MID.Các file dạng *.WAV dùng để chứa liệu âm nói chung không yêu cầu chất lợng cao Các file MIDI.MID dùng chứa liệu âm đòi hỏi chất lợng cao thờng âm có giai điệu (audio) nh hạc, hát, nhạc cụ ghi ta, piano.Các file dạng WAV ghi laị thân âm file dạng MIDI ghi lại câu lệnh Các câu lệnh dùng để nói chuyện hay lệnh cho thiết bị MIDI phát âm Mỗi câu lệnh file MIDI bao gồm thông tin sau : nốt nhạc, loại nhạc cụ, nhịp điệu vài đặc trng âm nhạc khác.Yêu cầu phần cứng Máy tính PC tơng thích IBM MR trở lên chạy Windows 95 Microphone hc Recorder hay Cassette Sound card Nguyễn Quang Hng văn tốt nghiệp Luận Âm điệu (audio) Hình ảnh (image) Các file liệu ảnh đợc sử dụng tài liệu multimedia đa dạng Nhng hình ảnh mà Web Browser hiển thị ảnh có dạng * GIF, * JPEG, *.XBM.*.XBM dạng ảnh Bitmap dùng cho hệ thống Windows hỗ trợ cho màu Hầu hết trình duyệt PC Mac sử dụng hiển thị dạng ảnh Nhng dạng ảnh đợc tạo hệ điều hành Unix.GIF : đợc hỗ trợ 256 màu, nói chung dạng ảnh nén ảnh có kích thớc lớn GIF bị giới hạn phạm vi hẹp nhiều chọn màu sử dụng GIF có nhiều điểm lợi dạng đồ họa phổ biến đợc dùng trang Web GIF có hiệu cao tính nén bên làm cho hình ảnh tơng đối nhỏ GIF hỗ trợ tính suốt xen kẽ tính nâng cao hấp dẫn Video (hình ảnh động-motion image) Dạng liệu kết hợp liệu ảnh động liệu âm động vào file gọi liệu video File chứa liệu video gọi file loại AVI Ưu điểm file loại AVI Khi thể file AVI có cảm giác thực, việc diễn nh thực tế Có đợc nh chuyển động ẩnh hình âm phát từ card âm đà đồng với Nhợc điểm file loại AVI Khó thay đổi liệu Animation (hình ảnh sử dụng theo nguyên tắc chiếu phim) Dạng liệu kết hợp liệu ảnh liệu âm động trình thể tạo liệu animation.Ưu điểm liệu animation Trong chế độ hiển thị theo nguyên tắc chiếu phim animation, ảnh bitmap đợc chøa nhiỊu file, thø tù xt hiƯn cđa c¸c ảnh theo kịch thứ tự đọc file ảnh Tơng tự nh âm Các file âm đợc chuẩn bị trớc thờng file dạng wav Thứ tự xuất âm tuân theo thứ tự đọc file dạng wav.Điều chứng tỏ Nguyễn Quang Hng văn tốt nghiệp Luận liệu animation dùng nhiều file việc thay đổi đơn giản Nhợc điểm liệu animation Nhợc điểm sử dụng nhiều file ảnh âm trình độc lập tính đồng không cao, chất lợng thể không tốt, cảm giác thực c Từ điển mutimedia Ngày với phát triển nh vũ bÃo công nghệ thông tin nói chung công nghệ multimedia nói riêng đà đem lại hình thức cho từ điển - Từ điển Multimedia Với khả lu trữ lớn,tìm kiếm thông tin nhanh máy tính, đa dạng thông tin nguồn thông tin mà từ điển multimedia đem lại không tri thức đợc thể chữ mà kèm theo âm hình ảnh cách trực quan sinh động mang lại cho ngời lợng thông tin nhiều phong phú Các hệ thống sử dơng HiƯn cc sèng hµng ngµy cđa ngời thiếu đợc công cụ tra cứu, học sinh sinh viên từ điển đà phần thoả mÃn đợc nhu cầu tra cứu, hoc tập họ Cũng nằm việc đáp ứng nhu cầu xúc phần mềm tõ ®iĨn ®êi Ngay tõ míi xt hiƯn đà trở thành công cụ đồng hành giới nghiên cứu nh ngời yêu thích tin học Tuy nhiên với phát triển không ngừng xà hội phần mềm từ điển phải không ngừng phát triển để bắt kịp vơi đà tăng trởng Từ điển multimedia đời không nằm xu hớng Ngoài khả tra cứu đoạn văn thông thờng cung cấp cho ngời sử dụng thông tin đợc cập nhật hình ảnh, âm Nguyễn Quang Hng văn tốt nghiệp Luận Tuy nhiên khó khăn cho ngời dùng việc cập nhật thông tin cho từ điển Với khác cách sử dụng loại nguồn tin hình ảnh, âm thanh, tiếng nói ngời không thạo sử dụng lúng túng trình cập nhật thông tin cho từ điển Yêu cầu hệ thống từ điển multimedia Yêu cầu chung Để khắc phục nhợc điểm qua phần đánh giá phần trên, chơng trình xây dựng từ điển multimedia đợc xây dựng với yêu cầu nh sau: - Xây dựng phần mềm theo tiêu chuẩn đại đáp ứng nhu cầu tra cứu cđa ngêi sư dơng - Tõ thùc tÕ sư dơng thấy việc tra cứu tìm kiếm thông tin ngời sử dụng có nhu cầu cập nhật thông tin Để đáp ứng nhu cầu thiết chơng trìng phải có công cụ hỗ trợ cho việc cập nhật thông tin cách dễ dàng hiệu - Chơng trình phải đợc bảo mật thông tin, có chế độ cảnh báo ngời dùng lạ a Yêu cầu tra cứu - Tra cứu tác phẩm theo loại hình văn hoá nghệ thuật: - Âm nhạc - Văn thơ - Phim ảnh - Tranh ảnh b Các yêu cầu liệu vào chơng trình Dữ liệu mà chơng trình sử dụng quản lý đa dạng phân tán phải đảm bảo số yêu cầu: - Các định dạng file phải xác tuyệt đối Nguyễn Quang Hng văn tốt nghiệp Luận - Mọi thay đổi vị trí file liệu cần phải cập nhật lại c Các yêu cầu bảo mật hệ thống - Công nghệ bảo mật thông tin hệ thông phải thuận tiện, chắn nhiên phải tránh gây phiền hà ngời sử dụng Chơng II Phân tích hệ thống Phân tÝch d÷ liƯu hƯ thèng Tríc hÕt thiÕt kÕ d÷ liệu phải tạo sở liệu lu trữ thông tin đối tợng quản lý nh ấn phẩm, tác giả, thể loại cho thông tin không bị lu trữ d thừa mặt logic (không bị trùng lặp) cần truy xuất thông tin theo yêu cầu cho trớc Có nhiều cách thiết kế sở liệu ý niệm, nhiên thông dụng hữu hiệu sơ đồ thực thể quan hệ Mục tiêu phần phải xây dựng đợc sơ đồ quan hệ thực thể ấn phẩm văn hoá.Cho phép biểu diễn thông tin mối quan hệ quan trọng chúng Mô hình liệu làm tảng cho việc thiết kế sở liệu máy tính Định nghĩa vùng liệu xuất toán, việc quản lý ấn phẩm văn hoá giới hạn luận văn đề cập đến hệ thống liệu tra cứu cập nhật thông tin cho ấn phẩm - Nghiên cứu trờng hợp quản lý ấn phẩm thấy thực thể cần nghiên cứu nh : Tác giả Nguyễn Quang Hng văn tốt nghiệp Tác phẩm Thể loại Nội dung tác phẩm Luận - Giữa đối tợng cã mèi quan hƯ nh sau: Mét t¸c phÈm chØ có tác giả ngợc lại tác giả lại có nhiều tác phẩm, chúng có quan hệ - nhiều Mỗi thể loại có nhiều tác phẩm nhng tác phẩm đợc xếp vào thể loại mà thôi, chúng có quan hệ - nhiều Giữa tác phẩm nội dung có mèi quan hƯ nhiỊu nhiỊu cã nghÜa lµ mét Ên phẩm có nhiều nội dung khác ngợc l¹i mét néi dung l¹i cã thĨ xt hiƯn ë nhiều ấn phẩm (ví dụ nh đĩa CD âm nhạc có nhiều hát hát lại xuất nhiều đĩa CD khác nhau) Chúng ta có hình thể sau đây: Đối với thực thể ta có thuộc tính nh sau: Tác giả - Tên tác giả (*) 10 Nguyễn Quang Hng văn tốt nghiệp Luận Select Case Index Case i = While Listdaxoa.ListCount > i If Listdaxoa.Selected(i) = True Then change = True db.Execute "update tacpham set tentacpham='" & Left(Listdaxoa.List(i), Len(Listdaxoa.List(i)) - 1) & "' where tentacpham='" & Listdaxoa.List(i) & "'" Listdaxoa.RemoveItem i Else i = i + End If Wend Case i = While Listdaxoa.ListCount > i If Listdaxoa.Selected(i) = True Then db.Execute "delete * from tacpham where tentacpham='" & Listdaxoa.List(i) & "'" change = True Listdaxoa.RemoveItem i Else i = i + End If Wend Case Picture2.Enabled = True PicXoa.Visible = False If change Then Call loaddata("") End If End Select End Sub Private Sub Form_Load() pathdata = "c:\vb5\newtd\an pham.mdb" DataTracuu.DatabaseName = pathdata Set db = OpenDatabase(DataTracuu.DatabaseName) login = False Call loaddata("") End Sub Sub adddatra(v As String) For i = To Listdatra.ListCount - If Listdatra.List(i) = v Then Exit Sub 35 Nguyễn Quang Hng văn tốt nghiÖp LuËn End If Next Listdatra.AddItem v End Sub Private Sub Image4_Click(Index As Integer) If Index = Then dkloc = "" If Cmbtacgia.Text "" Then dkloc = dkloc & " tacgia='" & Cmbtacgia.Text & "' " End If If Cmbnamsangtac.Text "" Then If dkloc "" Then dkloc = dkloc & " and " End If dkloc = dkloc & " namxuatban=" & Cmbnamsangtac.Text End If If cmbNXB.Text "" Then If dkloc "" Then dkloc = dkloc & " and " End If dkloc = dkloc & " nhaxuatban='" & cmbNXB.Text & "' " End If Call loaddata(dkloc) End If Pickhoatracuu.Visible = False Picture2.Enabled = True End Sub Private Sub lblkhoatracuu_Click() Pickhoatracuu.Top = 1500 Pickhoatracuu.Left = 2000 Pickhoatracuu.Visible = True Picture2.Enabled = False Set rs = db.OpenRecordset("select distinct tacgia from tacpham") If rs.RecordCount Then Cmbtacgia.Clear rs.MoveFirst Do Until rs.EOF Cmbtacgia.AddItem rs.Fields(0).Value rs.MoveNext Loop End If Set rs = db.OpenRecordset("select distinct nhaxuatban from tacpham") 36 Nguyễn Quang Hng văn tốt nghiệp Luận If rs.RecordCount Then rs.MoveFirst cmbNXB.Clear Do Until rs.EOF cmbNXB.AddItem rs.Fields(0).Value rs.MoveNext Loop End If Set rs = db.OpenRecordset("select distinct namxuatban from tacpham") If rs.RecordCount Then Cmbnamsangtac.Clear rs.MoveFirst Do Until rs.EOF Cmbnamsangtac.AddItem rs.Fields(0).Value rs.MoveNext Loop End If Cmbtacgia.AddItem "" cmbNXB.AddItem "" Cmbnamsangtac.AddItem "" End Sub Private Sub ListNoidung_ItemClick(ByVal item As ComctlLib.ListItem) Dim Filename As String Filename = item.Text Select Case item.Icon Case Case mp.Visible = True mp.Filename = Filename mp.Play Case End Select End Sub Private Sub ListTracuu_DblClick() Call adddatra(ListTracuu.Text) ShowTracuu anpham, tacgia End Sub Private Sub ListTracuu_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) t = InStr(ListTracuu.Text, "-") If t Then tacgia = Right(ListTracuu.Text, Len(ListTracuu.Text)-t - 1) 37 NguyÔn Quang Hng văn tốt nghiệp Luận anpham = Left(ListTracuu.Text, t - 1) DataTracuu.Recordset.FindFirst ("tentacpham='" & anpham & "' and tacgia='" & tacgia & "'") txtTracuu.Text = anpham End If End Sub Private Sub mnuCapnhat_Click() frmTacpham.Show (1) End Sub Private Sub mnuCapnhat_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) mnuCapnhat.BorderStyle = End Sub Private Sub mnuDaxoa_Click() change = False Listdaxoa.Clear Set rs = db.OpenRecordset ("select * from tacpham where tentacpham If rs.RecordCount Then rs.MoveFirst Do Until rs.EOF Listdaxoa.AddItem rs.Fields(0).Value rs.MoveNext Loop End If Picture2.Enabled = False PicXoa.Top = 1500 PicXoa.Left = 2200 PicXoa.Visible = True End Sub like '*_'") Private Sub mnuDaxoa_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) mnuDaxoa.BorderStyle = End Sub Private Sub mnuGTCT_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) mnuGTCT.BorderStyle = End Sub Private Sub mnumatkhau_Click() frmLogin.Show (1) 38 NguyÔn Quang Hng văn tốt nghiệp Luận login = frmLogin.ok End Sub Private Sub mnumatkhau_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) mnumatkhau.BorderStyle = End Sub Private Sub mnuTracuu_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) mnuTracuu.BorderStyle = End Sub Private Sub mp_EndOfStream(ByVal Result As Long) mp.Visible = False End Sub Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) For i = To cmdtracuu(i).BorderStyle = Next mnuTracuu.BorderStyle = mnuCapnhat.BorderStyle = mnumatkhau.BorderStyle = mnuDaxoa.BorderStyle = mnuGTCT.BorderStyle = End Sub Private Sub txtTracuu_Change() For i = To ListTracuu.ListCount - If Left(ListTracuu.List(i), Len(txtTracuu.Text)) = StrConv(txtTracuu.Text, 3) Then ListTracuu.ListIndex = i Exit Sub End If Next End Sub Private Sub txtTracuu_GotFocus() txtTracuu.SelStart = txtTracuu.SelLength = Len(txtTracuu.Text) End Sub Private Sub txtTracuu_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 39 Nguyễn Quang Hng văn tốt nghiệp Luận txtTracuu.Text = Left(ListTracuu.Text, InStr(ListTracuu.Text, "-") - 1) End If End SubVERSION 5.00 VB.Form frmTacpham Dim rs As Recordset Dim db As Database Private Sub CmAudio_Click() If Listnoidung.SelectedItem.Selected = True Then Call Removes(datPrimaryRS.Recordset.Fields("stt").Value, Listnoidung.SelectedItem.Text, Listnoidung.SelectedItem.Index) End If End Sub Private Sub cmdAdd_Click() datPrimaryRS.Recordset.AddNew End Sub Sub ShowTracuu() Dim db As Database Dim rs As Recordset Set db = OpenDatabase(datPrimaryRS.DatabaseName) Set rs = db.OpenRecordset("select * from noidung where matacpham=" & datPrimaryRS.Recordset.Fields("noidung").Value) Dim item As ListItem Listnoidung.ListItems.Clear If rs.RecordCount Then rs.MoveFirst Do Until rs.EOF Set item = Listnoidung.ListItems.Add(, , rs.Fields(2).Value) If rs.Fields(1).Value = "img" Then 'Item.Icon = Else 'Item.Icon = End If rs.MoveNext Loop End If End Sub Private Sub cmdDelete_Click() 40 Nguyễn Quang Hng văn tốt nghiệp Luận With datPrimaryRS.Recordset Delete MoveNext If EOF Then MoveLast End With End Sub Private Sub Cmdseach_Click() Picture1.Visible = True End Sub Private Sub cmdUpdate_Click() datPrimaryRS.UpdateRecord datPrimaryRS.Recordset.Bookmark = datPrimaryRS.Recordset.LastModified End Sub Private Sub cmdClose_Click() Screen.MousePointer = vbDefault Unload Me End Sub Private Sub CmFind_Click(Index As Integer) Select Case Index Case datPrimaryRS.Recordset.FindFirst ("tentacpham like'* " & Txseach.Text & " *'") Case datPrimaryRS.Recordset.FindPrevious ("tentacpham like'* " & Txseach.Text & " *'") Case datPrimaryRS.Recordset.FindNext ("tentacpham like'* " & Txseach.Text & " *'") Case datPrimaryRS.Recordset.FindLast ("tentacpham like'* " & Txseach.Text & " *'") End Select End Sub Private Sub CmNoidung_Click() Picture2.Visible = True End Sub Private Sub Command1_Click() Picture1.Visible = False End Sub 41 Nguyễn Quang Hng văn tốt nghiệp Luận Private Sub Command2_Click(Index As Integer) Picture2.Visible = False If Index = Then If Option1(0).Value = True Then Load frmOpenAVI frmOpenAVI.File.Pattern = "*.wav;*.mp3;*.mid" frmOpenAVI.Show (1) If frmOpenAVI.Filename "" Then Call Add(frmOpenAVI.Filename, datPrimaryRS.Recordset.Fields("stt").Value, "audio") Exit Sub End If End If If Option1(1).Value = True Then frmEditor1.Show (1) If frmEditor1.Filename "" Then Call Add(frmEditor1.Filename, datPrimaryRS.Recordset.Fields("stt").Value, "text") Exit Sub End If End If If Option1(2).Value = True Then frmOpenImage.Show (1) If frmOpenImage.Filename "" Then Call Add(frmOpenImage.Filename, datPrimaryRS.Recordset.Fields("stt").Value, "img") Exit Sub End If End If If Option1(3).Value = True Then Load frmOpenAVI frmOpenAVI.File.Pattern = "*.avi" frmOpenAVI.Show (1) If frmOpenAVI.Filename "" Then Call Add(frmOpenAVI.Filename, datPrimaryRS.Recordset.Fields("stt").Value, "video") Exit Sub End If End If End If End Sub Sub Add(v As String, i As Integer, k As String) Dim db As Database Set db = OpenDatabase(datPrimaryRS.DatabaseName) db.Execute 42 Nguyễn Quang Hng văn tốt nghiệp Luận ("insert into noidung values ("&i& ",'"& k &"','"& v &"')") Dim item As ListItem Set item = Listnoidung.ListItems.Add(, , v) End Sub Sub Removes(i As Integer, v As String, k As Integer) Dim db As Database Set db = OpenDatabase(datPrimaryRS.DatabaseName) db.Execute ("delete * from noidung where matacpham=" & i & " and duongdan ='" & v & "'") Dim item As ListItem Listnoidung.ListItems.Remove (k) End Sub Private Sub Command3_Click() If Listnoidung.SelectedItem.Selected = True Then 'Call Remove(datPrimaryRS.Recordset.Fields("stt").Value, Listnoidung.SelectedItem.Text, Listnoidung.SelectedItem.Index) End If End Sub Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer) MsgBox "Data error event hit err:" & Error$(DataErr) Response = End Sub Private Sub datPrimaryRS_Reposition() Screen.MousePointer = vbDefault On Error Resume Next datPrimaryRS.Caption = "Record: " & (datPrimaryRS.Recordset.AbsolutePosition + 1) Call ShowTracuu End Sub Private Sub datPrimaryRS_Validate(Action As Integer, Save As Integer) Select Case Action Case vbDataActionMoveFirst Case vbDataActionMovePrevious Case vbDataActionMoveNext Case vbDataActionMoveLast Case vbDataActionAddNew Case vbDataActionUpdate Case vbDataActionDelete Case vbDataActionFind 43 Nguyễn Quang Hng văn tốt nghiệp Luận Case vbDataActionBookmark Case vbDataActionClose Screen.MousePointer = vbDefault End Select Screen.MousePointer = vbHourglass End Sub Private Sub Form_Load() Set db = OpenDatabase(datPrimaryRS.DatabaseName) Set rs = db.OpenRecordset ("select distinct tacgia from tacpham") If rs.RecordCount Then Cmbtacgia.Clear rs.MoveFirst Do Until rs.EOF Cmbtacgia.AddItem rs.Fields(0).Value rs.MoveNext Loop End If Set rs = db.OpenRecordset ("select distinct nhaxuatban from tacpham") If rs.RecordCount Then rs.MoveFirst cmbNXB.Clear Do Until rs.EOF cmbNXB.AddItem rs.Fields(0).Value rs.MoveNext Loop End If Set rs = db.OpenRecordset ("select distinct theloai from tacpham") If rs.RecordCount Then rs.MoveFirst Cmbtheloai.Clear Do Until rs.EOF Cmbtheloai.AddItem rs.Fields(0).Value rs.MoveNext Loop End If End Sub Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefault End Sub Attribute VB_Name = "Module1" Public pathdata As String 44 Nguyễn Quang Hng văn tèt nghiÖp LuËn Public Function msg(v As String, style As Integer) As Boolean Load frmMsg If style = Then ' khong co nut bo qua frmMsg.Command2.Visible = False frmMsg.Label1.Caption = v frmMsg.Show (1) msg = True Else frmMsg.Command2.Visible = True frmMsg.Label1.Caption = v frmMsg.Show (1) msg = frmMsg.ok End If End Function VB.Form frmMsg Public ok As Boolean Private Sub Command1_Click() ok = True Unload Me End Sub Private Sub Command2_Click() ok = False Unload Me End Sub VB.Form frmOpenAVI Private Sub CmCancel_Click() Filename = "" Me.Hide End Sub Private Sub CmOk_Click() If Txtfile.Text "" Then Filename = Dir.Path & "\" & File.Filename End If Me.Hide 45 NguyÔn Quang Hng văn tốt nghiệp Luận End Sub Private Sub Dir_Change() File.Path = Dir.Path End Sub Private Sub Drive_Change() Dir.Path = Drive.Drive End Sub Private Sub File_Click() Txtfile.Text = File.Filename End Sub VB.Form frmOpenImage Public Filename As String Private Sub Chkhienthi_Click() If Txtfile.Text "" Then If Chkhienthi.Value Then Set p = LoadPicture(Dir.Path & "\" & File.Filename) If p.Height > p.Width Then PictPreview.Width = PictPreview.Height * p.Width \ p.Height Else PictPreview.Height = PictPreview.Width * p.Height \ p.Width End If PictPreview.Picture = p End If Else PictPreview.Picture = LoadPicture("") End If End Sub Private Sub CmCancel_Click() Filename = "" Me.Hide End Sub Private Sub CmOk_Click() If Txtfile.Text "" Then Filename = Dir.Path & "\" & File.Filename End If Me.Hide End Sub 46 Nguyễn Quang Hng văn tốt nghiệp LuËn Private Sub Dir_Change() File.Path = Dir.Path End Sub Private Sub Drive_Change() Dir.Path = Drive.Drive End Sub Private Sub File_Click() Dim p As Picture Txtfile.Text = File.Filename If Chkhienthi.Value Then Set p = LoadPicture(Dir.Path & "\" & File.Filename) If p.Height > p.Width Then PictPreview.Width = PictPreview.Height * p.Width \ p.Height Else PictPreview.Height = PictPreview.Width * p.Height \ p.Width End If PictPreview.Picture = p End If End Sub Private Sub Form_Load() File.Pattern = "*.bmp;*.jpg;*.gif;*.pcx" End Sub VB.Form frmOpenText Public Filename As String Private Sub CmCancel_Click() Filename = "" Me.Hide End Sub Private Sub CmOk_Click() If Txtfile.Text "" Then If InStr(Txtfile.Text, ".rtf") = Then Filename = Dir.Path & "\" & Txtfile.Text & ".rtf" Else Filename = Dir.Path & "\" & Txtfile.Text End If End If Me.Hide End Sub Private Sub Dir_Change() 47 Nguyễn Quang Hng văn tốt nghiệp LuËn File.Path = Dir.Path End Sub Private Sub Drive_Change() Dir.Path = Drive.Drive End Sub Private Sub File_Click() Txtfile.Text = File.Filename End Sub Private Sub Form_Activate() Txtfile.SetFocus CmOk.Default = True Dir.Path = App.Path End Sub Private Sub Form_Load() File.Pattern = "*.txt;*.rtf" End Sub VB.Form frmEditor1 Public Filename As String Dim SavEdit As Boolean Private Sub CmCancel_Click() Me.Hide End Sub Private Sub CmEdit_Click(Index As Integer) Select Case Index Case frmOpenText.Filename = "" frmOpenText.Dir.Path = App.Path frmOpenText.Caption = "Më tÖp" frmOpenText.Show (1) Filename = frmOpenText.Filename If Filename "" Then Editor.LoadFile (Filename) End If Case If Filename "" Then Editor.SaveFile (Filename) SavEdit = True Else frmOpenText.Filename = "" frmOpenText.Dir.Path = App.Path frmOpenText.Caption = "Lu tr÷" frmOpenText.Show (1) 48 Ngun Quang Hng văn tốt nghiệp Luận Filename = frmOpenText.Filename If Filename = "" Then SavEdit = False Else Editor.SaveFile (Filename) SavEdit = True End If End If Case Case Case Case End Select End Sub Private Sub CmOk_Click() If Not SavEdit Then ask = MsgBox("ban co muon save khong", vbYesNo) If ask = vbYes Then Call CmEdit_Click(1) End If Else Me.Hide End If End Sub Private Sub Editor_Change() SavEdit = False End Sub Private Sub Form_Load() If Filename "" Then Editor.LoadFile (Filename) Else Editor.Text = "" End If End Sub Tài liệu tham khảo Giáo trình Visual Basic Nhà xuất giáo dục Giáo trình công nghệ multimedia trờng đại học dân lập Đông §« 49 ... Để khắc phục nhợc điểm qua phần đánh giá phần trên, chơng trình xây dựng từ điển multimedia đợc xây dựng với yêu cầu nh sau: - Xây dựng phần mềm theo tiêu chuẩn đại đáp ứng nhu cầu tra cøu cđa... từ điển Xây dựng từ điển multimedia đề tài mẻ bắt kịp phát triển công nghệ thông tin đáp ứng đợc nhu cầu ngày cao xà hội Mục tiêu đề tài thiết kế công cụ để xây dựng liệu cho từ điển có chủ đề... thông tin cho từ điển Với khác cách sử dụng loại nguồn tin hình ảnh, âm thanh, tiếng nói ngời không thạo sử dụng lúng túng trình cập nhật thông tin cho từ điển Yêu cầu hệ thống từ điển multimedia