北京邮电大学电子工程学院计算机实习报告,题目基本历年都一样.doc

暑期实习报告 由数字信号处理原理可知：计算有限长数字序列线性卷积的公式为： 若 则 取 题目要求： (1) 输入N1，N2， 输出y(n)值 (2) 在图形方式下以x轴为n，y轴分别为x(n)、h(n)、y(n)画出其关系图 设计方案：使用编程语言为：Microsoft Visual Basic 开发工具为：Microsoft Visual Basic6.0 sp6中文企业版 在Form1中进程编辑，利用五个Command Button ，分别控制x(n)、h(n)、y(n) 的序列图像输出 、y(n)序列输出及清除功能，3个Picturebox用来显示x(n)、h(n)、y(n)的坐标图，Label用来表达所要操作的内容。定义两个整型变量N1、N2，要想显示其中的一个图像时，先将所输入的两个值附给上述两个变量，然后利用Picture.Scale 与Picture.Line来画坐标图，最后通过for ….next语句实现循环画点，从而实现每个图像的显示。当想进行清除时只要再清除的Command Button下输入Picture.Cls、Label.Caption = 、Text.Text = 等语句即可。 流程图： 源代码： Dim N1%, N2% Private Sub Command1_Click() N1 = Int(Text1.Text) : N2 = Int(Text2.Text) Picture1.Scale (-1, 20)-(20, -1) 画x(n)坐标 Picture1.Line (0, 0)-(19, 0) Picture1.Line (19, 0)-(18.5, -0.5) Picture1.Line (19, 0)-(18.5, 0.5) Picture1.Line (0, 0)-(0, 19) Picture1.Line (0, 19)-(0.5, 18.5) Picture1.Line (0, 19)-(-0.5, 18.5) For i = 0 To N1 xi = 1 Picture1.PSet (i, 1), vbBlack 画x(n)的图像 Next i For n = 0 To N1 Picture1.CurrentX = n: Picture1.CurrentY = 0.4: Picture1.Print n Next n End Sub Private Sub Command2_Click() N1 = Int(Text1.Text) : N2 = Int(Text2.Text) Picture2.Scale (-1, 20)-(20, -1) 画h(n)坐标 Picture2.Line (0, 0)-(19, 0) Picture2.Line (19, 0)-(18.5, -0.5) Picture2.Line (19, 0)-(18.5, 0.5) Picture2.Line (0, 0)-(0, 19) Picture2.Line (0, 19)-(0.5, 18.5) Picture2.Line (0, 19)-(-0.5, 18.5) For n = 0 To N2 Picture2.PSet (n, n / 2), vbBlack 画h(n)的图像 Next n For n = 0 To N2 Picture2.CurrentX = n: Picture2.CurrentY = 0.4: Picture2.Print n Next n nd Sub Private Sub Command3_Click() N1 = Int(Text1.Text) : N2 = Int(Text2.Text) Picture3.Scale (-3, 44)-(44, -3) Picture3.Line (0, 0)-(44, 0) Picture3.Line (44, 0)-(43.5, -0.5) Picture3.Line (44, 0)-(43.5, 0.5) Picture3.Line (0, 0)-(0, 44) Picture3.Line (0, 44)-(0.5, 43.5) Picture3.Line (0, 44)-(-0.5, 43.5) For n = 0 To (N1 + N2) y = 0 For m = 0 To n If m =