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

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ếnByRef: Khi truyền theo tham biến, các

Trang 1

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

Trang 2

Written by: Dương Thành Phết http://www.thayphet.net

tham biến và truyền theo tham trị.

Cú pháp :

[ByRef | ByVal] <tênbin> AS kiud! 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.

Trang 3

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

Trang 4

‘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

Trang 5

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

Trang 6

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

Trang 7

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:

Trang 8

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"))

Trang 9

2 Mảng

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

Trang 10

2.1 Mảng cố ñịnh

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.

Cú pháp khai báo:

[Dim | Private | Public | Static] Tên_m,ng(s0 pt) As Kiu

Ho4c

[Dim|Private|Public | Static] Tên_m,ng(ch5_s0_ñ7u To

ch5_s0_cu0i) As Kiu

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

Trang 11

Ta có thể truy xuất ñến từng phần tử của mảng thông

qua tên mảng và chỉ số của nó.

VD:

Dim MyArray(5) As Integer ' khai báo mảng 6 phần tử

Dim a As Integer For i = 1 To 5 ' lặp 5 lần

MyArray(i) = i ' gán các giá trị cho mảng

Next i

a = MyArray(3) ‘gán phần tử thứ 4 cho biến a

Định dạng
Số trang	11
Dung lượng	1,07 MB