BÀI GIẢNG MÔN THIẾT KẾ WEB ppsx

12 http://www.thayphet.net Written by: Dương Thành Phết Function giaithua(ByVal k As Integer) Dim i As Integer, s As Long = 1 For i = 1 To k s = s * i Next giaithua = s End Function Function tonggiaithua(ByVal x As Integer, ByVal y As Integer) Dim i As Integer, s As Long = 0 For i = x To y s = s + giaithua(i) Next tonggiaithuadayso = s End Function Private Sub cmdTonggiaithuadayso_Click(. . .) Dim n As Integer, m As Integer n = Val(txtson.Text) m = Val(txtsom.Text) txtketqua.Text = tonggiaithua(n, m) End Sub This is trial version www.adultpdf.com 1313 Written by: Dương Thành Phết http://www.thayphet.net Truyền tham số : Có 2 kiểu truyền tham số: truyền theo tham biến và truyền theo tham trị. Cú pháp : [ByRef | ByVal] <tênbin> AS kiud liu  Truyền theo tham trị (ByVal): Mọi thay ñổi chỉ diễn ra trên bản sao của tham số chứ không ảnh hưởng ñến biến ñược truyền.  Truyền theo tham biến(ByRef): Khi truyền theo tham biến, các thay ñổi trên tham số trong chương trình con có ảnh hưởng trực tiếp ñến tham số thực. This is trial version www.adultpdf.com 1414 Written by: Dương Thành Phết http://www.thayphet.net  Khi truyền tham trị, mọi thay ñổi chỉ diễn ra trên bản sao của tham số chứ không ảnh hưởng ñến biến ñược truyền.  Khi truyền theo tham biến Các thay ñổi trên tham số trong hàm con có ảnh hưởng trực tiếp ñến tham số ñược truyền txtTruochoanviA1 txtTronghoanviA1 txtSauhoanviA1 txtTruochoanviA2 txtTronghoanviA2 txtSauhoanviA2 txtSoa txtSob This is trial version www.adultpdf.com 1515 Written by: Dương Thành Phết http://www.thayphet.net ‘Tham số là tham trị Sub HoanVi1(ByVal a As Integer, ByVal b As Integer) Dim tam As Integer tam = a a = b b = tam txtTronghoanviA1.Text = a txtTronghoanviB1.Text = b End Sub ‘Tham số là tham biến Sub HoanVi2(ByRef a As Integer, ByRef b As Integer) Dim tam As Integer tam = a a = b b = tam txtTronghoanviA2.Text = a txtTronghoanviB2.Text = b End Sub This is trial version www.adultpdf.com 1616 Written by: Dương Thành Phết http://www.thayphet.net Private Sub btXemketqua_Click( . . .) Dim a As Integer, b As Integer a = Val(txtSoa.Text) b = Val(txtSob.Text) 'Truyen tham so la tham bien txtTruochoanviA1.Text = a txtTruochoanviB1.Text = b HoanVi1(a, b) txtSauhoanviA1.Text = a txtSauhoanviB1.Text = b 'Truyen tham so la tham tri txtTruochoanviA2.Text = a txtTruochoanviB2.Text = b HoanVi2(a, b) txtSauhoanviA2.Text = a txtSauhoanviB2.Text = b End Sub This is trial version www.adultpdf.com 1717 Written by: Dương Thành Phết http://www.thayphet.net Sử dụng ñể xuất hiện hộp thoại thông báo, hỏi ñáp với người sử dụng Cú pháp: MessageBox.Show(<Thông báo>[,<Tiêu ñề>[,<Kiểu nút>[,<Kiểu ảnh>]]]) Tham số xác ñịnh kiểu nút lệnh trên hộp thông báo: Tham số xác ñịnh kiểu hình ảnh trên hộp thông báo: Hàm Messagebox This is trial version www.adultpdf.com 1818 Written by: Dương Thành Phết http://www.thayphet.net Kết quả trả về cho sự kiện Click các vào các nút lệnh trên hộp thông báo: If MessageBox.Show("Bạn muốn thoát?", "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Me.Close() End If VD: ðóng Form có xuất hiện thông báo: This is trial version www.adultpdf.com 1919 Written by: Dương Thành Phết http://www.thayphet.net Sử dụng ñể xuất hiện hộp thoại cho người dùng nhập 1 giá trị Cú pháp: InputBox(Thông báo, Tiêu ñề,[Trị mặc ñịnh]) As String Hàm Inputbox Ví dụ: Biến n nhận giá trị từ hàm Inputbox n =val(InputBox("Mời nhập 1 số", "Nhap Lieu")) This is trial version www.adultpdf.com 2020 2. Mảng Written by: Dương Thành Phết  Mảng là một dãy các phần tử có cùng kiểu dữ liệu, cùng một tên và ñược truy xuất thông qua các chỉ số.  Một mảng của bất kỳ kiểu dữ liệu nào cũng ñều yêu cầu 20 bytes bộ nhớ cùng với 4 bytes cho mỗi mảng cộng với kích thước kiểu dữ liệu của các phần tử khai báo trong mảng. Ví dụ: Khai báo mảng gồm 10 phần tử có kiểu integer. Vậy số Byte cần cho mảng này là : 20 bytes + 4 bytes + (10 * 2 bytes) = 44 bytes http://www.thayphet.net This is trial version www.adultpdf.com 2121 2.1 Mảng cố ñịnh Written by: Dương Thành Phết  Là mảng có số phần tử trong mảng không thay ñổi. Bằng việc xác ñịnh chỉ số ñầu và chỉ số cuối của mảng ta có thể biết ñược số phần tử của mảng. http://www.thayphet.net Cú pháp khai báo: [Dim | Private | Public | Static] Tên_mng(s pt) As Kiu Hoc [Dim|Private|Public | Static] Tên_mng(ch_s_ñu To ch_s_cui) As Kiu Ví dụ: Khai báo mảng A() có 40 phần tử Dim A(39) As Integer Dim B(10 to 49) As Integer This is trial version www.adultpdf.com . Messagebox This is trial version www.adultpdf.com 1818 Written by: Dương Thành Phết http://www.thayphet.net Kết quả trả về cho sự kiện Click các vào các nút lệnh trên hộp thông báo: If MessageBox.Show("Bạn