企業(yè)網(wǎng)上尋呼系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)畢業(yè)論文(文件)
【正文】 has to successfully get Host Name. Exit Function End If sHostName = Trim$(sHostName) lpHost = gethostbyname(sHostName) If lpHost = 0 Then GetIPAddress = MsgBox Windows Sockets are not responding. amp。 vbNullChar .uFlags = NIF_TIP End With Shell_NotifyIcon NIM_MODIFY, IconDataEnd Sub Ini 文件存取模塊,:Public Sub ReadFriendsFromFile() intFriend = GetPrivateProfileInt(CStr() amp。 Friends_Item amp。 LTrim(Str(i)), UserID, LTrim(Str(Friends(i).UserID)), fileName) NextEnd Sub 窗體設(shè)計(jì) 系統(tǒng)登錄窗體系統(tǒng)登錄窗體主要功能是用戶的登錄、注冊(cè)和服務(wù)器IP地址的獲取和設(shè)置.1. 界面設(shè)計(jì)登錄窗體的界面如圖81所示,其中的控件主要包括7個(gè)文本框控件、6個(gè)按鈕控件、一個(gè)ImageCombo控件、一個(gè)ImageList控件和一些標(biāo)簽控件,這些控件的屬性如表81所示:圖81 登錄界面設(shè)計(jì)其中ilsIcons控件的屬性設(shè)置為,加入該控件后, Pages屬性窗口中單擊Images頁(yè)面,通過(guò)Insert Picture按鈕加入用戶頭像.2. ,用戶的檢測(cè)與注冊(cè)以及服務(wù)器地址的獲取與設(shè)置.Private Sub Form_Load()For i = 0 To 1 , , , i + 1, i + 1表81 登錄界面主要控件屬性控件屬性屬性取值frmLoginNamefrmLoginCaption登錄cmdLoginNamecmdLoginCaption登錄cmdIPNamecmdIPCaption服務(wù)器IPcmdNewNamecmdNewCaption新用戶cmdCancelNamecmdCancelCaption取消imgcboFaceNameimgcboFaceilsIconsNameilsIconscmdRegisterNamecmdRegisterCaption注冊(cè)cmdSetIPNamecmdSetIPCaption設(shè)置圖82 ImageList屬性設(shè)置Next(1).Selected = True = ServerIPEnd SubPrivate Sub cmdLogin_Click() = UserPwd = blnNewUser = FalseEnd SubPrivate Sub cmdNew_Click()If = 新用戶 Then = 隱藏 = + 3750Else = 新用戶 = 3750End IfEnd SubPrivate Sub cmdSetIP_Click()ServerIP = Trim()End Sub 客戶端主窗體 客戶端主窗體是客戶端的核心模塊,完成客戶端的主要操作,主要功能包括顯示、添加、刪除好友和黑名單,調(diào)用發(fā)送、接收消息窗口,響應(yīng)服務(wù)器發(fā)過(guò)來(lái)的信息. 客戶端主窗體的界面如圖83所示,主要包括4個(gè)命令按鈕、WinSock控件、時(shí)鐘控件、Adodc控件、ImageList控件、listview控件等,主要控件屬性如表82所示:圖83 客戶端主窗體界面其中l(wèi)vwUsers控件的屬性設(shè)置為,右擊該控件,彈出如圖84所示窗口ProPerty Pages,選擇Image Lists頁(yè),在 Normal和 Small中都選定ilsIcons,這里就不再贅述了.圖84 lvwUsers控件屬性窗口表82 客戶端主窗體控件屬性控件屬性屬性取值frmClient(Form)NamefrmClientCaption聊天程序ilsIconsNameilsIconsadoMessagesNameadoMessagesCaption新消息tmrMessagesNametmrMessagesInterval300cmdMenuNamecmdMenuCaption菜單cmdStatusNamecmdStatusCaption離線cmdBadboysNamecmdBadboysCaption黑名單cmdFriendsNamecmdFriendsCaption我的好友wskClientNamewskClientlvwUsersNamelvwUsers除了這些控件外,打開(kāi)菜單設(shè)計(jì)器,設(shè)計(jì)菜單如圖85所示. 好友 黑名單 任務(wù)欄菜單 …添加好友 …添加黑名單 …顯示新消息 …刪除好友 …刪除黑名單 …顯示歷史消息 …發(fā)送消息 …退出圖85 客戶端主窗體菜單,新用戶的注冊(cè),已有用戶的檢測(cè)是否上線,好友列表和黑名單列表在lvwUsers控件中的顯示,好友和黑名單的添加與刪除,發(fā)送信息,顯示新消息和歷史消息,響應(yīng)服務(wù)器發(fā)送過(guò)來(lái)的消息.Private Sub Form_Load() = ServerIP = 50400 = Provider=。 。at zu Berlin, April 2004:818。 End Sub其他代碼和服務(wù)器端類似,在此略. 發(fā)送消息窗體發(fā)送消息窗體功能較為簡(jiǎn)單,主要是對(duì)發(fā)送的消息進(jìn)行編輯,并發(fā)送該消息.1 界面設(shè)計(jì)發(fā)送消息窗體界面如圖85所示,主要包含三個(gè)按鈕控件；一個(gè)ImageList和ImageCombo控件相結(jié)合顯示消息的表情,一個(gè)CommonDialog控件,一個(gè)RichTextBox :其中ilsChatFaces 控件和imgcboChatFaces控件屬性設(shè)置與客戶端主窗體中的類似,這里不再贅述了. 圖85 發(fā)送消息窗體界表83 發(fā)送消息窗體主要控件屬性控件屬性屬性取值frmChat(Form)NamefrmChatCaption發(fā)送消息cmdColorNamecmdColorCaption顏色cmdFontNamecmdFontCaption字體cmdSendNamecmdSendCaption發(fā)送dlgFontAndColorNamedlgFontAndColorilsChatFacesNameilsChatFacesimgcboChatFacesNameimgcboChatFacesrtfContentNamertfContentimgFaceNameimgFace⒉ 代碼略. 接受最新消息窗體接受最新消息窗體功能較為簡(jiǎn)單,包括完成最新信息的瀏覽,以及把瀏覽過(guò)的消息添加到老消息表中.1. 界面設(shè)計(jì)接收消息界面如圖86所示,一共只有三個(gè)控件,分別是DataGrid控件、RichTextBox控件、Adodc控件,它們的屬性如表84所示.圖86 接受最新消息窗體界面表84 接受最新消息窗體控件屬性控件屬性屬性取值frmNewMsg(Form)NamefrmNewMsgCaption最新消息rtfContentNamertfContentdgdMessagesNamedgdMessagesadoMessagesNameadoMessagesCaption信息⒉代碼略. 查看歷史消息窗體查看歷史消息窗體功能也較為簡(jiǎn)單,包括完成歷史信息的瀏覽,以及消息刪除.查看歷史消息窗體界面和接收最新消息窗體類似,如圖76所示,這里不再贅述.“清空”按鈕,程序?qū)h除OldMsg表中當(dāng)前用戶的所有消息.“刪除”按鈕,程序?qū)h除當(dāng)前查看的那條歷史信息.以上代碼均略.系統(tǒng)運(yùn)行下面測(cè)試系統(tǒng)實(shí)際運(yùn)行的效果.首先運(yùn)行服務(wù)器程序,由于這時(shí)沒(méi)有用戶登錄,所以在線用戶為0,也沒(méi)有用戶留言,如圖91所示:圖91 服務(wù)器主程序運(yùn)行客戶端程序,出現(xiàn)的是登錄界面,以用戶號(hào)碼1001登錄,密碼為111,如圖92所示:圖92 登錄窗口單擊“登錄”按鈕,進(jìn)入聊天界面.雙擊“我的好友”中好友圖標(biāo),彈出發(fā)送消息窗口,輸入消息.單擊“菜單”按鈕,彈出的菜單中,單擊“顯示新消息”命令,彈出新消息窗體,如圖93所示:圖93 最新消息窗體總結(jié)致謝 經(jīng)過(guò)近一個(gè)月的努力,并在老師耐心細(xì)致的指導(dǎo)下,通過(guò)翻閱大量的資料,系統(tǒng)用Visual Basic作為開(kāi)發(fā)環(huán)境,、短小精煉,具有很強(qiáng)的實(shí)用性和示范意義,可為開(kāi)發(fā)網(wǎng)絡(luò)數(shù)據(jù)通信系統(tǒng)所借鑒.通過(guò)這次畢業(yè)設(shè)計(jì)可以體會(huì)到VB最大的優(yōu)點(diǎn)就是簡(jiǎn)單易學(xué),編寫(xiě)代碼方便,可視化程度高,需要龐大的運(yùn)行時(shí)間庫(kù)支持,軟件發(fā)
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1