[工學]基于傳輸層的網(wǎng)絡(luò)編程(編輯修改稿)
2024-11-12 18:28 本頁面
【文章內(nèi)容簡介】 （ 1）在 VB中創(chuàng)建新的標準 EXE工程 在 Form表單添加 6個控件： 2個 label（標簽），用作提示信息； 2個 text（文本）， 1個為接收數(shù)據(jù)，命名為 tetArr, 1個為發(fā)送數(shù)據(jù) ,命名為tetSent； 1個 mand，為退出運行命令； 一個重要的 (套接字），命名為 winSockA, 有關(guān)屬性在代碼中設(shè)置。 Form表單的 caption屬性設(shè)為“ UDP A端， 作為程序窗口的標題。 基于 UDP協(xié)議的編程 2． A計算機 UDP聊天程序設(shè)計 （ 2） Winsock控件的程序源代碼 啟動程序，裝載表單時設(shè)置 Winsock控件屬性，源代碼如下： Private Sub Form_Load() With winSockA //設(shè)置 Winsock控件的相關(guān)屬性 // .Protocol = sckUDPProtocol //設(shè)置 UDP協(xié)議 // .RemoteHost = wlgcd3 //設(shè)置遠程計算機名 // .RemotePort = 8000 //設(shè)置遠程計算機端口號 // .Bind 9000 //綁定本地端口號 // End With End Sub 基于 UDP協(xié)議的編程 2． A計算機 UDP聊天程序設(shè)計 （ 3）在發(fā)送文本框輸入數(shù)據(jù)時，由 Winsock控件立即將數(shù)據(jù)發(fā)送，源代碼如下： Private Sub txtSend_Change() //在鍵入文本時，立即發(fā)送出去 // End Sub （ 4） Winsock收到數(shù)據(jù)后，將其放入數(shù)據(jù)到達文本框顯示，源代碼如下： Private Sub winSockA_DataArrival(ByVal bytesTotal As Long) Dim strData As String strData //接收輸入的數(shù)據(jù) // = strData //在文本框顯示接收的數(shù)據(jù) // End Sub 基于 UDP協(xié)議的編程 2． A計算機 UDP聊天程序設(shè)計 （ 5）要退出程序，關(guān)閉 winsock控件，解除端口綁定，源代碼如下： Private Sub Command1_Click() //關(guān)閉 winsock控件，解除端口綁定 // Unload Me //退出程序 // End Sub 基于 UDP協(xié)議的編程 3． B計算機 UDP聊天程序設(shè)計 B端的的程序與 A端的幾乎一樣，只是控件的名稱不一樣。另外特意在 Winsock控件 RemoteHost中使用了IP地址。各控件的源代碼如下，各語句的作用與 A端的程序中一樣。 Private Sub Command1_Click() Unload Me End Sub 基于 UDP協(xié)議的編程 3． B計算機 UDP聊天程序設(shè)計 B端的的程序與 A端的幾乎一樣，只是控件的名稱不一樣。另外特意在 Winsock控件RemoteHost中使用了 IP地址。 基于 UDP協(xié)議的編程
教學課件相關(guān)推薦
鄂ICP備17016276號-1