课程名称：
实验项目：
实验地点：
专业班级：
学生姓名：指导教师：
工业以太网 工业以太网实验 中区矿院楼 自动化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以上的某个数字）。设置完成后，点击“连接”，连接成功后，通信双方即可进行聊天。
五、实验结果
如下图所示。
实验三 局域网的组建及配置
一、实验目的
了解、掌握星型局域网的组建及配置 二、实验内容
使用局域网交换机，组建一个星型局域网，网络中有6台计算机，配置每台计算机的IP 地址与子网掩码（IP 地址使用C 类地址）。组建完成后使用网络常用命令ifconfig 查看网络配置，并用ping 命令检查网络连通性。 三、实验仪器和设备
PC 机、YS-Routesim 软件。 四、实验步骤
1、启动YS-Routesim 程序；
2、在添加一台思科交换机和六台计算机，并使用双绞线将计算机与交换机相连；
3、设置计算机IP 地址
双击HostA ， 输入用户名和入口令，键入" ？" 可以求得帮助。 PCA login:root Password:linux
设置 IP ：[root#PCA root]# ifconfig eth0 192.168.0.1 netmask 255.255.255.0 查看 IP ：[root#PCA root]# ifconfig
重复以上步骤，分别设置HostB 、HostC 、HostD 、HostE 、HostF 五台PC 的IP 地址和子网掩码；
4、使用Ping 命令检查网络连通性 [root@PCA root]# ping 192.168.0.2 (通) [root@PCA root]# ping 192.168.0.3 (通) [root@PCA root]# ping 192.168.0.4 (通) [root@PCA root]# ping 192.168.0.5 (通) [root@PCA root]# ping 192.168.0.6 (通) 五、实验结果
如下图所示。
实验四 虚拟局域网的组建
一、实验目的
了解、掌握虚拟局域网的组建及配置 二、实验内容
使用局域网交换机，组建一个局域网，网络中有3台计算机，分别为host A，host B，host C。其IP 地址分别为A ：192.168.0.2； B ：192.168.0.3；C ： 192.168.0.4。局域网交换机的IP 地址为：switch A ：192.168.0.1。他们的子网掩码均为255.255.255.0。建立两个虚拟局域网vlan1，vlan2；其中host A属于vlan1；host B 和host C属于vlan2。
三、实验仪器和设备
PC 机、YS-Routesim 软件。 四、实验步骤
1、启动YS-Routesim 程序；
2、在添加一台思科交换机和三台计算机，并使用双绞线将计算机与交换机相连；
3、设置计算机IP 地址
双击HostA ， 输入用户名和入口令，键入" ？" 可以求得帮助。 PCA login:root Password:linux
设置 IP ：[root#PCA root]# ifconfig eth0 192.168.0.2 netmask 255.255.255.0 重复以上步骤，分别设置HostB 、HostC 两台PC 的IP 地址和子网掩码； 4、设置交换机IP 地址
双击SwitchA ， 输入以下命令： switch>en switch#conf t
switch(config)#int vlan 1
switch(config-if)#ip address 192.168.0.1 255.255.255.0 switch(config-if)#exit switch(config)#exit switch#
5、建立虚拟局域网vlan1，vlan2 switch#vlan database
switch(vlan)#vlan 2 switch(vlan)#exit switch#sh vlan
6、将端口1划分到vlan1，将端口3、6划分到vlan2
switch#conf t
Enter configuration commands, one per line. End with CNTL/Z. switch(config)#int f0/3
switch(config-if)#switchport access vlan 2 switch(config-if)#int f0/6
switch(config-if)#switchport access vlan 2 switch(config-if)#end switch#sh vlan
7、使用Ping 命令检查网络连通性 双击HostA ，输入
[root@PCA root]# ping 192.168.0.3 (不通) 双击HostB ，
[root@PCA root]# ping 192.168.0.4 (通) 五、实验结果
如下图所示。
课程名称：
实验项目：
实验地点：
专业班级：
学生姓名：指导教师：
工业以太网 工业以太网实验 中区矿院楼 自动化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以上的某个数字）。设置完成后，点击“连接”，连接成功后，通信双方即可进行聊天。
五、实验结果
如下图所示。
实验三 局域网的组建及配置
一、实验目的
了解、掌握星型局域网的组建及配置 二、实验内容
使用局域网交换机，组建一个星型局域网，网络中有6台计算机，配置每台计算机的IP 地址与子网掩码（IP 地址使用C 类地址）。组建完成后使用网络常用命令ifconfig 查看网络配置，并用ping 命令检查网络连通性。 三、实验仪器和设备
PC 机、YS-Routesim 软件。 四、实验步骤
1、启动YS-Routesim 程序；
2、在添加一台思科交换机和六台计算机，并使用双绞线将计算机与交换机相连；
3、设置计算机IP 地址
双击HostA ， 输入用户名和入口令，键入" ？" 可以求得帮助。 PCA login:root Password:linux
设置 IP ：[root#PCA root]# ifconfig eth0 192.168.0.1 netmask 255.255.255.0 查看 IP ：[root#PCA root]# ifconfig
重复以上步骤，分别设置HostB 、HostC 、HostD 、HostE 、HostF 五台PC 的IP 地址和子网掩码；
4、使用Ping 命令检查网络连通性 [root@PCA root]# ping 192.168.0.2 (通) [root@PCA root]# ping 192.168.0.3 (通) [root@PCA root]# ping 192.168.0.4 (通) [root@PCA root]# ping 192.168.0.5 (通) [root@PCA root]# ping 192.168.0.6 (通) 五、实验结果
如下图所示。
实验四 虚拟局域网的组建
一、实验目的
了解、掌握虚拟局域网的组建及配置 二、实验内容
使用局域网交换机，组建一个局域网，网络中有3台计算机，分别为host A，host B，host C。其IP 地址分别为A ：192.168.0.2； B ：192.168.0.3；C ： 192.168.0.4。局域网交换机的IP 地址为：switch A ：192.168.0.1。他们的子网掩码均为255.255.255.0。建立两个虚拟局域网vlan1，vlan2；其中host A属于vlan1；host B 和host C属于vlan2。
三、实验仪器和设备
PC 机、YS-Routesim 软件。 四、实验步骤
1、启动YS-Routesim 程序；
2、在添加一台思科交换机和三台计算机，并使用双绞线将计算机与交换机相连；
3、设置计算机IP 地址
双击HostA ， 输入用户名和入口令，键入" ？" 可以求得帮助。 PCA login:root Password:linux
设置 IP ：[root#PCA root]# ifconfig eth0 192.168.0.2 netmask 255.255.255.0 重复以上步骤，分别设置HostB 、HostC 两台PC 的IP 地址和子网掩码； 4、设置交换机IP 地址
双击SwitchA ， 输入以下命令： switch>en switch#conf t
switch(config)#int vlan 1
switch(config-if)#ip address 192.168.0.1 255.255.255.0 switch(config-if)#exit switch(config)#exit switch#
5、建立虚拟局域网vlan1，vlan2 switch#vlan database
switch(vlan)#vlan 2 switch(vlan)#exit switch#sh vlan
6、将端口1划分到vlan1，将端口3、6划分到vlan2
switch#conf t
Enter configuration commands, one per line. End with CNTL/Z. switch(config)#int f0/3
switch(config-if)#switchport access vlan 2 switch(config-if)#int f0/6
switch(config-if)#switchport access vlan 2 switch(config-if)#end switch#sh vlan
7、使用Ping 命令检查网络连通性 双击HostA ，输入
[root@PCA root]# ping 192.168.0.3 (不通) 双击HostB ，
[root@PCA root]# ping 192.168.0.4 (通) 五、实验结果
如下图所示。