Diễn Đàn Lớp 09CT111 - Khoa Công Nghệ Thông Tin - Đại Học Lạc Hồng
Dear các bạn sinh viên 09CT111 LHU,

Chúng ta đã qua 4 năm của tổi Đại Học, mới đó mà đã 4 năm rồi nhỉ, Forum đã gắn bó với chúng ta suốt 4 năm, bao nhiều kỷ niệm gắn bó với chúng ta thời sinh viên.
Hôm nay mình xin phép tạm dừng hoạt động của diễn đàn này lại, nó đã hoàn thành sứ mệnh của nó rồi, và bây giờ chúng ta hãy xem nó như 1 kỷ niệm. Cảm ơn các bạn đã ghé thăm và để ý, một lần nữa, chúc sức khỏe và thành đạt.
Mọi liên lạc với quản lý diễn đàn xin vui lòng liên hệ:
- E-mail: duyhau1610@gmail.com
- Mobile: (+84)907623999
- Add: 592 Lê Hồng Phong, Phước Hải, Nha Trang, Khánh Hòa (Hậu Duy Trần)
Admin: Trần Duy Hậu
Diễn Đàn Lớp 09CT111 - Khoa Công Nghệ Thông Tin - Đại Học Lạc Hồng
Dear các bạn sinh viên 09CT111 LHU,

Chúng ta đã qua 4 năm của tổi Đại Học, mới đó mà đã 4 năm rồi nhỉ, Forum đã gắn bó với chúng ta suốt 4 năm, bao nhiều kỷ niệm gắn bó với chúng ta thời sinh viên.
Hôm nay mình xin phép tạm dừng hoạt động của diễn đàn này lại, nó đã hoàn thành sứ mệnh của nó rồi, và bây giờ chúng ta hãy xem nó như 1 kỷ niệm. Cảm ơn các bạn đã ghé thăm và để ý, một lần nữa, chúc sức khỏe và thành đạt.
Mọi liên lạc với quản lý diễn đàn xin vui lòng liên hệ:
- E-mail: duyhau1610@gmail.com
- Mobile: (+84)907623999
- Add: 592 Lê Hồng Phong, Phước Hải, Nha Trang, Khánh Hòa (Hậu Duy Trần)
Admin: Trần Duy Hậu
Diễn Đàn Lớp 09CT111 - Khoa Công Nghệ Thông Tin - Đại Học Lạc Hồng
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Diễn Đàn Lớp 09CT111 - Khoa Công Nghệ Thông Tin - Đại Học Lạc Hồng

Diễn Đàn Lớp 09CT111 - Khoa Công Nghệ Thông Tin - Đại Học Lạc Hồng
 
Trang ChínhLatest imagesTìm kiếmĐăng kýĐăng Nhập
Latest topics
» Ngày mai chàng hoàng tử ấy, không phải là anh...
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 30/12/2015, 16:53

» Người ta bận yêu, còn em bận cô đơn…
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 21/12/2015, 16:34

» Yêu lại nhau, chúng ta có thể không?
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 10/12/2015, 17:11

» Tình yêu với em, là gì?
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 2/12/2015, 17:03

» Đông đến làm người ta cô đơn hơn phải không anh?
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 24/11/2015, 16:31

» Em muốn được ôm anh từ phía sau
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 14/11/2015, 16:30

» Hãy cho nhau một cơ hội để giãi bày!
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 10/11/2015, 16:07

» fffffffffffffff
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby hotgirl_97 8/11/2015, 15:04

» Đôi lúc em chỉ muốn mình thuộc về ai đó thôi...
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 6/11/2015, 16:45

» Trái đất này, ba phần tư là nước mắt...
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 30/10/2015, 16:50

» Để anh kể em nghe về những người phụ nữ anh yêu...
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 23/10/2015, 16:22

» Thương vội người đến sau...
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 15/10/2015, 16:57

» Người ta gọi em là người thứ ba...
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 21/5/2015, 15:11

» Yêu anh, em đã có những tháng năm đẹp nhất…
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 16/5/2015, 15:51

» Thế nào mới là yêu?
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 8/5/2015, 14:19

» Tại sao con gái lại cứ phải dịu dàng?
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 28/4/2015, 16:51

» Chelsea - MU : chiến đấu và hi vọng
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby xuxu0107 17/4/2015, 16:11

» Nếu một mai anh về, đừng gõ cửa tìm em…
Bài tập thực hành + Hướng dẫn VB.NET Icon_minitimeby oto1000 16/4/2015, 16:04


 

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

Go down 
Tác giảThông điệp
ahoo125
Moderator
Moderator
ahoo125


Giới tính : Nam 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

Bài tập thực hành + Hướng dẫn VB.NET Empty
Bài gửiTiêu đề: 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 Icon_minitime5/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.
Về Đầu Trang Go down
http://www.09ct.undo.it
ahoo125
Moderator
Moderator
ahoo125


Giới tính : Nam 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

Bài tập thực hành + Hướng dẫn VB.NET Empty
Bài gửiTiê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 Icon_minitime5/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.
Về Đầu Trang Go down
http://www.09ct.undo.it
ahoo125
Moderator
Moderator
ahoo125


Giới tính : Nam 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

Bài tập thực hành + Hướng dẫn VB.NET Empty
Bài gửiTiê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 Icon_minitime5/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.
Về Đầu Trang Go down
http://www.09ct.undo.it
ahoo125
Moderator
Moderator
ahoo125


Giới tính : Nam 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

Bài tập thực hành + Hướng dẫn VB.NET Empty
Bài gửiTiê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 Icon_minitime5/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.
Về Đầu Trang Go down
http://www.09ct.undo.it
ahoo125
Moderator
Moderator
ahoo125


Giới tính : Nam 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

Bài tập thực hành + Hướng dẫn VB.NET Empty
Bài gửiTiê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 Icon_minitime5/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.
Về Đầu Trang Go down
http://www.09ct.undo.it
ahoo125
Moderator
Moderator
ahoo125


Giới tính : Nam 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

Bài tập thực hành + Hướng dẫn VB.NET Empty
Bài gửiTiê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 Icon_minitime6/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
Về Đầu Trang Go down
http://www.09ct.undo.it
ahoo125
Moderator
Moderator
ahoo125


Giới tính : Nam 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

Bài tập thực hành + Hướng dẫn VB.NET Empty
Bài gửiTiê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 Icon_minitime19/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
Về Đầu Trang Go down
http://www.09ct.undo.it
Sponsored content





Bài tập thực hành + Hướng dẫn VB.NET Empty
Bài gửiTiê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 Icon_minitime

Về Đầu Trang Go down
 
Bài tập thực hành + Hướng dẫn VB.NET
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» 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

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn Đàn Lớp 09CT111 - Khoa Công Nghệ Thông Tin - Đại Học Lạc Hồng :: Phòng Học :: Học Phần Năm III :: Lập Trình Visual Basic 1-
Chuyển đến