lập trình visual basic(vb.net)

Website học trực tuyến – www.videobook.vn Bài làm Tạo nút xin chào , kết thúc bằng Command button trong hộp công cụ Nút sin chào: name = cmdHello: caption = xin chào Nút kết thúc: name

Trang 1

Website học trực tuyến – www.videobook.vn

Bài 1 hướng dẫn cài đặt Visual Basic

Bạn cho đĩa Visua basic vào ổ mềm máy tính hoặc bạn Download phần mềm Visua Basic trên mạn sau đó bạn mở file – bạn chọn file setup

Sau đó ta được bảng này

Bạn chọn Next ta được

Trang 2

Dánh chọn như hình trên Rồi tiếp tục Next ta được

Gõ số serial vào(số serial đuợc đi kèm đĩa)

Chỉ cần điên vào hàng đầu tiên, 2 hàng còn lại gõ tuỳ ý

Xong chọn tiếp Next

Ta có bảng dười đây

Trang 3

Chon Custorn rồi chọn tiếp Next

Chọn next

Đợi môt lúc ta được

Trang 4

bạn chọn Continue

không cần quan tâm nhấn ok

chọn Continue

Trang 5

tiếp tục nhấn continue

nhấn ok và đợi

đợi chút nhé

Trang 6

\ đến đây sắp song rồi

Sau đó nhấn ok 2 lần

chọn Next

Trang 7

chọn xít

chọn yes

Khi cài song màn hình

Trang 8

Website học trực tuyến – www.videobook.vn bạn chọn Open

Kết thúc việc cài đặt

Trang 9

BÀI 2: BÀI TẬP TẠO PROJECT ĐẦU TIÊN CỦA

VISUL BASIC

isual Basic là phiên bản của bộ công cụ lập trình Visual Basic ( VB), cho phép người dùng tiếp cận nhanh cách thức lập trình trên môi trường Windows với những tính năng trợ giúp mới và các công

cụ lập trình hiệu quả Với VB chúng ta có thể khai thác thế mạnh của các điều khiển mở rộng, làm việc với các điều khiển mới Các công cụ có thể di truyển được , sử dụng đồ họa , thanh cuộn

Thông qua các bài tập trong visual nhằm rèn luyện cho sinh viên các thao tác cần thiết cho phép thiết kế các ứng dụng đơn giản trong môi trường lập trình

Để học song ngôn ngữ lập trình Visual học sinh phải sử dụng thành thạo các điều khiển để thiết kế giao diện, vận dụng các cấu trúc lập trình trong Visual Basic để viết mã lệnh

Trong Visual Basic chúng ta làm việc với các thanh công cụ như:

Thanh Menu cho phép bạn tác động cũng như quản lý trực tiếp trên toàn bộ ứng dụng

Thanh công cụ cho phép truy cập các chức năng của thanh menu thông qua các nút trên thanh công cụ

Các biểu mẫu (Form) khối xây dựng chương trình chính của VB xuất hiện trong của sổ Form hộp công cụ để thêm các điều khiển vào các biểu mẫu của

đề án

Viết code với dao diện sau

v

Trang 10

Bài làm

Tạo nút xin chào , kết thúc bằng Command button trong hộp công cụ

Nút sin chào: name = cmdHello: caption = xin chào

Nút kết thúc: name = cmdEnd: caption = kết thúc

Sau đó mở của sổ code viết mã lệnh cho sự kiện click chuột vào nút lệnh

(Double click lên nút lệnh) lần lượt viết các hàm sau

Khi viết song code bạn nhấn F5 trên bàn phím

Trang 11

Website học trực tuyến – www.video book.vn

BÀI 3: TẠO FORM VỚI GIAO DIỆN HIỂN

THỊ LỜI CHÀO

Thiết lập các thuộc tính cho các điều khiển trên form

Yêu cầu khi nhấn nut Hello sẽ hiển thị câu chào các bạn và ngày giờ hiện tại

như hình trên Khi nhấn nút xóa sẽ xóa trắng ô văn bản

Khi nhấn nút đóng sẽ thoát khỏi chương trình

Bài làm

dùng nút textbox để hiển thị văn bản trên form

dùng đối tượng command button để tạo các nut nhấn

