Bài giảng Lập trình ứng dụng Visualbasic: Bài 5 - Phạm Đình Sắc
Số trang: 19
Loại file: pdf
Dung lượng: 291.24 KB
Lượt xem: 14
Lượt tải: 0
Xem trước 2 trang đầu tiên của tài liệu này:
Thông tin tài liệu:
Bài giảng Lập trình ứng dụng Visualbasic bài 5: Kỹ thuật lập trình trong VB.Net trình bày về hàm - thủ tục, khái niệm lập trình hướng đối tượng, lập trình theo sự kiện, lập trình thuộc tính, bắt lỗi trong lập trình.
Nội dung trích xuất từ tài liệu:
Bài giảng Lập trình ứng dụng Visualbasic: Bài 5 - Phạm Đình Sắc Buổi 5: Kỹ thuật lập trình trong VB.NET Hàm (Function) - Thủ tục (Procedure) Khái niệm lập trình hướng đối tượng (OOP: Object Orientation Programming) Lập trình theo sự kiện (Event) và lập trình Thuộc tính (Property) Windows Form programming with VB.Net 2005. 1 Hàm (Function) [Public, Protected, Private] Function _ [(Danh sách các tham số)] AS _ [Handles eventlist] [Khai báo biến thuộc tầm vực của hàm] [Các câu lệnh …] [Exit Fucntion] Return End Fucntion - Một Hàm là dãy các câu lệnh để thực thi một công việc, một chức năng đặc thù nào đó - Hàm được gọi để thi hành thông qua tên thủ tục - Hàm thường có giá trị trả về Windows Form programming with VB.Net 2005. 2 1 VD: Hàm Private Function Max(ByVal a As Integer, ByVal _ b As Integer) As Integer If a > b Then Return a Else Return b End If End Function Dim C as Integer C = Max(a,b) Windows Form programming with VB.Net 2005. 3 Thủ tục (Procedure) [Public, Protected, Private] Sub _ [(Danh sách các tham số)] [Handles eventlist] [Khai báo biến thuộc tầm vực của thủ tục] [Các câu lệnh …] [Exit Sub] End Sub - Chức năng của thủ tục giống như Hàm, nhưng Thủ tục không có giá trị trả về Windows Form programming with VB.Net 2005. 4 2 Private Sub bntAn_Click(.. , ..) Handles bntAn.Click AnGioiTinh() End Sub Windows Form programming with VB.Net 2005. 5 VD: Thủ tục Private Sub AnGioiTinh() Dim rdb As RadioButton For Each Ctrl As Control In GroupBox1.Controls On Error Resume Next ' Có lỗi bỏ qua rdb = CType(Ctrl , RadioButton) ' chuyển kiểu rdb.Visible = False Next GroupBox1.Text = Sở thích:“ End Sub Windows Form programming with VB.Net 2005. 6 3 VD: Hàm trả về 1 đối tượng Command Public Function GetCommand() As OleDbCommand Dim cn As New OleDbConnection Dim cmd As New OleDbCommand Dim strConnection As String = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\QLNhanSu.mdb Source=D:\ cn.ConnectionString = strConnection cn.Open() cmd.CommandType = CommandType.StoredProcedure cmd.CommandText = “sp_NhanVien” cmd.Connection = cn return cmd End Function Windows Form programming with VB.Net 2005. 7 VD: DataAdapter & Fill cho DataTable public function GetDataTable() as DataTable etD ataT able() ataT Dim da As New OleDbDataAdapter() Dim tb As New DataTable() DataTable() Try ‘ Cmd đối tượng đã được khai báo & khởi tạo Tr y đ ố tượ đượ bá khở tạ da.SelectCommand = Cmd da.SelectCommand ‘ = GetCommand() da.Fill(tb) Return tb Catch ex As Exception MsgBox(ex.Message) Return Nothing End Try End Function Windows Form programming with VB.Net 2005. 8 4 VD: DataAdapter & Fill cho DataSet Public Function GetDataSet() as DataSet GetDataSet() ataSet Dim da As New OleDbDataAdapter() Dim ds As New DataSet() DataSet() Try ‘ Cmd đối tượng đã được khai báo & khởi tạo đố tượ đượ bá khở tạ da.SelectCommand = Cmd da.SelectCommand ‘ = GetCommand() da.Fill(ds) ‘da.Fill(ds, “TableName”) da.Fill(ds) da.Fill(ds, TableName” Return ds Catch ex As Exception MsgBox(ex.Message) Return Nothing End Try End Function Windows Form programming with VB.Net 2005. 9 Public Function GetDataReader(ByVal StoreProceureName As String, Optional ByVal arrParams() As String = Nothing, Optional ByVal arrValues() As Object = Nothing) As OleDbDataReader Dim rd As OleDbDataReader Dim cmd As New OleDbCommand cmd = me.GetCommand() If Not (arrParams Is Nothing) Then For nIndex As Integer = 0 To (arrParams.Length - 1) cmd.Parameters.AddWithValue(arrParams(nIndex), arrValues(nIndex)) Next End If rd = cmd.ExecuteReader() Return rd ‘cmd.ExecuteReader() End Function Windows Form programming with VB.Net 2005. 10 5 Lập trình hướng đối tượng Lập trình hướng đối tượng là gì? Trong thế giới thực, đối tượng là thực thể tồn tại như con người, xe, máy tính, v.v… Trong ngôn ngữ lập trình, đối tượng có thể là màn hình, mouse, các control v.v… Lập trình hướng đối tượng là kiểu lập trình nhằm vào sự tương tác giữa các đối tượng Một đối tượng có các đặc điểm sau: - Những thuộc tính: xác định các đặc điểm của đối tượng - Những phương thức:x/định các chức năng của đối tượng - Các sự kiện phát sinh khi thay đổi thuộc tính, thực hiện một phương thức hay bị đối tượng khác tác động vào Windows Form programming with VB.Net 2005. 11 Đặc điểm trong Lập trình hướng đối tượng: Abstraction: Tính trừu tượng Encapsulation: Tính bao bọc (đóng gói) Inheritance: Tính kế thừa Polymorphism: Tính đa hình Windows Form programming with VB.Net 2005. 12 6 Abstraction: Tính trừu tượng Trong thế giới thực tồn tại các đối tượng có cùng các thuộc tính cần quản lý như: Nhân viên, sinh viên, hàng hóa… ...
Nội dung trích xuất từ tài liệu:
Bài giảng Lập trình ứng dụng Visualbasic: Bài 5 - Phạm Đình Sắc Buổi 5: Kỹ thuật lập trình trong VB.NET Hàm (Function) - Thủ tục (Procedure) Khái niệm lập trình hướng đối tượng (OOP: Object Orientation Programming) Lập trình theo sự kiện (Event) và lập trình Thuộc tính (Property) Windows Form programming with VB.Net 2005. 1 Hàm (Function) [Public, Protected, Private] Function _ [(Danh sách các tham số)] AS _ [Handles eventlist] [Khai báo biến thuộc tầm vực của hàm] [Các câu lệnh …] [Exit Fucntion] Return End Fucntion - Một Hàm là dãy các câu lệnh để thực thi một công việc, một chức năng đặc thù nào đó - Hàm được gọi để thi hành thông qua tên thủ tục - Hàm thường có giá trị trả về Windows Form programming with VB.Net 2005. 2 1 VD: Hàm Private Function Max(ByVal a As Integer, ByVal _ b As Integer) As Integer If a > b Then Return a Else Return b End If End Function Dim C as Integer C = Max(a,b) Windows Form programming with VB.Net 2005. 3 Thủ tục (Procedure) [Public, Protected, Private] Sub _ [(Danh sách các tham số)] [Handles eventlist] [Khai báo biến thuộc tầm vực của thủ tục] [Các câu lệnh …] [Exit Sub] End Sub - Chức năng của thủ tục giống như Hàm, nhưng Thủ tục không có giá trị trả về Windows Form programming with VB.Net 2005. 4 2 Private Sub bntAn_Click(.. , ..) Handles bntAn.Click AnGioiTinh() End Sub Windows Form programming with VB.Net 2005. 5 VD: Thủ tục Private Sub AnGioiTinh() Dim rdb As RadioButton For Each Ctrl As Control In GroupBox1.Controls On Error Resume Next ' Có lỗi bỏ qua rdb = CType(Ctrl , RadioButton) ' chuyển kiểu rdb.Visible = False Next GroupBox1.Text = Sở thích:“ End Sub Windows Form programming with VB.Net 2005. 6 3 VD: Hàm trả về 1 đối tượng Command Public Function GetCommand() As OleDbCommand Dim cn As New OleDbConnection Dim cmd As New OleDbCommand Dim strConnection As String = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\QLNhanSu.mdb Source=D:\ cn.ConnectionString = strConnection cn.Open() cmd.CommandType = CommandType.StoredProcedure cmd.CommandText = “sp_NhanVien” cmd.Connection = cn return cmd End Function Windows Form programming with VB.Net 2005. 7 VD: DataAdapter & Fill cho DataTable public function GetDataTable() as DataTable etD ataT able() ataT Dim da As New OleDbDataAdapter() Dim tb As New DataTable() DataTable() Try ‘ Cmd đối tượng đã được khai báo & khởi tạo Tr y đ ố tượ đượ bá khở tạ da.SelectCommand = Cmd da.SelectCommand ‘ = GetCommand() da.Fill(tb) Return tb Catch ex As Exception MsgBox(ex.Message) Return Nothing End Try End Function Windows Form programming with VB.Net 2005. 8 4 VD: DataAdapter & Fill cho DataSet Public Function GetDataSet() as DataSet GetDataSet() ataSet Dim da As New OleDbDataAdapter() Dim ds As New DataSet() DataSet() Try ‘ Cmd đối tượng đã được khai báo & khởi tạo đố tượ đượ bá khở tạ da.SelectCommand = Cmd da.SelectCommand ‘ = GetCommand() da.Fill(ds) ‘da.Fill(ds, “TableName”) da.Fill(ds) da.Fill(ds, TableName” Return ds Catch ex As Exception MsgBox(ex.Message) Return Nothing End Try End Function Windows Form programming with VB.Net 2005. 9 Public Function GetDataReader(ByVal StoreProceureName As String, Optional ByVal arrParams() As String = Nothing, Optional ByVal arrValues() As Object = Nothing) As OleDbDataReader Dim rd As OleDbDataReader Dim cmd As New OleDbCommand cmd = me.GetCommand() If Not (arrParams Is Nothing) Then For nIndex As Integer = 0 To (arrParams.Length - 1) cmd.Parameters.AddWithValue(arrParams(nIndex), arrValues(nIndex)) Next End If rd = cmd.ExecuteReader() Return rd ‘cmd.ExecuteReader() End Function Windows Form programming with VB.Net 2005. 10 5 Lập trình hướng đối tượng Lập trình hướng đối tượng là gì? Trong thế giới thực, đối tượng là thực thể tồn tại như con người, xe, máy tính, v.v… Trong ngôn ngữ lập trình, đối tượng có thể là màn hình, mouse, các control v.v… Lập trình hướng đối tượng là kiểu lập trình nhằm vào sự tương tác giữa các đối tượng Một đối tượng có các đặc điểm sau: - Những thuộc tính: xác định các đặc điểm của đối tượng - Những phương thức:x/định các chức năng của đối tượng - Các sự kiện phát sinh khi thay đổi thuộc tính, thực hiện một phương thức hay bị đối tượng khác tác động vào Windows Form programming with VB.Net 2005. 11 Đặc điểm trong Lập trình hướng đối tượng: Abstraction: Tính trừu tượng Encapsulation: Tính bao bọc (đóng gói) Inheritance: Tính kế thừa Polymorphism: Tính đa hình Windows Form programming with VB.Net 2005. 12 6 Abstraction: Tính trừu tượng Trong thế giới thực tồn tại các đối tượng có cùng các thuộc tính cần quản lý như: Nhân viên, sinh viên, hàng hóa… ...
Tìm kiếm theo từ khóa liên quan:
Lập trình ứng dụng Visualbasic Bài giảng Lập trình ứng dụng Visualbasic Kỹ thuật lập trình Lập trình hướng đối tượng Lập trình theo sự kiện Lập trình thuộc tính Bắt lỗi trong lập trỉnhGợi ý tài liệu liên quan:
-
Giáo trình Lập trình hướng đối tượng: Phần 2
154 trang 267 0 0 -
Kỹ thuật lập trình trên Visual Basic 2005
148 trang 256 0 0 -
NGÂN HÀNG CÂU HỎI TRẮC NGHIỆM THIẾT KẾ WEB
8 trang 200 0 0 -
101 trang 198 1 0
-
Giới thiệu môn học Ngôn ngữ lập trình C++
5 trang 189 0 0 -
Bài giảng Nhập môn về lập trình - Chương 1: Giới thiệu về máy tính và lập trình
30 trang 158 0 0 -
Luận văn: Nghiên cứu kỹ thuật giấu tin trong ảnh Gif
33 trang 150 0 0 -
14 trang 133 0 0
-
Báo cáo thực tập Công nghệ thông tin: Lập trình game trên Unity
27 trang 117 0 0 -
Giáo trình về phân tích thiết kế hệ thống thông tin
113 trang 114 0 0