Cùng tìm hiểu môi trường Visual Basic; chương trình chọn Fonts đơn giản; giao diện đăng nhập hệ thống;... được trình bày cụ thể trong Bài giảng Thực hành lập trình Windows Visual Basic do Phạm Ngọc Hưng biên soạn.
Thực hành Lập trình Visual Basic – Đại học Hùng Vương THỰC HÀNH LẬP TRÌNH WINDOWS VISUAL BASIC Sinh viên tạo thư mục đĩa cứng đề lưu trữ tập suốt trình thực hành Đặt tên thư mục chứa tất tập theo mẫu STT_Hovaten Ví dụ: 001_PhamNgocHung Các thư mục chứa thực hành theo mẫu Baixx_Tengoinho Ví dụ: Bai01_LamquenVB Bài 01 Mơi trường Visual Basic Mục đích: - Làm quen với mơi trường phát triển tích hợp (IDE – Intergrated Development Environment) Visual Basic - Tạo project - Quản lý project: Menu, Toolbox, Properties, … - Bài tập tạo project Bai01_HelloVB Nội dung: 1.1 Bắt đầu dự án với VB 6.0 Bước Mở Start/Programs/Microsoft Visual Basic 6.0 từ Shortcut chương trình Màn hình đầu tiên: Cửa sổ kích hoạt VB6.0 Phạm Ngọc Hưng, SOICT, HUST Chọn kiểu dự án Page Thực hành Lập trình Visual Basic – Đại học Hùng Vương Bước Tạo dự án thực thi cách chọn Standard EXE nhấp Open Xuất cửa sổ làm việc VB6.0, gọi tắt IDE (Integrated Development Environment) 1.2 Tìm hiểu thành phần IDE IDE mơi trường phát triển tích hợp, nơi tạo ứng dụng VB, chứa menu, công cụ, cửa sổ làm việc, … Mỗi thành phần có tính ảnh hưởng đến hoạt động lập trình khác Cửa sổ IDE VB6.0 Thanh menu cho phép tác động quản lý trực tiếp tồn ứng dụng Thanh cơng cụ cho phép truy cập chức menu thông qua nút công cụ Các biểu mẫu (Form) - khối xây dựng chương trình VB - xuất cửa sổ Form Hộp công cụ để thêm điều khiển vào biểu mẫu đề án Phạm Ngọc Hưng, SOICT, HUST Page Thực hành Lập trình Visual Basic – Đại học Hùng Vương Cửa sổ Project Explorer hiển thị đề án khác mà người dùng làm phần đề án Người dùng duyệt cài đặt thuộc tính điều khiển, biểu mẫu module cửa sổ Properties Sau cùng, người dùng xem xét bố trí nhiều biểu mẫu hình thơng qua cửa sổ Form Layout 1.3 Sử dụng công cụ IDE VB Thanh công cụ tập hợp nút bấm mang biểu tượng thường đặt menu Các nút đảm nhận chức thông dụng menu (New, Open, Save ) Thanh công cụ chuẩn Có thể kéo rê cơng cụ đến vị trí để tiện sử dụng Có thể thêm xóa cơng cụ, mở View/Toolbar, popup menu, chọn cơng cụ muốn thêm (có dấu tích) xóa (bỏ dấu tích) Popup menu chọn bỏ chọn công cụ Sử dụng công cụ gỡ rối (Debug) Thanh công cụ gỡ rối Dùng để thực thi tạm ngừng dừng đề án, kiểm tra giải lỗi xảy Phạm Ngọc Hưng, SOICT, HUST Page Thực hành Lập trình Visual Basic – Đại học Hùng Vương Khi gỡ rối chương trình, chạy dịng lênh, kiểm tra giá trị biến, dừng chương trình điểm với điều kiện Sử dụng công cụ Edit Thanh công cụ Edit Dùng viết chương trình cửa sổ Code, có đầy đủ chức menu edit Tính tự hồn tất từ khóa, hữu dụng cho người dùng, tránh lỗi mắc phải gõ sai từ khóa Sử dụng cơng cụ Form Editor Thanh công cụ thiết kế biểu mẫu Có chức giống menu Format dùng di chuyển, xếp điều khiển biểu mẫu Sử dụng hộp công cụ (ToolBox) Hộp công cụ nơi chứa điều khiển dùng trình thiết kế biểu mẫu Các điều khiển chia làm hai loại: Điều khiển có sẵn VB điều khiển chứa tập tin với phần mở rộng OCX Đối với điều khiển có sẵn VB ta khơng thể gỡ bỏ khỏi hộp cơng cụ, điều khiển nằm ngồi ta có thêm xóa bỏ khỏi hộp cơng cụ Một điều khiển đưa vào biểu mẫu cách chọn điều khiển thực kéo thả biểu mẫu để đưa vào biểu mẫu Hộp công cụ ToolBox Phạm Ngọc Hưng, SOICT, HUST Page Thực hành Lập trình Visual Basic – Đại học Hùng Vương 1.4 Quản lý ứng dụng với Project Explorer Project Explorer VB giúp quản lý định hướng nhiều đề án.VB cho phép nhóm nhiều đề án nhóm Người dùng lưu tập hợp đề án VB thành tập tin nhóm đề án với phần mở rộng vbp Cửa sổ Project Explorer Project Explorer có cấu trúc phân cấp thư mục cửa sổ Explorer hệ điều hành Các đề án coi gốc cây, thành phần đề án biểu mẫu, module nút Khi muốn làm việc với thành phần ta nhấn đúp lên thành phần cửa sổ Project Explorer để vào cửa sổ viết code cho thành phần Hữu ích làm việc với dự án lớn 1.5 Cửa sổ Properties Mỗi thành phần, điều khiển điều có nhiều thuộc tính Mỗi thuộc tính lại có nhiều giá trị Cửa sổ Properties cho phép người dùng xem, sửa đổi giá trị thuộc tính điều khiển nhằm giúp điều khiển hoạt động theo ý đồ người sử dụng Cửa sổ Properties Phạm Ngọc Hưng, SOICT, HUST Page Thực hành Lập trình Visual Basic – Đại học Hùng Vương 1.6 Cửa sổ Form Đây nơi thiết kế giao diện chương trình Chúng ta thiết kế giao diện cách đưa đối tượng lên Form Để mở cửa sổ Form Designer, thực nhiều cách: - Từ cửa sổ Project Explorer, bấm Double Click vào Form thiết kế - Từ cửa sổ code, bấm phím Shift+F7 Bấm vào nút View Code cửa sổ Project Explorer Để chọn đối tượng Form: - - Dùng chuột rê chọn nhóm đối tượng - Giữ phím Ctrol click chuột để nhặt chọn đối tượng Để di chuyển đối tượng Form: - Dùng chuột rê đối tượng đến vị trí cần thiết - Chọn đối tượng di chuyển phím mũi tên: Để xóa đối tượng Form: - Chọn đối tượng hay nhóm đối tượng bấm phím delete Để điều chỉnh kích thước đối tượng - Đưa chuột vào nút vuông bao xung quanh đối tượng rê chuột để thay đổi kích thước Để thay đổi kích thước, vị trí nhóm đối tượng, sử dụng menu Align để gióng hàng điều chỉnh kích thước Phạm Ngọc Hưng, SOICT, HUST Page Thực hành Lập trình Visual Basic – Đại học Hùng Vương Chọn menu Format -> Align để thực gióng hàng đối tượng: theo left, center, right, top… Chọn menu Format -> Make Same Size định dạng đối tượng có kích cỡ theo: chiều dài (width), chiều cao (Height) hay (Both) Chọn menu Format -> Horizontal Spacing (hoặc Vertical Spacing) muốn định dạng khỏang cách đối tượng 1.7 Cửa sổ Code Edittor Cửa sổ dùng để viết lệnh (code) cho chương trình Phạm Ngọc Hưng, SOICT, HUST Page Thực hành Lập trình Visual Basic – Đại học Hùng Vương Để mở cửa sổ Code Edittor, thực nhiều cách: Từ cửa sổ Form, bấm Double Click vào đối tượng cần viết code Từ cửa sổ Form, bấm phím F7 Bấm vào nút View Code cửa sổ Project Explrer Trong cửa sổ code, thấy có hộp chọn: Đối tượng (Control) Sự kiện (Event) xảy đối tượng Phạm Ngọc Hưng, SOICT, HUST Page Thực hành Lập trình Visual Basic – Đại học Hùng Vương 1.8 Cửa sổ Form Layout Cửa sổ Form Layout Cửa sổ trình bày biểu mẫu, cho phép định vị trí nhiều biểu mẫu hình ứng dụng thực thi Định vị trí biểu mẫu cách dùng chuột di chuyển biểu mẫu cửa sổ Form Layout Cần chạy ứng dụng sau bố trí biểu mẫu thơng qua Form Layout Nếu khơng định vị trí biểu mẫu, vị trí biểu mẫu hình lúc thiết kế vị trí biểu mẫu chương trình thực thi 1.9 Biên dịch đề án thành tập tin thực thi Sau đề án hồn thành, người dùng biên dịch thành tập tin thực thi Cách tiến hành sau: - Trước tiên ta cần cho VB6 biết phần chương trình thực thi trước cách chọn Project Properties từ menu Project Chọn tab General, ý phần Startup Object, nơi quy định điểm khởi đầu chương trình sau biên dịch kết thúc Phạm Ngọc Hưng, SOICT, HUST Page Thực hành Lập trình Visual Basic – Đại học Hùng Vương - Từ menu File, chọn Make EXE Một hộp thoại xuất cho phép bạn nhập vào tên tập tin thực thi Bạn cần gõ tên tập tin, VB tự động thêm phần mở rộng EXE - Nhấn vào nút Options để mở hộp thoại Project Properties điền tên ứng dụng vào ô Title, ta ghi thơng tin cho phiên phần Version Information Ta chọn Auto Increment để VB tự động tăng số Revision lần ta tạo lại tập tin EXE cho dự án - Cuối cùng, nhấn OK để trở hộp thoại Make Project 1.10 Cấu trúc chương trình VB Hai bước xây dựng chương trình VB là: - Thiết kế giao diện: Thiết kế Form bố trí đối tượng có Form Viết lệnh: Viết đoạn mã để điều khiển Form control ứng với kiện xảy Khi thực hai bước gọi lập dự án (project) Mỗi project lưu lên dĩa có nhiều tập tin - File *.vbp : file project chương trình Chúng ta mở chương trình từ file File *.frm: file Form chứa giao diện chương trình File *.bas: chứa module cua chương trình File *.cls: chứa class chương trình Và ngịai cịn nhiều lọai file khác (file resource, file temp…) Do trước lập project ta nên tạo folder dĩa để lưu project Khi chép chương trình, chép toàn folder Tips: Để thiết kế giao diện nhanh chóng Nếu Form có nhiều đối tượng loại có thuộc tính giống tạo đối tượng định dạng trước thuộc tính, sau chép thành nhiều đối tượng khác phím tắt Ctrl+C (copy) Ctrl+V (Paste) Ngay copy – paste, chương trình hỏi: Phạm Ngọc Hưng, SOICT, HUST Page 10 Thực hành Lập trình Visual Basic – Đại học Hùng Vương - Các CheckBox cho phép người dùng chọn kiểu chữ: in ñậm, in ngihêng, gạch dưới, Các Tùy chọn (Radio Button) cho phép người dùng chọn cách canh lề: canh trái (Left), canh phải (Right),… thể Preview Hướng dẫn: Đặt tên thiết lập thuộc tính cho điều khiển bảng sau: Phạm Ngọc Hưng, SOICT, HUST Page 14 Thực hành Lập trình Visual Basic – Đại học Hùng Vương Lưu ý thuộc tính (Properties) Của TextBox: Phạm Ngọc Hưng, SOICT, HUST Page 15 Thực hành Lập trình Visual Basic – Đại học Hùng Vương - FontName, FontSize FontBold, FontItalic, FontUnderline,… Alignment Của ListBox ComboBox: - ListIndex : Chỉ số phần tử chọn (click chuột) danh sách (từ 0) ListCount: Tổng số phần tử List: Danh sách phần tử Sự kiện Click vào Combo Color Private Sub cboColor_Click() Dim nIndex As Integer nIndex = cboColor.ListIndex Select Case nIndex Case 'Red txtSample.ForeColor = vbRed Case 'Green txtSample.ForeColor = vbGreen Case 'Blue txtSample.ForeColor = vbBlue Case 'Magenta txtSample.ForeColor = vbMagenta End Select End Sub Sự kiện Click vào Combo Size Private Sub cboSize_Click() 'MsgBox cboSize.Text Phạm Ngọc Hưng, SOICT, HUST Page 16 Thực hành Lập trình Visual Basic – Đại học Hùng Vương txtSample.FontSize = Val(cboSize.Text) End Sub Sự kiện Click vào Checkbox Bold Private Sub chkBold_Click() txtSample.FontBold = chkBold.Value End Sub Sự kiện Click vào Checkbox Italic Private Sub chkItalic_Click() txtSample.FontItalic = chkItalic.Value End Sub Sự kiện Click vào Checkbox Strikethrough Private Sub chkStrikethrough_Click() txtSample.FontStrikethru = chkStrikethrough.Value End Sub Sự kiện Click vào Checkbox Underline Private Sub chkUnderline_Click() txtSample.FontUnderline = chkUnderline.Value End Sub Sự kiện Click vào Listbox FontName Private Sub lstFontName_Click() txtSample.Text = vbCr + vbLf + lstFontName.List(lstFontName.ListIndex) txtFontName.Text = lstFontName.List(lstFontName.ListIndex) txtSample.FontName = txtFontName.Text End Sub Phạm Ngọc Hưng, SOICT, HUST Page 17 Thực hành Lập trình Visual Basic – Đại học Hùng Vương Sự kiện Click vào Option Center Private Sub optCenter_Click() txtSample.Alignment = End Sub Sự kiện Click vào Option Justify Private Sub optJustify_Click() txtSample.Alignment = End Sub Sự kiện Click vào Option Left Private Sub optLeft_Click() txtSample.Alignment = End Sub Sự kiện Click vào Option Right Private Sub optRight_Click() txtSample.Alignment = End Sub Phạm Ngọc Hưng, SOICT, HUST Page 18 Thực hành Lập trình Visual Basic – Đại học Hùng Vương Bài 03 Giao diện đăng nhập hệ thống (Bai03_Login) Mục đích: Yêu cầu: Xây dựng giao diện đăng nhập hệ thống sau: Khi nhấn vào nút “Đăng nhập”, thực kiểm tra a Nếu tên người dùng = “admin” mật = “admin” Thơng báo đăng nhập thành cơng b Ngược lại: thơng báo “Khơng tên người dùng/mật khẩu” Khi nhấn vào nút “Thốt” hiển thị thong báo “Bạn có muốn chương trình khơng ?” o Nếu chọn “Yes” Kết thúc chương trình o Ngược lại: trở lại hình login Hướng dẫn: Phạm Ngọc Hưng, SOICT, HUST Page 19 Thực hành Lập trình Visual Basic – Đại học Hùng Vương Bài 04 Chương trình Calculator đơn giản Mục đích: u cầu: Xây dựng chương trình máy tính bỏ túi Calculator đơn giản thực phép toán +, , *, / Giao diện chương trình: Ý nghĩa Control: TextBox: chức tương tự hình máy tính Nút lệnh C: dùng để xóa hình hành Nút lệnh AC: thực tính tốn Nút lệnh = hiển thị kết phép tính tương ứng lên TextBox Nút lệnh 0,1,2,3,4,5,6,7,8,9: nhập số cần thực tính tốn Nút lệnh +,-,x,/: chọn phép tính tương ứng Hướng dẫn: Thiết kế giao diện (màn hình): Phạm Ngọc Hưng, SOICT, HUST Page 20 Thực hành Lập trình Visual Basic – Đại học Hùng Vương o Tạo Form o Sử dụng đối tượng Textbox để tạo hình máy tính o Sử dụng đối tượng Command Button để tạo nút máy tính o Sử dụng đối tượng Label để tạo nội dung mô tả : calculated the operation… Đặt tên giá trị thuộc tính đối tượng theo bảng sau: Viết mã lệnh: Khai báo biến Dim nVal1, nVal2 As Double Dim nResult As Double Dim sOperator As String Nút lệnh AC Phạm Ngọc Hưng, SOICT, HUST Page 21 Thực hành Lập trình Visual Basic – Đại học Hùng Vương Private Sub cmdAC_Click() sOperator = "" nVal1 = txtScreen.Text = "" End Sub Nút lệnh C Private Sub cmdClear_Click() txtScreen.Text = "" End Sub Nút lệnh Dot Private Sub cmdDot_Click() If txtScreen.Text = "" Then txtScreen.Text = txtScreen.Text & "0." Else txtScreen.Text = txtScreen.Text & "." End If End Sub Phạm Ngọc Hưng, SOICT, HUST Page 22 Thực hành Lập trình Visual Basic – Đại học Hùng Vương Nút lệnh Zero Private Sub cmdzero_Click() If txtScreen.Text "0" And txtScreen.Text "" Then txtScreen.Text = txtScreen.Text & End If End Sub Nút lệnh cmdOne Private Sub cmdOne_Click() txtScreen.Text = txtScreen.Text & End Sub Nút lệnh cmdTwo Private Sub cmd2_Click() txtScreen.Text = txtScreen.Text & End Sub Nút lệnh cmdThree Private Sub cmd3_Click() txtScreen.Text = txtScreen.Text & End Sub Nút lệnh cmdFour Private Sub cmdFour_Click() txtScreen.Text = txtScreen.Text & End Sub Nút lệnh cmdFive Private Sub cmdFive_Click() Phạm Ngọc Hưng, SOICT, HUST Page 23 Thực hành Lập trình Visual Basic – Đại học Hùng Vương txtScreen.Text = txtScreen.Text & End Sub Nút lệnh cmdSix Private Sub cmdSix_Click() txtScreen.Text = txtScreen.Text & End Sub Nút lệnh cmdSeven Private Sub cmdSeven_Click() txtScreen.Text = txtScreen.Text & End Sub Nút lệnh cmdEight Private Sub cmdEight_Click() txtScreen.Text = txtScreen.Text & End Sub 14 Nút lệnh cmdNine Private Sub cmdNine_Click() txtScreen.Text = txtScreen.Text & End Sub 15 Nút lệnh cmdAdd Private Sub cmdAdd_Click() sOperator = "+" nVal1 = Val(txtScreen.Text) txtScreen.Text = "" End Sub Phạm Ngọc Hưng, SOICT, HUST Page 24 Thực hành Lập trình Visual Basic – Đại học Hùng Vương 16 Nút lệnh cmdDiv Private Sub cmdDiv_Click() sOperator = "/" nVal1 = Val(txtScreen.Text) txtScreen.Text = "" End Sub 17 Nút lệnh cmdMul Private Sub cmdMul_Click() sOperator = "*" nVal1 = Val(txtScreen.Text) txtScreen.Text = "" End Sub 18 Nút lệnh cmdSub Private Sub cmdSub_Click() sOperator = "-" nVal1 = Val(txtScreen.Text) txtScreen.Text = "" End Sub 19 Nút lệnh cmdResult Private Sub cmdResult_Click() Dim nTem As Double nTem = Val(txtScreen.Text) Select Case sOperator Case "+" Phạm Ngọc Hưng, SOICT, HUST Page 25 Thực hành Lập trình Visual Basic – Đại học Hùng Vương nResult = nVal1 + nTem Case "-" nResult = nVal1 - nTem Case "*" nResult = nVal1 * nTem Case "/" If nTem Then nResult = nVal1 / nTem Else txtScreen.Text = "Cannot divide by zero" Exit Sub End If End Select If sOperator "" Then txtScreen.Text = Str(nResult) sOperator = "" End If End Sub Cải tiến: Sử dụng mảng điều khiển nút bấm số Phạm Ngọc Hưng, SOICT, HUST Page 26 Thực hành Lập trình Visual Basic – Đại học Hùng Vương Nâng cao: Mở rộng chương trình với tính nâng cao ON : giống chức mở máy tính, sau nhấn nút o Không cho thao tác nút ON o Tất nút cịn lại thao tác o Màn hình máy tính xuất số OFF: giống chức tắt máy tính, sau nhấn nút o Chỉ cho thao tác nút ON o Tất nút cịn lại khơng thao tác o Màn hình máy tính khơng xuất (để trống) Backspace: xóa ký tự cuối hình, ví dụ o Nếu hình xuất 1234, nhấn vào nút Backspace, hình cịn lại 123 o Nếu hình xuất 1, nhấn vào nút Backspace, hình cịn lại M+: Cộng giá trị hình máy tính vào nhớ, ví dụ o Nếu giá trị nhớ = giá trị hình =10 kết = 10 Phạm Ngọc Hưng, SOICT, HUST Page 27 Thực hành Lập trình Visual Basic – Đại học Hùng Vương o Nếu giá trị nhớ = 10 giá trị hình =20 kết = 30 M-: Trừ giá trị hình máy tính vào nhớ, ví dụ o Nếu giá trị nhớ = giá trị hình =10 kết = -10 o Nếu giá trị nhớ = 30 giá trị hình =20 kết = 10 MC: xóa nhớ MR: hiển thị giá trị nhớ hình M: cho biết trạng thái nhớ Có M: nhớ ( giá trị ô nhớ 0) Không có M: không thực chức nhớ ( giá trị ô nhớ = 0) +/-: đổi giá trị hình, số âm thành số dương ngược lại Phạm Ngọc Hưng, SOICT, HUST Page 28 ... bang Visual Basic" End Sub Thực chương trình: F5 VB2005 (hỗ trợ tiếng Việt Unicode) Phạm Ngọc Hưng, SOICT, HUST Page 12 Thực hành Lập trình Visual Basic – Đại học Hùng Vương Các đối tượng Visual. .. thiết lập thuộc tính cho điều khiển bảng sau: Phạm Ngọc Hưng, SOICT, HUST Page 14 Thực hành Lập trình Visual Basic – Đại học Hùng Vương Lưu ý thuộc tính (Properties) Của TextBox: Phạm Ngọc Hưng, ... Các biểu mẫu (Form) - khối xây dựng chương trình VB - xuất cửa sổ Form Hộp công cụ để thêm điều khiển vào biểu mẫu đề án Phạm Ngọc Hưng, SOICT, HUST Page Thực hành Lập trình Visual Basic – Đại