dùng chuột Click của các nút nhấn dùng hàm Now () để lấy ngày giờ hiện tại dùng hàm Format( Biểu thúc, “định dạng ” để định dạng kiểu hiển thị

thiết kế giao diện

Trang 12

Mã lệnh xử lý

Private Sub cmdHienThi _Click()

Me.txtHienthi = " xin chào mọi người!" & vbCrLf _

& "hôm nay là ngày " & Format(Now(), "dd/mm/yyyy") &

vbCrLf _

& "Bây giờ là " & Format(Now(), "hh:mm")

Trang 13

 Mã lệnh cho nut xoá

Private Sub cmdXoa_Click()

Me.txtHienthi = ""

End Sub

Trang 14

BÀI 4 : TẠO FORM THỰC HIỆN CÁC

Ta dùng 3 đối tượng textbox để nhập và hiển thị các giá trị số trên form

Dùng 6 đối tượng comand button để tạo các nút nhấn

Dùng sự kiện change của các ô textbox để kiểm tra dự liệu nhập

Dùng hàm Val, IsNumeric(biểu thức ) để chuyển đổi giá trị chuối thành số , kiểm tra biểu thức có phải là số hay không

Trang 15

Tại ô properties tạo Form vời giao diện thiết lạp các thuộc tính cho các điều kiện trên Form

Ta nhấp chuột vào biểu tượng nào thì điền dữ liệu vào biểu tượng đó

Đối tượng Điều khiển Thuộc tính Giá trị

Form

Name frmPhepToanCoBan Caption Cac phep toan co ban FontName Time new Roman FontSize 14

Trang 16

Sau đó ta viết lệnh cho các đối tượng như sau

 Mã lệnh cho nút chia số nguyên

Private Sub cmdChiaNguyen_Click()

Trang 17

Me.lblThongBao = "bạn đã thực hiện phép chia số nguyên !"

Me.txtKQ = Val(Me.txtSo1) / Val(Me.txtSo2)

Me.lblThongBao = "bạn đã thực hiện phép chia cho số thực !"

End If

End Sub

-

 Mã lệnh cho nut cộng

Private Sub cmdCong_Click()

Me.txtKQ = Val(Me.txtSo1) + Val(Me.txtSo2)

Me.lblThongBao = "bạn đã thực hiện phép cộng !"

End Sub

-

 Mã lệnh cho nut nhân

Private Sub cmdNhan_Click()

Trang 18

Me.txtKQ = Val(Me.txtSo1) * Val(Me.txtSo2)

Me.lblThongBao = "bạn đã thực hiện phép nhân !"

Me.txtKQ = Val(Me.txtSo1) Mod Val(Me.txtSo2)

Me.lblThongBao = "bạn đã thực hiện phép lấy phần dư !"

End If

End Sub

-

 Mã lệnh cho nút trừ

Private Sub cmdTru_Click()

Me.txtKQ = Val(Me.txtSo1) - Val(Me.txtSo2)

Me.lblThongBao = "bạn đã thực hiện phép trừ !"

End Sub

 Mã lệnh cho sự kiện Change của ô textbox số 1

Private Sub txtSo1_Change()

Me.txtKQ = ""

Trang 19

Me.lblThongBao = ""

If Not IsNumeric(Me.txtSo1) Then

Me.lblThongBao = "bạn phải nhập một giá trị số !"

End If

End Sub

-

 Mã lệnh cho sự kiện Change của ô textbox số 2

Private Sub txtSo2_Change()

Me.txtKQ = ""

Me.lblThongBao = ""

If Not IsNumeric(Me.txtSo2) Then

Me.lblThongBao = "bạn phải nhập một giá trị số !"

End If

End Sub

Trang 20

BÀI 5: TẠO FROM THỰC HIỆN PHÉP TÍNH

GIA THỪA CỦA MỘT SỐ

Khi nhấn vào nút nào các nút sẽ thực hiện các phép toán tương ứng và hiện câu thông bào đã thực hiện phép tính nào

Khi nhập giá trị không phải là số vào ô textbox giá trị sẽ hiển thị thông bào nỗi Khi đăng nhập dữ liệu cho ô giá trị thì ô kết quả và ô thông báo phải được xóa trắng

Bài làm

Dùng 2 textbox để nhập và hiển thị các giá trị số trên

Form 4 command button để tạo các nút nhấn

Dùng sự kiện change của các ô textbox để kiểm tra dữ liệu nhập

Dùng hàm Val(biểu thúc ) để chuyển đổi giá trị chuỗi thành con số, hàm

IsNumeric(biểu thức )kiểm tra biểu thúc có phải số hay không

Tại ô properties tạo Form vời giao diện thiết lạp các thuộc tính cho các điều kiện trên Form

Trang 21

Đối tượng Điều khiển Thuộc tính Giá trị

Form

Name frmPhepToan Caption Cac phep tinh FontName Time new Roman FontSize 14

TextBox

Text1

Name txtGiaTri Text Bỏ trắng

Label2

Caption Kết quả Label3 Name lblThongBao

Trang 22

 Mã lệnh cho nút tính giai thừa

Private Sub CmdGiaThua_Click()

On Error GoTo loi

txtKQ.Text = 1

For I = 1 To Val(Me.txtGiaTri)

txtKQ.Text = Val(txtKQ.Text) * I Next I

LblThongBao.Caption = "bạn chọn tính giai thừa"

Exit Sub

loi: Call MsgBox("giá trị lớn không tính giai thừa", vbCritical + _

vbOKOnly, "thông báo lỗi")

Trang 23

 Mã lệnh cho sự kiện Change của textbox giá trị

Private Sub txtGiaTri_Change()

If IsNumeric(txtGiaTri) = False Then

Call MsgBox("giá trị không hợp lệ !!! yêu cầu nhập lại ", _ vbCritical + vbOKOnly, "thông báo lỗi")

End If

Me.txtKQ=””

End Sub

Trang 24

BÀI 6: TẠO DỰ ÁN MỚI TRONG VB LẤY THỜI GIAN

Yêu cầu

khi nhấn nut Lấy giờ phut giây trên ô lable sẽ hiển thị giờ phút giây hiện tại

và nhấn nút giờ, phút sẽ hiện giờ phút hiện tại

Khi nhấn nút đóng sẽ thoát khỏi chương trình

Bài làm

dùng đối tượng command button để tạo các nut nhấn giờ phút giây

dùng đối tượng lable để hiển thị thời gian

trong đó : Lable: Name: lblTg

commanbutton1: name: cmdGiơphut

button2: name: cmdGio phutGiay

thêm modul mới vào dự án tên Modull Chọn Tool\Add procedure tạo thủ tục name: Laythoigian

Trang 25

Type: Sub

Scope: Public

Viết đoạn mã sau

Public Sub Laythoigian(gio As String, phut As String, Optional giay As

Private Sub cmdGioPhutGiay_Click()

Dim gioht As String

Dim phutht As String

Dim giayht As String

Call Laythoigian(gioht, phutht, giayht)

lblTg.Caption = gioht & ":" & phutht & ":" & giayht

End Sub

Thủ tục xử lý cho cmdgiophut

Private Sub cmdGioPhut_Click()

Dim gioht As String

Dim phutht As String

'khong su dung tham so thu 3

Trang 26

Call Laythoigian(gioht, phutht)

lblTg.Caption = gioht & ":" & phutht

End Sub

Trang 27

BÀI 7: TẠO FORM ĐỂ TÍNH CHI PHÍ CỦA CÔNG

Dùng 4 đối tượng Textbox để nhập và hiển thị các giá trị số

Dung 2 đối tượng frame để taọ 2 khung Tuyến du lich và Đăng ký

Dùng 4 đối tượng option button để chọn tuyến du lịch

Dung 4 đối tượng checkbox để chọn đăng ký du lịch

Trang 28

1 đối tượng command button để tạo nút nhấn , thuộc tính Enabled để làm mờ hay đậm các ô textbox

Đối tượng Điêù khiển Thuộc tính Giá trị

Form

Name frmDuLich Caption Du Lich FontName Time new Roman FontSize 14

Trang 29

Viết mã lệnh xử lý

Mã lệnh cho checkbox Ăn uống

Private Sub chkAn_Click()

txtAn.Enabled = chkAn.Value

End Sub

-

 Mã lệnh cho check box đi lại

Private Sub chkDL_Click()

Trang 30

 Mã lệnh cho checkbox tham quan

Private Sub chkTQ_Click()

txtTQ.Enabled = chkTQ.Value

End Sub

-

 Mã lệnh cho nút Tính chi phí

Private Sub cmdChiPhi_Click()

Dim s1 As String, s2 As String, cp As Long

If optNT Then s1 = "Bạn chọn tuyến du lịch nha trang"

If optVT Then s1 = " Bạn chọn tuyến du lịch vũng tầu ”

If optH Then s1 = "bạn chọn tuyến du lịch huế ”

Trang 31

s2 = s2 & "Tổng chi phí là: " & cp & vbCrLf & vbCrLf

s2 = s2 & "chúc bạn một chuyến đi vui vẻ !"

MsgBox s1 & s2, , "Chi phi chuyen di"

End Sub

-

 Mã lệnh cho sự kiện load của form

Private Sub Form_Load()

chkDL = 1

optNT = True

Trang 32

 Mã lệnh cho option Huế

Private Sub optH_Click()

 Mã lệnh cho option Nha trang

Private Sub optNT_Click()

 Mã lệnh cho option Vung tầu

Private Sub optVT_Click()

Trang 33

Trang 34

BÀI 8: TẠO FORM THỰC HIỆN GIẢI PHƯƠNG

TRÌNH BẬC 2

Khi nhấn nút tính sẽ thực hiện giải phương trinh và hiện câu thông báo nghiệm tim được , khi đang nhập dữ liệu cho các ô hệ số thì ô kết quả và ô thông báo phải được xóa trắng , nếu phương trình vô nghiệm thì sẽ hiện câu thông báo và ẩn đi các textbox X1, X2

Bài làm

Dùng 5 đối tượng textbox để nhập và hiển thị các giá trị hệ số cũng như nghiệm của phương trình

Dùng 2 đối tượng command button để tạo các nút nhấn , dùng sự kiện

LostFocus của các ô textbox hệ số để hiệu chỉnh dữ liệu nhập

Dùng hàm Val(biểu thức ) để chuyển đổi chuỗi thành số

Dùng hàn IsNumeric(biểu thúc ) để kiểm tra biểu thúc có phải số hay không Giải phương trinh bậc 2 theo thuất toán

Đối tượng Điều khiển Thuộc tinh Giá trị

Trang 35

Form

Caption Giai PT bac 2 FontName Time new Roman FontSize 14

Label2

Caption X2 +

Trang 36

Viết mã lệnh xủ lý

 Mã lệnh cho nút đóng

Private Sub CMDDONG_Click()

Dim TL As Byte

TL = MsgBox("BAN MUON THOAT CHUONG TRINH ?", _

vbQuestion + vbYesNo, "THONG BAO ")

If TL = vbYes Then End

End Sub

-

 Mã lệnh cho nút tính

Private Sub CMDTINH_Click()

Dim A, B, C, X1, X2, X, DELTA As Double

Trang 37

LBLThongBao.Caption = "PHUONG TRINH CO NGHIEM DUY

NHAT" & _ Chr(10) & " X = " & Str(X) End If

Else

DELTA = B * B - 4 * A * C

Select Case DELTA

Case Is < 0

Trang 38

LBLThongBao.Caption = " PHƯƠNG TRÌNH CÓ VÔ SỐ NGHIỆM " Case Is = 0

X = -B / 2 / A

LBLThongBao.Caption = "PHUONG TRINH CO NGHIEM DUY

NHAT" & _ Chr(10) & " X = " & Str(X) Case Else

Mã lênh cho sự kiện khi Form được chaỵ

Private Sub Form_Load()

LBLTB.Caption = "BẠN HÃY NHẬP CÁC HỆ SỐ VÀO Ô TƯƠNG ỨNG ” End Sub

-

Trang 39

 Mã lệnh cho sự kiện Change của ô textbox hệ số a

Private Sub TXTA_Change()

If IsNumeric(TXTA.Text) = False Then

Call MsgBox("HE SO A KHONG HOP LE !" & Chr(10) & _

"BAN HAY NHAP LAI", vbCritical + vbOKOnly, "THONG BAO LOI")

End If

End Sub

-

 Mã lệnh cho sự kiện Change của ô textbox hệ số B

Private Sub TXTB_Change()

If IsNumeric(TXTB.Text) = False Then

Call MsgBox("HE SO B KHONG HOP LE !" & Chr(10) & _

"BAN HAY NHAP LAI", vbCritical + vbOKOnly, "TH0NG BAO LOI")

End If

End Sub

-

 Mã lệnh cho sự kiện Change của ô textbox hệ số C

Private Sub TXTC_Change()

If IsNumeric(TXTC.Text) = False Then

Call MsgBox("HE SO C KHONG HOP LE !" & Chr(10) & _

"BAN HAY NHAP LAI", vbCritical + vbOKOnly, "THONG BAO LOI")

Trang 40

End If

End Sub

-

 Mã lệnh cho sự kiện LostFocus của ô textbox hệ số A

Private Sub TXTA_LostFocus()

 Mã lệnh cho sự kiện LostFocus của ô textbox hệ số B

Private Sub TXTB_LostFocus()

 Mã lệnh cho sự kiện LostFocus của ô textbox hệ số C

Private Sub TXTC_LostFocus()

Trang 41

Trang 42

BÀI 9: BÀI TẬP SỬ LÝ CHUỖI VĂN BẢN

Bạn nhập một chuỗi vào ô textbox khi chạy chương trình để ô trắng

Khi nhấn ô tách tên ô textbox sẽ đếm ký tụ bạn vừa nhập

Khi nhấn ô tách khoảng trắng trong ô textbox sẽ tách dữ liệu bạn vừa nhập

Bài làm

Thuộc tính Form: Name: frmMain; Minbutton: False, Maxbutton: False; Font: time new Roman

Lable : Name: lblTen, capition: nhập tên

Textbox: name: txtTen

Commandbutton: name: cmdTem, caption: Tách tên

Commandbutton: name: cmdCKT, caption: Cách khoang trắng

Bạn tạo một hàm cắt khoảng trắng như sau

Private Function Atrim(ByVal name As String) As String

name = LTrim(RTrim(name))

Do While InStr(name, " ") <> o

name = Replace(name, " ", " ")

Định dạng
Số trang	77
Dung lượng	2,58 MB