软件课程设计.docx

软件课程设计.docx

《软件课程设计.docx》由会员分享，可在线阅读，更多相关《软件课程设计.docx（18页珍藏版）》请在冰豆网上搜索。

软件课程设计

软件课程设计

1、设计目的

2、设计内容

3、设计思想

4、源程序（VB.NET）

5、执行演示

6、总结与体会

姓名：

王昂

学号：

110901412

班级：

自动化1104班

东华大学信息科学与技术学院

一、设计目的

通过本课程设计实习，使学生在下列方面有所了解和提高：

1.掌握VisualBasic进行程序设计的基本思路和方法

2.能利用VisualBasic编程实现简单的任务

3.结合控制系统理论用VB进行计算机控制仿真

二、设计内容

实现各种函数发生器并显示

1.基本要求：

实现下列函数发生器，正弦函数、方波函数、锯齿函数、三角函数，函数的生成参数都可以通过菜单设定，并且将生成的函数以图形方式实时显示在窗口中。

2.附加功能：

将系统的历史波形进行保存，并可将系统的历史波形重现。

使用Teechart控件作为显示输出。

三、设计思想

本课程设计基于VisualBasic.NET，与传统的VisualBasic6.0有一定的区别。

利用VisualBasic.NET界面实现函数信号发生器的设计，主要包括正弦函数、方波函数、锯齿函数、三角函数。

函数的生成参数都可以通过菜单进行设定，并将生成的函数以图形方式进行显示，本设计利用Teechart控件进行函数波形显示。

为实现函数信号发生器的各个功能，总体设计了五个窗体，其中一个主窗体，四个子窗体。

主窗体主要实现各种函数功能的选择，子窗体进行具体设计，包含显示函数波形以及函数参数设定等功能。

设计要求重现历史波形，由于对MicrosoftAccess毫无所知并且VisualBasic.NET也是从零开始学的，所以并没有用较复杂的数据库方法保存和重现历史波形，而是在程序中进行简单设计以实现该功能。

四、源程序（VB.NET）

主窗体程序：

PublicClassForm1

PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

Form2.Hide（）

Form3.Hide（）

Form4.Hide（）

Form5.Hide（）

EndSub

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

Form2.Show（）

EndSub

PrivateSubButton4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4.Click

form3.show（）

EndSub

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

Form4.Show（）

EndSub

PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click

Form5.Show（）

EndSub

EndClass

子窗体程序：

正弦波子程序

ImportsSystem.Math

PublicClassForm2

Dimx（100）,y（100）

Dima,w,b,cAsDouble

Dima1,w1,b1,c1AsDouble

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

If（TextBox1.Text=""OrTextBox2.Text=""OrTextBox3.Text=""OrTextBox4.Text=""）Then

MsgBox（"函数参数未完全设置，请设置",0,"提醒"）

Else

a1=a:

b1=b:

c1=c:

w1=w

a=Val（TextBox1.Text）

w=Val（TextBox2.Text）

b=Val（TextBox3.Text）

c=Val（TextBox4.Text）

Fori=1To100Step1

x（i）=i

y（i）=a*Sin（w*i+b）+c

Next

WithAxTChart1

.Series（0）.Clear（）

Fori=1To100Step1

.Series（0）.Add（y（i）,x（i）,0）

Next

EndWith

EndIf

EndSub

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

a=1

w=0.2

b=0

c=0

WithAxTChart1

.Series（0）.Clear（）

Fori=1To100Step1

.Aspect.View3D=True

.Panel.Gradient.Visible=False

x（i）=i

y（i）=a*Sin（w*i+b）+c

.Series（0）.Add（y（i）,x（i）,0）

Next

EndWith

EndSub

PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click

WithAxTChart1

.Series（0）.Clear（）

Fori=1To100Step1

.Aspect.View3D=True

.Panel.Gradient.Visible=False

x（i）=i

y（i）=a1*Sin（w1*i+b1）+c1

.Series（0）.Add（y（i）,x（i）,0）

Next

EndWith

EndSub

EndClass

三角波子程序

ImportsSystem.Math

PublicClassForm3

Dimx（100）,y（100）

ConstPIAsDouble=3.141592653

DimA,W,s,A1,W1AsDouble

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

A=2

W=0.2

s=0

Fori=1To100Step1

x（i）=i

Forn=1To10000Step2

s=s+（1/n^2）*Cos（n*W*i）

Next

y（i）=A/2+4*A/（PI^2）*s

s=0

Next

WithAxTChart1

.Series（0）.Clear（）

Fori=1To100Step1

.Aspect.View3D=True

.Panel.Gradient.Visible=False

.Series（0）.Add（y（i）,x（i）,0）

Next

EndWith

EndSub

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

If（TextBox1.Text=""OrTextBox2.Text=""）Then

MsgBox（"函数参数未完全设置，请设置",0,"提醒"）

Else

A1=A:

W1=W

A=Val（TextBox1.Text）

W=Val（TextBox2.Text）

Fori=1To100Step1

x（i）=i

Forn=1To10000Step2

s=s+（1/n^2）*Cos（n*W*i）

Next

y（i）=A/2+4*A/（PI^2）*s

s=0

Next

WithAxTChart1

.Series（0）.Clear（）

Fori=1To100Step1

.Aspect.View3D=True

.Panel.Gradient.Visible=False

.Series（0）.Add（y（i）,x（i）,0）

Next

EndWith

EndIf

EndSub

PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click

s=0

Fori=1To100Step1

x（i）=i

Forn=1To10000Step2

s=s+（1/n^2）*Cos（n*W1*i）

Next

