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

Chia sẻ: Lê Quảng Vàng | Ngày: | Loại File: PDF | Số trang:27

Thêm vào BST

Báo xấu

148
lượt xem 38
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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 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 : ax2 + bx + c = 0 Viết chương trình nhập vào 1 số từ 1...

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: BÀI TẬP THỰC HÀNH VISUAL BASIC.NET

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 : ax2 + 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 1
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 2
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 3
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. Trang 4
Chuyên đề .NET. 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 Đặt nội dung cho textbox là “This is Sub New() Public my textbox” Đặt nội dung cho textbox như tham số Sub new (TextValue As String) public truyền vào. Phạm vi Phương thức Yêu cầu chức năng truy cập 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, public Đặt tên font và kích thước cho textbox FontSize As Integer) Sub SetFont(F As Font) public Đặt font chữ cho textbox. NumericEntryOnly() public Chỉ cho phép nhập số Khoa Công nghệ thông tin – ĐHSPKT Hưng Yên 2006
Chuyên đề .NET. ABCAlphabetEntryOnly() public Chỉ cho phép nhập chữ cái. SetForeColor(Color As public Đặt màu chữ cho textbox, tên màu là ColorEnum) một kiểu enum có các giá trị “XANH”, “ĐỎ”, “ĐEN” SetBackColor(Color As Đặt màu chữ cho textbox, tên màu là ColorEnum) 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 Khi sự kiện này được kích hoạt thì xóa Ctrl_Right_Click() nội dung trong textbox. Gợi ý: lệnh RaiseEvent (Sender, E) để kích hoạt sự kiện Lệnh Public Event () để 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 public Boolean/Italic/Underline 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. Khoa Công nghệ thông tin – ĐHSPKT Hưng Yên 2006
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 1
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: 2
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. 3
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 ! 4
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: - Khi mét øng dông göi x©u "OPEN#" th× øng dông trªn m¸y kia sÏ më file n»m trong phÇn - Khi mét øng dông göi x©u " shutdown ", “restart” th× øng dông kia sÏ t¾t m¸y tÝnh vµ khëi ®éng l¹i t-¬ng øng. M« t¶ giao diÖn: Giao diÖn cña øng dông A (øng dông 1) Giao diÖn cña øng dông B (øng dông 2) Yªu cÇu: NhËp néi dung x©u göi (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õ ®iÓn (tõ 1
®iÓn ë ®©y chØ cã 3 tõ Computer, RAM, HDD) th× øng dông A göi tr¶ l¹i x©u "Not found". M« t¶ giao diÖn: Giao diÖn cña øng dông A (øng dông 1) Giao diÖn cña øng dông B (øng dông 2) Yªu cÇu: NhËp tõ TiÕng Anh (TA) cÇn tra vµo « Textbox Tõ TA trªn øng dông B. Khi nhÊn nót Göi th× tõ TA ®ã hiÖn ra trong « Text Tõ TA nhËn vÒ tõ øng dông B trªn øng dông A. Sau khi nhÊn nót Göi l¹i nghÜa th× nghÜa cña tõ TA sÏ hiÖn ra trong « Textbox NghÜa nhËn vÒ tõ øng dông A . Bµi 3: viÕt ch-¬ng tr×nh ch¬i cê Caro qua m¹ng sö dông giao thøc UDP. M« t¶ giao diÖn: Giao diÖn cña øng dông A (øng dông 1) 2
Giao diÖn cña øng dông B (øng dông 2) Yªu cÇu+Gîi ý: - Code cho mçi øng dông lµ hoµn toµn gièng nhau - Mçi khi ng-êi dïng Click vµo mét « (sù kiÖn CellClick cña DatagridView) th× göi vÞ trÝ cña « ®ã, ®ång thêi thiÕt lËp gi¸ trÞ cho « ®ã (X hoÆc O) Bµi 4: viÕt ch-¬ng tr×nh CHAT gi÷a 2 m¸y sö dông giao thøc UDP. M« t¶ giao diÖn: Giao diÖn cña øng dông A (øng dông 1) 3
Giao diÖn cña øng dông B (øng dông 2) Code cho mçi øng dông lµ hoµn toµn gièng nhau. L-u ý: NÕu 2 øng dông ®Æt trªn 2 m¸y kh¸c nhau th× chóng ta cã thÓ ®Æt Remote Port vµ Local Port cña hai øng dông gièng nhau (V× kh«ng bÞ xung ®ét). TCP: Bµi 1: ViÕt ch-¬ng tr×nh Telnet. Bµi 2: ViÕt ch-¬ng tr×nh Client/Server: Khi client göi x©u "shutdown", "restart" th× Server sÏ t¾t m¸y vµ khëi ®éng t-¬ng øng. M« t¶ giao diÖn: Giao diÖn cña øng dông Client Yªu cÇu + Gîi ý: 4
- Khi ng-êi dïng nhÊn nót Göi th× client sÏ göi néi dung trong « textbox Néi dung göi cho Server. Tïy theo néi dung client göi ®i mµ Server thùc hiÖn c¸c c«ng viÖc t-¬ng øng (shutdown, restart). - C¸c th«ng tin vÒ server cã thÓ thay ®æi ®-îc. - §Ó shutdown m¸y tÝnh cã thÓ dïng hµm API ExitWindown hay Process.start(“Shutdown”,“-s”). Bµi 3: ViÕt ch-¬ng tr×nh Server gi¶i ®¸p tªn miÒn. NÕu m¸y kh¸ch göi tªn m¸y th× server sÏ göi vÒ ®Þa chØ IP. (danh s¸ch nµy tù t¹o ra – kho¶ng 3 cÆp ®Ó minh häa). M« t¶ giao diÖn: Giao diÖn cña øng dông Client Yªu cÇu - Khi ng-êi dïng nhÊn nót Göi th× client sÏ göi néi dung trong « textbox Néi dung göi cho Server. KiÓm tra xem néi dung client göi ®i cã trïng víi 1 trong 3 tªn m¸y ®· ®-îc ®Þnh nghÜ tr-íc. NÕu trïng th× Server göi l¹i ®Þa chØ IP cho client. - C¸c th«ng tin vÒ server cã thÓ thay ®æi ®-îc. Bµi 4: ViÕt ch-¬ng tr×nh Client/Server. Khi Client göi ®-êng dÉn cña tÖp n»m trªn m¸y server th× server göi tr¶ cho Client néi dung cña tÖp ®ã. M« t¶ giao diÖn: 5
Giao diÖn cña øng dông Client Yªu cÇu NhËp ®-êng dÉn file vµo « Néi dung göi: khi ng-êi dïng nhÊn nót Göi. Th× néi dung nµy sÏ ®-îc göi cho server, dång thêi server göi tr¶ l¹i néi dung file. Néi dung file hiÓn thÞ trong « Néi dung tÖp. Bµi 5: ViÕt ch-¬ng tr×nh CHAT gi÷a hai m¸y sö dông giao thøc TCP. M« t¶ giao diÖn: 6
Giao diÖn cña øng dông Client 1 Giao diÖn cña øng dông Client 2 Yªu cÇu v Server: - Mçi khi cã Client nµo kÕt nèi ®Õn th× client ®ã ®-îc hiÓn thÞ trong môc Danh s¸ch c¸c client kÕt nèi ®Õn. - Th«ng tin server cã thÓ thay ®æi. v Client: - C¸c client kÕt nèi ®Õn server ®-îc hiÓn thÞ trong môc: Danh s¸ch c¸c client. 7
- Khi mét client muèn chat víi mét client nµo ®ã th× ph¶i chän client muèn chat trong (check vµo client muèn chat) Danh s¸ch c¸c client. NÕu kh«ng chän th× néi dung chat chØ göi nª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 sau ®©y vµo form: + Textbox (§Ó l-u sè h¹ng thø nhÊt) + ListBox (§Ó l-u c¸c phÐp to¸n +, -, *, / cho ng-êi dïng chän) + TextBox (§Ó l-u sè h¹ng thø hai) + Button (§Ó thùc thi phÐp to¸n khi ng-êi dïng click chuét) + TextBox (§Ó l-u kÕt qu¶) Sau ®ã cã thÓ kÐo thªm c¸c nh·n (label) ®Ó chó thÝch cho c¸c textbox. B4: §Æt tªn cho c¸c ®iÒu khiÓn (§Æt thuéc tÝnh ID), lÇn l-ît nh- sau: + txtSH1, lstPhepToan, txtSH2, cmdThucHien, txtKetQua B5. ViÕt code trong form '/// ViÕt lÖnh trong thñ tôc Page_Load Private Sub Page_Load(.....) 'N¹p phÐp to¸n vµo trong ListBox lstPhepToan.Items.Add ("+") lstPhepToan.Items.Add ("-") lstPhepToan.Items.Add ("*") lstPhepToan.Items.Add ("/") End sub '// ViÕt lÖnh cho sù kiÖn click chuét lªn nót Thùc hiÖn Private Sub cmdThucHien_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBind.Click Select Case lstPhepToan.SelectedItem.Text Case "+" txtKetQua.Text = CInt(txtSH1.Text) + CInt(txtSH2.Text) Case "-" txtKetQua.Text = CInt(txtSH1.Text) - CInt(txtSH2.Text) Case "*" txtKetQua.Text = CInt(txtSH1.Text) * CInt(txtSH2.Text) Case "/" txtKetQua.Text = CInt(txtSH1.Text) / CInt(txtSH2.Text) End Select End Sub truy cËp c¬ së d÷ liÖu trong asp.net Trong 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 hµnh sè 2.1 HiÓn thÞ d÷ liÖu trong CSDL ra ListBox (Version 1) 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 truyÒn thèng) C¸c b-íc tiÕn hµnh: B1. KÐo mét ListBox vµ mét button vµo form, ®Æt tªn lÇn l-ît lµ: lstHoTen, cmdHienThi. B2. ViÕt lÖnh: '/// PhÇn khai b¸o thuéc form Dim Cn As New OleDb.OleDbConnection Dim Cmd As OleDb.OleDbCommand Dim Rs As OleDb.OleDbDataReader '/// LÖnh khëi t¹o khi trang b¾t ®Çu ®-îc n¹p: Më kÕt nèi ®Õn CSDL Private Sub Page_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Cn.ConnectionString="Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & MapPath("EMail.mdb") 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 Cmd.Connection = Cn Cmd.CommandText = "Select * from tblNguoiDung" Rs = Cmd.ExecuteReader '/// N¹p hä tªn vµo listbox Do While Rs.Read lstHoTen.Items.Add(Rs("HoTen")) Loop Cmd.Dispose() 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 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 ListBox vµ mét button vµo form, ®Æt tªn lÇn l-ît lµ: cboDS, cmdHienThi. B2. ViÕt lÖnh: '/// PhÇn khai b¸o thuéc form Dim Cn As New OleDb.OleDbConnection Dim Cmd As OleDb.OleDbCommand Dim Rs As OleDb.OleDbDataReader §¹i häc S- ph¹m Kü thuËt H-ng Yªn Biên soạn: Nguyễn Minh Quý. Ver 1.0