计算机网络试验报告.docx

《计算机网络试验报告.docx》由会员分享，可在线阅读，更多相关《计算机网络试验报告.docx（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、计算机网络试验报告计算机网络试验报告 槐玲 黄海凤 程磊一实验名称 仿真滑动窗口协议。二、实验要求模拟停等协议、回退n协议及选择重传 协议的发送过程。三、实验环境 硬件环境windowsXP系统四、实验目的1熟练掌握滑动窗口的状态变化。2模拟停等协议、回退n协议及选择重传协议的发送 过程。3进一步加深对停等协议、回退n协议及选择重传协 议的机理的了解。五、实验步骤1、停等协议的发送过程发送端与接受 端的窗口大小均为一，发送端一次只能发送一个数据帧，等 待接受方接收到数据帧然后发送确认帧后，在发送下一帧。程序界面（1）首先设置发送帧数和丢包率 设置后 如图发送帧数为3,对保率为56,即每个帧有5

2、6的几率丢 失点击确定后开始发送第一帧如下图第一帧发送完，接受 方接收第一帧完毕后，发送确认帧如下图开始发送第二帧 第二帧丢失计时器超时后重发三帧发送完毕2.回退n协 议发送过程 发送端的窗口大小为1,接收端窗口大小为1。发送端一次可发送多个数据，而接受端一次只能接受1 个数据帧。当发送帧出错时，之后的所有帧延时重发，接受端重新 接受。当确认帧出错时，延时重发，接受端不接受，但重发确 认帧。首先设置重发定时，如图开始发送数据帧第四帧丢 失 发送丢失帧之前的确认帧 计时器超时后重发第四帧以 及之前的帧 发送完毕3、选择重传协议发送过程 发送端窗 口与接受端窗口都大于1,当发送帧出错时，接受端可以

3、接 受此数据帧以下的数据帧，但不提交给接受端。只是放入接受缓冲区。首先设置重发定时开始发送第四帧丢失发送确认 帧 计时器超时后重发第四帧 发送第四帧的确认帧 发送完 毕六、源程序 模块中的变量Public Rcapable接受方的处 理能力Public sendnum 发送帧数Public dropnum 丢包率 Public num 纪录发送帧数 Public biaoji As Boolean 丢包标 记Public timer计时器Public ztimer总用时计时器Public bj5 As Integer回退n中的发送帧与确认帧标记Public diu5 As Integer 丢包

4、标记 Public chongfa 重发定时 Public s5 AsBoolean Public T As Integer Public x As Integer 第几帧丢 Public q As Boolean 重发标记 Forml 上的代码 Dim i Private Sub Command 1 _Click Form2.Show End Sub Private Sub Command2_Click Text 1.TextText2.Text Text3.TextFor sw 0 To 5 Shape Isw. VisibleTrue NextTimer2.Interval300 tim

5、er 0 ztimer 0 chongfaIntlnputBox”重发定时（毫秒）“x Int5 * Rnd 0 diux 1 丢 包标记 End Sub Private Sub Command3_Click Text 1.TextText2.Text Text3.Text For sw 0 To 5ShapeIsw.Visible True Next Timer3.Interval 300 timer 0 ztimer 0 chongfa IntlnputBox”重发定时（毫秒）“x Int5 * Rnd 0 diux 1 丢包标记 End Sub Private Sub Form_Load

6、 i 0 timer 0 ztimer 0 For r 0 To 5 bjr 0 diur 0 sr True Next q True End Sub Private Sub Timerl_Timer Dim drop Dim lent If num 0 Then 发送帧数 If i 0 Then zhen.FillColor H8000000F If zhen.Left 0 Then If num 0Then zhen.Visible True Textl.Text Textl.Text Chrl3 ChrlO Time ”发送方开始第“sendnum - num 1 ”帧发 送“timer

7、 0 End If If num 0 Then发送完所有的帧得到平 均延迟 Textl.Text Textl.Text Chrl3 ChrlO 平均延迟 “ ztimer / sendnum End If num num - 1 drop Inti 00 * Rnd 1 产生随机数 If drop 100 Then zhen.FillColor HFF zhen.Left zhen.Left - 100 If zhen.Left 0 Then If zhen.Visible True Then Text 1.Text Textl.Text Chrl3 ChrlO Time “发送方得到第sen