y（i）=A1/2+4*A1/（PI^2）*s

s=0

Next

WithAxTChart1

.Series（0）.Clear（）

Fori=1To100Step1

.Aspect.View3D=True

.Panel.Gradient.Visible=False

.Series（0）.Add（y（i）,x（i）,0）

Next

EndWith

EndSub

EndClass

方波子程序

ImportsSystem.Math

PublicClassForm4

Dimx（100）,y（100）

ConstPIAsDouble=3.141592653

DimA,w,s,n,A1,w1AsDouble

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

If（TextBox1.Text=""OrTextBox2.Text=""）Then

MsgBox（"函数参数未完全设置，请设置",0,"提醒"）

Else

A1=A:

w1=w

s=0

A=Val（TextBox1.Text）

w=Val（TextBox2.Text）

Fori=1To100Step1

x（i）=i

Forn=1To10000Step2

s=1/n*Sin（n*w*i）+s

Next

y（i）=4*A/PI*s

s=0

Next

WithAxTChart1

.Series（0）.Clear（）

Fori=1To100Step1

.Aspect.View3D=True

.Panel.Gradient.Visible=False

.Series（0）.Add（y（i）,x（i）,0）

Next

EndWith

EndIf

EndSub

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

s=0

A=2

w=0.2

Fori=1To100Step1

x（i）=i

Forn=1To10000Step2

s=1/n*Sin（n*w*i）+s

Next

y（i）=4*A/PI*s

s=0

Next

WithAxTChart1

.Series（0）.Clear（）

Fori=1To100Step1

.Aspect.View3D=True

.Panel.Gradient.Visible=False

.Series（0）.Add（y（i）,x（i）,0）

Next

EndWith

EndSub

PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click

Fori=1To100Step1

x（i）=i

Forn=1To10000Step2

s=1/n*Sin（n*w1*i）+s

Next

y（i）=4*A1/PI*s

s=0

Next

WithAxTChart1

.Series（0）.Clear（）

Fori=1To100Step1

.Aspect.View3D=True

.Panel.Gradient.Visible=False

.Series（0）.Add（y（i）,x（i）,0）

Next

EndWith

EndSub

EndClass

锯齿波子程序

ImportsSystem.Math

PublicClassForm5

Dimx（100）,y（100）

ConstPIAsDouble=3.141592653

DimA,w,s,k,A1,w1AsDouble

PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click

DimnAsInteger

s=0

k=1

A=2

w=0.2

Fori=1To100Step1

x（i）=i

Forn=1To10000Step1

s=k/n*Sin（n*w*i）+s

k=-k

Next

y（i）=2*A/PI*s

s=0

Next

WithAxTChart1

.Series（0）.Clear（）

Fori=1To100Step1

.Aspect.View3D=True

.Panel.Gradient.Visible=False

.Series（0）.Add（y（i）,x（i）,0）

Next

EndWith

EndSub

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

DimnAsInteger

If（TextBox1.Text=""OrTextBox2.Text=""）Then

MsgBox（"函数参数未完全设置，请设置",0,"提醒"）

Else

A1=A:

w1=w

s=0

k=1

A=Val（TextBox1.Text）

w=Val（TextBox2.Text）

Fori=1To100Step1

x（i）=i

Forn=1To10000Step1

s=k/n*Sin（n*w*i）+s

k=-k

Next

y（i）=2*A/PI*s

s=0

Next

WithAxTChart1

.Series（0）.Clear（）

Fori=1To100Step1

.Aspect.View3D=True

.Panel.Gradient.Visible=False

.Series（0）.Add（y（i）,x（i）,0）

Next

EndWith

EndIf

EndSub

PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click

DimnAsInteger

s=0

Fori=1To100Step1

x（i）=i

Forn=1To10000Step1

s=k/n*Sin（n*w1*i）+s

k=-k

Next

y（i）=2*A1/PI*s

s=0

Next

WithAxTChart1

.Series（0）.Clear（）

Fori=1To100Step1

.Aspect.View3D=True

.Panel.Gradient.Visible=False

.Series（0）.Add（y（i）,x（i）,0）

Next

EndWith

EndSub

EndClass

五、执行演示

主界面

子界面（参数未完全设置出现提示对话框）

正弦波子界面

三角波子界面

方波子界面

锯齿波子界面

六、总结与体会

这真是一个很独特的课程设计，什么都没有教直接布置课程设计题目回去做。

而之前又从没学过VB，无疑使得课程设计的难度大大提升。

不过也没什么，考研大学生自学能力的时候到了，学习终究还是要靠自己的。

从零开始，先是从网上下载了VisualStudio2010在电脑上装好，然后大概花了一天时间看VisualBasic.NET程序设计的书，并且一边摸索VisualStudio2010软件的用法。

之后便慢慢开始尝试设计了，一边设计一边学习，像Teechart控件的用法等等。

大概用了两三天时间才大致完成了。

当然，粗陋的设计还是存在一些问题的。

由于时间短促，这也是无法避免的。

像利用数据库实现历史波形的存储和重现就毫无头绪了，不得不使用简单的程序来进行替代。

由于各个函数波形是利用傅里叶级数展开来近似的，所以频率参数的改变有一定的范围，参数设置不合理可能导致函数波形失真，这是有待改进的地方。

但是完全从头开始学起，到最后能大致设计完成，觉得还是挺有成就感的，实在是不容易。

课程设计的收获还是挺大的，学会了怎样从头来自学一门语言以及软件，对VB.NET语言也有了大致的了解。

只能说这只是个开端，想要学好想要精通还有很长的路要走，慢慢努力吧。

谢谢审阅！