工业以太网实验报告1

课程名称：工业以太网

实验项目：工业以太网实验

实验地点：中区矿院楼

专业班级：自动化1102 学号：2011005902 学生姓名：芦婧

指导教师：张建国

2014年7月3日

实验一基于UDP协议的局域网通信程序(一)

一、实验目的

了解Visual Basic 6.0的集成开发环境，熟悉VB的编程语言、控件的使用，掌握面对对象的程序开发过程，为后续实验的开展打下良好基础。

二、实验内容

编写一个程序，有“开始”和“结束”两个按钮、文本框一个；鼠标单击“开始”按钮后，文本框输出hello world！，鼠标单击“结束”，程序结束。

三、实验仪器和设备

PC机、Visual Basic 6.0软件。

四、实验步骤

1、启动VB程序；

2、新建一个exe程序；

3、在窗口界面创建两个command控件、一个文本框控件，同时修改command1控件的caption属性为“开始”，command2控件的caption属性为“结束”；

4、打开代码窗口，输入以下代码：

Private Sub Command1_Click()

Text1.Text = "hello world"

End Sub

Private Sub Command2_Click()

End

End Sub

5、运行程序，进行调试。

五、实验结果

如下图所示。

实验二基于UDP协议的局域网通信程序(二)

一、实验目的

了解TCP/IP协议参考模型，在此基础上学习UDP（用户数据报协议）的工作原理，并利用该协议完成一个类似QQ聊天软件的开发。

二、实验内容

编写一个VB程序，通过使用winsock控件，该程序可以使用UDP协议实现局域网内两台计算机之间的数据通信。

三、实验仪器和设备

PC机、VB软件、计算机机房固有局域网。

四、实验步骤

1、启动VB程序；

2、新建一个exe程序；

3、构建窗口布局：

第一步：控件布局

先在窗体上布置以下控件，分别是标签框label1、label2、label3，文本框text1、text2、text3、text4、text5，框架frame1、frame2，命令按钮command1、command2、command3，以及winsock1控件。

第二步：修改控件属性

1）修改Form1窗体控件的caption属性为“局域网聊天程序”，

具体操作：在属性窗口中，找到Form1控件，并修改其caption属性为“局域网聊天程序”。

2）修改label1标签控件的caption属性为“被连接的IP：”、修改label2标签控件的caption属性为“Local Port ：”，修改label3标签控件的caption属

性为“Remote Port ：”

具体操作：在属性窗口中，找到label1控件，并修改其caption属性为“被连接的IP：”。

Label2、label3的修改步骤与label1相同。

3）修改text1文本框控件的text属性为空、修改text2文本框控件的text属性为空，修text3文本框控件的text属性为空

具体操作：在属性窗口中，找到text1控件，并修改其text属性为空。

Text2、text3的修改步骤与text1相同。

4）修改command1命令按钮控件的caption属性为“连接”、修改command2命令按钮控件的caption属性为“清除对话框”，修改command3命令按

钮控件的caption属性为“发送”

具体操作：在属性窗口中，找到command1控件，并修改其caption属性为“连接”。

Command2、command3的修改步骤与command1相同。

5）修改frame1框架控件的caption属性为“远程IP”、修改frame2框架控件的caption属性为“本地IP”

具体操作：在属性窗口中，找到frame1控件，并修改其caption属性为“远程IP”。

Frame2的修改步骤与frame1相同。

6）修改winsock1控件的protocol属性为“1-sckUDPprotocol”

具体操作：在属性窗口中，找到winsock1控件，并修改protocol属性为“1-sckUDPprotocol”。

4、打开代码窗口，输入以下代码：

Private Sub command1_Click()

On Error GoTo ErrHandler

Winsock1.RemoteHost = Trim(text1) '设置RemoteHost 属性

Winsock1.RemotePort = Trim(text3) '设置RemotePort 属性

Winsock1.LocalPort = Trim(text2) '设置LocalPort 属性

' Bind 方法的作用是为控件“保留”一个本地端口,防止被其他用户调用。

Winsock1.Bind .LocalPort

Exit Sub

'如果在连接过程中出现错误，则转向ErrHandler:，并显示错误提示

ErrHandler:

MsgBox "建立连接失败，按F1 以获得帮助信息", vbCritical

End Sub

'当WINSOCK 接收到新的数据（信息）时，进行以下响应

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim New_Text As String '定义New_Text 字符串来记录新接收的信息

Winsock1.GetData New_Text '接收信息并赋值给New_Text

Text4.SelText = New_Text '在TEXT4显示框中显示新接收到的信息

Frame1.Caption = Winsock1.RemoteHostIP

End Sub

'接收TEXT5输入框的按键，并做响应

Private Sub command3_click

'通过WINSOCK 发送新输入的一行文本的内容

Winsock1.SendData text5.text

'在状态栏显示发送信息

End Sub

5、运行程序，进行调试。

代码编写完成后，将程序生成“Chat.EXE”文件，到此，该软件开发完成。

将“Chat.EXE”程序，分别安装到局域网内的两台计算机上，如图所示。

分别设置A、B两台计算机中Chat.exe程序的各项参数，在被连接的IP：填入同组另一位成员计算机的IP地址；在Local Port：填入本机端口号（推荐使用1000以上的某个数字）；在Remote Port：填入对方主机端口号（推荐使用1000以上的某个数字）。设置完成后，点击“连接”，连接成功后，通信双方即可进行聊天。