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