Bài tập thực hành + Hướng dẫn VB.NET

Được sửa bởi ahoo125 ngày 19/3/2012, 01:50; sửa lần 6.

- 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à đúnǵ

Được sửa bởi ahoo125 ngày 19/3/2012, 01:25; sửa lần 1.

- 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.

- 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:26; sửa lần 1.

- 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.

- 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

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

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

» Bài Thực Hành CSDL- Access
» Giáo Trình SQL ( có bài tập thực hành )
» Giáo trình - Bài tập thực hành - Tham khảo - ASP.NET
» [Trích dẫn từ LHU] Điểm số: Hướng sinh viên đến giá trị thực
» DU HỌC SINGAPORE THỰC TẬP HƯỞNG LƯƠNG CÙNG OSAC COLELGE