tianangnho_hn
New Member
Download miễn phí Bài tập visual basic căn bản
THAM CHIẾU ĐỐI TƯỢNG
Bước 1: Tạo thưmục Basic\Bt3-4. Khởi động một dựán mới trong thưmục này.
Bước 2: Trong bài tập này ta cóthamchiếu đến đối tượng Word của Microsoft Word;
do đó ta phải có thao tác tham chiếu đến đối tượng này trong màn hình soạn thảo VB
bằng cách: Chọn Project\Referencestrên menu. Trong cửa sốReferences, thiết lập
tham chiếu đến: Microsoft Word 9.0 Object Library và Microsoft Office 9.0
Library. Sau đó đóng cửa sổReferences lại.
Bước 3: Tacó thểkiểm tra các đối tượngtrêncó được đưa vào hay chưa nhờthao tác:
Chọn View\Object Browser.
Để 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:
ng đó:Item 1: Caption: Thong tin nguoi su dung
BorderStyle: 3-Fixed Dialog
StartUpPosition: 2-Center Screen
Item 2: Label
Name: lblGiúp
Index: 0
Item 3: Label
Name: lblGiúp
Index: 1
Item 4: Label
Name: lblGiúp
Index: 2
Item 5: TextBox
Name: txtGiúp
Index: 0
Item 6: TextBox
Name: txtGiúp
Index: 1
Item 7: TextBox
Name: txtGiúp
Index: 2
Item 8: CommandButton
Name: cmdGiúp
Index: 0
Item 9: CommandButton
Name: cmdGiúp
Index: 1
Item 10: CommandButton
Name: cmdGiúp
Index: 2
Trang 44
TT. Visual Basic
Trang 45
Bước 3: Ta nhận thấy các điều khiển có cùng một tên hiển thị (Thong tin). Mục tiêu
của ta là sử dụng tập tin resource (tài nguyên) để thay đổi tên hiển thị trên các điều
khiển. Để tạo tập tin tài nguyên, ta vào mục ADD-IN\ADD-IN MANAGER trên
menu của VB. Trong các mục của ADD-IN MANAGER nhấp đúp vào resource editor
và đóng mục ADD-IN MANAGER lại.
Bước 4: Chọn Tools\Resource Editor trên menu. Mở String Table Editor bằng cách
nhấp chuột lên biểu tượng abc của Resource Editor. Cửa sổ soạn thảo cho tập tin tài
nguyên sẽ mở ra. Ta nhập các hàng như sau:
ID RESOURCE
STRING
ID RESOURCE
STRING
1 Ten 7 So dt
2 Ho 8 So CMND
3 Ma nv 9 T. trang hn
4 Huy bo 10 Huy bo
5 Vo hieu hoa 11 Ve truoc
6 Ke 12 Hoan tat
Bước 5: Lưu tập tin tài nguyên lại.
Bước 6: Mở cửa sổ soạn thảo mã lệnh. Tạo kiểu do người dùng định nghĩa để lưu dữ
liệu cần nhập vào. Thêm đoạn mã sau:
Private Type yeucau
ho As String
ten As String
manv As String
sodt As String
socmnd As String
tinhtranghn As String
End Type
Bước 7: Ta thêm 2 biến nữa; một biến lưu thông tin về người sử dụng (theo kiểu ở
trên), một biến lưu thứ tự các bước mà người sử dụng đã nhập thông tin của mình vào.
Private chisobuoc As Integer
Private cacyeucau As yeucau
Bước 8: Trong chương trình này, người sử dụng phải nhập thông tin của mình vào
thông qua các bước nhập, trong đó các điều khiển được sử dụng như một mảng các
điều khiển. Để tận dụng chúng ta cần khai báo các hằng số để biết hiện thời người
dùng đang ở bước thứ mấy của quá trình nhập thông tin cũng như biết được mình đã
nhấp vào nút nhấn nào trong quá trình trên. Do đó, ta thêm đoạn khai báo sau:
' cac hang so
Private Enum buoc
buoc1 = 1
buoc2 = 2
buoc3 = 3
End Enum
Private Enum nhannut
nuttrai
nutgiua
nutphai
TT. Visual Basic
End Enum
Bước 9: Chương trình này thể hiện trên một form duy nhất và sử dụng mảng các điều
khiển để tạo các bước để người dùng nhập thông tin vào. Do đó ta sử dụng tập tin tài
nguyên để hiển thị các tên của điều khiển nhằm hiển thị cho chính xác. Vì thế ta cần có
một hàm (thủ tục) để cập nhật thông tin nhập vào dựa vào các bước của người dung
khi nhập thông tin vào. Vào Tools\Add Procedure để thêm thủ tục sau:
Public Sub Hienthi()
Dim i As Integer
' Kiem tra cac buoc
Debug.Assert chisobuoc = 1 Or chisobuoc = 2
For i = 0 To 2
‘ Nhan
lblHelp(i).Caption = LoadResString((chisobuoc - 1) * 6 + (i + 1))
' Nut
cmdHelp(i).Caption = LoadResString((chisobuoc - 1) * 6 + (i + 4))
If UCase(cmdHelp(i).Caption) = "VO HIEU HOA" Then
cmdHelp(i).Visible = False
Else
cmdHelp(i).Visible = True
End If
txtHelp(i).Text = ""
Next
End Sub
Bước 10: Khi chương trình thực hiện, ta phải ở bước thứ nhất của quá trình nhập liệu
Thêm đoạn mã sau trong thủ tục xử lý sự kiện Form_Load: ⇒
chisobuoc = 1
Hienthi
Bước 11: Mỗi khi có một nút nhấn được nhấp, quá trình nhập liệu chuyển sang bước
kế tiếp; người sử dụng có thể đi đến bước kế tiếp hay trở về bước trước đó trong quá
trình này. Vì các nút nhấn (button) là một mảng điều khiển (control array) nên chúng
có cùng một sự kiện Click tác động vào gọi là cmdHelp_Click. Hàm xử lý này có tham
số là một chỉ số kiểu Integer để nhận biết nút nhấn nào được nhấp. Ở đây, ta thêm
đoạn mã sau trong hàm xử lý sự kiện này.
Private Sub cmdHelp_Click(Index As Integer)
Select Case chisobuoc
Case buoc1
cacyeucau.ten = txtHelp(0).Text
cacyeucau.ho = txtHelp(1).Text
cacyeucau.manv = txtHelp(2).Text
Case buoc2
cacyeucau.sodt = txtHelp(0).Text
cacyeucau.socmnd = txtHelp(1).Text
cacyeucau.tinhtranghn = txtHelp(2).Text
End Select
Trang 46
TT. Visual Basic
Trang 47
' Cac nut nhan
Select Case Index
Case nuttrai
' Huy bo
End
Case nutgiua
' ve truoc
chisobuoc = buoc1
Hienthi
Case nutphai
' di toi
chisobuoc = chisobuoc + 1
If chisobuoc = buoc2 Then
Hienthi
Else
Guiyeucau
End If
End Select
End Sub
Bước 12: Khi quá trình nhập thông tin kết thúc, thông tin này được lưu vào trong một
tập tin văn bản, nhờ thủ tục Guiyeucau. Thêm thủ tục Guiyeucau vào nhờ mục
Tools\Add Procedure và nhập đoạn mã sau:
Public Sub Guiyeucau()
On Error GoTo Guiloi
' Lay the tap tin
Dim intFile As Integer
intFile = FreeFile()
' Viet len tap tin
Open App.Path & "\yeucau.txt" For Output As #intFile
Print #1, "ho: " & cacyeucau.ho
Print #1, "ten: " & cacyeucau.ten
Print #1, "manv: " & cacyeucau.manv
Print #1, "sodt: " & cacyeucau.sodt
Print #1, "socmnd: " & cacyeucau.socmnd
Print #1, "tinhtranghn: " & cacyeucau.tinhtranghn
Close #intFile
MsgBox "Yeu cau cua ban da duoc goi di", vbOKOnly + vbInformation,
_
"Goi yeu cau"
End
Exit Sub
Guiloi:
MsgBox Err.Description, vbOKOnly + vbExclamation, "Goi yeu cau"
TT. Visual Basic
Trang 48
Exit Sub
End Sub
Bước 13: Lưu và thực thi chương trình.
Bài tập 3-3
CHƯƠNG TRÌNH XỬ LÝ VĂN BẢN ĐƠN GIẢN
GIAO DIỆN ĐA TÀI LIỆU
Bước 1: Tạo một dự án lưu trong thư mục Basic\Bt3-3.
Giao diện đa tài liệu (MDI Form) gồm một cửa sổ cha chứa nhiều cửa sổ con
(chẳng hạn như các chương trình Microsoft Word, Excel được tổ chức theo dạng này).
Để thêm vào dự án, ta chọn mục Project\Add MDI Form từ menu của VB.
Bước 2: Ta cho Form1 trở thành một cửa sổ con của MDI Form bằng cách chọn thuộc
tính MDIChild = True.
HÀM MAIN (SUB MAIN)
Bước 3: Trong chương trình ta cần điều khiển mọi thứ kể từ khi các cửa sổ con của
MDI Form xuất hiện, do đó ta cần bắt đầu thực thi chương trình của ta từ hàm
Main (Sub Main). Ta chọn mục Project\ Add Module để thêm một Modul vào dự án
của mình, sau đó ta chọn Tools\Add Procedure để thêm hàm Main vào (Public Sub
Main); hàm này ta dùng để bắt đầu gọi thực thi chương trình của mình. Để chọn thực
thi chương trình từ hàm Main, chọn Project\Properties; chọn Start up Object là Sub
Main.
Bước 4: Thêm dòng lệnh sau vào hàm Main:
MDIForm1.Show
Bước 5: Chương trình cần có một hệ thống menu để gọi thực thi. Do đó, chọn MDI
Form, sau đó chọn Tools\Menu Editor để tạo menu sau:
Menu Name Menu Caption
mnuFile &File
mnuFileNew &New
mnuFileOpen &Open…
muFileSave &Save
mnuFileBar -
mnuFileExit E&xit
Bước 6: Ta xử lý sự kiện mnuFileExit_Click nhờ đoạn mã sau:
Private Sub mnuFileExit_Click()
Dim f As Form
' Thoat cac cua so con
For Each f In Forms
If TypeOf f Is Form1 Then
Unload f
Set f = Nothing
End If
TT. Visual Basic
Trang 49
Next
' Thoat cua so cha
Unload Me
End Sub
Bước 7: Để tạo ra một tài liệu trắng cho chương trình xử lý văn bản, ta cần có
một TextBox trong Form1. Người sử dụng đánh nội dung vào TextBox, do đó ta thêm
một TextBox vào Form1 với các thuộc tính sau:
MultiLine: True
ScrollBars: 2-Vertical
Ta xử lý sự kiện Form_Resize của Form1 như sau:
Private Sub Form_Resize()
Text1.Height = Me.ScaleHeight
Text1.Width = Me.ScaleWidth
Text1.Left = 0
Text1.Top = 0
End Sub
Bước 8: Mỗi lần chọn mục New trên cửa sổ chương trình ứng dụng,...