BÀI GIẢNG DÀNH CHO THIẾT KẾ WEB

Chia sẻ: Trần Ngọc Mai | Ngày: | Loại File: PDF | Số trang:11

Thêm vào BST

Báo xấu

94
lượt xem 15
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Tài liệu tham khảo dành cho Giáo viên, sinh viên, lỹ thuật viên chuyên môn lập trình - Giáo trình lập trình với Java. Mong các thầy cô và các bạn có thêm tư liệu học tập tốt môn lập trình

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: BÀI GIẢNG DÀNH CHO THIẾT KẾ WEB

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 12 This is trial version Written by: Dương Thành Ph t http://www.thayphet.net www.adultpdf.com
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] 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. 13 13 This is trial version Written by: Dương Thành Ph t http://www.thayphet.net www.adultpdf.com
txtSoa txtSob txtTruochoanviA2 txtTruochoanviA1 txtTronghoanviA2 txtTronghoanviA1 txtSauhoanviA2 txtSauhoanviA1 Khi truy n tham tr , m i thay Khi truy n theo tham bi n Các ñ i ch di n ra trên b n sao thay ñ i trên tham s trong hàm c a tham s ch không nh con có nh hư ng tr c ti p ñ n hư ng ñ n bi n ñư c truy n. tham s ñư c truy n 14 14 This is trial version Written by: Dương Thành Ph t http://www.thayphet.net www.adultpdf.com
‘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 15 15 This is trial version Written by: Dương Thành Ph t http://www.thayphet.net www.adultpdf.com
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 16 16 This is trial version Written by: Dương Thành Ph t http://www.thayphet.net www.adultpdf.com
Hàm Messagebox 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([,[,[,]]]) 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: 17 17 This is trial version Written by: Dương Thành Ph t http://www.thayphet.net www.adultpdf.com
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: VD: ðóng Form có xu t hi n 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 18 18 This is trial version Written by: Dương Thành Ph t http://www.thayphet.net www.adultpdf.com
Hàm Inputbox 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 Ví d : Bi n n nh n giá tr t hàm Inputbox n =val(InputBox("M i nh p 1 s ", "Nhap Lieu")) 19 19 This is trial version Written by: Dương Thành Ph t http://www.thayphet.net www.adultpdf.com
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 20 20 This is trial version Written by: Dương Thành Ph t http://www.thayphet.net www.adultpdf.com
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(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 21 21 This is trial version Written by: Dương Thành Ph t http://www.thayphet.net www.adultpdf.com
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 p5l 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 22 22 This is trial version Written by: Dương Thành Ph t http://www.thayphet.net www.adultpdf.com