農(nóng)業(yè)大學(xué)計(jì)算機(jī)網(wǎng)絡(luò)課程設(shè)計(jì)報(bào)告-資料下載頁
2025-07-20 10:06本頁面
【正文】 里我們做了個(gè)簡單的協(xié)議“InStr(sData, $$$)”，相關(guān)代碼如下：If InStr(sData, $$$) 0 Then For n = 1 To Num If tcpServer(n).State = 7 And n Index Then tcpServer(n).SendData sData DoEvents End If Next group_chat1 = InStr(sData, $$$) group_chat2 = InStr(group_chat1 + 1, sData, $$$) sData = Mid(sData, group_chat1 + 3, group_chat2 group_chat1 3) = Len() = + Chr(10) + CStr(Now()) + Chr(10) + sData + Chr(10) = Len()End If這里我們采用單選按鈕（添加和修改）來實(shí)現(xiàn)客戶端管理和維護(hù)，選擇注冊(cè)或者刪除，點(diǎn)擊“確定后”將顯示相應(yīng)功能，相關(guān)代碼如下：Private Sub mand1_Click() Dim i, j, k As Integer If Len() = 0 Then k = MsgBox(賬戶不能為空！, 64, 提示) Exit Sub End If If = True Then For i = 1 To If (i).Text = Then k = MsgBox(此賬戶已經(jīng)存在，不能添加！, 64, 提示) Exit Sub End If Next i Set itmx = (1, , ) (1) = (2) = 0 ListView_Change1 = ListView_Change1 + 1 Call Data_Add(, ) Call Con_Close k = MsgBox(已經(jīng)添加成功！, 64, 提示) Else j = (j).SubItems(1) = (j).SubItems(2) = 0 (j).SubItems(3) = ListView_Change1 = ListView_Change1 + 1 Call Data_Mod(, ) Call Con_Close k = MsgBox(修改成功！, 64, 提示) = 0 End If = End Sub 然而在刪除層面上，服務(wù)器不能刪除全部人員信息（至少得保留管理員），基于這種機(jī)制，在“刪除”按鈕上，我們添加如下代碼：Private Sub mand2_Click() If = True Then If ().Text = 管理員 Then i = MsgBox(不能刪除“管理員”賬號(hào)！, 64, 提示) Exit Sub End If ListView_Change1 = ListView_Change1 + 1 Call Data_Del() Call Con_Close k = MsgBox(已經(jīng)刪除成功！, 64, 提示) = = = True = Else k = MsgBox(請(qǐng)選擇數(shù)據(jù)！, 64, 提示) End IfEnd Sub3實(shí)驗(yàn)結(jié)果在本次的實(shí)驗(yàn)中成功實(shí)現(xiàn)客戶端和服務(wù)器各種基于TCP通信的功能，客戶端（1）登陸功能（2）聊天功能（3）離線聊天功能（4）接受離線信息功能（5）聊天記錄功能（6）顯示用戶狀態(tài)功能 服務(wù)器（1）維護(hù)用戶功能（2）更新用戶狀態(tài)功能（3）離線功能（4）檢驗(yàn)用戶信息功能（5）顯示群聊記錄。具體的功能圖詳見與實(shí)現(xiàn)板塊和軟件的具體成品。4討論與總結(jié)在接到課題后，一段時(shí)間內(nèi)沒有絲毫頭緒，2人去了一趟圖書館，找了一下午相應(yīng)的VB編程參考書（尤其涉及網(wǎng)絡(luò)編程），回來當(dāng)天便初步確定分工并于網(wǎng)上找到高手關(guān)于winsock通信的相關(guān)介紹，便開始了我們的課程設(shè)計(jì)，由于我們并未系統(tǒng)學(xué)習(xí)過VB，基本上是現(xiàn)學(xué)現(xiàn)用，即時(shí)時(shí)間看上去蠻長的，編寫過程及相應(yīng)的調(diào)試搞到我們焦頭爛額，尤其是調(diào)試bug，現(xiàn)在真正體會(huì)到“測(cè)試才是一個(gè)程序里的最艱難時(shí)段”這句話的含義。此外，我們還和班上另外一個(gè)小組（他們也是用VB完成此課程設(shè)計(jì)）深度討論過相關(guān)問題和bug解決方法，最終經(jīng)過我們的不懈努力，也算是拿出了基本符合課題要求的程序。關(guān)于程序，只能說匆匆剛學(xué)VB剛用做出來的作品的確存在許多不足的地方，首先界面上還不夠美觀，不過也算差強(qiáng)人意；功能上，客戶端登陸界面上忘記添加注冊(cè)功能（該功能已在服務(wù)器上實(shí)現(xiàn)），這點(diǎn)疏忽了，也沒完成額外要求，例如文件的斷點(diǎn)重傳和語音聊天等，在實(shí)際測(cè)試?yán)?，現(xiàn)在程序還存在一點(diǎn)小bug（如三方同時(shí)互相傳遞大文件），基本功能實(shí)現(xiàn)上，整體效果還算差強(qiáng)人意，如果時(shí)間允許的話，我們會(huì)在后續(xù)嘗試修正一些BUG。總而言之，此次課程設(shè)計(jì)的收獲還是蠻大的，讓我們體會(huì)到一種喜悅——作品從無到有的誕生?！叭f事開頭難”，一開始感覺無從入手到現(xiàn)在提交完成品也算是一種體驗(yàn)，此外，這次選修計(jì)算機(jī)網(wǎng)絡(luò)，知識(shí)豐富了不少，實(shí)踐部分，就是此次課程設(shè)計(jì)，這次課程設(shè)計(jì)也是上大學(xué)以來相對(duì)較難的課題，也因此讓我們懂得了軟件制作過程中團(tuán)隊(duì)合作和溝通交流的重要性（或許這也是老師不允許單獨(dú)完成的原因之一吧）。5參考文獻(xiàn) [1]《Visual Basic網(wǎng)絡(luò)程序設(shè)計(jì)》 人民出版社出版 卞志強(qiáng)編著[2]《Visual Basic程序開發(fā)范例寶典》 人民郵電出版社 高春燕，李俊民編著[3]《計(jì)算機(jī)網(wǎng)絡(luò)（第5版）》謝希仁編著[4] 《Visual Basic網(wǎng)絡(luò)通信協(xié)議分析與應(yīng)用實(shí)現(xiàn)》 人民郵電出版社,2003 /汪曉平, 鐘軍等編著 [5] 《Visual Basic 》 電子工業(yè)出版社,2008 郭圣路, 張榮圣編著、6小組分工成員鄧智勇:負(fù)責(zé)服務(wù)器端管理，客戶端登陸，群聊天（聊天記錄鏈接數(shù)據(jù)庫），及私聊模塊和相應(yīng)測(cè)試。成員葉俊杰：負(fù)責(zé)界面美化，服務(wù)器端維護(hù)，客戶端文件傳輸，及相應(yīng)測(cè)試和相關(guān)文檔編寫 評(píng)語及評(píng)分 評(píng)閱人簽名：
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1