Phần mềm tìm file nhạc trùng lặp
2 posters
Trang 1 trong tổng số 1 trang
Phần mềm tìm file nhạc trùng lặp
Máy em có khá nhiều nhạc MP3 và cũng khá nhiều file nhạc trùng tên nhau nên em muốn viết một phần mềm để tìm các file nhạc trùng lặp rồi lựa ra file chất lượng tốt nhất để giữ lại. còn lại xóa hết.
Trên mạng cũng đã có nhiều phần mềm kiểu này, tuy nhiên em vẫn muốn tự viết một phần mềm mang phong cách HUSITC, phong cách Việt, ủng hộ phong trào người Việt dùng hàng Việt
Trên mạng cũng đã có nhiều phần mềm kiểu này, tuy nhiên em vẫn muốn tự viết một phần mềm mang phong cách HUSITC, phong cách Việt, ủng hộ phong trào người Việt dùng hàng Việt
mario- Mới đăng ký
- Tổng số bài gửi : 2
Join date : 11/05/2010
Re: Phần mềm tìm file nhạc trùng lặp
Một ý tưởng cực kỳ hay , mình sẽ hướng dẫn chi tiết Project này (cho cả những người mới bắt đầu).
Trước tiên chúng ta sẽ thiết kế một chương trình tìm kiếm file trên máy tính.
Bạn tạo một Project mới, thêm một TextBox đặt tên là txt_ThuMuc:
Đặt một Label trược Textbox đó, đặt Text của Label là "Thư mục:"
Thêm một Button và đặt tên là Button_ThuMuc:
Đặt thuộc tính Text của Button_ThuMuc là "Mở..."
Thêm một TextBox đặt tên là txt_TuKhoa, một Label trước nó có Text là "Từ khóa:"
Thêm một Button, đặt tên là Button_Tim và Text là "Tìm kiếm"
Thêm một ListBox, đặt tên là List_KetQua:
Đến đây chúng ta đã thiết kế xong phần giao diện.
Ý nghĩa các Control như sau:
+ txt_ThuMuc là nơi lưu đường dẫn đến thư mục mà phần mềm sẽ tìm kiếm trong đó
+ Button_ThuMuc là nút để khi ta Click vào sẽ hiện lên cửa sổ chọn thư mục:
+ txt_TuKhoa là nơi ta nhập từ khóa tìm kiếm
+ Button_Tim là nút mà ta nhấn vào để bắt đầu tìm kiếm
+ List_KetQua là nơi hiển thị kết quả tìm kiếm
Phân tích các sự kiện
1. Nút "Mở..." thư mục: Tên của nút này là Button_ThuMuc. Khi người dùng click chuột vào nút này, sẽ có một cửa sổ hiện lên để bạn chọn thư mục như hình sau:
Để thực hiện việc này, bạn thêm control FolderBrowseDialog, Control này không xuất hiện trên Form1, nó nằm ở khu vực khoanh tròn đỏ ở hình dưới. Dừng quan tâm đến vị trí của nó. Đặt tên nó là HopThoai_MoThuMuc:
DoubleClick vào nút "Mở..." để bắt đầu viết code như sau:
Public Class Form1
Private Sub Button_ThuMuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ThuMuc.Click
HopThoai_MoThuMuc.ShowDialog()
End Sub
End Class
Đoạn Code trên nhằm gọi cửa sổ "Browse For Folder".
sau khi chon thư mục, nhấn OK ở cửa sổ "Browse For Folder" thì đường dẫn đầy đủ của thư mục sẽ hiện lên ở TextBox txt_ThuMuc, thêm dòng code txt_ThuMuc.Text = HopThoai_MoThuMuc.SelectedPath vào sự kiện Button_ThuMuc_Click, được:
Public Class Form1
Private Sub Button_ThuMuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ThuMuc.Click
HopThoai_MoThuMuc.ShowDialog()
txt_ThuMuc.Text = HopThoai_MoThuMuc.SelectedPath
End Sub
End Class
Đến đây chúng ta đã viết xong code dành cho sự kiện click vào nút "Mở..." để chọn thư mục và gán đường dẫn của thư mục đó vào ô txt_ThuMuc.
2.Nút tìm kiếm Khi click vào nút "Tìm kiếm ( có tên là Button_Tim), chương trình sẽ lấy từ khóa tìm kiếm ở ô txt_TuKhoa. Sau đó tiến hành tìm kiếm với từ khóa đó, tìm trong thư mục được chọn trên ô txt_ThuMuc. Kết quả tìm kiếm hiển thị ở List_KetQua. Code đầy đủ như sau:
Public Class Form1
Private Sub Button_ThuMuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ThuMuc.Click
HopThoai_MoThuMuc.ShowDialog()
txt_ThuMuc.Text = HopThoai_MoThuMuc.SelectedPath
End Sub
Private Sub Button_Tim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tim.Click
Dim KQ() As String = Nothing ' Khai báo mảng string KQ để lưu các kết quả tìm kiếm được
Dim ThuMuc As String, TuKhoa As String
ThuMuc = txt_ThuMuc.Text ' Lấy đường dẫn của thư mục đã chọn gán vào biến ThuMuc
TuKhoa = txt_TuKhoa.Text ' Lấy từ khóa gán vào biến TuKhoa
'___ Tìm kiếm các file thỏa mãn từ khóa TuKhoa và trong thư mục ThuMuc ____
KQ = System.IO.Directory.GetFiles(ThuMuc, TuKhoa, IO.SearchOption.AllDirectories)
'Kết quả là một mảng các đường dẫn đến file tìm được
List_KetQua.Items.Clear() ' Xóa hết kết quả lần tìm kiếm trước
If KQ Is Nothing Then ' Nếu không tìm được kết quả nào thì
' Thêm vào List_KetQua dòng thông báo
List_KetQua.Items.Add("Không tìm được file nào.")
Else ' ngoài ra (tương đương với có kết quả)
'Biểu diễn kết quả lên List_KetQua
List_KetQua.Items.AddRange(KQ)
End If
End Sub
End Class
Đến đây chúng ta đã hoàn thành một phần mềm tìm kiếm file đơn giản:
Code phía trên hơi dài vì có các dòng chú thích (màu xanh lá cây), code ngắn gọn như sau:
Public Class Form1
Private Sub Button_ThuMuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ThuMuc.Click
HopThoai_MoThuMuc.ShowDialog()
txt_ThuMuc.Text = HopThoai_MoThuMuc.SelectedPath
End Sub
Private Sub Button_Tim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tim.Click
Dim KQ() As String = Nothing
KQ = System.IO.Directory.GetFiles(txt_ThuMuc.Text, txt_TuKhoa.Text, IO.SearchOption.AllDirectories)
List_KetQua.Items.Clear()
If KQ Is Nothing Then
List_KetQua.Items.Add("Không tìm được file nào.")
Else
List_KetQua.Items.AddRange(KQ)
End If
End Sub
End Class
(.....còn nữa....)
Trước tiên chúng ta sẽ thiết kế một chương trình tìm kiếm file trên máy tính.
Bạn tạo một Project mới, thêm một TextBox đặt tên là txt_ThuMuc:
Đặt một Label trược Textbox đó, đặt Text của Label là "Thư mục:"
Thêm một Button và đặt tên là Button_ThuMuc:
Đặt thuộc tính Text của Button_ThuMuc là "Mở..."
Thêm một TextBox đặt tên là txt_TuKhoa, một Label trước nó có Text là "Từ khóa:"
Thêm một Button, đặt tên là Button_Tim và Text là "Tìm kiếm"
Thêm một ListBox, đặt tên là List_KetQua:
Đến đây chúng ta đã thiết kế xong phần giao diện.
Ý nghĩa các Control như sau:
+ txt_ThuMuc là nơi lưu đường dẫn đến thư mục mà phần mềm sẽ tìm kiếm trong đó
+ Button_ThuMuc là nút để khi ta Click vào sẽ hiện lên cửa sổ chọn thư mục:
+ txt_TuKhoa là nơi ta nhập từ khóa tìm kiếm
+ Button_Tim là nút mà ta nhấn vào để bắt đầu tìm kiếm
+ List_KetQua là nơi hiển thị kết quả tìm kiếm
Phân tích các sự kiện
1. Nút "Mở..." thư mục: Tên của nút này là Button_ThuMuc. Khi người dùng click chuột vào nút này, sẽ có một cửa sổ hiện lên để bạn chọn thư mục như hình sau:
Để thực hiện việc này, bạn thêm control FolderBrowseDialog, Control này không xuất hiện trên Form1, nó nằm ở khu vực khoanh tròn đỏ ở hình dưới. Dừng quan tâm đến vị trí của nó. Đặt tên nó là HopThoai_MoThuMuc:
DoubleClick vào nút "Mở..." để bắt đầu viết code như sau:
Public Class Form1
Private Sub Button_ThuMuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ThuMuc.Click
HopThoai_MoThuMuc.ShowDialog()
End Sub
End Class
Đoạn Code trên nhằm gọi cửa sổ "Browse For Folder".
sau khi chon thư mục, nhấn OK ở cửa sổ "Browse For Folder" thì đường dẫn đầy đủ của thư mục sẽ hiện lên ở TextBox txt_ThuMuc, thêm dòng code txt_ThuMuc.Text = HopThoai_MoThuMuc.SelectedPath vào sự kiện Button_ThuMuc_Click, được:
Public Class Form1
Private Sub Button_ThuMuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ThuMuc.Click
HopThoai_MoThuMuc.ShowDialog()
txt_ThuMuc.Text = HopThoai_MoThuMuc.SelectedPath
End Sub
End Class
Đến đây chúng ta đã viết xong code dành cho sự kiện click vào nút "Mở..." để chọn thư mục và gán đường dẫn của thư mục đó vào ô txt_ThuMuc.
2.Nút tìm kiếm Khi click vào nút "Tìm kiếm ( có tên là Button_Tim), chương trình sẽ lấy từ khóa tìm kiếm ở ô txt_TuKhoa. Sau đó tiến hành tìm kiếm với từ khóa đó, tìm trong thư mục được chọn trên ô txt_ThuMuc. Kết quả tìm kiếm hiển thị ở List_KetQua. Code đầy đủ như sau:
Public Class Form1
Private Sub Button_ThuMuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ThuMuc.Click
HopThoai_MoThuMuc.ShowDialog()
txt_ThuMuc.Text = HopThoai_MoThuMuc.SelectedPath
End Sub
Private Sub Button_Tim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tim.Click
Dim KQ() As String = Nothing ' Khai báo mảng string KQ để lưu các kết quả tìm kiếm được
Dim ThuMuc As String, TuKhoa As String
ThuMuc = txt_ThuMuc.Text ' Lấy đường dẫn của thư mục đã chọn gán vào biến ThuMuc
TuKhoa = txt_TuKhoa.Text ' Lấy từ khóa gán vào biến TuKhoa
'___ Tìm kiếm các file thỏa mãn từ khóa TuKhoa và trong thư mục ThuMuc ____
KQ = System.IO.Directory.GetFiles(ThuMuc, TuKhoa, IO.SearchOption.AllDirectories)
'Kết quả là một mảng các đường dẫn đến file tìm được
List_KetQua.Items.Clear() ' Xóa hết kết quả lần tìm kiếm trước
If KQ Is Nothing Then ' Nếu không tìm được kết quả nào thì
' Thêm vào List_KetQua dòng thông báo
List_KetQua.Items.Add("Không tìm được file nào.")
Else ' ngoài ra (tương đương với có kết quả)
'Biểu diễn kết quả lên List_KetQua
List_KetQua.Items.AddRange(KQ)
End If
End Sub
End Class
Đến đây chúng ta đã hoàn thành một phần mềm tìm kiếm file đơn giản:
Code phía trên hơi dài vì có các dòng chú thích (màu xanh lá cây), code ngắn gọn như sau:
Public Class Form1
Private Sub Button_ThuMuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ThuMuc.Click
HopThoai_MoThuMuc.ShowDialog()
txt_ThuMuc.Text = HopThoai_MoThuMuc.SelectedPath
End Sub
Private Sub Button_Tim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Tim.Click
Dim KQ() As String = Nothing
KQ = System.IO.Directory.GetFiles(txt_ThuMuc.Text, txt_TuKhoa.Text, IO.SearchOption.AllDirectories)
List_KetQua.Items.Clear()
If KQ Is Nothing Then
List_KetQua.Items.Add("Không tìm được file nào.")
Else
List_KetQua.Items.AddRange(KQ)
End If
End Sub
End Class
(.....còn nữa....)
thuanfun- Admin
- Tổng số bài gửi : 31
Join date : 20/04/2010
Age : 38
Similar topics
» Khai giảng lớp đàm thoại sơ trung cấp tại Top Globis
» Dùng VB có thể tính tích phân ko ?
» Địa chỉ Download hoặc Copy file cài đặt Visual Studio 2008
» Ý TƯỞNG CHO CÁC PHẦN MỀM MỚI
» Phân biệt cáp thật-giả cho iPhone5
» Dùng VB có thể tính tích phân ko ?
» Địa chỉ Download hoặc Copy file cài đặt Visual Studio 2008
» Ý TƯỞNG CHO CÁC PHẦN MỀM MỚI
» Phân biệt cáp thật-giả cho iPhone5
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|