TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT KHOA CÔNG NGHỆ SỐ BÀI TẬP CHƯƠNG 1 Tạo Form để minh họa các điều khiển đã học Đề tài Quản lý sân bóng đá Giảng viên hướng dẫn Hoàng Thị Mỹ Lệ Sinh viên Trần Văn Hướng 2[.]
TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT KHOA CÔNG NGHỆ SỐ BÀI TẬP CHƯƠNG Tạo Form để minh họa điều khiển học Đề tài: Quản lý sân bóng đá Giảng viên hướng dẫn Sinh viên : : Hoàng Thị Mỹ Lệ Trần Văn Hướng 2050531200202 Đà Nẵng, tháng 03/ 2023 1 Giao diện form thiết kế Giao diện chạy Các điều khiển chương trình a Code tồn chương trình : Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'Tạo danh sách listView ListView1.Items.Clear() ListView1.Columns.Add("STT", 40, HorizontalAlignment.Center) ListView1.Columns.Add("Mã sân ", 50, HorizontalAlignment.Center) ListView1.Columns.Add("Mã khách hàng", 90, HorizontalAlignment.Center) ListView1.Columns.Add("Ngày đặt sân ", 90, HorizontalAlignment.Center) ListView1.Columns.Add("Thời gian đặt ", 90, HorizontalAlignment.Center) ListView1.Columns.Add("Ghi ", 90, HorizontalAlignment.Center) Dim ptu As ListViewItem Dim i As Integer For i = To 10 ptu = New ListViewItem(i) ptu.SubItems.Add(Microsoft.VisualBasic.Right("00" & i, 3)) ptu.SubItems.Add(Microsoft.VisualBasic.Right ("221A" & i, 5)) ptu.SubItems.Add(Microsoft.VisualBasic.Right ("2022-07-0" & i, 10)) ptu.SubItems.Add(Microsoft.VisualBasic.Right("1 tiế ng ", 10)) ptu.SubItems.Add(Microsoft.VisualBasic.Right("Đã toán ", 15)) ListView1.Items.Add(ptu) Next ListView1.View = View.Details 'Tạo liệu treeview TV.Nodes.Clear() TV.ImageIndex = TV.Nodes.Add("Sân 5") TV.Nodes(0).Nodes.Add("Sân 001") TV.Nodes(0).Nodes.Add("Sân 001") TV.Nodes.Add("Sân 7") TV.Nodes(1).Nodes.Add("Sân 101") TV.Nodes(1).Nodes.Add("Sân 102") TV.Nodes.Add("Sân 11") TV.Nodes(2).Nodes.Add("Sân 201") TV.Nodes(2).Nodes.Add("Sân 202") End Sub 'Điề u Khiể n listbox 'button đặt sân trố ng Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtnDatSan.Click ListSanDat.Items.Add(ListSanTrong.SelectedItem) ListSanTrong.Items.Remove(ListSanTrong.SelectedIte m) End Sub 'button đặt tấ t sân trố ng Private Sub BtnChonHet_Click(sender As Object, e As EventArgs) Handles BtnChonHet.Click For Each item In ListSanTrong.Items ListSanDat.Items.Add(item) Next ListSanTrong.Items.Clear() End Sub 'Button hủy đặt sân có sẵ n Private Sub BtnHuySan_Click(sender As Object, e As EventArgs) Handles BtnHuySan.Click ListSanTrong.Items.Add(ListSanDat.SelectedItem) ListSanDat.Items.Remove(ListSanDat.SelectedItem) End Sub 'Button hủy tấ t sân đặt Private Sub BtnHuyHet_Click(sender As Object, e As EventArgs) Handles BtnHuyHet.Click For Each item In ListSanDat.Items ListSanTrong.Items.Add(item) Next ListSanDat.Items.Clear() End Sub 'Button đặt sân Private Sub Btn1_Click(sender As Object, e As EventArgs) Handles Btn1.Click MessageBox.Show("Đặt sân thành công !", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub 'Button hủy bỏ Private Sub Btn2_Click(sender As Object, e As EventArgs) Handles Btn2.Click MessageBox.Show("Hủy bỏ thành công , Tiế p tục đặt ", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub 'Thanh trạng thái Private Sub BtnCapNhat_Click(sender As Object, e As EventArgs) Handles BtnCapNhat.Click Dim max As Integer = 50000 Dim i As Integer Me.ProgressBar1.Maximum = max Dim st As String For i = To max ProgressBar1.Value = i st = Math.Floor(((i / max)) * 100).ToString & "%" Application.DoEvents() Label3.Text = "Đang cập nhật " & st Next End Sub End Class b Code button đặt sân - Code Private Sub Btn1_Click(sender As Object, e As EventArgs) Handles Btn1.Click MessageBox.Show("Đặt sân thành công !", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub - Ảnh minh họa c Code button hủy bỏ đặt sân - Code Private Sub Btn2_Click(sender As Object, e As EventArgs) Handles Btn2.Click MessageBox.Show("Hủy bỏ thành công , Tiế p tục đặt ", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub - Ảnh minh họa d Code button cập nhật thựuc - Code Private Sub BtnCapNhat_Click(sender As Object, e As EventArgs) Handles BtnCapNhat.Click Dim max As Integer = 50000 Dim i As Integer Me.ProgressBar1.Maximum = max Dim st As String For i = To max ProgressBar1.Value = i st = Math.Floor(((i / max)) * 100).ToString & "%" Application.DoEvents() Label3.Text = "Đang cập nhật " & st Next End Sub - Ảnh minh họa e Code listView - Code ListView1.Items.Clear() ListView1.Columns.Add("STT", 40, HorizontalAlignment.Center) ListView1.Columns.Add("Mã sân ", 50, HorizontalAlignment.Center) ListView1.Columns.Add("Mã khách hàng", 90, HorizontalAlignment.Center) ListView1.Columns.Add("Ngày đặt sân ", 90, HorizontalAlignment.Center) ListView1.Columns.Add("Thời gian đặt ", 90, HorizontalAlignment.Center) ListView1.Columns.Add("Ghi ", 90, HorizontalAlignment.Center) Dim ptu As ListViewItem Dim i As Integer For i = To 10 ptu = New ListViewItem(i) ptu.SubItems.Add(Microsoft.VisualBasic.Right("00" & i, 3)) ptu.SubItems.Add(Microsoft.VisualBasic.Right ("221A" & i, 5)) ptu.SubItems.Add(Microsoft.VisualBasic.Right ("2022-07-0" & i, 10)) ptu.SubItems.Add(Microsoft.VisualBasic.Right("1 tiế ng ", 10)) ptu.SubItems.Add(Microsoft.VisualBasic.Right("Đã toán ", 15)) ListView1.Items.Add(ptu) Next ListView1.View = View.Details - Ảnh minh họa f Code TreeView - Code TV.Nodes.Clear() TV.ImageIndex = TV.Nodes.Add("Sân 5") TV.Nodes(0).Nodes.Add("Sân TV.Nodes(0).Nodes.Add("Sân TV.Nodes.Add("Sân 7") TV.Nodes(1).Nodes.Add("Sân TV.Nodes(1).Nodes.Add("Sân TV.Nodes.Add("Sân 11") TV.Nodes(2).Nodes.Add("Sân TV.Nodes(2).Nodes.Add("Sân End Sub - Ảnh minh họa 001") 001") 101") 102") 201") 202") g Code ListBox - Code 'button đặt sân trố ng Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtnDatSan.Click ListSanDat.Items.Add(ListSanTrong.SelectedItem) ListSanTrong.Items.Remove(ListSanTrong.SelectedIte m) End Sub 'button đặt tấ t sân trố ng Private Sub BtnChonHet_Click(sender As Object, e As EventArgs) Handles BtnChonHet.Click For Each item In ListSanTrong.Items ListSanDat.Items.Add(item) Next ListSanTrong.Items.Clear() End Sub 'Button hủy đặt sân có sẵ n Private Sub BtnHuySan_Click(sender As Object, e As EventArgs) Handles BtnHuySan.Click ListSanTrong.Items.Add(ListSanDat.SelectedItem) ListSanDat.Items.Remove(ListSanDat.SelectedItem) End Sub 'Button hủy tấ t sân đặt Private Sub BtnHuyHet_Click(sender As Object, e As EventArgs) Handles BtnHuyHet.Click For Each item In ListSanDat.Items ListSanTrong.Items.Add(item) Next ListSanDat.Items.Clear() End Sub - Ảnh minh họa ... chạy Các điều khiển chương trình a Code tồn chương trình : Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ''Tạo danh sách listView ListView1.Items.Clear()... TV.Nodes(2).Nodes.Add("Sân 202") End Sub ''Điề u Khiể n listbox ''button đặt sân trố ng Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtnDatSan.Click ListSanDat.Items.Add(ListSanTrong.SelectedItem)... ListSanTrong.Items.Remove(ListSanTrong.SelectedIte m) End Sub ''button đặt tấ t sân trố ng Private Sub BtnChonHet_Click(sender As Object, e As EventArgs) Handles BtnChonHet.Click For Each item In ListSanTrong.Items