Download miễn phí Tài liệu hướng dẫn Thực tập tốt nghiệp (ngành Tin học Xây dựng)
CÁC N ỘI DUNG TRÌNH BÀY
CHƯƠNG I. Công cụlập trình.8
I.1. Làm quen với giao diện Visual Basic.8
I.2. Ngôn ngữVisual Basic.27
I.3. Kỹnăng gỡrối chương trình (debug).51
I.4. Sửdụng ActiveX trong Visual Basic.54
I.5. Kết nối cơsởdữliệu với ADO.61
I.6. Các hàm API cơbản.68
CHƯƠNG II. Thiết kếphần mềm.73
II.1. Khái quát vềUML.73
II.2. Rational Rose.77
II.3. Use case diagram.78
II.4. Biểu đồtương tác (Interaction diagram).81
II.5. Class diagram.83
II.6. Biểu đồthành phần (Component diagram).87
II.7. Ví dụáp dụng.88
CHƯƠNG III. Đồhọa.106
III.1. Mục đích.106
III.2. Các chức năng chính của 1 hệ đồhọa.106
III.3. Sửdụng VDraw Component.106
CHƯƠNG IV. Trợgiúp và đóng gói.115
IV.1. Lập trợgiúp với RoboHelp.115
IV.2. Đóng gói với InstallSheld.115
IV.3. Tạo film demo với WinCam.115
Tài liệu tham khảo.116
Để tải bản Đầy Đủ của tài liệu, xin Trả lời bài viết này, Mods sẽ gửi Link download cho bạn sớm nhất qua hòm tin nhắn.
Ai cần download tài liệu gì mà không tìm thấy ở đây, thì đăng yêu cầu down tại đây nhé:
Nhận download tài liệu miễn phí
Tóm tắt nội dung tài liệu:
s Set...= New...
firstForm và secondForm còn được gọi là các instances của Class frmMyForm. Class giống
như cái khuôn, còn Objects gi ống như những cái bánh làm t ừ khuôn ấy. Chắc bạn đã để ý
thấy trong VB6 t ừ dùng hai t ừ Class và Object l ẫn lộn nhau. Đều này c ũng không quan
trọng, miễn là bạn nắm vững ý nghĩa của chúng.
VB6 có hỗ trợ Class mà ta có thể triển khai và instantiate các Objects của nó khi dùng. Một
Class trong VB6 có chứa data riêng của nó, có những Subs và Functions mà ta có th ể gọi.
Ngoài ra Class còn có th ể Raise Events, tức là báo cho ta bi ết khi chuy ện gì x ảy ra bên
Bộ môn Tin học Xây dựng – ĐHXD Tài liệu hướng dẫn thực tập tốt nghiệp
42
trong nó. Cũng giống như Event Click của CommandButton, khi User clicks lên button thì
nó Raise Event Click để cho ta x ử lý trong Sub myCommandButton_Click(), ch ẳng h ạn.
Classtrong VB6 không có h ổ trợ Visual components, t ức là không có ch ứa những controls
như TextBox, Label .v.v.. Tuy nhiên, ta có thể lấy những control có sẵn từ bên ngoài rồi đưa
cho Object của Class dùng.
I.2.7.3. Ví dụ - Xây dựng lớp clsBox
Bây giờ chúng ta hãy b ắt đầu viết một Class. B ạn hãy m ở một Project m ới loại Standard
EXE Visual Basic. Sau đó dùng Menu Command chọn Add Class Module:
Khi Add Class Module dialog hiện ra chọn Class Module và click Open.
Bạn s ẽ th ấy mở ra m ột khung tr ắng và Project Explorer v ới Properties Window. Trong
Properties Window, hãy sửa Name property của Class thành clsBox như dưới đây:
Bộ môn Tin học Xây dựng – ĐHXD Tài liệu hướng dẫn thực tập tốt nghiệp
43
Kế đó đánh vào những dòng code dưới đây, trong đó có biểu diển cách dùng Class clsBox.
Option Explicit
Private mX As Integer
Private mY As Integer
Private mWidth As Integer
Private mHeight As Integer
Public Property Let X(ByVal vValue As Integer)
mX = vValue
End Property
Public Property Get X() As Integer
X = mX
End Property
Public Property Let Y(ByVal vValue As Integer)
mY = vValue
End Property
Public Property Get Y() As Integer
Y = mY
End Property
Public Property Let Width(ByVal vValue As Integer)
mWidth = vValue
End Property
Public Property Get Width() As Integer
Width = mWidth
End Property
Public Property Let Height(ByVal vValue As Integer)
mHeight = vValue
End Property
Bộ môn Tin học Xây dựng – ĐHXD Tài liệu hướng dẫn thực tập tốt nghiệp
44
Public Property Get Height() As Integer
Height = mHeight
End Property
Public Sub DrawBox(Canvas As Object)
Canvas.Line (mX, mY)-(mX + mWidth, mY + mHeight), , B
End Sub
Public Sub ClearBox(Canvas As Object)
Canvas.Line (mX, mY)-(mX + mWidth, mY + mHeight), Canvas.BackColor, B
End Sub
Class clsBox có 4 thuộc tính: X, Y, Width và Height. Ta sẽ tạo một Object Box từ clsBox.
Mỗi Box có tọa độ (X,Y) và kích thước chiều rộng và chiều cao (width, height) của nó. Thật
ra ta có th ể khai báo các bi ến X, Y, Width và Height đơn giản hơn bằng từ khóa Public.
Nhưng ở đây ta cố ý khai báo chúng là Private, dưới dạng mX, mY, mWidth và mHeight.
Khi ta muốn thay đổi các trị số của chúng, cũng dùng lệnh gán như bình thường. Nhưng khi
chương trình x ử lý l ệnh gán (ví d ụ myBox.X=80), nó s ẽ g ọi m ột ch ương trình con là
Property Let X (vValue) với vValue có giá trị 80.
Khác với phép gán thường, trong Property Let chúng ta có th ể thực hiện các phép ki ểm tra
trước khi gán hay thực hiện các lệnh thể hiện sự thay đổi của đối tượng tương ứng với lệnh
gán (ví d ụ khi thay đổi thu ộc tính Caption c ủa CommandButton b ằng l ệnh gán
cmdSwitch.Caption = "On" chúng ta th ấy ngay lập tức sự thay đổi được thể hiện trên màn
hình). Đó là vì trong ch ương trình con Property Let c ủa Caption có c ả đoạn mã cho phép
hiển thị lại caption của đối tượng.
Ngược lại, khi ta dùng thuộc tính X của đối tượng myBox, không phải ta chỉ đọc trị số thôi
mà còn g ọi cả cái ch ương trình con Property Get X . Nói tóm l ại, Property Get, Property
Let cho ta c ơ hội để execute một method mỗi khi chương trình đọc hay viết lên tr ị số của
thuộc tính tương ứng ấy.
Thí dụ như nếu ta muốn kiểm soát để chỉ chấp nhận trị số tọa độ X mới khi nó không phải là
số âm. Ta sẽ sửa Property Let X lại như sau:
Public Property Let X(ByVal vValue As Integer)
If (vValue >= 0) Then
mX = vValue
End If
End Property
Property có thể là Read Only hay Write Only. Nếu muốn một Property là Read Only thì ta
không cung cấp Property Let. Nếu muốn một Property là Write Only thì ta không cung c ấp
Property Get. Ngoài ra nếu làm việc với Object, thay vì Data type thông thường, thì ta phải
dùng Property Set, thay vì Property Let.
Bộ môn Tin học Xây dựng – ĐHXD Tài liệu hướng dẫn thực tập tốt nghiệp
45
Thí dụ ta cho clsBox một Property mới, gọi là Font dùng object của class stdFont của VB6.
Trong clsBox ta declare m ột Private variable mFont và vi ết một Property Set Font như
sau:
Private mFont As StdFont
Public Property Set Font(ByVal newFont As StdFont)
Set mFont = newFont
End Property
Ta sẽ dùng property Font của myBox (thuộc Class clsBox) như sau:
' Declare an object of Class StdFont of VB6
Dim myFont As StdFont
Set myFont = New StdFont
myFont.Name = "Arial"
myFont.Bold = True
Dim myBox As clsBox
Set myBox = New clsBox
Set myBox.Font = myFont ' Call the Property Set method
Class clsBox có hai Public Subs, DrawBox và ClearBox. ClearBox cũng vẽ một box như
DrawBox, nhưng nó dùng BackColor của màn ảnh (canvas), nên coi như xóa cái box có sẵn.
Do đó, nếu muốn, bạn có thể sửa Sub DrawBox lại một chút để nhận một tham số Optional
(tham số cho phép nhập hay không nhập giá trị) là fColor như sau:
Public Sub DrawBox(Canvas As Object, Optional fColor As Long)
If IsMissing(fColor) Then
Canvas.Line (mX, mY)-(mX + mWidth, mY + mHeight), , B
Else
Canvas.Line (mX, mY)-(mX + mWidth, mY + mHeight), fColor, B
End If
End Sub
Trong thí dụ trên, tham số fColor được kiểm tra xem người dùng có nhập giá trị hay không
bằng bằng hàm IsMissing. Nếu fColor là BackColor c ủa canvas thì ta s ẽ có hi ệu quả của
ClearBox.
Trong form chính c ủa chương trình dùng để test clsBox, m ỗi khi ta refer đến một object
thuộc class clsBox, IDE Intellisense sẽ hiển thị các Properties và Subs/Functions của clsBox
như trong hình dưới đây:
Bộ môn Tin học Xây dựng – ĐHXD Tài liệu hướng dẫn thực tập tốt nghiệp
46
Trong chương trình này, mỗi khi ta click nút Draw thì sẽ tạo ra một đối tượng Box mới, cho
tọa độ X,Y và kích thước Width, Height, rồi được vẽ ra ngay trên form. T ừ khóa Me trong
đoạn chương trình này nói đến đối tượng chứa đoạn code đó, tức là frmClass.
Để cho ch ương trình thú v ị hơn, khi user clicks nút Animate, ta s ẽ cho m ột box màu đỏ
chạy từ trái qua phải.
Khi user clicks nút Two Boxes ta sẽ vẽ hai box, hộp trong màu xanh, hộp ngoài màu đỏ, và
cho chúng chạy từ trái sang ph ải. Ở đây ta biểu diễn cho thấy mình muốn tạo ra bao nhiêu
đối tượng box từ lớp clsBox cũng được, và d ĩ nhiên mỗi box có m ột bộ các thuộc tính với
giá trị riêng của nó.
Bộ môn Tin học Xây dựng – ĐHXD Tài liệu hướng dẫn thực tập tốt nghiệp
47
Ta có th ể lập trình để cho đối tượng báo cáo ch ương trình ch ủ của nó khi có m ột biến cố
(Event) xảy ra bên trong đối tượng đó.
Ta thử khai báo một Event tên Draw trong clsBox, và viết code để mỗi khi chương trình gọi
hàm DrawBox đối tượng sẽ phát sinh (Raise) một sự kiện Draw.
' Khai báo event Draw
' Event này có 2 tham số X, Y là số Integer
Public Event Draw(X As Integer,...