TRƯỜNG ĐẠI HỌC BÁCH KHOA THÀNH PHỐ HỒ CHÍ MINH THIẾT KẾ CHƯƠNG TRÌNH DUYỆT FILE ÂM THANH BẰNG VISUAL KHOA CÔNG NGHỆ THÔNG TIN 2008 Thiết kế chương trình duyệt file âm Visual Basic (Sử dụng MediaPlayer 6.x Windows) MediaPlayer Windows từ version 6.x trở player nhiều dạng thức tập tin Multimedia khác như: avi, asf, asx, rmi, wav ; ra, ram, rm, rmm ; mpg, mpeg, m1v, mp2, mpa, mpe ; mid, rmi ; qt, aif, aifc, aiff, mov ; au, snd Ch ất lượng cải thiện rõ rệt so với phiên trước Nếu bạn sử dụng Windows 98 MediaPlayer sẵn sàng, dùng Windows 95, 97 bạn buộc phải cài đặt bổ sung để lên đời MediaPlayer Bạn tìm nâng cấp CDROM phần mềm hay nằm chung Internet Explorer 4.01 SP2 Các file multimedia tràn ngập Internet, CDROM, nhiều Đặc biệt MP3 & Midi, loại file thịnh hành ưa chuộng Cái nhiều gây nên ý tưởng (nói dúng sinh tật) Mặc dù cần double click lên file Mp3 hay Midi m ột trình quản lý file Play cách dễ dàng nhờ MediaPlayer Windows riêng khối Chính viết tơi xin mạn phép hướng dẫn bạn tự thiết kế MediaPlayer tiện dụng để dành làm riêng Tuy nhiên nói riêng khơng phải tự làm hết mà phải dùng MediaPlayer chương trình Khái quát chương trình Chúng ta thiết kế chưong trình có giao diện sau: Đầu tiên người dùngười chọn ổ đĩa, thư mục có chứa file Multimedia (thí dụ file Midi) Kế đến nhấn nút Play double click tên file cần phát để nghe nhạc Ngồi cịn có nút Help, Author, Exit Phía MediaPlayer nhúng vào chương tr ình, điều chỉnh chức chương trình riêng biệt (bạn right click để mở menu tắt quen thuộc dùng MediaPlayer), cuối cửa sổ có dịng thơng báo tên file & đường dẫn Play Các xác lập hộp thoại Options MediaPlayer Phía hộp chọn thư mục có Text box dùng để lọc file Các loại file ngăn cách dấu chấm phảy ";" Thí du bạn muốn lọc file MP3 & MIDI gõ vào: *.mp3;*.mid Cũng lưu ý thêm là: hộp liệt kê tên file khơng có file nào, nút Play bị vơ hiệu hố (Enabled=False) Chỉ có file nút Play có tác dụng Thiết kế giao diện Bạn khởi động Visual Basic bắt tay vào việc tạo dáng cho ứng dụng Cách bố trí Control form tùy theo ý người, riêng tơi, tơi trình bày sau: Các thuộc tính & Caption Control chương trình: FORM Form1.caption = "MediaPlayer - Browser" Form1.BorderStyle = 1-Fixed Single Form1.Minbutton=True TEXTBOX/LABELBOX Text1.text="*.mid;*.mp3" Label1.caption="" COMMAND BUTTON cmdPlay.caption="&Play" cmdPlay.enabled=False cmdHelp.caption="&Help" cmdAuthor.caption="&Author" cmdExit.caption="&Exit" Trên Toolbox Visual Basic khơng có đối tượng MediaPlayer Bạn phải dùng Custom Control để thêm đối tượng vào Nhấn CTRL - T Trong hộp thoại Components chọn Windows MediaPlayer (thường cuối danh sách), Click nút OK Đối tượng MediaPlayer thêm vào Toolbox, việc cịn lại, cần vẽ lên form, đặt vị trí thích hợp (nó có tên MediaPlayer1) Viết Code Đầu tiên bạn cần cho control: Drive1, Dir1, File1 hoạt động Hãy gõ đoạn Code sau chúng "hiểu nhau" Private Sub Dir1_Change() File1.Path = Dir1.Path If File1.ListCount 'Kiểm tra xem có file listbox File1 chưa cmdPlay.Enabled 'Nếu chưa có vô hiệu nút Play = Then = False = True Else cmdPlay.Enabled 'Nếu có cho hiệu lực nút Play End If End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Double click lên nút Play viết Private Sub Command1_Click() MediaPlayer1.filename & File1.List(File1.ListIndex) = Dir1.Path & "\" _ Label1.Caption = MediaPlayer1.filename End Sub Nếu thuộc tính AutoStart MediaPlayer gán True MediaPlayer tự động Play bạn truyền cho thuộc tính FileName chuỗi đường dẫn đến file cần Play Khi thuộc tính FileName rỗng, ngừng đoạn Code tơi ghép nối thuộc tính Drive1, Dir1 & File1 để file cần Play Đoạn code gặp lỗi file cần Play nằm thư mục gốc, bạn tự hoàn chỉnh lấy hàm IIF() hay câu lệnh IF Dòng thứ dùng để hiển thị đường dẫn file Play Labelbox cuối form Nếu muốn người dùng Double Click lên tên file danh sách file MediaPlayer Play file đó, bạn cần làm sau: Private Sub File1_DblClick() cmdPlay_Click End Sub Để khả lọc (Pattern) File1 hoạt động theo nội dung Textbox (Text1) Bạn cần gán chuỗi Textbox người dùng gõ vào có thay đổi (thuộc tính Change Textbox) Private Sub Text1_Change() File1.Pattern = Trim(Text1) End Sub Đồng thời lúc chương trình khởi động bạn phải gán nội dung Textbox cho thuộc tính Pattern File1 Private Sub Form_Load() Text1_Change End Sub MediaPlayer cịn có thuộc tính tên PlayCount - Số lần phát lại file nhạc, bạn gán cho số thích hợp thiết kế chương trình Khả MediaPlayer cịn tùy thuộc vào MediaPlayer sử dụng Windows bạn Vậy xong, chương trình duỵệt file âm thanh, thật đơn giản phải không bạn :-) Thay lời kết Bây bạn dịch file exe, đem tặng cho bạn bè "làm kỷ niệm" Nhớ chép thêm file cần thiết cho chương trình MSDXM.OCX file chứa Custom Control MediaPlayer sử dụng chương trình Hãy nén lại cho chúng thật mi nhon trước chép đĩa mềm hay gởi kèm theo E-mail Trên chương trình đơn giản, tính có đáng khâm phục phải khơng bạn Cịn lại vài chi tiết khác bạn tự làm lấy theo ý thích Bạn thêm vài tính cho chương trình trở nên đa dụng, thí dụ như: Play file Video, tự động Play loạt file Chúc bạn thành công Viết INDEXER ứng dụng [ Thiết kế giao diện ] [ Viết Code ] Viết chương trình tạo trang Web chứa Link đến tập tin thư mục người dùng định Chương trình có chức hoạt động tổng quát sau: Chọn thư mục Lọc file Cho người dùng chọn file Đặt tên tiêu đề cho trang Web Đặt dòng văn đầu danh sách Đặt dòng văn cuối danh sách Sau tạo xong cho phép xem IE hay Notepad Chọn canh lề: Trái, phải , Khi bạn nhấn nút "Tạo" Form (Form1) chương trình tạo trang Web chứa link đến file thư mục, trang Web lưu vào thư mục mà bạn định Mỗi lần người dùng định thư mục, chương trình tự động điền đường dẫn tên file (mặc nhiên List_index.htm) vào hộp chọn file name (Text1) Để dễ dàng việc chọn lựa ta dùng thêm ListBox (List1) cho FileListBox (File1) Bạn nên cho ListBox nằm đè lên đối tượng File1 (hoặc cho File1.Visible=False) ta cần File1 để lấy tên tập tin Add vào List1 không dùng đến Một ComboBox (Combo1) để lọc file theo loại file tất (do người dùng tự chọn hay gõ vào) Đồng thời cung cấp thêm nút lệnh: "Chọn" chọn tất tập tin Listbox, "Không" bỏ chọn tất tập tin Listbox (bạn chọn cách Check vào tên file tương ứng), "Tạo" nhấn nút để bắt đầu tạo trang Web, "Thông số" nhấn nút để xác lập thêm tùy chọn cho trang Web, "Thoát" Thoát khỏi chương trình Viết Code cho menu Ta cần viết code cho menu, sau dùng nút lệnh để gọi menu tương ứng Bây viết code cho mục Windows E xplorer menu Windows Vào Windows chọn Windows Explorer để viết code cho mục chọn menu Bạn gõ vào đoạn sau: Private Sub mnuWE_Click() ' dòng có sẵn Dim P P = Shell("explorer", vbNormalFocus) End Sub ' dịng có sẵn Giải thích: * Dim P Khai báo biến kiểu variant để chứa trị trả hàm Shell Đây kiểu liệu bao trùm tất kiểu liệu Visual Basic * P=Shell("explorer",vbNormalFocus) Hàm Shell dùng để gọi chương trình khác thi hành Cú pháp Shell(pathname[,windowstyle]) pathname: đường dẫn file thực thi chương trình cần gọi Đây xâu viết bạn phải đặt chúng cặp dấu " " windowstyle: số qui định phong cách khởi động chương trình cần chạy Thí dụ: sau gọi chương trình bạn cần Maximize, Minimize c hương trình có giá trị ý nghĩa sau: ... MediaPlayer chương trình Khái quát chương trình Chúng ta thiết kế chưong trình có giao diện sau: Đầu tiên người dùngười chọn ổ đĩa, thư mục có chứa file Multimedia (thí dụ file Midi) Kế đến nhấn... thích hợp thiết kế chương trình Khả MediaPlayer cịn tùy thuộc vào MediaPlayer sử dụng Windows bạn Vậy xong, chương trình duỵệt file âm thanh, thật đơn giản phải không bạn :-) Thay lời kết Bây bạn.. .Thiết kế chương trình duyệt file âm Visual Basic (Sử dụng MediaPlayer 6.x Windows) MediaPlayer Windows từ version 6.x