Đang tải... (xem toàn văn)
VB.Net là một ngôn ngữ lập trình máy tính đơn giản, hiện đại, hướng đối tượng phát triển bởi Microsoft để kết hợp sức mạnh của. NET Framework và thời gian chạy ngôn ngữ phổ biến với những lợi ích năng suất là dấu ấn của Visual Basic. Hướng dẫn này sẽ dạy cho bạn lập trình cơ bản VB.Net và cũng sẽ đưa bạn qua các khái niệm tiên tiến khác nhau liên quan đến ngôn ngữ lập trình VB.Net. Thính giả Hướng dẫn này đã được chuẩn bị cho người mới bắt đầu để giúp họ hiểu các chương trình VB.Net cơ bản. Sau khi hoàn thành hướng dẫn này, bạn sẽ thấy mình ở trình độ trung bình về chuyên môn trong lập trình VB.Net từ nơi bạn có thể tự đưa mình đến các cấp độ tiếp theo. Điều kiện tiên quyết VB.Net lập trình rất nhiều dựa trên BASIC và Visual Basic ngôn ngữ lập trình, do đó, nếu bạn có sự hiểu biết cơ bản về các ngôn ngữ lập trình, sau đó nó sẽ là một niềm vui cho bạn để học ngôn ngữ lập trình VB.Net.
BAI TAP VB NET CO BAN ***Bai : Tao khung dang nhap he thong voi cac yeu cau sau : - Khi nhap vao Ten dang nhap : "Bao Son" va Mat khau : " 123" thi click vao nut Bang Nhap se hien " Ban da dang nhap cong " Con ngnoc lai thi thong bao " Ban hay nhap lai " - Khi click vao nut Thoat , se bao thong bao " Ban co muon thoat hay khong ? Nhan Yes la thoat va No la tro lai nhn cu Code: Imports System Imports System.IO Public Class Forml Dim n As Integer Private Sub BtnOK_Click(sender As Object, e As EventArgs) Handles BtnOK.Click n = n + If (TextName.Text = "") And (TextPass.Text = "") Then MessageBox.Show("Ban chtfa nhap thong tin !", "Thong bao", MessageBoxButtons.OK, MessageBoxIcon.Information) Else If (TextName.Text = "") Or (TextPass.Text = "") Then MessageBox.Show("Ban chtfa nhap thieu thong tin !", "Thong bao", MessageBoxButtons.OK, MessageBoxIcon.Information) If TextName.Text = "" Then TextName.Focus() If TextPass.Text = "" Then TextPass.Focus() Else If UCase(TextName.Text) = "BAO SON" And TextPass.Text = "123" Then MessageBox.Show("Dang nhap cong !", "Thong bao", MessageBoxButtons.OK, MessageBoxIcon.Information) Application.Exit() Else If n = Then MessageBox.Show("Ban het quyen dang nhap !", "Thong bao", MessageBoxButtons.OK, MessageBoxIcon.Information) Application.Exit() End If MessageBox.Show(String.Format("Nhap sai thong tin lan {0}, nhap lai ", n), "Thong bao", MessageBoxButtons.OK, MessageBoxIcon.Information) TextName.Text = "" TextPass.Text = "" TextName.Focus() End If End If End If End Sub Private Sub BtnCancel_Click(sender As Object, e As EventArgs) Handles BtnCancel.Click Dim result = MessageBox.Show("Ban muon thoat ?", "Thong bao", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) If (result = DialogResult.Yes) Then Application.Exit() End If End Sub Private Sub TextName_KeyDown(sender As Object, e As KeyEventArgs) Handles TextName.KeyDown If e.KeyCode = Keys.Enter Then TextPass.Focus() End If End Sub Private Sub TextPass_KeyDown(sender As Object, e As KeyEventArgs) Handles TextPass.KeyDown If e.KeyCode = Keys.Enter Then BtnOK.Focus() End If End Sub Private Sub TextName_GotFocus(sender As Object, e As EventArgs) Handles TextName.GotFocus TextName.BackColor = Color.Cyan End Sub Private Sub TextName_LostFocus(sender As Object, e As EventArgs) Handles TextName.LostFocus TextName.BackColor = Color.White End Sub Private Sub TextPass_GotFocus(sender As Object, e As EventArgs) Handles TextPass.GotFocus TextPass.BackColor = Color.Cyan End Sub Private Sub TextPass_LostFocus(sender As Object, e As EventArgs) Handles TextPass.LostFocus TextPass.BackColor = Color.White End Sub End Class *** Bai : Tao khung thong tin Trong , nhap Ho va Ten , Ngay Thang Nam Sinh , So Thmh Nhan nut Xem de hien thong tin vna nhap xuong khung ket qua Code: Imports System Imports System.IO Public Class Forml Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load For i = To 31 CbNgay.Items.Add(i) Next CbNgay.SelectedIndex = For i = To 12 CbThang.Items.Add(i) Next CbThang.SelectedIndex = For i = 1950 To 2017 CbNam.Items.Add(i) Next CbNam.SelectedIndex = End Sub Private Sub BtnXem_Click(sender As Object, e As EventArgs) Handles BtnXem.Click Dim str As String str = "Ho ten: " & TextName.Text & vbCrLf vbCrLf str = str & "Ngay sinh: " & CbNgay.Text & "/" & CbThang.Text & "/" & CbNam.Text & str = str & "Sd thich: " & TextSothich.Text TextKQ.Text = str End Sub Private Sub BtnThoat_Click(sender As Object, e As EventArgs) Handles BtnThoat.Click Application.Exit() End Sub End Class *** Bai 3: Giai Phuong Trinh Bac va Giai Phuong Trinh Bac Ma : - Khi chon radio Giai PTBacl thi khung nhap c bi md di - Khi chon radio Giai PTBac2 thi hien day du khung nhap *** Bai 4: Tmh Uac So Chung Lan Nhat va Boi So Chung Nho Nhat *** Bai : Hay nhap nguyen a va b Tmh - Tong , Hieu , Tfch , Thnong cua hai so vna nhap - Xu ly nut Thoat chnong trinh vao hai so *** Bai : Hay nhap vao mot ky Voi yeu cau - Xuat cac so vua - Tmh tong cac - Tmh tong so - Khong duoc day so nguyen bat nhap man hinh so vua nhap chan va tong so le dung mang *** Bai : Hay nhap vao n bat ky Vai yeu cau sau : - Kiem tra xem n co phai la so nguyen to hay khong ? - Tim cac so nguyen to nho hon n *** Bai : Hay nhap vao hai phan so bat ky Vai yeu cau sau : - Tmh Tong , Hieu , Tfch , Thuong cua hai phan so - Khi click vao cac button Phep Toan nao thi hien len label ben khung ket qua *** Bai : Hay viet Chuong Trinh danh cho May Tmh Bo Tui don gian voi cac phep toan Cong, Tra, Nhan, Chia, Xoa *** Bai 10 : Hay viet Chuong Trinh tinh Chu Vi va Dien Tfch - Hinh vuong , hinh tron , hinh chu nhat , hinh tam giac - Khi click vao radio button nao thi khung tinh cua cai moi hien Kiem tra xem cac canh cua tam giac nhap vao tao tam giac gi (deu, can, vuong ) ?