I E= T*R
Code của ứng dụng xóa file đệ qui (tt)
Chương 11 : Quản lý hệthống file
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học Slide 302 ' Thủtục xửlý sựkiện Click button Start
Private Sub cmdStart_Click() Dim bytPredIdx As Byte Dim bytCurIdx As Byte Dim strTmp As String
bytPredIdx = 0 bytCurIdx = 1 iHead = 0 iTail = 1
While iHead < iTail
Call DuyetXoaFileDequi iHead = iHead + 1
If (iHead > QMAX) Then iHead = 0 Wend
End Sub
Code của ứng dụng xóa file đệ qui (tt)
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học Slide 303
Private Sub DuyetXoaFileDequi()
Dim Name As String, Path As String, strFilePath As String, intAttr As Integer Path = strDirQueue(iHead)
Name = Dir(Path, vbDirectory) ' lấy 1 phần tửthỏa mãn pattern Do While Name <> "" ' Lặp xửlý phần tử, nếu còn.
If Name <> "." And Name <> ".." Then ' bỏthưmục hiện hành và cha của nó strFilePath = Path & Name
intAttr = GetAttr(strFilePath)
If (intAttr And vbDirectory) = vbDirectory Then ' nếu là thưmục thì lưu giữvào hàng strDirQueue(iTail) = strFilePath & "\"
iTail = iTail + 1
If (iTail > QMAX) Then iTail = 0
Else ' nếu là file kiểm tra xem thỏa pattern không If LCase(Name) Like txtPattern.Text Then
intAttr = intAttr And Not vbReadOnly SetAttr strFilePath, intAttr
Kill strFilePath
FileList.AddItem strFilePath End If
End If End If
Name = Dir ' lấy phần tửkếthỏa mãn pattern. Loop
End Sub
Code của ứng dụng xóa file đệ qui (tt)
Chương 11 : Quản lý hệthống file
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM Môn : Tin học Slide 304 MÔN TIN HỌC Chương 12 LINH KIỆN PHẦN MỀM
& TRUY XUẤT DATABASE
Khoa Công nghệ Thông tin Trường ĐH Bách Khoa Tp.HCM
Môn : Tin học Slide 305 Mục tiêu của qui trình phát triển phần mềm hướng đối tượng là tạo ra
ứng dụng có cấu trúc thuần nhất : tập các đối tượng sống và tương tác lẫn nhau.
Mỗi đối tượng của ứng dụng có thể được tạo ra nhờ 1 trong các cách sau :
chọn menu Project.Add Class Module đểtạo ra 1 class module mới miêu tảcấu trúc chi tiết của đối tượng cần tạo ra : các thuộc tính dữliệu và các method củađối tượng.
chọn menu Project.Add File rồi khai báođường dẫn của file *.bas chứa 1 class module của 1 ứng dụng có sẵn để copy class module này vào Project ứng dụng hiện tại (đây là 1 phương phápđểthừa kếthành quả).
sửdụng cácđiều khiển sẵn có của VB đểxây dựng form giao diện.
'add' module *.ocx chứa 1 hay nhiều ActiveX Control đangđược Windows quản lý vào Project ứng dụng hiện tạiđểdùng chúng y nhưcácđiều khiển sẵn có của VB.