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

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
Nội dung trích xuất từ tài liệu:
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 Sub12 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.1313 This is trial version Written by: Dương Thành Ph t http://www.thayphet.net www.adultpdf.com txtSoa txtSob txtTruochoanviA2txtTruochoanviA1 txtTronghoanviA2txtTronghoanviA1 txtSauhoanviA2txtSauhoanviA1 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 n1414 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 Sub1515 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 Sub1616 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:1717 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 If1818 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))1919 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 ...