Căn bản về Visual Basic
1 2Lậptrìnhứng dụng trên Visual BasiczGiớithiệu chungzCác sự kiệnvàxử lý sự kiệnzBiếnvàcáckiểudữ liệucơ bảnzCú pháp củathủ tục/hàmzCác cấutrúcđiềukhiểncơ bảnzLàm việcvớikiểudữ liệuDatezClass module 3Biến và các kiểudữ liệucơ bảnzMộtsố kiểudữ liệucơ bản:Kiểudữ liệuPhạmviInteger-32768 32767Long -2,147,483,648 2,147,483,647Currency -922,337,203,685,477 922,337,203,685,477Date 1/1/100 12/31/9999String 0 2 tỷ ký tựByte 0 255Boolean True – False 4Biến và các kiểudữ liệucơ bảnzKhai báo biếnDim TênBiến As KiểuDữLiệuzLưuý:–Các biếnthuộckiểudữ liệucơ bảncóthể sửdụng ngay sau khi khai báoDim X As IntegerX = 5–Các biếnthuộckiểudữ liệuphứctạpphảicấpphát trướckhisử dụngDim Cn As ADODB.ConnectionSet Cn = new ADODB.Connection…Set Cn = nothing 5Biến và các kiểudữ liệucơ bảnzPublic và PrivatePublic Dim TênBiến As KiểuDữLiệuPrivate Dim TênBiến As KiểuDữLiệu 6Biến và các kiểudữ liệucơ bảnzLệnh VarType dùng để xác định loạigiátrị củabiếnGiá trịÝ nghĩa(loạigiátrị củabiến)0 Empty1 Null2 Integer3 Long6 Currency7Date8String10 Error11 BooleanZ = VarType(X)Z = TypeName(X) 7Biến và các kiểudữ liệucơ bảnLệ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 = 123ASC X = 65CHR S = “A”INSTR X = 1X = 4X = 0LEN X = 3LEFT S = “AB”RIGHT S = “BC”MID S = “C”LCASE S = “abc”UCASE S = “ABC” 8Thủ tụcvàhàmMộtsố ví dụ:Private Sub P1 () .End SubPrivate Sub P1 () .End SubPublic Function F1 As IntegerF1 = 10End FunctionPublic Function F1 As IntegerF1 = 10End FunctionPublic Sub P2 (X As Integer, Optional Y As String)If (IsMissing(Y)) Then Y = “”End SubPublic Sub P2 (X As Integer, Optional Y As String)If (IsMissing(Y)) Then Y = “”End SubPrivate Function F2 (Optional Y As String) As IntegerIf (IsMissing(Y)) Then Y = “”F2 = Len(Y)End FunctionPrivate Function F2 (Optional Y As String) As IntegerIf (IsMissing(Y)) Then Y = “”F2 = Len(Y)End Function 9Các cấutrúcđiềukhiểncơ bảnIf điều_kiện Then LệnhIf điều_kiện Then LệnhIf điều_kiện Then(Các) LệnhElseIf điều_kiện Then(Các) LệnhElse(Các) LệnhEnd IfIf điều_kiện Then(Các) LệnhElseIf điều_kiện Then(Các) LệnhElse(Các) LệnhEnd IfIf điều_kiện Then(Các) LệnhEnd IfIf điều_kiện Then(Các) LệnhEnd IfIf điều_kiện Then(Các) LệnhElse(Các) LệnhEnd IfIf điều_kiện Then(Các) LệnhElse(Các) LệnhEnd If 10Các cấutrúcđiềukhiểncơ bảnWhile điều_kiện_lặp(Các) lệnhWendWhile điều_kiện_lặp(Các) lệnhWendExit DoDo Until điều_kiện_dừng(Các) lệnhLoopDo Until điều_kiện_dừng(Các) lệnhLoopDo While điều_kiện_lặp(Các) lệnhLoopDo While điều_kiện_lặp(Các) lệnhLoop [...]...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 =... week DateInterval.Year yyyy Year 11 Các cấutrúcđiềukhiểncơ bản 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 (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ệnh Next Exit For 1 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 . trên Visual BasiczGiớithiệu chungzCác sự kiệnvàxử lý sự kiệnzBiếnvàcáckiểudữ liệucơ bảnzCú pháp củathủ tục/hàmzCác cấutrúcđiềukhiểncơ bảnzLàm việcvớikiểudữ. việcvớikiểudữ liệuDatezClass module 3Biến và các kiểudữ liệucơ bảnzMộtsố kiểudữ liệucơ bản: Kiểudữ liệuPhạmviInteger-32768 .. 32767Long -2,147,483,648 ..