VietBF - View Single Post - Lỗi chức năng Repeat của chương tr�nh nghe nhạc

Romano · 09-06-2011

Một bạn đọc đ� x�y dựng chương tr�nh nghe nhạc bằng Visual Basic 6.0. Chương tr�nh chạy được nhưng chức năng Repeat bị lỗi, kh�ng thể ph�t lặp lại được.

Cụ thể bạn đọc đ� x�y dựng chương tr�nh v� c�c đoạn m� theo quy tr�nh như sau: Tạo Project mới loại "Standard EXE". Chọn menu Project.Components để hiển thị cửa sổ Components. Duyệt t�m v� đ�nh dấu chọn v�o 2 mục "Windows Media Player" v� "Microsoft Common Dialog Controls 6.0" để "add" 2 điều khiển phục vụ chơi multimedia v� duyệt hệ thống file v�o Project. Chọn menu Tools.Menu Editor để chạy tiện �ch thiết kế menu bar rồi thiết kế menubar cho Form ứng dụng gồm 1 menu pop-up c� caption l� File, trong menu pop-up n�y chứa 4 option lần lượt l� mnuOpen, mnuPlay, mnuRepeat, mnuExit. Thiết kế Form ứng dụng gồm c� 1 listbox c� t�n mặc định l� List1, 1 Timer c� t�n mặc định l� Timer1, 1 CommonDialog c� t�n mặc định l� CommonDialog1, 1 WMP c� t�n l� Media (vị tr� của Timer v� CommonDialog kh�ng quan trọng v� 2 đối tượng n�y sẽ bị ẩn khi ứng dụng chạy). Dời chuột về từng option menu v� chọn n� để tạo thủ tục xử l� sự kiện click chuột của option tương ứng rồi viết code hiện thực. Chi tiết vấn đề n�y, mời qu� bạn đọc tham khảo tại http://forum.pcworld.com.vn/default.aspx?g=posts&t=7358
Ch�ng t�i đ� kiểm tra chương tr�nh của bạn v� t�m ra một số lỗi cũng như một số chi tiết chưa đ�ng như sau:
1. Bạn c� d�ng timer với thời gian đếm n�o đ� (ch�ng t�i thiết lập 1 gi�y), khi timer đếm xong thời gian qui định th� thủ tục Timer1_Timer() sẽ được k�ch hoạt, thủ tục n�y kiểm tra xem hết b�i h�t chưa, nếu hết th� chuyển sang b�i kế tiếp trong danh s�ch. Đ�y l� nguy�n nh�n l�m chức năng Repeat hoạt động kh�ng ch�nh x�c. L� do l� bạn mi�u tả điều kiện hết b�i h�t l� khi c�n �t hơn hay bằng 1 gi�y, điều kiện n�y kh�ng ch�nh x�c. Hơn nữa chế độ Repeat cũng như playlist m� bạn thiết lập cho WMP kh�ng c�n t�c dụng nữa (do bạn thiết lập lại từng b�i h�t trong thủ tục Timer1_Timer).
C�ch giải quyết l� x�a bỏ Timer v� thủ tục Timer1_Timer(), để WMP tự hoạt động theo chế độ Repeat m� bạn thiết lập trong thủ tục mnuRepeat_Click().
2. Trong thủ tục mnuPlay_Click(), bạn chuyển danh s�ch b�i h�t từ ListBox sang WMP m� kh�ng x�a nội dung playlist c� sẵn trong WMP, như vậy nếu người d�ng chọn nhiều lần option Play th� mỗi b�i h�t trong listbox sẽ được th�m v�o playlist của WMP nhiều lần, điều n�y l� kh�ng cần thiết v� dễ l�m mất sự kiểm so�t của chương tr�nh.
C�ch khắc phục l� th�m lệnh x�a nội dung playlist hiện c� trong WMP trước khi chuyển danh s�ch b�i h�t từ Listbox sang WMP. Cụ thể thủ tục mnuPlay_Click được hiệu chỉnh lại như sau:
'thủ tục xử l� option Play
Private Sub mnuPlay_Click()
'định nghĩa c�c biến cần d�ng trong thủ tục
Dim i As Integer
Dim MyPlaylist As IWMPPlaylist
Dim MyMedia As IWMPMedia
Set MyPlaylist = Me.Media.currentPlay list
'x�a nội dung hiện c� của Playlist
MyPlaylist.Clear
'chuyển c�c file từ Listbox v�o Playlist
For i = 0 To List1.ListCount - 1
Set MyMedia = Me.Media.newMedia(Li st1.List(i))
MyPlaylist.appendIte m MyMedia
Next
Media.currentPlaylis t = MyPlaylist
't� chọn b�i đầu ti�n trong ListBox
List1.ListIndex = 0
End Sub
3. Tương tự, trong thủ tục mnuOpen_Click(), bạn chuyển danh s�ch c�c file từ cửa sổ CommonDialog sang Listbox m� kh�ng x�a nội dung c� sẵn trong Listbox, như vậy nếu người d�ng chọn nhiều lần option Open th� listbox sẽ t�ch lũy dần rất nhiều file b�i h�t, c�c file n�y c� thể tr�ng nhau, điều n�y l� kh�ng cần thiết v� dễ l�m mất sự kiểm so�t của chương tr�nh.
C�ch khắc phục l� th�m lệnh x�a nội dung Listbox trước khi chuyển danh s�ch file b�i h�t từ CommonDialog sang Listbox. Cụ thể bạn n�n th�m lệnh sau v�o đầu thủ tục mnuOpen_Click():
'x�a nội dung hiện c� của Listbox
List1.Clear
4. Việc t� đậm t�n file b�i h�t trong Listbox đồng bộ với b�i h�t m� WMP đang chơi sẽ được thực hiện trong thủ tục xử l� sự kiện MediaChange của WMP. Cụ thể bạn h�y viết th�m thủ tục xử l� sự kiện MediaChange như sau:
'thủ tục xử l� sự kiện chuyển b�i h�t
Private Sub Media_MediaChange(By Val Item As Object)
'định nghĩa c�c biến cần d�ng trong thủ tục
Dim MyMedia As IWMPMedia
Dim i As Integer, pos As Integer
Dim sbuf As String
Dim lbuf() As String
Set MyMedia = Item
'duyệt t�m file đang h�t
For i = 0 To List1.ListCount - 1
'đổi pathname th�nh nhiều th�nh phần
lbuf = Split(List1.List(i), "\")
'x�c định t�n file b�i h�t
sbuf = lbuf(UBound(lbuf))
'x�c định t�n b�i h�t (bỏ phần mở rộng)
pos = InStr(1, sbuf, ".")
If pos <> 0 Then
sbuf = Mid(sbuf, 1, pos - 1)
End If
If MyMedia.Name = sbuf Then
'nếu b�i đang h�t l� b�i i trong Listbox th� t� đậm n�
List1.ListIndex = i
Exit For
End If
Next
End Sub
Nếu bạn hiệu chỉnh lại c�c chi tiết n�u tr�n th� ứng dụng sẽ chạy tốt, n� sẽ chơi lặp lại hay kh�ng t�y thuộc v�o option Repeat c� được chọn hay kh�ng. Mỗi lần h�t b�i mới. Listbox sẽ t� đậm t�n file b�i h�t ấy cho người d�ng tiện theo d�i.

09-06-2011	#1
Romano R11 Tuyệt Thế Thi�n Hạ Join Date: May 2007 Posts: 134,625 Thanks: 9 Thanked 6,509 Times in 5,458 Posts Mentioned: 3 Post(s) Tagged: 0 Thread(s) Quoted: 38 Post(s) Rep Power: 170	Lỗi chức năng Repeat của chương tr�nh nghe nhạc Một bạn đọc đ� x�y dựng chương tr�nh nghe nhạc bằng Visual Basic 6.0. Chương tr�nh chạy được nhưng chức năng Repeat bị lỗi, kh�ng thể ph�t lặp lại được. Cụ thể bạn đọc đ� x�y dựng chương tr�nh v� c�c đoạn m� theo quy tr�nh như sau: Tạo Project mới loại "Standard EXE". Chọn menu Project.Components để hiển thị cửa sổ Components. Duyệt t�m v� đ�nh dấu chọn v�o 2 mục "Windows Media Player" v� "Microsoft Common Dialog Controls 6.0" để "add" 2 điều khiển phục vụ chơi multimedia v� duyệt hệ thống file v�o Project. Chọn menu Tools.Menu Editor để chạy tiện �ch thiết kế menu bar rồi thiết kế menubar cho Form ứng dụng gồm 1 menu pop-up c� caption l� File, trong menu pop-up n�y chứa 4 option lần lượt l� mnuOpen, mnuPlay, mnuRepeat, mnuExit. Thiết kế Form ứng dụng gồm c� 1 listbox c� t�n mặc định l� List1, 1 Timer c� t�n mặc định l� Timer1, 1 CommonDialog c� t�n mặc định l� CommonDialog1, 1 WMP c� t�n l� Media (vị tr� của Timer v� CommonDialog kh�ng quan trọng v� 2 đối tượng n�y sẽ bị ẩn khi ứng dụng chạy). Dời chuột về từng option menu v� chọn n� để tạo thủ tục xử l� sự kiện click chuột của option tương ứng rồi viết code hiện thực. Chi tiết vấn đề n�y, mời qu� bạn đọc tham khảo tại http://forum.pcworld.com.vn/default.aspx?g=posts&t=7358 Ch�ng t�i đ� kiểm tra chương tr�nh của bạn v� t�m ra một số lỗi cũng như một số chi tiết chưa đ�ng như sau: 1. Bạn c� d�ng timer với thời gian đếm n�o đ� (ch�ng t�i thiết lập 1 gi�y), khi timer đếm xong thời gian qui định th� thủ tục Timer1_Timer() sẽ được k�ch hoạt, thủ tục n�y kiểm tra xem hết b�i h�t chưa, nếu hết th� chuyển sang b�i kế tiếp trong danh s�ch. Đ�y l� nguy�n nh�n l�m chức năng Repeat hoạt động kh�ng ch�nh x�c. L� do l� bạn mi�u tả điều kiện hết b�i h�t l� khi c�n �t hơn hay bằng 1 gi�y, điều kiện n�y kh�ng ch�nh x�c. Hơn nữa chế độ Repeat cũng như playlist m� bạn thiết lập cho WMP kh�ng c�n t�c dụng nữa (do bạn thiết lập lại từng b�i h�t trong thủ tục Timer1_Timer). C�ch giải quyết l� x�a bỏ Timer v� thủ tục Timer1_Timer(), để WMP tự hoạt động theo chế độ Repeat m� bạn thiết lập trong thủ tục mnuRepeat_Click(). 2. Trong thủ tục mnuPlay_Click(), bạn chuyển danh s�ch b�i h�t từ ListBox sang WMP m� kh�ng x�a nội dung playlist c� sẵn trong WMP, như vậy nếu người d�ng chọn nhiều lần option Play th� mỗi b�i h�t trong listbox sẽ được th�m v�o playlist của WMP nhiều lần, điều n�y l� kh�ng cần thiết v� dễ l�m mất sự kiểm so�t của chương tr�nh. C�ch khắc phục l� th�m lệnh x�a nội dung playlist hiện c� trong WMP trước khi chuyển danh s�ch b�i h�t từ Listbox sang WMP. Cụ thể thủ tục mnuPlay_Click được hiệu chỉnh lại như sau: 'thủ tục xử l� option Play Private Sub mnuPlay_Click() 'định nghĩa c�c biến cần d�ng trong thủ tục Dim i As Integer Dim MyPlaylist As IWMPPlaylist Dim MyMedia As IWMPMedia Set MyPlaylist = Me.Media.currentPlay list 'x�a nội dung hiện c� của Playlist MyPlaylist.Clear 'chuyển c�c file từ Listbox v�o Playlist For i = 0 To List1.ListCount - 1 Set MyMedia = Me.Media.newMedia(Li st1.List(i)) MyPlaylist.appendIte m MyMedia Next Media.currentPlaylis t = MyPlaylist 't� chọn b�i đầu ti�n trong ListBox List1.ListIndex = 0 End Sub 3. Tương tự, trong thủ tục mnuOpen_Click(), bạn chuyển danh s�ch c�c file từ cửa sổ CommonDialog sang Listbox m� kh�ng x�a nội dung c� sẵn trong Listbox, như vậy nếu người d�ng chọn nhiều lần option Open th� listbox sẽ t�ch lũy dần rất nhiều file b�i h�t, c�c file n�y c� thể tr�ng nhau, điều n�y l� kh�ng cần thiết v� dễ l�m mất sự kiểm so�t của chương tr�nh. C�ch khắc phục l� th�m lệnh x�a nội dung Listbox trước khi chuyển danh s�ch file b�i h�t từ CommonDialog sang Listbox. Cụ thể bạn n�n th�m lệnh sau v�o đầu thủ tục mnuOpen_Click(): 'x�a nội dung hiện c� của Listbox List1.Clear 4. Việc t� đậm t�n file b�i h�t trong Listbox đồng bộ với b�i h�t m� WMP đang chơi sẽ được thực hiện trong thủ tục xử l� sự kiện MediaChange của WMP. Cụ thể bạn h�y viết th�m thủ tục xử l� sự kiện MediaChange như sau: 'thủ tục xử l� sự kiện chuyển b�i h�t Private Sub Media_MediaChange(By Val Item As Object) 'định nghĩa c�c biến cần d�ng trong thủ tục Dim MyMedia As IWMPMedia Dim i As Integer, pos As Integer Dim sbuf As String Dim lbuf() As String Set MyMedia = Item 'duyệt t�m file đang h�t For i = 0 To List1.ListCount - 1 'đổi pathname th�nh nhiều th�nh phần lbuf = Split(List1.List(i), "\") 'x�c định t�n file b�i h�t sbuf = lbuf(UBound(lbuf)) 'x�c định t�n b�i h�t (bỏ phần mở rộng) pos = InStr(1, sbuf, ".") If pos <> 0 Then sbuf = Mid(sbuf, 1, pos - 1) End If If MyMedia.Name = sbuf Then 'nếu b�i đang h�t l� b�i i trong Listbox th� t� đậm n� List1.ListIndex = i Exit For End If Next End Sub Nếu bạn hiệu chỉnh lại c�c chi tiết n�u tr�n th� ứng dụng sẽ chạy tốt, n� sẽ chơi lặp lại hay kh�ng t�y thuộc v�o option Repeat c� được chọn hay kh�ng. Mỗi lần h�t b�i mới. Listbox sẽ t� đậm t�n file b�i h�t ấy cho người d�ng tiện theo d�i.