8、dnum - num 帧确认帧End If i 0 End If End If End If Else 发送完所有的帧 Timer 1.Interval 0 End If timer timer 1 ztimer ztimer 1 Text2.Text timer Text3.Text ztimer End Sub Private Sub Timer2_Timer timer timer 1 ztimer ztimer 1 Text2.Text timer Text3.Text ztimer If timer 1 And bjO 2 Then sO startgoShapelO, 1, bjO

9、, diuO End If If timer 4 And bjl 2 Then s 1 startgoShapell, 2, bjl, diul End If If timer 7 And bj2 2 Then s2 startgoShapell, 3, bj2, diu2 End If If timer 10 And bj3 2 Then s3 startgoShapel3, 4, bj3, diu3 End If If timer 13 And bj4 2 Then s4 startgoShape14, 5, bj4, diu4 End If If timer 16 And bj5 2 T

10、hen s5 startgoShapel5, 6, bj5, diu5 End If If sx False And q True Then丢包处理bjx 2此帧不再继 续传For sk x To 5此后的帧也不再继续返回确认帧If bjsk 1 Then Shape Isk.Visible False bjsk 2 If sk 5 Then 最后一帧收到 q False End If End If Next T timer End If If ztimer T chongfa Then 重发 timer 0 For sk x To 5 ShapeIsk.Left 0 ShapeIsk.Vis

11、ible True diusk 0 bjsk 0 Next x 5 End If End If Next If ztimer T chongfa Then If bjO 2 And bjl 2 And bj2 2 And bj3 2 And bj4 2 And bj5 2 Then Timer2.Interval 0 Textl.Text Text 1.Text Chrl3 ChrlO 平均延迟 ztimer / 6 End If End If End Sub Private Function startgosp As Shape, num As Integer, i As Integer,

12、diu As Integer As Boolean If i 0 Then sp.FillColor HFFFF80 If sp.Left 0 Then sp.Visible True Textl.Text Textl.Text Chrl3 ChrlO Time ”发送方开始第“num “帧发送timer 0 If num 0 Then发送完所有的帧得到平 均延迟 Textl.Text Textl.Text Chrl3 ChrlO 平均延迟 “ztimer / sendnum End If drop Inti00 * Rnd 1 产生随机 数 If drop 100 Then sp.FillC

13、olor HFF sp.Left sp.Left - 100 If sp.Left 0 And sp.Visible True Then Textl.Text Textl.Text Chrl3 ChrlO Time 发送方得 到第num “帧确认帧i 2 End If End If End If startgo True End Function Private Sub Timer3_Timer timer timer 1 ztimer ztimer 1 Text2.Text timer Text3.Text ztimer If timer 1 And bjO 2 Then sO startg

14、oShapelO, 1, bjO, diuO End If If timer 4 And bjl 2 Then si startgoShapell, 2, bjl, diul End If If timer 7 And bj2 2 Then s2 startgoShape12, 3, bj2, diu2 End If If timer 10 And bj3 2 Then s3 startgoShapel3, 4, bj3, diu3 End If If timer 13 And bj4 2 Then s4 startgoShapel4, 5, bj4, diu4 End If If timer

15、 16 And bj5 2Then s5 startgoShapel5, 6, bj5, diu5 End If If sx False Andq True Then丢包处理bjx 2此帧不再继续传For sk x To 5此后的帧也不再继续返回确认帧If bjsk 1 Then ShapeIsk.Visible False bjsk 2 If sk 5 Then 最后一帧收到 q False End If End If Next T timer End If If ztimer T chongfa Then 重 发 timer 0 Shape lx.Left0Shape lx. Visibl

16、e True diux 0 bjx 0 x 5 End If End If Next If ztimer T chongfa Then If bjO 2 And bj 1 2 And bj2 2 And bj3 2 And bj4 2 And bj5 2 Then Timer3.Interval 0 Text 1.Text Text 1.Text Chrl3 ChrlO 平 均延迟 “ztimer / 6 End If End If End Sub Form2 上的代码 Private Sub Command 1 _Click sendnumText 1.Text dropnumText2.Text Form2.Hide Form 1.Show Form 1 .Timer 1 .Interval 100 num sendnum End Sub七、实验中的不足1、回退n和选择重传中发送的帧数 固定为6,应该能够设置。2、计时器超时后重传丢失的帧应该接着发送后面的帧，但是由于已经固定帧数，此处没有实现。