WinsockVB6.0UDP液晶时钟.docVIP

计算机技能训练课程设计任务书 （09级） 训练3 学生姓名 沈滨彬 学 号 院 系 工学院机电系 专 业 自动化 指导教师 朱烈锋 填写日期 2012-9-07 目录 设计要求和方案 4 1.设计要求 4 2.方案制定 4 二、系统设计 5 1.界面设计 5 2.测试结果 6 三、总结和展望 7 附录 8 参考文献 22 致谢 22 中文摘要 本设计采用winsock控件在VB6.0平台上编写的基于UDP协议的聊天程序可实现多台计算机之间相互接收、发送字符串，并在计算机窗口显示相关的字符串。并基于VB制作一个了液晶时钟。 Abstract This design uses the Winsock control in VB6.0 platform prepared based on UDP protocol chat program can be achieved between multiple computers each other receive, send string, and the computer display window of the string. Based on the VB production of a liquid crystal clock. 关键词：VB； Winsock; Udp; 设计要求和方案 设计要求 利用WinSock控件编写基于UDP协议的应用程序，可以实现多窗口显示Dim jishu As Byte Private Sub Command1_Click() udpA.SendData txtsend.Text End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Label1.Visible = False Label2.Visible = False Label3.Visible = False With udpA .RemoteHost = Trim$(ipdz) .RemotePort = Asc(dkdf) End With If jishu = 1 Then udpA.Bind Asc(dkzj) End If ipdz.Visible = False dkdf.Visible = False dkzj.Visible = False Command3.Visible = False txtsend.Visible = True txtget.Visible = True Command1.Visible = True Command2.Visible = True Command4.Visible = True End Sub Private Sub Command4_Click() txtsend.Visible = False txtget.Visible = False ipdz.Visible = True dkdf.Visible = True Command1.Visible = False Command2.Visible = False Command3.Visible = True Label1.Visible = True Label2.Visible = True Command4.Visible = False Command3.Enabled = False jishu = 2 End Sub Private Sub dkdf_Change() Command3.Enabled = True End Sub Private Sub Form_Load() txtsend.Visible = False txtget.Visible = False Command1.Visible = False Command2.Visible = False Command3.Enabled = False Command4.Visible = False jishu = 1 End Sub Private Sub Timer1_Timer() Label4.Caption = Year(Now) 年 Month(Now) 月 Day(Now) 日 Time