BÀI TẬP THỰC HÀNH VISUAL BASIC.NET pot

Trang 1 BÀI TẬP THỰC HÀNH VISUAL BASIC.NET Tuần 1 : Cấu trúc chương trình VB - Tạo và lưu 1 project VB - Viết chương trình in ra chữ Hello - Viết chương trình nhập họ tên của 1 người. In ra họ tên của người đó. - Thiết kế Form nhập vào 2 số. Tính tổng 2 số vừa nhập (Dùng Textbox và Command Button) - Thiết kế giao diện máy tính đơn giản Tuần 2 : Ngôn ngữ lập trình - Viết chương trình giải phương trình ax + b = 0 - Viết chương trình giải phương trình bậc 2 : ax 2 + bx + c = 0 - Viết chương trình nhập vào 1 số từ 1 đến 7. Cho biết số đó là thứ mấy trong tuần - Viết chương trình tính tổng S = 1 + 2 + 3 +…+ N - Viết chương trình tính N! Tuần 3 : Ngôn ngữ lập trình (tt) - Viết chương trình lặp lại nhiều lần việc nhập 1 số nguyên x, việc nhập kết thúc khi x=0. Tính tổng các số vừa nhập - Viết chương trình kiểm tra 1 số có phải nguyên tố hay không? - Viết chương trình kiểm tra 1 số có phải là số chính phương hay không? Tuần 4 : Ngôn ngữ lập trình (tt) - Viết chương trình con nhập vào mảng 1 chiều N phần tử. Tìm số lớn nhất và nhỏ nhất trong mảng - Viết chương trình con sắp xếp mảng 1 chiều theo thứ tự tăng dần - Viết chương trình con cho biết có bao nhiêu số nguyên tố trong mảng 1 chiều - Viết chương trình con nhập vào mảng 2 chiều có M hàng, N cột. Tìm số lớn nhất và nhỏ nhất trong mảng - Viết chương trình con tính tổng các phần tử lẻ trong mảng 2 chiều - Viết chương trình con tính tổng các phần tử trên 2 đường chéo chính trong mảng 2 chiều Tuần 5 : Kiểm tra Trang 2 Tuần 6 : Các Control điều khiển 1. Tạo form cộng 2 số a và b có giao diện như sau Yêu cầu : - Đặt tên cho các textbox số 1(txtso1), số 2 (txtso2), textbox kết quả (txtkq), button kết quả (btnkq), button close (btnclose) - Txtkq không được nhập, không được đặt con trỏ vào textbox này - Dùng phím Tab để di chuyển các control theo thứ tự txtso1,txtso2, btnkq, btnclose - Đặt phím nóng cho button kết quả và button close. 2. Thiết kế giao diện: Yêu cầu : - Các điều khiển sử dụng trong form gồm: - CheckBox1: thuộc tính Checked – False; Text – Máy tính cá nhân - Checkbox2: thuộc tính Checked – False; Text – Máy photocopy - PictureBox1: thuộc tính Image – None; SizeMode: StretchImage - PictureBox2: thuộc tính Image – None; SizeMode: Stretchimage - Chương trình này có hai CheckBox cho phép click chọn. Nếu click chọn vào CheckBox nào thì sẽ hiện một bức ảnh tương ứng với nó. Trang 3 3. Tạo trong form các điều khiển gồm ListBox, TextBox và một Button như hình. 4. Chương trình gồm hai textbox cho phép nhập hai giá trị để gán cho hai biến value1 và value2, bốn radiobutton cho phép chọn bốn toán tử khác nhau, khi đã nhập đầy đủ hai giá trị thì có thể thực hiện tính bằng cách nhấp chọn nút ‘thực hiện tính’ và kết quả hiển thị trong ô textbox3 – kết quả. Tuần 7 : Các Control điều khiển (tt) 1. Giao diện chương trình: Yêu cầu : 5. Chương trình bao gồm một listbox liệt kê danh sách 4 nước. Khi người dùng click vào một nước nào đó thì tên nước hiện trên một nhãn và thông tin chi tiết hiện trên một nhãn khác. Trang 4 6. Lúc này nếu người dùng click vào lstcountry nhưng nếu không click đúng vào một trong bốn mục thì chương trình lập tức hiện thông báo yêu cầu chọn một trong bốn mục đó (sự kiện MouseHover) 2. Thiết kế giao diện như sau : Dùng Textbox Tuần 8 : Các Control điều khiển (tt) 2. Thiết kế giao diện: Yêu cầu : : - Tạo hai điều khiển GroupBox - Tạo 3 radiobox đặt vào trong điều khiển GroupBox1. - Tạo 3 CheckBox đặt vào trong điều khiển GroupBox2. - Tạo 1 điều khiển ListBox và không nhập liệu gì cả. - Tạo một điều khiển ComboBox. Tạo 6 PictureBox và 3 Label cùng 1 Button. - Sửa các thuộc tính sao cho phù hợp với hình trên. Riêng hai điều khiển ListBox và ComboBox thì các dữ liệu sẽ được nhập khi Form được load vào lúc chương trình chạy. Chuyên đề .NET. Khoa Công nghệ thông tin – ĐHSPKT Hưng Yên 2006 Bài thực hành số 1 Lập trình hướng đối tượng trong VB.NET Mục tiêu: Kết thúc bài thực hành sinh viên có thể: Ø Tạo được các lớp trong VB.NET Ø Tạo được các lớp có sử dụng kỹ thuật override, overload, thừa kế và đa hình. Ø Vận dụng các kỹ thuật lập trình hướng đối tượng để xây dựng một số ứng dụng đơn giản. Nội dung: 1. Tạo lớp clsMyTextBox thừa kế từ lớp Textbox 2. Thêm các phương thức, thuộc tính và sự kiện cho lớp clsMyTextBox 3. Viết chương trình Editor đơn giản sử dụng lớp clsMyTextBox. Mô tả yêu cầu: 1. Tạo lớp clsMyTextBox: Sinh viên cần khai báo một lớp clsMyTextBox thừa kế từ lớp TextBox. 2. Các thành viên (member) thêm vào lớp clsMyTextBox như sau: Constructor Sub New() Public Đặt nội dung cho textbox là “This is my textbox” Sub new (TextValue As String) public Đặt nội dung cho textbox như tham số truyền vào. Phương thức Phạm vi truy cập Yêu cầu chức năng Sub Show() public Hiển thị textbox Sub Hide() public Ẩn textbox Sub SetDefaultFont() public Đặt font chữ mặc định cho textbox là 12pt, normal. Sub SetFont(FontName As string) Public Đặt font chữ cho textbox. Thuộc tính khác giữ nguyên Sub SetFont(FontSize As Integer) Public Đặt kích cỡ font Sub SetFont(FontName As String, FontSize As Integer) public Đặt tên font và kích thước cho textbox Sub SetFont(F As Font) public Đặt font chữ cho textbox. NumericEntryOnly() public Chỉ cho phép nhập số Chuyên đề .NET. Khoa Công nghệ thông tin – ĐHSPKT Hưng Yên 2006 ABCAlphabetEntryOnly() public Chỉ cho phép nhập chữ cái. SetForeColor(Color As ColorEnum) public Đặt màu chữ cho textbox, tên màu là một kiểu enum có các giá trị “XANH”, “ĐỎ”, “ĐEN” SetBackColor(Color As ColorEnum) Đặt màu chữ cho textbox, tên màu là một kiểu enum có các giá trị “XANH”, “ĐỎ”, “ĐEN” Sự kiện public Ctrl_Right_Click() public Được kích hoạt khi người dùng nhấn Ctrl + Click chuột phải Viết lệnh cho sự kiện Ctrl_Right_Click() Khi sự kiện này được kích hoạt thì xóa nội dung trong textbox. Gợi ý: lệnh RaiseEvent <TenSuKien> (Sender, E) để kích hoạt sự kiện Lệnh Public Event <Ten_SuKien>() để khai báo sự kiện. Thuộc tính FontName As String Public Xử lý khi tên font bị sai FontSize As Integer Public Đặt kích thước font, cần xử lý khi người dùng nhập vào một số thực. (hoặc số quá lớn, quá nhỏ) FontBold As Boolean/Italic/Underline public 3. Viết ứng dụng đơn giản. Yên cầu: Viết chương trình soạn thảo văn bản đơn giản có đầy đủ menu bar, menu toolbar và menu popup để cho phép người dùng soạn thảo, định dạng và lưu trữ ra đĩa cứng. à Sinh viên LÀM TRƯỚC Ở NHÀ, sau đó giáo viên sẽ kiểm tra trong giờ thực hành và công bố điểm ngay khi hết giờ thực hành. SV nào không đi thực hành để báo cáo à 0 điểm. 1 Bài thực hành số 2 Thao tác Cơ sở dữ liệu trong VB.NET Mục tiêu : Sau khi kết thúc bài thực hành, sinh viên có thể: ỉ Kết nối và truy vấn cơ sở dữ liệu thông qua tập các lớp của ADO.NET ỉ Cập nhật dữ liệu thông qua các lớp thuộc mô hình kết nối và phi kết nối (Connectioned & Disconnected). ỉ Viết các lớp ComboBox, ListBox, TreeView, ListView, DataGridview mới có kế thừa từ các lớp gốc. ỉ Xây dựng một ứng dụng có sử dụng các lớp vừa xây dựng. L-u ý: ỉ Sinh viên khi làm cần phải xây dựng một (hoặc vài) form để Demo các yêu cầu cho GVHD. ỉ Nếu các bài Copy của nhau (không trình bày đ-ợc cái mình đã làm) thì cả ng-ời Copy và cho Copy đều đ-ợc điểm 0 của phần thực hành (bị trừ 3 điểm). M Nội dung: 1. Thao tác với CSDL (Thống nhất lấy cơ sở dữ liệu Nwind.mdb) dùng mô hình kết nối (sử dụng các lớp OledbConnection, OleDbCommand, OleDbDataReader. 2. Thao tác với CSDL (Thống nhất lấy cơ sở dữ liệu Nwind.mdb) dùng mô hình không kết nối (sử dụng các lớp OledbConnection, OleDbDataAdapter, DataSet. 3. Xây dựng lớp MyListBox thừa kế từ ListBox 4. MyComboBox thừa kế từ lớp ComboBox 5. Xây dựng lớp DataGridView 6. Xây dựng lớp MyTreeView 7. Xây dựng lớp MyListView 8. Vận dụng các lớp vừa xây dựng ở trên, viết ứng dụng Quản lý lịch làm việc cá nhân. Nội dung chi tiết: Danh sách các Bảng trong CSDL Nwind.mdb 2 Thực hành làm các công việc sau đây: 1. Thao tác CSDL nwind.mdb theo mô hình kết nối a) Hiển thị danh sách tất cả các nhà cung cấp (CompanyName) trong một ListBox b) Hiển thị tên các sản phẩm (ProductName) trong LisstBox khi ng-ời dùng chọn Mã nhà cung cấp (SupplierID) t-ơng ứng ở trong ComboBox. c) Hiển thị tên công ty (Company name) của nhà cung cấp trong một Textbox. Khi ng-ời dùng di chuyển đến một Company name thì hiển thị các đơn hàng trong một DataGridview. Khi ng-ời dùng click vào một đơn hàng thì lại hiển thị chi tiết đơn hàng đó trong một DataGridview khác (Hình 1). Thêm các nút duyệt tên các công ty. (|<; < ; > ; >| ) d) Hiển thị mã khách hàng (CustomerID) trong ComboBox. Khi ng-ời dùng chọn thì thông báo tổng giá trị đơn hàng mà khách hàng đó đã đặt. e) Ghi thông tin về các sản phẩm đã bán vào tệp văn bản theo định dạng. (Mỗi bản ghi trên một dòng) STT ContacName ProductName CompanyName Quantity 1 John Monitor IBM 5 2 Adam CPU Intel 10 . Hình 1 2. Thao tác CSDL nwind.mdb theo mô hình phi kết nối Xây dựng một form thao tác với bản Customers có dạng nh- sau: 3 H2. Giao diện thể hiện chức năng. L-u ý: Có sử dụng điểu khiển Error Provider để kiểm tra dữ liệu nhập (các tr-ờng số, tr-ờng not null) 3. Xây dựng lớp MyListBox thừa kế từ ListBox, với các thành viên mới: - Ph-ơng thức LoadField(FieldName, TableName, DBPath: String) để nạp một tr-ờng trong một bảng của tệp CSDL DBPath vào Listbox. - Ph-ơng thức LoadFieldDistinctRow (FieldName, TableName, DBPath: String) để nạp tr-ờng nh-ng loại bỏ các phần tử trùng nhau (chỉ giữ lại một). - Ph-ơng thức SortData (ChieuSapXep as boolean) để sắp xếp dữ liệu theo chiều tăng hoặc giảm dần. - Ph-ơng thức SortData(KieuDuLieu As Integer, ChieuSapXep as boolean) để sắp xếp tùy thuộc vào kiểu dữ liệu trong listbox. - Ph-ơng thức SortVietnameseName() để sắp xếp theo vần tên (Nếu listbox chứa danh sách họ tên) - Thêm sự kiện XOA. Sự kiện này đ-ợc kích hoạt khi ng-ời dùng nhấn phím Del. 4. MyComboBox thừa kế từ lớp ComboBox Xây dựng chức năng t-ơng tự nh- lớp MyListBox 5. Xây dựng lớp DataGridView Các ph-ơng thức bổ sung: - LoadTable(Tên bảng, tên CSDL) - LoadTable(Tên bảng, Tên CSDL, tên tr-ờng để sắp xếp theo, chiều (tăng, giảm)) - ExecuteSQL(Tên CSDL, tên câu lệnh SQL) - ExecuteSQL(Câu lệnh SQL), thực thi câu lệnh SQL với CSDL đ-ợc thực hiện tr-ớc đó. - ExecuteSelectCmd(Câu lệnh Select) As DataReader - Export(FileName As String) : Để kết xuất dữ liệu ra file text. Mỗi bản ghi trên một dòng. Ph-ơng thức này, lớp sau có thể thay đổi để kết xuất ra t/bị khác. 4 6. Xây dựng lớp MyTreeView Xây dựng lớp MyTreeView với các ph-ơng thức sau: - LoadField(Tên tr-ờng, tên bảng, Tên CSDL) để nạp tr-ờng của một bảng vào cây (Nạp vào mức 1) - LoadField(Tên tr-ờng_mức 1, Bảng chứa tên tr-ờng 1, Tên tr-ờng _ Mức 2, Bảng chứa tên tr-ờng ở mức 2, Tên CSDL): Dùng để nạp một tr-ờng của một bảng vào mức 1 (mức cha) và ứng với mỗi nút cha đó thì nạp các nút con t-ơng ứng nằm trong tr-ờng 2 của bảng 2. Ví dụ Mức 1 nạp tên công ty (CompanyName), mức 2 nạp tên sản phẩm ứng với công ty đó (ProductName). - LoadField(Tên tr-ờng_mức 1, Bảng chứa tên tr-ờng 1, Tên tr-ờng _ Mức 2, Bảng chứa tên tr-ờng ở mức 2, Tên tr-ờng _ Mức 3, Tên bảng chứa tr-ờng 3, Tên CSDL) Giống nh- trên nh-ng thực hiện đến mức thứ 3. Ví dụ nạp CompanyName (mức cha) ProductName (mức con) UnitPrice (mức cháu). - Function Check(ID as String) As Node để kiểm tra xem trong cây có một nút có khóa là ID hay không, nếu có thì trả về chính node đó. Trái lại trả về Nothing. - Sub DeleteKey(K as string) để xóa một nút có khóa bằng K - Function InsertNode(Key, Text As String, ParentKey As String) Để thêm một nút mới có khóa là Key, Text là Text làm nút con của nút có khóa (Key) là ParentKey. - Lớp MyTreeView - SaveToCollection() As Collection : để l-u tất cả các nút của treeview vào một tập hợp. - Thêm menu popup vào cho treeview với các mục : Add, Delete để cho phép ng-ời dùng thêm ngay, xóa ngay nút hiện hành (đang đ-ợc chọn). - Bổ sung sự kiện Delete. Sự kiện này của ng-ời dùng sẽ đ-ợc kích hoạt mỗi khi ng-ời dùng nhấn phím Del. (l-u ý: Nhiều bạn ở bài thực hành tr-ớc hiểu sai yêu cầu Xin xem ví dụ mẫu). 7. Xây dựng lớp MyListView Xây dựng lớp này để có thêm chức năng: - ShowTable(Tên bảng, Tên CSDL) để hiển thị một bảng CSDL trong ListView. - MyListView cũng có menuPopup để ng-ời dùng chọn kiểu hiển thị (3 mục là List, Icons, report). Việc hiển thị menu có thể là tùy chọn (Enable/Disable). - Thêm sự kiện Delete giống nh- ở câu 6. 8. Vận dụng các lớp vừa xây dựng ở trên, viết ứng dụng Quản lý lịch làm việc Thông tin chung: - Mỗi ng-ời có thể viết nhiều ngày làm việc - Mỗi ngày có thể có nhiều việc khác nhau - Mỗi việc đều có chi tiết công việc. Yêu cầu (các chức năng chính, còn SV có thể bổ sung thêm nếu thấy cần Càng tốt !): a. Nhập lịch làm việc cho một tuần b. Bổ sung thêm một công việc cho một ngày nào đó c. Xóa một công việc d. Chỉnh sửa công việc e. Xem các công việc theo ngày, tháng, tuần f. Nhắc việc. Nếu thời gian máy tính bằng với thời điểm bắt đầu của công việc thì "Nhắc nhở" bằng cách hiển thị một Message. *** L-u ý: - Có thể tham khảo phần mềm Outlook đi cùng với bộ MS Office 2k, 2k3 - Việc trình bày các công việc ở trên nên sử dụng MyTreeView, MyListView, MyListBox ở trên ! [...]... server 8 TRƯờNG ĐạI HọC SƯ PHạM Kỹ THUậT HƯNG YÊN Khoa công nghệ thông tin -hệ thống bài thực hành môn : ms ASP.net Lớp: TK3H Gi ng viờn: Nguy n Minh Quý Bài thực hành số 1 Sử dụng Web Control Yêu cầu: Xây dựng một trang Web thực hiện 4 phép tính +, -, *, / Các b-ớc tiến hành: B1 Chạy Microsoft Visual Studio net B2 Chọn kiểu dự án là ASP.NET Application B3 Kéo và đặt lần l-ợt các điều khiển... nạp lại dữ liệu vào Data Grid End Sub Bài thực hành số 5 Thực hiện các thao tác cập nhật và xoá bản ghi Yêu cầu: Sử dụng Data Grid để hiển thị bảng tblNguoiDung, trong đó thêm cột Update và delete Mỗi khi ng-ời dùng click vào cột Update, delete của bản ghi (dòng) hiện tại thì thực hiện Update và Delete bản ghi t-ơng ứng Các B-ớc tiến hành: B1+B2: Giống nh- bài thực hành số 4 B3: Tạo thêm cột cho Data.. .Bài thực hành số 5: Lập trình mạng trong VB.NET Mục tiêu: Sau khi kết thúc bài thực hành, sinh viên có thể: ỉ Nắm vững cách khai báo và sử dụng đ-ợc các lớp UDP, TCP, IPAddress, IPHostEntry, IPEndpoint ỉ Sử dụng các lớp UDP và TCP để viết một số ch-ơng trình Client và Server đơn giản: CHAT Nội dung: UDP: Bài 1: Viết ch-ơng trình UDP đặt ở hai máy thực hiện công việc sau: -... liệu là NguoIDung '/// Thực hiện gắn kết thực sự Private Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) datAdapter.Dispose() Cn.Close() End Sub Đại học S- phạm Kỹ thuật H-ng Yên Biờn so n: Nguy n Minh Quý Ver 1.0 Bài thực hành số 4 Hiển thị dữ liệu trong bảng ra Data Grid và thực hiện phân trang Yêu cầu: Hiển thị dữ liệu chứa trong bảng tblNguoiDung và thực hiện phân trang, mỗi... các bài thực hành tiếp theo, ta sẽ lấy cơ sở dữ liệu có tên là Email.mdb để minh hoạ Tệp Email.mdb có 1 bảng tên là tblNguoiDung, bảng này có các tr-ờng là MaNguoiDung, HoTen, DiaChiEMail, MatKhau Tệp này qui -ớc là l-u trong cùng với th- mục của ứng dụng WEB hiện hành SV tự tạo CSDL này và nhập vào bảng khoảng 20 bản ghi mẫu! Đại học S- phạm Kỹ thuật H-ng Yên Biờn so n: Nguy n Minh Quý Ver 1.0 Bài thực. .. tr-ờng HoTen với Listbox để hiển thị lstHoTen.DataBind() '/// Thực hiện gắn kết Cmd.Dispose() ' Giải phóng đối t-ợng cmd (vì không còn cần nữa) End Sub '/// Thực hiện các công việc dọn dẹp khi trang kết thúc Private Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cn.Close() '/// Đóng kết nối End Sub bài thực hành số 3 Hiển thị dữ liệu trong Data Grid control Yêu cầu : Hiển... dgrNguoiDung.Dispose() End Sub Bài tập làm thêm: Bài 1: Xây dựng trang Login để kiểm tra thông tin đăng nhập của ng-ời dùng Bài 2: Xây dựng trang cho phép thêm mới bản ghi vào bảng Gợi ý: Xây dựng ttang NhapDuLieu.htm để ng-ời dùng nhập dữ liệu và submit cho trang Them.aspx Trang Them.aspx sẽ lấy thông tin nàybằng Request.form và insert vào bảng (sử dụng ph-ơng thức: executeNonQuery của đối t-ợng OledbCommand) Bài 3: Xây... kết nối End Sub Bài thực hành 2.2 Hiển thị dữ liệu trong CSDL ra ListBox (Version 2), sử dụng khả năng gắn kết dữ liệu (Data Binding) của các Web Control Yêu cầu: Nạp họ tên ng-ời dùng trong bảng tblNguoiDung vào ListBox khi ng-ời dùng click vào nút "DS ng-ời dùng" (Đây là cách lấy và nạp dữ liệu cải tiến, tận dụng khả năng gắn kết dữ liệu của các đối t-ợng Web control) Các b-ớc tiến hành: B1 Kéo một... (shutdown, restart, OPEN#) vào ô textbox Xâu gửi trên ứng dụng A Sau khi nhấn nút Gửi thì xâu đó hiện ra ô textbox Xâu nhận về trên ứng dụng B, đồng thời thực hiện các công việc t-ơng ứng Bài 2: Viết ch-ơng trình UDP đặt trên một máy thực hiện các công việc sau: Khi một ứng dụng (B) gửi một xâu chữ Tiếng Anh thì ứng A sẽ gửi trả lại nghĩa tiếng Việt t-ơng ứng Nếu từ Tiếng Anh không có trong từ... Cn.Open() End Sub '/// Thực hiện lấy dữ liệu trong bảng và chèn vào Listbox Private Sub cmdHienThi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) lstHoTen.Items.Clear() Cmd = New OleDb.OleDbCommand("Select * from tblNguoiDung", Cn) datAdapter.SelectCommand = Cmd '// Lấy kết quả vừa thực hiện và l-u vào data Adapter datAdapter.Fill(datSet, "NguoiDung") '// Đặt tên cho tập kết quả đó là . kiểm tra trong giờ thực hành và công bố điểm ngay khi hết giờ thực hành. SV nào không đi thực hành để báo cáo à 0 điểm. 1 Bài thực hành số 2 Thao tác. đề .NET. Khoa Công nghệ thông tin – ĐHSPKT Hưng Yên 2006 Bài thực hành số 1 Lập trình hướng đối tượng trong VB .NET Mục tiêu: Kết thúc bài thực hành