Latest topics | » Ngày mai chàng hoàng tử ấy, không phải là anh... by oto1000 30/12/2015, 16:53
» Người ta bận yêu, còn em bận cô đơn… by oto1000 21/12/2015, 16:34
» Yêu lại nhau, chúng ta có thể không? by oto1000 10/12/2015, 17:11
» Tình yêu với em, là gì? by oto1000 2/12/2015, 17:03
» Đông đến làm người ta cô đơn hơn phải không anh? by oto1000 24/11/2015, 16:31
» Em muốn được ôm anh từ phía sau by oto1000 14/11/2015, 16:30
» Hãy cho nhau một cơ hội để giãi bày! by oto1000 10/11/2015, 16:07
» fffffffffffffff by hotgirl_97 8/11/2015, 15:04
» Đôi lúc em chỉ muốn mình thuộc về ai đó thôi... by oto1000 6/11/2015, 16:45
» Trái đất này, ba phần tư là nước mắt... by oto1000 30/10/2015, 16:50
» Để anh kể em nghe về những người phụ nữ anh yêu... by oto1000 23/10/2015, 16:22
» Thương vội người đến sau... by oto1000 15/10/2015, 16:57
» Người ta gọi em là người thứ ba... by oto1000 21/5/2015, 15:11
» Yêu anh, em đã có những tháng năm đẹp nhất… by oto1000 16/5/2015, 15:51
» Thế nào mới là yêu? by oto1000 8/5/2015, 14:19
» Tại sao con gái lại cứ phải dịu dàng? by oto1000 28/4/2015, 16:51
» Chelsea - MU : chiến đấu và hi vọng by xuxu0107 17/4/2015, 16:11
» Nếu một mai anh về, đừng gõ cửa tìm em… by oto1000 16/4/2015, 16:04
|
|
| Bài tập thực hành + Hướng dẫn VB.NET | |
| | Tác giả | Thông điệp |
---|
ahoo125 Moderator
Giới tính : Tổng số bài gửi : 484 Kinh nghiệm - EXP : 28423 Được cảm ơn : 58 Sinh nhật : 18/09/1991 Ngày tham gia : 21/10/2009 Đến từ : Tân Phú - Đồng Nai Sở thích : IT Training - Dev JX Offline
| Tiêu đề: Bài tập thực hành + Hướng dẫn VB.NET 5/3/2012, 00:01 | |
| - Diễn đàn tham khảo: - Code:
-
http://www.caulacbovb.com/ - Phần mềm tra cứu các hàm, mã trong VB + Tải về máy: - Code:
-
http://www.caulacbovb.com/vblib/ + Online - Code:
-
http://www.caulacbovb.com/vblib/vblib.php - Bài tập thực hành của thầy Phan Hữu Tiếp (Full) - Code:
-
http://www.mediafire.com/?begmsjcrgav54nq - Bài tập thực hành của thầy Bảo (Update) - Code:
-
TH1 http://www.mediafire.com/?848mia7djf4zrwd TH2 http://www.mediafire.com/?8r8z97do1c286er TH3 http://www.mediafire.com/?u4u772wls10l7zk
- Bài tập thực hành của thầy Quang (Update) - Code:
-
TH1 http://www.mediafire.com/?yyli75krga8w5q2 TH2 http://www.mediafire.com/?e2ebq684fnp36og TH3 http://www.mediafire.com/?hdb89n5ackkb35b TH4 http://www.mediafire.com/?552faqqb1nl6jf1
Yêu cầu khi cài đặt các bài tập thực hành: + Netfarm 4 + Windows Install 3.1 Hình như win 7 cài xong VB 2010 có hết thì phải, nhưng trong file có 1 file setup bài tập, 1 file setup bài tập bonus thêm platform để chạy. Các bạn test là biết Thắc mắc về code vui lòng để lại thắc mắc trong topic này và chỉ rõ điểm thắc mắc để sớm có giải đáp Code chỉ mang tính tham khảo, không hẳn 100% là đúnǵ
Được sửa bởi ahoo125 ngày 19/3/2012, 01:50; sửa lần 6. | |
| | | ahoo125 Moderator
Giới tính : Tổng số bài gửi : 484 Kinh nghiệm - EXP : 28423 Được cảm ơn : 58 Sinh nhật : 18/09/1991 Ngày tham gia : 21/10/2009 Đến từ : Tân Phú - Đồng Nai Sở thích : IT Training - Dev JX Offline
| Tiêu đề: Re: Bài tập thực hành + Hướng dẫn VB.NET 5/3/2012, 00:19 | |
| - Thầy Quang buổi 01+ Bài 01 - Code:
-
Private Sub bttCan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttCan.Click Me.Close() End Sub
Private Sub bttOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttOk.Click MsgBox(" Chào mừng " & txtName.Text & " đến với VB.NET") End Sub
+ Bài 02 - Code:
-
Private Sub bttHienThi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttHienThi.Click txtText.Text = "Welcome to Visual Basic . NET" End Sub
Private Sub bttXoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttXoa.Click txtText.Clear() End Sub
Private Sub bttExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttExit.Click Me.Close() End Sub + Bài 03 - Code:
-
Private Sub bttExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttExit.Click Me.Close() End Sub
Private Sub bttChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttChange.Click Me.Text = txtCaption.Text lblNotice.Text = " Đã thay đổi title cho Form" End Sub
Được sửa bởi ahoo125 ngày 19/3/2012, 01:25; sửa lần 1. | |
| | | ahoo125 Moderator
Giới tính : Tổng số bài gửi : 484 Kinh nghiệm - EXP : 28423 Được cảm ơn : 58 Sinh nhật : 18/09/1991 Ngày tham gia : 21/10/2009 Đến từ : Tân Phú - Đồng Nai Sở thích : IT Training - Dev JX Offline
| Tiêu đề: Re: Bài tập thực hành + Hướng dẫn VB.NET 5/3/2012, 00:29 | |
| - Thầy Bảo buổi 01+ Login - Code:
-
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click txtuser.Clear() txtpass.Clear() txtuser.Focus() ' dua tro chuot ve vi tri user lbl1.Text = "" End Sub
Private Sub bttlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttlogin.Click Dim acc = "admin" Dim pass = "admin" If txtuser.Text = acc And txtpass.Text = pass Then Form12.Show() Me.Hide() Else lbl1.Text = " Thông tin đăng nhập không đúng! " End If End Sub
Private Sub chkview_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkview.CheckedChanged If chkview.CheckState = CheckState.Checked Then txtpass.PasswordChar = "" Else txtpass.PasswordChar = "*" End If End Sub + Bảng tổng hợp các bài - Code:
-
Private Sub btt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt1.Click From1.Show() End Sub
Private Sub btt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt2.Click Form2.Show() End Sub
Private Sub btt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt3.Click Form3.Show() End Sub
Private Sub btt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt4.Click Form4.Show() End Sub
Private Sub btt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt5.Click Form5.Show() End Sub
Private Sub btt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt6.Click Form6.Show() End Sub
Private Sub btt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt7.Click Form7.Show() End Sub
Private Sub btt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt8.Click Form8.Show() End Sub
Private Sub btt9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt9.Click Form9.Show() End Sub
Private Sub btt10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt10.Click Form11.Show() End Sub
Private Sub btt11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btt11.Click Form10.Show() End Sub + Bài 02 - Code:
-
Private Sub bttXoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttXoa.Click txtSoA.Clear() txtSoB.Clear() txtKQ.Clear() End Sub
Private Sub bttCong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttCong.Click txtKQ.Text = CInt(txtSoA.Text) + CInt(txtSoB.Text) End Sub
Private Sub bttTru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttTru.Click txtKQ.Text = CInt(txtSoA.Text) - CInt(txtSoB.Text) End Sub
Private Sub bttNhan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttNhan.Click txtKQ.Text = CInt(txtSoA.Text) * CInt(txtSoB.Text) End Sub
Private Sub bttChia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttChia.Click txtKQ.Text = CInt(txtSoA.Text) / CInt(txtSoB.Text) End Sub + Bài 03 - Code:
-
Private Sub bttEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttEnd.Click Me.Close() End Sub
Private Sub bttConti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttConti.Click txtCD.Clear() txtCR.Clear() txtKQ.Clear() End Sub
Private Sub bttCV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttCV.Click txtKQ.Text = (CInt(txtCD.Text) + CInt(txtCR.Text)) * 2 End Sub
Private Sub bttDT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttDT.Click txtKQ.Text = CInt(txtCD.Text) * CInt(txtCR.Text) End Sub + Bài 04 - Code:
-
Private Sub bttEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttEnd.Click Me.Close() End Sub
Private Sub bttSpin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttSpin.Click Randomize() lbl1.Text = CStr(Int(Rnd() * 10)) lbl2.Text = CStr(Int(Rnd() * 10)) lbl3.Text = CStr(Int(Rnd() * 10)) If lbl1.Text = "7" Or lbl2.Text = "7" Or lbl3.Text = "7" Then pb1.Visible = True pb1.Image = System.Drawing.Image.FromFile("money.jpg") Else : pb1.Visible = False End If End Sub + Bài 05 - Code:
-
Private Sub bttCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttCheck.Click Dim A As String Dim B As String Dim N As Double = CDbl(txtN.Text) ' kiem tra so chinh phuong If Int(Math.Sqrt(N)) = Math.Sqrt(N) Then A = N & " là số chính phương" Else A = N & " không là số chính phương" End If
Dim count As Integer = 2, tmp As Integer = 0 'kiem tra so nguyen to While (count < N) If (N Mod count) = 0 Then tmp = tmp + 1 Exit While Else count = count + 1 End If End While If tmp = 0 Then B = N & " là số nguyên tố" Else B = N & " không là số nguyên tố" End If ' ghep 2 dong thong bao txtKQ.Text = A & vbCrLf & B End Sub + Bài 06 - Code:
-
Private Sub bttGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttGo.Click Dim N As Integer = CInt(txtN.Text), all As Integer = 1 For i = 1 To N all = all * i Next txtKQ.Text = all End Sub + Bài 07 - Code:
-
Private Sub bttTim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttTim.Click Dim A = CDbl(txtA.Text), B = CDbl(txtB.Text), C = CDbl(txtC.Text), Max As Double Max = Math.Max(Math.Max(A, B), C) txtMax.Text = Max End Sub + Bài 08 - Code:
-
Private Sub bttDTHC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttDTHC.Click Dim R As Double = CDbl(txtIn.Text) txtOut.Text = 4 * Math.PI * R * R End Sub
Private Sub bttCV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttCV.Click Dim R As Double = CDbl(txtIn.Text) txtOut.Text = 2 * Math.PI * R End Sub
Private Sub bttDT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttDT.Click Dim R As Double = CDbl(txtIn.Text) txtOut.Text = Math.PI * R * R End Sub
Private Sub bttTHHC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttTHHC.Click Dim R As Double = CDbl(txtIn.Text) txtOut.Text = (4 / 3) * Math.PI * R * R * R End Sub
Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load tt1.Active = True tt2.Active = True tt3.Active = True tt4.Active = True tt1.SetToolTip(bttCV, "2*PI*R") tt2.SetToolTip(bttDT, "PI*R*R") tt3.SetToolTip(bttDTHC, "4*PI*R*R") tt4.SetToolTip(bttTHHC, "(4/3)*PI*R*R*R") End Sub + Bài 09 - Code:
-
Private Sub bttCV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttCV.Click Dim A, B, C As Double A = CDbl(txtA.Text) B = CDbl(txtB.Text) C = CDbl(txtC.Text) txtKQ.Text = A + B + C End Sub
Private Sub bttDT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttDT.Click Dim A, B, C As Double A = CDbl(txtA.Text) B = CDbl(txtB.Text) C = CDbl(txtC.Text) txtKQ.Text = Math.Sqrt(((A + B + C) / 2) * (((A + B + C) / 2) - A) * (((A + B + C) / 2) - B) * (((A + B + C) / 2) - C)) End Sub
Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ttShowCT.Active = True ttShowCT.SetToolTip(bttCV, "Tổng ba cạnh") ttShowDT.Active = True ttShowDT.SetToolTip(bttDT, "Căn bậc hai của tích: nữa chu vi và nữa chu vi trừ từng cạnh") End Sub + Bài 10 - Code:
-
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Randomize() Dim DC As Double = CDbl(Int((6 * Rnd()) + 14)), T As Double = CDbl(txtToan.Text), L As Double = CDbl(txtLy.Text), AV As Double = CDbl(txtAV.Text) If (T + L + AV) < DC Then txtDC.Text = DC pbHinh.Visible = True pbHinh.Image = System.Drawing.Image.FromFile("cry.jpg") Else pbHinh.Visible = True txtDC.Text = DC pbHinh.Image = System.Drawing.Image.FromFile("smile.jpg") End If End Sub + Bài 11 - Code:
-
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click txtA.Clear() txtB.Clear() txtKQ.Clear() End Sub
Private Sub bttGiai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttGiai.Click Dim A As Double = CDbl(txtA.Text), B As Double = CDbl(txtB.Text) txtKQ.Text = -(B / A) End Sub
Được sửa bởi ahoo125 ngày 19/3/2012, 01:25; sửa lần 1. | |
| | | ahoo125 Moderator
Giới tính : Tổng số bài gửi : 484 Kinh nghiệm - EXP : 28423 Được cảm ơn : 58 Sinh nhật : 18/09/1991 Ngày tham gia : 21/10/2009 Đến từ : Tân Phú - Đồng Nai Sở thích : IT Training - Dev JX Offline
| Tiêu đề: Re: Bài tập thực hành + Hướng dẫn VB.NET 5/3/2012, 02:39 | |
| - Thầy Quang buổi 02+ Change Caption - Code:
-
Private Sub bttChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttChange.Click Me.Text = txtText.Text lblnotice.Text = " Đã thay đổi" End Sub + Calculator - Code:
-
Private Sub bttKQ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttKQ.Click Dim A = CDbl(txtA.Text), B = CDbl(txtB.Text) If cboPheptinh.Text = "+" Then txtKQ.Text = A + B End If If cboPheptinh.Text = "-" Then txtKQ.Text = A - B End If If cboPheptinh.Text = "*" Then txtKQ.Text = A * B End If If cboPheptinh.Text = "/" Then txtKQ.Text = A / B End If If cboPheptinh.Text = "^" Then txtKQ.Text = A ^ B End If End Sub + Tìm số lớn nhất - Code:
-
Private Sub bttDong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttDong.Click Me.Close() End Sub
Private Sub bttXoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttXoa.Click txtSo1.Clear() txtSo2.Clear() txtKQ.Clear() End Sub
Private Sub bttTim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttTim.Click txtKQ.Text = Math.Max(CInt(txtSo1.Text), CInt(txtSo2.Text)) End Sub + Giải pt bậc 2 - Code:
-
Private Sub bttThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttThoat.Click Me.Close() End Sub
Private Sub Form4_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If MsgBox(" Bạn có muốn thoát chương trình", MsgBoxStyle.YesNo, "Giai PT Bac 2") = MsgBoxResult.No Then e.Cancel = True End If End Sub
Private Sub bttLamlai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttLamlai.Click txtA.Clear() txtB.Clear() txtC.Clear() txtKQ.Clear() bttTinh.Enabled = True End Sub
Private Sub bttTinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttTinh.Click Dim A = CInt(txtA.Text), B = CInt(txtB.Text), C = CInt(txtC.Text) Dim delta = ((B * B) - (4 * A * C)) If delta < 0 Then txtKQ.Text = " Phương trình vô nghiệm delta=" & delta & "<0" bttTinh.Enabled = False End If If delta = 0 Then txtKQ.Text = " Phương trình có nghiệm kép x1=x2=" & ((-B) / 2 * A) bttTinh.Enabled = False End If If delta > 0 Then txtKQ.Text = " Phương trình có nghiệm x1=" & (((-B) - Math.Sqrt(delta)) / (2 * A)) _ & " x2=" & (((-B) + Math.Sqrt(delta)) / (2 * A)) bttTinh.Enabled = False End If End Sub + Tìm UCLN và BCNN - Code:
-
Private Sub bttTinh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttTinh.Click Dim A = Math.Abs(CInt(txtA.Text)), B = Math.Abs(CInt(txtB.Text)) Dim UCLN, BCNN As Integer Dim tmpa = A, tmpb = B Do While (A * B) <> 0 If A >= B Then A = A Mod B Else B = B Mod A End If Loop UCLN = A + B BCNN = (tmpa * tmpb) / UCLN txtUCLN.Text = "UCLN : " & UCLN txtBCNN.Text = "BCNN : " & BCNN ' cong thuc tinh ucln 'while (a * b !=0 ) '{ 'If (A >= B) Then ' a = a % b; 'Else ' b = b % a; '} 'ucln = a + b; 'cong thuc tinh bcnn 'BCNN = (a * b) / UCLN(a, b) End Sub + Mã hóa chuỗi - Code:
-
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtText.Text = "Bai Thi Visual Basic .NET" End Sub
Private Sub bttCode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttCode.Click txtCode.Clear() txtAscii.Clear() Dim Slen = Len(txtText.Text) For i = 1 To Slen txtAscii.Text = txtAscii.Text & " " & Asc(Mid(txtText.Text, i, 1)) txtCode.Text = txtCode.Text & Chr(Asc(Mid(txtText.Text, i, 1)) + 33) Next
End Sub
Được sửa bởi ahoo125 ngày 19/3/2012, 01:26; sửa lần 1. | |
| | | ahoo125 Moderator
Giới tính : Tổng số bài gửi : 484 Kinh nghiệm - EXP : 28423 Được cảm ơn : 58 Sinh nhật : 18/09/1991 Ngày tham gia : 21/10/2009 Đến từ : Tân Phú - Đồng Nai Sở thích : IT Training - Dev JX Offline
| Tiêu đề: Re: Bài tập thực hành + Hướng dẫn VB.NET 5/3/2012, 16:54 | |
| - Thầy Quang buổi 03+ Tính giai thừa - Code:
-
Private Sub bttTinh_Click(sender As System.Object, e As System.EventArgs) Handles bttTinh.Click Dim N = CInt(txtN.Text), KQ As Integer = 1 For i = 1 To N KQ = KQ * i Next txtKQ.Text = KQ End Sub + Giải pt bậc 2 - Code:
-
Private Sub bttAgain_Click(sender As System.Object, e As System.EventArgs) Handles bttAgain.Click txtA.Clear() txtB.Clear() txtC.Clear() txtKQ.Clear() bttTinh.Enabled = True End Sub
Private Sub bttEnd_Click(sender As System.Object, e As System.EventArgs) Handles bttEnd.Click Me.Close() End Sub
Private Sub Form2_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If MsgBox("Bạn có muốn thoát chương trình", MsgBoxStyle.YesNo, "Giải PT Bậc 2") = MsgBoxResult.No Then e.Cancel = True End If End Sub
Private Sub bttTinh_Click(sender As System.Object, e As System.EventArgs) Handles bttTinh.Click bttTinh.Enabled = False Dim a = CDbl(txtA.Text), b = CDbl(txtB.Text), c = CDbl(txtC.Text), delta As Double delta = (b * b) - (4 * a * c) If delta < 0 Then txtKQ.Text = " Phương trình vô nghiệm delta= " & delta & "<0" End If If delta = 0 Then txtKQ.Text = "Phương trình có nghiệm kép x1=x2= " & (-b) / (2 * a) End If If delta > 0 And a <> 0 Then txtKQ.Text = "Phương trình có 2 nghiệm x1= " & ((-b) - Math.Sqrt(delta)) / (2 * a) & " x2=" _ & ((-b) + Math.Sqrt(delta)) / (2 * a) End If If a = 0 And delta > 0 Then txtKQ.Text = "Phương trình có 1 nghiệm x= " & (-c) / b End If End Sub + Xử lí chuỗi - Code:
-
Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load txtND.Text = "Bai Thi Visual Basic .NET" End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click For i = 1 To Len(txtND.Text) txtCode.Text = txtCode.Text & " " & Asc(Mid(txtND.Text, i, 1)) txtString.Text = txtString.Text & Chr(Asc(Mid(txtND.Text, i, 1)) + 33) Next End Sub + Tọa độ 2 điểm - Code:
-
Private Sub Form4_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load ToolTipHSG.Active = True ToolTipHSG.SetToolTip(lblHSG, "(y2-y1)/(x2-x1)") ToolTipKC.Active = True ToolTipKC.SetToolTip(lblKC, "Căn bậc hai của tổng: (x2-x1)^2 + (y2-y1)^2") End Sub
Private Sub bttXoa_Click(sender As System.Object, e As System.EventArgs) Handles bttXoa.Click txtX1.Clear() txtX2.Clear() txtY1.Clear() txtY2.Clear() txtHSG.Clear() txtKC.Clear() End Sub
Private Sub bttTinh_Click(sender As System.Object, e As System.EventArgs) Handles bttTinh.Click Dim x1 = CInt(txtX1.Text), x2 = CInt(txtX2.Text), y1 = CInt(txtY1.Text), y2 = CInt(txtY2.Text) txtKC.Text = Math.Sqrt(Math.Pow(x2 - x1, 2) + Math.Pow(y2 - y1, 2)) txtHSG.Text = (y2 - y1) / (x2 - x1) End Sub + Chương trình play video - music - Code:
-
Private Sub DrivList_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles DrivList.SelectedIndexChanged ' cap nhat path khi mo o dia Try DirList.Path = DrivList.Drive Catch ex As Exception 'dung de thong bao loi 'MsgBox(ex.Message) MsgBox(DrivList.Drive & " không mở được ") End Try End Sub
Private Sub DirList_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles DirList.SelectedIndexChanged 'cap nhat path khi mo thu muc Try FileList.Path = DirList.Path Catch ex As Exception MsgBox(ex.Message) End Try End Sub
Private Sub FileList_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles FileList.SelectedIndexChanged 'play file Try WMP.URL = FileList.Path & "\" & FileList.FileName WMP.Ctlcontrols.play() Catch ex As Exception MsgBox(" Không thể mở được file đã chọn ") End Try End Sub + Đổi năm DL sang AL - Code:
-
Private Sub bttExit_Click(sender As System.Object, e As System.EventArgs) Handles bttExit.Click Me.Close() End Sub
Private Sub bttDoi_Click(sender As System.Object, e As System.EventArgs) Handles bttDoi.Click Dim can, chi As Integer Dim a, b As String If CInt(txtDL.Text) > 0 Then can = (CInt(txtDL.Text) Mod 10) chi = (CInt(txtDL.Text) Mod 12) End If
Select Case can Case 0 : a = "Canh" Case 1 : a = "Tân" Case 2 : a = "Nhâm" Case 3 : a = "Quý" Case 4 : a = "Giáp" Case 5 : a = "Ất" Case 6 : a = "Bính" Case 7 : a = "Đinh" Case 8 : a = "Mậu" Case 9 : a = "Kỷ" End Select
Select Case chi Case 0 : b = "Thân" Case 1 : b = "Dậu" Case 2 : b = "Tuất" Case 3 : b = "Hợi" Case 4 : b = "Tý" Case 5 : b = "Sửu" Case 6 : b = "Dần" Case 7 : b = "Mẹo" Case 8 : b = "Thìn" Case 9 : b = "Tỵ" Case 10 : b = "Ngọ" Case 11 : b = "Mùi" End Select
txtAL.Text = a & " " & b End Sub
Được sửa bởi ahoo125 ngày 19/3/2012, 01:26; sửa lần 1. | |
| | | ahoo125 Moderator
Giới tính : Tổng số bài gửi : 484 Kinh nghiệm - EXP : 28423 Được cảm ơn : 58 Sinh nhật : 18/09/1991 Ngày tham gia : 21/10/2009 Đến từ : Tân Phú - Đồng Nai Sở thích : IT Training - Dev JX Offline
| Tiêu đề: Re: Bài tập thực hành + Hướng dẫn VB.NET 6/3/2012, 01:33 | |
| - Thầy Bảo buổi 02+ Bài 01 - Code:
-
Private Sub bttConti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttConti.Click txtDoc.Clear() txtSo.Clear() End Sub
Private Sub bttDoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttDoc.Click Dim num = CInt(txtSo.Text) Dim a As String Select Case num Case 0 : a = "Không" Case 1 : a = "Một" Case 2 : a = "Hai" Case 3 : a = "Ba" Case 4 : a = "Bốn" Case 5 : a = "Năm" Case 6 : a = "Sáu" Case 7 : a = "Bảy" Case 8 : a = "Tám" Case 9 : a = "Chín" End Select txtDoc.Text = a End Sub + Bài 04 - Code:
-
Private Sub txtTiepTuc_Click(sender As System.Object, e As System.EventArgs) Handles bttTiepTuc.Click txtA.Clear() txtB.Clear() txtKq.Clear() End Sub
Private Sub bttGiai_Click(sender As System.Object, e As System.EventArgs) Handles bttGiai.Click Dim a = CDbl(txtA.Text), b = CDbl(txtB.Text) If a = 0 And b = 0 Then txtKq.Text = " Phương trình có vô số nghiệm" Else If b = 0 Then txtKq.Text = " Nghiệm của phương trình là 0" Else If a = 0 Then txtKq.Text = " Phương trình vô nghiệm" Else txtKq.Text = " Nghiệm của phương trình là " & (-(b / a)) End If End If End If
End Sub + Bài 05 - Code:
-
Private Sub bttPlay_Click(sender As System.Object, e As System.EventArgs) Handles bttPlay.Click Dim a = Math.Round(CDbl(txtSo.Text)), tmp As Double = 1 For i = 1 To a tmp = tmp * i Next txtKq.Text = tmp End Sub + Bài 11 - Code:
-
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim time As Integer Dim gio, phut, giay As Integer If IsNumeric(txtGiay.Text) = True Then time = CInt(txtGiay.Text) gio = time \ 3600 phut = (time Mod 3600) \ 60 giay = (time Mod 3600) Mod 60 txtKq.Text = String.Format(" {0:00}, {1:00} , {2:00}", gio, phut, giay) Else MsgBox(" nhập vào số ") txtGiay.Clear() txtGiay.Focus() End If End Sub + Bài 02 - Code:
-
Private Sub bttDoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttDoc.Click Dim all, sotram, sochuc, donvi, a, b, c As String Dim num, num1, num2, num3, num4, num5 As Integer
' nhap 1 chu so If Len(txtSo.Text) = 1 Then num = CInt(Mid(txtSo.Text, 1, 1)) Select Case num Case 0 : a = "Không" Case 1 : a = "Một" Case 2 : a = "Hai" Case 3 : a = "Ba" Case 4 : a = "Bốn" Case 5 : a = "Năm" Case 6 : a = "Sáu" Case 7 : a = "Bảy" Case 8 : a = "Tám" Case 9 : a = "Chín" End Select txtDoc.Text = a End If 'ket thuc nhap 1 chu so
' nhap hai chu so If Len(txtSo.Text) = 2 Then If CInt(Mid(txtSo.Text, 1, 1)) <> 0 Then num1 = CInt(Mid(txtSo.Text, 1, 1)) Select Case num1 Case 1 : b = "Một" Case 2 : b = "Hai" Case 3 : b = "Ba" Case 4 : b = "Bốn" Case 5 : b = "Năm" Case 6 : b = "Sáu" Case 7 : b = "Bảy" Case 8 : b = "Tám" Case 9 : b = "Chín" End Select num2 = CInt(Mid(txtSo.Text, 2, 1)) Select Case num2 'Case 0 : b = "Không" Case 1 : c = "Một" Case 2 : c = "Hai" Case 3 : c = "Ba" Case 4 : c = "Bốn" Case 5 : c = "Năm" Case 6 : c = "Sáu" Case 7 : c = "Bảy" Case 8 : c = "Tám" Case 9 : c = "Chín" End Select End If If num1 = 1 Then txtDoc.Text = " mười " & c Else If num2 = 1 Then txtDoc.Text = b & " mươi " & "mốt" Else txtDoc.Text = b & " mươi " & c End If If num2 = 5 Then txtDoc.Text = b & " mươi " & "lăm" End If End If End If ' ket thuc nhap 2 chu so
' nhap 3 chu so If Len(txtSo.Text) = 3 Then If CInt(Mid(txtSo.Text, 1, 1)) <> 0 Then num3 = CInt(Mid(txtSo.Text, 1, 1)) Select Case num3 Case 1 : sotram = "Một" Case 2 : sotram = "Hai" Case 3 : sotram = "Ba" Case 4 : sotram = "Bốn" Case 5 : sotram = "Năm" Case 6 : sotram = "Sáu" Case 7 : sotram = "Bảy" Case 8 : sotram = "Tám" Case 9 : sotram = "Chín" End Select num4 = CInt(Mid(txtSo.Text, 2, 1)) Select Case num4 Case 1 : sochuc = "Một" Case 2 : sochuc = "Hai" Case 3 : sochuc = "Ba" Case 4 : sochuc = "Bốn" Case 5 : sochuc = "Năm" Case 6 : sochuc = "Sáu" Case 7 : sochuc = "Bảy" Case 8 : sochuc = "Tám" Case 9 : sochuc = "Chín" End Select num5 = CInt(Mid(txtSo.Text, 3, 1)) Select Case num5 Case 1 : donvi = "Một" Case 2 : donvi = "Hai" Case 3 : donvi = "Ba" Case 4 : donvi = "Bốn" Case 5 : donvi = "Năm" Case 6 : donvi = "Sáu" Case 7 : donvi = "Bảy" Case 8 : donvi = "Tám" Case 9 : donvi = "Chín" End Select If num4 = 0 And num5 = 0 Then txtDoc.Text = sotram & " trăm" Else If num4 = 0 And num5 <> 0 Then txtDoc.Text = sotram & " trăm linh " & donvi Else If num4 = 1 And num5 = 0 Then txtDoc.Text = sotram & " mười " Else If num4 = 1 And num5 <> 0 Then txtDoc.Text = sotram & " mười " & donvi End If End If If num4 > 1 And num5 = 1 Then txtDoc.Text = sotram & " trăm " & sochuc & " mươi " & "mốt" Else txtDoc.Text = sotram & " trăm " & sochuc & " mươi " & donvi End If If num4 > 1 And num5 = 5 Then txtDoc.Text = sotram & " trăm " & sochuc & " mươi " & "lăm" End If End If End If End If End If End Sub + Bài 06 - Code:
-
Private Sub bttPT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttPT.Click Dim n As Integer = CInt(txtIn.Text) 'bien luu gia tri nhap vao Dim a As String ' bien luu ket qua For i = 2 To n 'duyet day so Dim check As Boolean = True 'bien kiem tra so nt For j = 3 To i 'duyet kiem tra co phai so nt ko If i Mod j = 0 Then check = False ' khong phai so nt End If Next Dim tmp As Integer = 0 If check = True Then ' neu la so nguyen to If n > i Then Do While (tmp = 0) ' tien hanh phan tich If n Mod i = 0 Then n = n / i ' neu chia het a = a & i & " * " Else tmp = n Mod i End If Loop Else a = a & n 'gan gia tri la chinh no End If End If Next txtOut.Text = a End Sub + Bài 07 - Code:
-
Function check(a As String) As Boolean If IsNumeric(a) = False Then Return False Else Return True End If End Function
Function Month(a As Integer, b As Integer) As Integer Select Case a Case 1, 3, 5, 7, 8, 10, 12 Return 31 Case 4, 6, 9, 11 Return 30 Case 2 If (b Mod 4 = 0) Or ((b Mod 100 = 0) And (b Mod 4 = 0)) Then Return 29 End If End Select Return 28 End Function
Function year(y As Integer) As String Dim can As Integer = y Mod 10, chi As Integer = y Mod 12 Dim a, b As String Select Case can Case 0 : a = "Canh" Case 1 : a = "Tân" Case 2 : a = "Nhâm" Case 3 : a = "Quý" Case 4 : a = "Giáp" Case 5 : a = "Ất" Case 6 : a = "Bính" Case 7 : a = "Đinh" Case 8 : a = "Mậu" Case 9 : a = "Kỷ" End Select Select Case chi Case 0 : b = "Thân" Case 1 : b = "Dậu" Case 2 : b = "Tuất" Case 3 : b = "Hợi" Case 4 : b = "Tí" Case 5 : b = "Sửu" Case 6 : b = "Dần" Case 7 : b = "Mẹo" Case 8 : b = "Thìn" Case 9 : b = "Tỵ" Case 10 : b = "Ngọ" Case 11 : b = "Mùi" End Select Dim tmp As String tmp = a & " " & b Return tmp End Function
Private Sub txtmonth_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtmonth.TextChanged If check(txtmonth.Text) = False Then MsgBox(" Phải nhập vào tháng ") txtmonth.Clear() txtmonth.Focus() End If End Sub
Private Sub txtyear_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtyear.TextChanged If check(txtyear.Text) = False Then MsgBox(" Phải nhập năm ") txtyear.Clear() txtmonth.Focus() End If End Sub
Private Sub bttSearch_Click(sender As System.Object, e As System.EventArgs) Handles bttSearch.Click txtnumday.Text = Month(CInt(txtmonth.Text), CInt(txtyear.Text)) txtluna.Text = year(CInt(txtyear.Text)) If (CInt(txtyear.Text) Mod 4 = 0) Or ((CInt(txtyear.Text) Mod 100 = 0 And (CInt(txtyear.Text) = 0) Mod 4 = 0)) Then txtnote.Text = txtyear.Text & " là năm nhuần " & vbCrLf Else txtnote.Text = txtyear.Text & " không phải là năm nhuần " & vbCrLf End If Dim tmp As Integer = CInt(txtyear.Text), i As Integer = 0 Do tmp += 1 i += 1 Loop Until ((tmp Mod 4 = 0) Or ((tmp Mod 4 = 0) And (tmp Mod 100 = 0))) If i <> 0 Then txtnote.Text &= " Còn " & i & " năm nữa là tới năm nhuần" End If End Sub + Bài 08 - Code:
-
Private Sub bttNext_Click(sender As System.Object, e As System.EventArgs) Handles bttNext.Click txtA.Clear() txtB.Clear() txtC.Clear() End Sub
Private Sub txtA_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtA.KeyPress, txtB.KeyPress, txtC.KeyPress If Not (e.KeyChar >= "0" And e.KeyChar <= "9" Or e.KeyChar = ChrW(8)) Then e.KeyChar = Nothing End If End Sub
Private Sub bttKQ_Click(sender As System.Object, e As System.EventArgs) Handles bttKQ.Click Dim a = CDbl(txtA.Text), b = CDbl(txtB.Text), c = CDbl(txtC.Text), delta As Double delta = (b * b) - (4 * a * c) If delta < 0 Then txtKQ.Text = " Phương trình vô nghiệm delta= " & delta & "<0" End If If delta = 0 Then txtKQ.Text = "Phương trình có nghiệm kép x1=x2= " & (-b) / (2 * a) End If If delta > 0 And a <> 0 Then txtKQ.Text = "Phương trình có 2 nghiệm x1= " & ((-b) - Math.Sqrt(delta)) / (2 * a) & " x2=" _ & ((-b) + Math.Sqrt(delta)) / (2 * a) End If If a = 0 And delta > 0 Then txtKQ.Text = "Phương trình có 1 nghiệm x= " & (-c) / b End If End Sub + Bài 09 - Code:
-
Function SNT(a As Integer) As Boolean For i = 2 To a - 1 If a Mod i = 0 Then Return False End If Next Return True End Function
Function SCP(a As Integer) As Boolean If Math.Sqrt(a) <> Int(Math.Sqrt(a)) Then Return False End If Return True End Function
Private Sub txtN_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtN.TextChanged If IsNumeric(txtN.Text) = False Then MsgBox("Nhập vào một số") txtN.Clear() End If End Sub
Private Sub bttSNT_Click(sender As System.Object, e As System.EventArgs) Handles bttSNT.Click For i = 1 To CInt(txtN.Text) If SNT(i) = True Then txtSNT.Text &= " " & i End If Next End Sub
Private Sub bttSCP_Click(sender As System.Object, e As System.EventArgs) Handles bttSCP.Click For i = 1 To CInt(txtN.Text) If SCP(i) = True Then txtSCP.Text &= " " & i End If Next End Sub + Bài 10 - Code:
-
Private Sub BTTBCC_Click(sender As System.Object, e As System.EventArgs) Handles BTTBCC.Click For I = 1 To 9 For J = 2 To 9 TXTBCC.Text &= J & "*" & I & "=" & J * I & vbTab Next TXTBCC.Text &= vbNewLine Next End Sub | |
| | | ahoo125 Moderator
Giới tính : Tổng số bài gửi : 484 Kinh nghiệm - EXP : 28423 Được cảm ơn : 58 Sinh nhật : 18/09/1991 Ngày tham gia : 21/10/2009 Đến từ : Tân Phú - Đồng Nai Sở thích : IT Training - Dev JX Offline
| Tiêu đề: Re: Bài tập thực hành + Hướng dẫn VB.NET 19/3/2012, 01:49 | |
| Thầy Quang buổi 04+ Bài 01 - Code:
-
Function GiaiThua(n As Integer) As Double Dim tmp As Double = 1 For i = 2 To n tmp = tmp * i Next Return tmp End Function
Private Sub bttGiaiThua_Click(sender As System.Object, e As System.EventArgs) Handles bttGiaiThua.Click If IsNumeric(txtNhap.Text) = True Then txtKQ.Text = GiaiThua(CInt(txtNhap.Text)) Else txtNhap.Text = "Nhập vào N là số" txtKQ.Clear() txtNhap.Focus() txtNhap.SelectAll() End If
End Sub
Private Sub bttTongGT_Click(sender As System.Object, e As System.EventArgs) Handles bttTongGT.Click If IsNumeric(txtNhap.Text) = True Then Dim tmp As Double = 0 For i = 1 To CInt(txtNhap.Text) tmp = tmp + GiaiThua(i) Next txtKQ.Text = tmp Else txtNhap.Text = "Nhập vào N là số" txtKQ.Clear() txtNhap.Focus() txtNhap.SelectAll() End If End Sub + Bài 02 - Code:
-
Function SoNguyenTo(n As Integer) As Integer For i = 2 To n - 1 If n Mod i = 0 Then Return 0 End If Next Return 1 End Function
Private Sub bttSNT_Click(sender As System.Object, e As System.EventArgs) Handles bttSNT.Click If IsNumeric(txtNhap.Text) = True Then For i = 1 To CInt(txtNhap.Text) If SoNguyenTo(i) = 1 Then txtKQ.Text = txtKQ.Text & " " & i End If Next Else txtNhap.Text = "Nhập vào N là số" txtKQ.Clear() txtNhap.Focus() txtNhap.SelectAll() End If End Sub + Bài 03 tổng hợp - Code:
-
'Function Function GiaiThua(n As Integer) As Double Dim tmp As Double = 1 For i = 2 To n tmp = tmp * i Next Return tmp End Function
Function SoNguyenTo(n As Integer) As Boolean For i = 2 To n - 1 If n Mod i = 0 Then Return False End If Next Return True End Function
Function SoChinhPhuong(n As Integer) As Boolean Dim canbac2 As Single = Math.Sqrt(n) If canbac2 = CInt(canbac2) Then Return True Else Return False End If End Function
Function UCLN(a As Integer, b As Integer) As Integer Do While (b <> 0) Dim tmp As Integer tmp = a Mod b a = b b = tmp Loop Return a End Function
Function MaHoaText(str As String) As String
Dim tmpcode As String 'ma hoa bang ham xor For i = 1 To Len(Str) tmpcode = tmpcode & Chr(Asc(Mid(Str, i, 1)) Xor 35) Next Return tmpcode End Function 'Code Private Sub bttGiaiThua_Click(sender As System.Object, e As System.EventArgs) Handles bttGiaiThua.Click If IsNumeric(txtNhap.Text) = True Then txtKQ.Text = GiaiThua(CInt(txtNhap.Text)) Else txtNhap.Text = "Nhập vào N là số" txtKQ.Clear() txtNhap.Focus() txtNhap.SelectAll() End If
End Sub
Private Sub bttTongGT_Click(sender As System.Object, e As System.EventArgs) Handles bttTongGT.Click If IsNumeric(txtNhap.Text) = True Then Dim tmp As Double = 0 For i = 1 To CInt(txtNhap.Text) tmp = tmp + GiaiThua(i) Next txtKQ.Text = tmp Else txtNhap.Text = "Nhập vào N là số" txtKQ.Clear() txtNhap.Focus() txtNhap.SelectAll() End If End Sub
Private Sub bttSNT_Click(sender As System.Object, e As System.EventArgs) Handles bttSNT.Click If IsNumeric(txtNhap.Text) = True Then For i = 1 To CInt(txtNhap.Text) If SoNguyenTo(i) = True Then txtKQ.Text = txtKQ.Text & " " & i End If Next Else txtNhap.Text = "Nhập vào N là số" txtKQ.Clear() txtNhap.Focus() txtNhap.SelectAll() End If End Sub
Private Sub bttSCP_Click(sender As System.Object, e As System.EventArgs) Handles bttSCP.Click If IsNumeric(txtNhap.Text) = True Then For i = 1 To CInt(txtNhap.Text) If SoChinhPhuong(i) = True Then txtKQ.Text = txtKQ.Text & " " & i End If Next Else txtNhap.Text = "Nhập vào N là số" txtKQ.Clear() txtNhap.Focus() txtNhap.SelectAll() End If End Sub
Private Sub bttEncode_Click(sender As System.Object, e As System.EventArgs) Handles bttEncode.Click Dim str As String = txtInput.Text Dim tmp As String 'dua ve bang ma ascii For i = 1 To Len(str) tmp = tmp & " " & Asc(Mid(str, i, 1)) Next txtASCII.Text = tmp txtEncode.Text = MaHoaText(str) End Sub
Private Sub bttDecode_Click(sender As System.Object, e As System.EventArgs) Handles bttDecode.Click Dim str As String = txtEncode.Text Dim tmpdecode As String 'giai ma For i = 1 To Len(str) tmpdecode = tmpdecode & Chr(Asc(Mid(str, i, 1)) Xor 35) Next txtDecode.Text = tmpdecode End Sub | |
| | | Sponsored content
| Tiêu đề: Re: Bài tập thực hành + Hướng dẫn VB.NET | |
| |
| | | | Bài tập thực hành + Hướng dẫn VB.NET | |
|
Trang 1 trong tổng số 1 trang | |
Similar topics | |
|
| Permissions in this forum: | Bạn không có quyền trả lời bài viết
| |
| |
| |