Giáo trình Thực hành với Visual Basic: Phần 1 thông tin đến người học các bài thực hành cài đặt Visual Basic và môi trường làm việc của VB; biến, mảng, hàm, thủ tục và các cấu trúc điều khiển; sử dụng các điều khiển cơ bản trong Visual Basic.
Thực hành với Visual Basic Biên tập bởi: Khoa CNTT ĐHSP KT Hưng Yên Thực hành với Visual Basic Biên tập bởi: Khoa CNTT ĐHSP KT Hưng Yên Các tác giả: Khoa CNTT ĐHSP KT Hưng Yên Phiên trực tuyến: http://voer.edu.vn/c/4942cd3c MỤC LỤC Bài thực hành số 1: Cài đặt Visual Basic môi trường làm việc VB 1.1 Cài đặt phần mềm Visual Basic 1.2 Chạy chương trình Visual Basic 6.0 1.3 Thiết lập mơi trường làm việc 1.4 Lưu dự án (Project) đĩa 1.5 Chạy đóng chương trình Visual Basic (VB) 1.6 Viết lệnh (Code) cho Form để hiển thị lời chào “Hello World” 1.7 Sử dụng câu lệnh Debug.Print 1.8 Sử dụng Câu lệnh InputBox Bài thực hành số 2: Biến, mảng, hàm, thủ tục cấu trúc điều khiển 2.1 Khai báo, gán hiển thị giá trị loại biến 2.2 Khai báo sử dụng biến mảng 2.3 Định nghĩa sử dụng kiểu liệu - Kiểu ghi 2.4 Định nghĩa Hàm (function) Visual Basic 2.5 Định nghĩa thủ tục Visual Basic 2.6 Truyền tham trị cho chương trình 2.7 Truyền tham chiếu cho chương trình 2.8 Cấu trúc rẽ nhánh If Then If ElseIf Then 2.9 Cấu trúc đa rẽ nhánh Select Case 2.10 Cấu trúc lặp For 2.11 Cấu trúc lặp Do Loop While | Do Loop Until Bài thực hành số 3: Sử dụng điều khiển Visual Basic 3.1 Sử dụng TextBox, Label kết hợp với Command Button 3.2 Sử dụng điều khiển Option 3.3 Sử dụng điều khiển CheckBox 3.4 Sử dụng điều khiển ListBox 3.5 Sử dụng điều khiển PictureBox 3.6 Sử dụng điều khiển Image 3.7 Sử dụng HscrollBar (Thanh cuộn ngang) 3.8 Sử dụng điều khiển Timer, Drive, Dir File Bài thực hành số 4: Sử dụng hộp thoại 4.1 Sử dụng hộp thoại Bài thực hành số 5: Sử dụng Menu công cụ 1/139 5.1 Tạo menu có nhiều cấp 5.2 Tạo Menu ngang có nhiều mục 5.3 Tạo Menu ngang (Menu bar) đơn giản 5.4 Viết lệnh cho mục menu 5.5 Tạo công cụ Toolbar 5.6 Viết lệnh cho nút công cụ 5.7 Xây dựng chương trình soạn thảo văn đơn giản 5.8 Xây dựng chương trình nghe nhạc đơn giản Bài thực hành số 6: Tạo, thao tác với sở liệu sử dụng đối tượng 6.1 Tạo bảng CSDL Microsoft Access 2000 6.2 Kết nối đến CSDL sử dụng đối tượng ADO Data Control 6.3 Hiển thị bảng CSDL Data Grid 6.4 Thêm ghi vào bảng CSDL 6.5 Sửa đổi nội dung ghi 6.6 Tìm kiếm ghi bảng 6.7 Loại bỏ (Xoá) ghi khỏi bảng CSDL 6.8 Sử dụng phương thức đối tượng RecordSet đề duyệt ghi Tham gia đóng góp 2/139 Bài thực hành số 1: Cài đặt Visual Basic môi trường làm việc VB Cài đặt phần mềm Visual Basic Để cài đặt Visual Basic 6.0 cần có Visual Studio 6.0 (hoặc đĩa cài VB riêng) lưu đĩa cứng đĩa CD-ROM Với Visual Studio cài đặt đĩa cứng, Các bước thực sau : B1: Tìm chạy file Setup.exe Chạy file Setup B2: Chọn Next Chọn Next 3/139 B3: Chọn “I Accept the Agreement”, sau chọn (click) Next 12 Các điều khoản quyền B4: Chọn Next Nhập thông tin đăng ký B5: Chọn “Custom” chọn Next (Hoặc chọn Products để cài đặt sản phẩm riêng biệt – Đây cách đơn giản nhất) 12 4/139 Lựa chọn sản phẩm cần cài đặt B6: Nếu muốn cài Visual Studio vào thư mục khác, click chọn Browse Tiếp theo chọn Next Chọn đường dẫn để cài đặt B7: Chọn Continue, Bước chọn OK 5/139 Tiến hành cài đặt B8: Để khỏi tốn dung lượng đĩa cứng, nên bỏ thành phần không cần thiết (bỏ dấu kiểm tra mục khơng muốn cài đặt) hình đây: Sau chọn Continue chờ cho q trình cài đặt kết thúc (Finish) Chọn thành phần cần cài đặt 6/139 Chạy chương trình Visual Basic 6.0 Click chọn Start→ Programs→ MS Visual Studio 6.0→ MS Visual Basic 6.0 Sau chọn kiểu dự án Standard EXE có hộp thoại ra: 21 Chọn kiểu dự án cần phát triển Sau nhấn nút Open, VB tạo sẵn cho Project, có giao diện hình : 7/139 Cửa sổ giao diện Visual Basic 8/139 • Thuộc tính ListIndex cho ta biết số (lưu ý số tính từ 0) mục chọn (Mục có sáng) Nếu khơng có mục chọn có giá trị -1 • Thuộc tính Text cho ta nội dung mục chọn khơng có mục chọn (khơng có sáng) thuộc tính có giá trị xâu rỗng • Thuộc tính List (i) cho ta nội dung mục có số i Như muốn lấy giá trị mục chọn ngồi việc sử dụng thuộc tính Text, ta cịn viết sau: lstDanhSach.List(DanhSach.ListIndex) • Mục Listbox có số Mục cuối có số lstDanhSach.ListCount – • Trong trường hợp listbox khơng chứa mục (Listbox rỗng) để tránh bị lỗi, trước thao tác, nên kiểm tra thuộc tính ListCount xem có > hay khơng (tức khơng rỗng hay khơng ?) Thực hành sử dụng đặc tính đa lựa chọn Listbox Listbox đặt chế độ cho phép người dùng chọn đồng thời nhiều mục cách click di chuột click chuột kết hợp với nhấn phím Shift/ Ctrl để chọn mục liền nhau/ rời rạc nhau, hình đây: Hiển thị kiểu CheckBox Cho phép chọn nhiều mục kiểu Ext 56/139 Thiết kế giao diện: Lấy ví dụ hình Đặt giá trị cho điều khiển, cần thêm nút lệnh có tên caption tương ứng là: cmdHienThi, "Hiển thị mục chọn" Viết lệnh: Option Explicit '/// Hiển thị mục chọn '// Nếu mục có số i chọn lstDanhSach.Selected(i) có giá trị True '// Giá trị mục có số i : lstDanhSach.List(i) Private Sub cmdHienThi_Click() Dim i As Integer For i = To lstDanhSach.ListCount – '/// Kiểm tra mục ListBox If lstDanhSach.Selected(i) = True Then'/// Nếu mục i chọn (=True) MsgBox lstDanhSach.List(i) '/// Thì hiển thị hình End If Next End Sub '/// Thực thêm nội dung textbox vào Listbox người dùng '/// Click chuột vào nút "Thêm" Private Sub cmdThem_Click() lstDanhSach.AddItem txtNewItem.Text, '/// > Thêm vào đầu danh sách End Sub '/// Gọi Phương thức Clear để xố tồn mục ListBox Private Sub cmdXoa_Click() 57/139 lstDanhSach.Clear End Sub Ghi chú: • Khi duyệt tất phần tử ListBox, ta thường sử dụng vòng lặp dạng For i = to listbox1.ListCount – … • Khi muốn lấy mục chọn (ở chế độ MultiSelect) cần kiểm tra thuộc tính Selected(i) = True ? để biết mục i có chọn hay khơng Thực hành tìm kiếm loại bỏ mục khỏi danh sách Yêu cầu (Giao diện hình 10): Khi người dùng nhập giá trị vào hộp textbox nhấn vào nút "Xố" chương trình thực tìm kiếm xố mục khỏi Listbox, thơng báo khơng tìm thấy mục khơng có ListBox Thiết kế giao diện: Giao diện chương trình chạy Thiết lập giá trị cho điều khiển: Điều khiển Thuộc tính / giá trị Label Name: lblThongBaoCaption: Gõ vào nội dung từ cần xoá TextBox Name: txtTuCanXoaText: Để trống Command button Name: cmdXoaCaption: &Xoá mục khỏi ListBox ListBox Name: lstDanhSach Viết lệnh: Option Explicit '/// Thêm số mục ban đầu vào ListBox 58/139 Private SubForm_Load() lstDanhSach.AddItem "Hello" lstDanhSach.AddItem "World" lstDanhSach.AddItem "welcome" End Sub '///Thực tìm kiếm xoá mục danh sách mà người dùng vừa nhập textbox Private Sub cmdXoa_Click() Dim i As Integer Dim TimThay As Boolean TimThay = False For i = To lstDanhSach.ListCount – '/// Duyệt so với tất phần tử If lstDanhSach.List(i) = txtTuCanXoa.Text Then TimThay = True Exit For ' /// Thốt khỏi vịng lặp for End If Next If TimThay = True Then'/// Đã tìm thấy → Xố MsgBox "Vị trí tìm thấy " & i &" Mục loại bỏ khỏi ListBox" lstDanhSach.RemoveItem i Else MsgBox "Khơng có mục ListBox", vbInFormation, "Thông báo" End If 59/139 End Sub Kết chạy chương trình (trước sau Xố) Ghi chú: • Khi muốn loại bỏ mục khỏi Listbox, ta sử dụng phương thức RemoveItem Phương thức đòi hỏi tham số số mục cần xố • Khi xố, cần lưu ý số i mục cần xoá phải thoả mãn : 0≤i≤ListCount – • Khi so sánh xâu ký tự, sử dụng thêm hàm Trim, Ucase, Lcase Ví dụ: If Ucase(txtTuCanXoa) = Ucase(…) Then 60/139 Sử dụng điều khiển PictureBox Điều khiển PictureBox cho phép hiển thị (Load) file ảnh dạng BMP, ICO, WMF, JPEG, GIF có phương thức cho phép ta thực cơng việc xử lý đồ hoạ vẽ đường thẳng, vẽ đường tròn v.v… Thực hành: Hiển thị file ảnh vẽ đường thẳng PictureBox Yêu cầu (Giao diện hình vẽ): Khi người dùng nhập đường dẫn file ảnh click vào nút "Hiển thị" hiển thị file ảnh Picturebox Còn người dùng click vào nút "Vẽ đường thẳng" vẽ đường thẳng Giao diện chương trình: Giao diện kết chạy chương trình Thiết lập giá trị cho điều khiển: Điều khiển Thuộc tính / Giá trị PictureBox Name: picViewerAutoRedraw: True TextBox Name: txtTenFile Command button Name: cmdHienThiCaption: &Hiển thị Command button Name: cmdVeDuongThangCaption: &Vẽ đường thẳng Viết lệnh: Form1.frm '/// Nạp file ảnh hiển thị PictureboxPrivate Sub cmdHienThi_Click()On Error GoTo errpicViewer.Picture = LoadPicture(txtTenFile.Text)Exit Suberr:MsgBox "File khơng tồn có lỗi !", vbCritical, "Lỗi"End Sub'/// 61/139 Vẽ đường chéo: cú pháp Line (Cột 1, Hàng 1) – (Cột 2, Hàng 2)Private Sub cmdVeDuongThang_Click()picViewer.Line (0, 0)-(picViewer.Width, picViewer.Height)End Sub Ghi chú: • Thuộc tính AutoRedraw Picture đặt true để đảm bảo vẽ khơng bị Form bị vẽ lại • Phương thức LoadPicture() trả cho ta đối tượng ảnh, đối tượng gán trả lại cho thuộc tính Picture điều khiển PictureBox • Cần phải có chế bắt lỗi ví dụ nạp ảnh có trường hợp xuất lỗi • Có thể đặt thuộc tính AutoResize Picturebox True bạn muốn kích thước Picturebox ln tự động co giãn với kích thước ảnh • Có thể vẽ (copy) ảnh Picturebox vào Form lệnh: Me.PaintPicture picViewer.Picture,0,0 (Hiểu là: Vẽ ảnh picturebox vào Form, toạ độ 0,0) 62/139 Sử dụng điều khiển Image Điều khiển Image tương tự điều khiển Picture (chính xác thực số chức Picturebox) có ưu điểm tốc độ nhanh hơn, chiếm tài ngun Picture Ngồi cịn có thuộc tính Stretch để co giãn kích thước ảnh, Picturebox khơng có Thực hành: Hiển thị file ảnh điều khiển Image Thiết kế giao diện: Giao diện chương trình Thiết lập giá trị cho thuộc tính: Điều khiển Thuộc tính / Giá trị Image Name: imgViewerStretch: True TextBox Name: txtTenFile Command button Name: cmdHienThiCaption: &Hiển thị Viết lệnh: Form1.frm Option Explicit'/// Nạp file ảnh hiển thị điều khiển ImagePrivate Sub cmdHienThi_Click()On Error GoTo errimgViewer.Picture = LoadPicture(txtTenFile.Text)Exit Suberr:MsgBox "File khơng tồn có lỗi !", vbCritical, "Lỗi"End Sub 63/139 Kết thay đổi thuộc tính Stretch 64/139 Sử dụng HscrollBar (Thanh cuộn ngang) HscrollBar điều khiển thường sử dụng người dùng thay đổi giá trị cách trực quan thay phải nhập số VscrollBar làm việc hoàn toàn giống với HscrollBar, hiển thị theo chiều dọc, Do ta không giới thiệu Thực hành: Thay đổi màu kích thước font chữ textbox sử dụng ngang (HscrollBar) – Giao diện hình Giao diện chương trình kết chạy Thiết lập giá trị cho thuộc tính: Điều khiển Thuộc tính / Giá trị TextBox Name: txtThongBaoText: Thay đổi cuộn quan sát ! Label Caption: Thay đổi kích thước font chữ textbox Label Caption: Thay đổi màu TextBox HScrollBar Name: hscKichThuocMin: 10Max : 50SmallChange: 1LargeChange: 10 HscrollBar Name: hscMauNenMin: 0Max : 255SmallChange: 1LargeChange: 20 Viết lệnh: Form1.frm Option Explicit'/// Sự kiện kích hoạt giá trị hscKichThuoc thay đổi'// nên ta thực cập nhật lại kích thước font đâyPrivate Sub hscKichThuoc_Change()txtThongBao.Font.Size= hscKichThuoc.Value '/ Đặt fontsize giá trị hscRollbarEnd Sub'/// Sự kiện kích hoạt giá trị 65/139 hscMauNen thay đổi'// nên ta thực cập nhật lại giá trị màu đâyPrivate Sub hscMauNen_Change()txtThongBao.BackColor = hscMauNen.Value '/// Đặt màu với hscMauNen.ValueEnd Sub Ghi chú: • Có thể đặt "Thanh gạt" cuộn vị trí cách thay đổi thuộc tính Value thích hợp (trong lúc thiết kế chương trình chạy) 66/139 Sử dụng điều khiển Timer, Drive, Dir File Sử dụng điều khiển Timer Điều khiển Timer có chức tự động kích hoạt thủ tục Timer sau khoảng thời gian ấn định trước mà không phụ thuộc vào công việc thực Thực hành: Viết chương trình thực nhấp nháy dịng chữ Form Trong khoảng thời gian nhấp nháy thay đổi việc nhập giá trị vào textbox Hướng dẫn: Nhấp nháy dòng chữ (đặt label) thực chất việc cho ẩn lại dịng chữ sau khoảng thời gian định (ví dụ s) Như vậy, giải pháp ta cập nhật thuộc tính Visible sau khoảng thời gian s, (Visible = true) cho ẩn (đặt visible false) ngược lại, hay nói cách khác sau giây ta đặt thuộc tính Visible = not Visible Thiết kế giao diện sau: Giao diện chương trình Đặt giá trị cho thuộc tính: Điều khiển Thuộc tính / Giá trị Label Name: lblThongBaoCaption: Khoa Công nghệ Thông tin… Label Caption: Thay chù kỳ thời gian gọi TextBox Name: txtIntervalText: 1000 Command button Name: cmdThayDoiIntervalCaption: &Thay đổi Interval Command button Name : cmdDungTimerCaption: &Dừng Timer Timer tmrNhapNhay Viết lệnh: 67/139 Form1.frm Option Explicit'/// Khởi tạo số thuộc tínhPrivate SubForm_Load()tmrNhapNhay.Interval = 1000tmrNhapNhay.Enabled = TruelblThongBao.Visible = TrueEnd Sub'/// Thủ tục tự động gọi sau khoảng thời gian giây (1000 ms)Private Sub tmrNhapNhay_Timer()lblThongBao.Visible = Not lblThongBao.VisibleEnd Sub'/// Cập nhật lại chu kỳ thời gian tự động kích hoạt kiện TimerPrivate Sub cmdThayDoiInterval_Click()tmrNhapNhay.Interval = txtInterval.TextEnd Sub'/// Dừng đồng hồ Có thể dừng cách đặt Interval = 0Private Sub cmdDungTimer_Click()tmrNhapNhay.Enabled = False End Sub Sử dụng điều khiển Drive, Dir File Điều khiển Drive dùng ta chọn ổ đĩa máy tính, điều khiển Dir để hiển thị thư mục ổ đĩa theo dạng phân cấp Cịn điều khiển File dùng để hiển thị tất file thư mục định Điều khiển hoàn toàn sử dụng độc lập thường sử dụng kết hợp với Thực hành: Viết chương trình xem file ảnh máy tính Giao diện chương trình: Giao diện kết chạy chương trình Thiết lập thuộc tính: 68/139 Điều khiển Thuộc tính /giá trị Label Caption: Hãy chọn ổ đĩa thư mục chứa ảnh Label Click vào file ảnh cần xem Drive Name: drvPhoto Dir Name: dirPhotoPattern: *.BMP;*.JPG;*.GIF (lưu ý dấu cách dấu ";") File Name: filPhoto Image Name: imgPhotoStretch : True Viết lệnh: Form1.frm Option Explicit'/// Đặt thuộc tính Pattern để điều khiển File hiển thị file ảnh'/// Nếu muốn hiển thị tất file đặt pattern *.*Private SubForm_Load()filPhoto.Pattern = "*.BMP;*.JPG;*.GIF" '/// Chỉ hiển thị file ảnh.End Sub'/// Khi người dùng chọn thư mục ta hiển thị file thư mục này'/// điều khiển file cách thay đổi thuộc tính Path điều khiển file'/// với đường dẫn thư mục vừa chọn.Private Sub dirPhoto_Change()filPhoto.Path = dirPhoto.PathEnd Sub'/// Khi người dùng chọn ổ đĩa khác ta lấy ổ gán cho điều khiển'/// dirPhoto để điều khiển dirPhoto hiển thị nội dung ổ đĩa vừa chọnPrivate Sub drvPhoto_Change()dirPhoto.Path = drvPhoto.Drive 'hoặc viết dirPhoto.Path = "c:\" v.v End Sub'/// Khi người dùng click vào file điều khiển File ta hiển thị file này'/// điều khiển Image Đường dẫn file lấy từ thuộc tính'/// filePhoto.Path filPhoto.FileNamePrivate Sub filPhoto_Click()imgPhoto.Picture = LoadPicture(filPhoto.Path & "\" & filPhoto.FileName)End Sub Giải thích câu lệnh: • điều khiển không thiết phải với nhau, ví dụ cần điều khiển filPhoto, ta dùng hiển thị tồn file thư mục C:\My documents cách viết : filPhoto.Path = "C:\My documents" hay ta tồn thư mục ổ đĩa E điều khiển dirPhoto cách viết dirPhoto.Path = "E:\" • drvPhoto.Drive trả cho ta tên ổ đĩa (ví dụ c:, d: hay e:) chọn điều khiển drvPhoto 69/139 • filPhoto.Path trả đường dẫn (không bao gồm tên) file chọn điều khiển File, filPhoto.FileName trả tên file (nhưng khơng có đường dẫn) file chọn 70/139 ... "Gorge" Diem (1) = Diem(2) = Diem(3) = 10 MaTran1(0, 0) = MaTran1(0, 1) = MaTran1(0, 4) = MaTran2 (1, 1) = MaTran2 (1, 2) = MaTran2(4, 4) = 10 MsgBox "Giá trị phần tử mảng HT : " & HT(0) 22 /13 9 MsgBox... *.vbp (Visual Basic Project) lưu thư mục cha Dưới hình ảnh việc lưu trữ thành phần Project: Việc tổ chức lưu trữ thành phần dự án 11 /13 9 Chạy đóng chương trình Visual Basic (VB) Để chạy chương trình, ... điểm 10 0 SV Viết lệnh: Hãy gõ đoạn code sau vào Form: Option Explicit Dim HT (10 0) As String '/// Mảng chứa 10 1 phần tử từ đến 10 0 Dim Diem (1 To 10 0) As Single '/// Mảng chứa 10 0 phần tử từ đến 10 0