Lập trình ứng dụng trên Visual Basic ppsx

1 2 Lậptrìnhứng dụng trên Visual Basic z Giớithiệu chung z Các sự kiệnvàxử lý sự kiện z Biếnvàcáckiểudữ liệucơ bản z Cú pháp củathủ tục/hàm z Các cấutrúcđiềukhiểncơ bản z Làm việcvớikiểudữ liệuDate z Class module 3 Biến và các kiểudữ liệucơ bản z Mộtsố kiểudữ liệucơ bản: Kiểudữ liệuPhạmvi Integer -32768 32767 Long -2,147,483,648 2,147,483,647 Currency -922,337,203,685,477 922,337,203,685,477 Date 1/1/100 12/31/9999 String 0 2 tỷ ký tự Byte 0 255 Boolean True – False 4 Biến và các kiểudữ liệucơ bản z Khai báo biến Dim TênBiến As KiểuDữLiệu z Lưuý: – Các biếnthuộckiểudữ liệucơ bảncóthể sử dụng ngay sau khi khai báo Dim X As Integer X = 5 – Các biếnthuộckiểudữ liệuphứctạpphảicấp phát trướckhisử dụng Dim Cn As ADODB.Connection Set Cn = new ADODB.Connection … Set Cn = nothing 5 Biến và các kiểudữ liệucơ bản z Public và Private Public Dim TênBiến As KiểuDữLiệu Private Dim TênBiến As KiểuDữLiệu 6 Biến và các kiểudữ liệucơ bản z Lệnh VarType dùng để xác định loạigiátrị củabiến Giá trị Ý nghĩa(loạigiátrị củabiến) 0 Empty 1 Null 2 Integer 3 Long 6 Currency 7Date 8String 10 Error 11 Boolean Z = VarType(X) Z = TypeName(X) 7 Biến và các kiểudữ liệucơ bản Lệnh Ví dụ Kếtquả STR S = STR(123) X = VAL(“123”) X = ASC(“A”) S = CHR(65) X = INSTR (“ABCA”, “A”) X = INSTR (2, “ABCA”, “A”) X = INSTR (“ABCA”, “D”) X = LEN(“ABC”) S = LEFT(“ABC”, 2) S = RIGHT(“ABC”, 2) S = MID(“ABCD”, 3, 1) S = LCASE(“Abc”) S = UCASE(“Abc”) S = “123” VAL X = 123 ASC X = 65 CHR S = “A” INSTR X = 1 X = 4 X = 0 LEN X = 3 LEFT S = “AB” RIGHT S = “BC” MID S = “C” LCASE S = “abc” UCASE S = “ABC” 8 Thủ tụcvàhàm Mộtsố ví dụ: Private Sub P1 () End Sub Private Sub P1 () End Sub Public Function F1 As Integer F1 = 10 End Function Public Function F1 As Integer F1 = 10 End Function Public Sub P2 (X As Integer, Optional Y As String) If (IsMissing(Y)) Then Y = “” End Sub Public Sub P2 (X As Integer, Optional Y As String) If (IsMissing(Y)) Then Y = “” End Sub Private Function F2 (Optional Y As String) As Integer If (IsMissing(Y)) Then Y = “” F2 = Len(Y) End Function Private Function F2 (Optional Y As String) As Integer If (IsMissing(Y)) Then Y = “” F2 = Len(Y) End Function 9 Các cấutrúcđiềukhiểncơ bản If điều_kiện Then Lệnh If điều_kiện Then Lệnh If điều_kiện Then (Các) Lệnh ElseIf điều_kiện Then (Các) Lệnh Else (Các) Lệnh End If If điều_kiện Then (Các) Lệnh ElseIf điều_kiện Then (Các) Lệnh Else (Các) Lệnh End If If điều_kiện Then (Các) Lệnh End If If điều_kiện Then (Các) Lệnh End If If điều_kiện Then (Các) Lệnh Else (Các) Lệnh End If If điều_kiện Then (Các) Lệnh Else (Các) Lệnh End If 10 Các cấutrúcđiềukhiểncơ bản While điều_kiện_lặp (Các) lệnh Wend While điều_kiện_lặp (Các) lệnh Wend Exit Do Do Until điều_kiện_dừng (Các) lệnh Loop Do Until điều_kiện_dừng (Các) lệnh Loop Do While điều_kiện_lặp (Các) lệnh Loop Do While điều_kiện_lặp (Các) lệnh Loop [...]...Các cấu trúc điều khiển cơ bản For biến_lặp=Biên_dưới To Biên _trên (Các) lệnh Next Exit For For biến_lặp=Biên_dưới To Biên _trên Step GiáTrị (Các) lệnh Next 11 Các cấu trúc điều khiển cơ bản Select Case Biến Case giá_trị_1 (Các) lệnh Case giá_trị_2 (Các) lệnh Case Else (Các) lệnh End Select Select . 1 2 Lậptrìnhứng dụng trên Visual Basic z Giớithiệu chung z Các sự kiệnvàxử lý sự kiện z Biếnvàcáckiểudữ liệucơ bản z. biến_lặp=Biên_dưới To Biên _trên (Các) lệnh Next For biến_lặp=Biên_dưới To Biên _trên (Các) lệnh Next For biến_lặp=Biên_dưới To Biên _trên Step GiáTrị (Các) lệnh Next For biến_lặp=Biên_dưới To Biên _trên Step GiáTrị (Các). Lưuý: – Các biếnthuộckiểudữ liệucơ bảncóthể sử dụng ngay sau khi khai báo Dim X As Integer X = 5 – Các biếnthuộckiểudữ liệuphứctạpphảicấp phát trướckhisử dụng Dim Cn As ADODB.Connection Set Cn = new