最新VB课程设计报告.docx

最新VB课程设计报告.docx

《最新VB课程设计报告.docx》由会员分享，可在线阅读，更多相关《最新VB课程设计报告.docx（16页珍藏版）》请在冰点文库上搜索。

最新VB课程设计报告

石家庄铁道学院课程设计

Visualbasic课程设计报告书

VB各种图形设计

单位华夏学院分院（系）

专业信息工程

学号102256101XX

学生姓名罗志祥

指导教师谢霆锋

完成日期2011年6月7日

目录

一、概述2

二、功能需求分析2

三、系统设计2

四、技术实现及使用说明3

五、总结7

六、参考文献8

一.概述

VB图形设计是一个通过利用坐标系统和按钮，使图形框里显示出不同颜色和不同位置的图形。

二、功能需求分析

（1）运行程序后，由导入界面等待3秒后进入程序，出现主要按钮。

（2）出现按钮：

一朵花，十朵花，一圆环，十圆环，十正方形等等。

（3）通过分别单击这些按钮，可以在图形框里面分别显示不同位置，不同颜色的与按钮相符合的图案。

（4）当需要清除当前图形框里面的图形可以单击“清除”按钮。

（5）而且同一按钮的当多次单击后，也可以出现不同位置，不同颜色的同种图形，这是通过随即函数来实现的，但需要规定图形的半径等的大小限制条件，以免图形无法显示在图形框中。

（6）整个程序结束后，要退出只需单击“结束”按钮，则进入结束界面。

三、系统设计

针对于VB各种图形设计系统所要完成的各种功能，这里将介绍一下实现它们的设计思想：

（1）欢迎界面

主要是为了介绍制作人信息和一些对程序的简单概括。

此界面当运行后2秒自己进入下个窗体。

（2）主界面

这个界面是本次课程设计的核心部分，里面包括了对于VB各种图形设计的按钮和连接按钮，可以展示通过单击来实现对于图形的变化情况。

（3）结束界面

当然作为一个完成的程序，有了好的开始和系统的程序，必须要做一个作为结束的界面。

四、技术实现及使用说明

（1）欢迎界面

相关代码为：

PrivateSubTimer1_Timer（）

Form1.Hide

Form2.Show

Timer1.Enabled=False

EndSub

时钟的时间设计为2秒。

（2）主界面

相关代码：

一朵花：

PrivateSubCommand1_Click（）

P.Cls

Dimr%,x%,y%

P.FillColor=QBColor（Rnd*15）

P.FillStyle=0

r=Rnd*500

P.DrawWidth=1

x=Rnd*5415:

y=Rnd*4000

P.Circle（x-1.5*r,y-1.5*r）,1.6*r

P.Circle（x-1.5*r,y+1.5*r）,1.6*r

P.Circle（x+1.5*r,y-1.5*r）,1.6*r

P.Circle（x+1.5*r,y+1.5*r）,1.6*r

P.FillColor=QBColor（Rnd*10）

P.Circle（x,y）,r

EndSub

十朵花：

PrivateSubCommand2_Click（）

P.Cls

Dimr%,y%,x%,a%,b%,c%,d%,e%,f%,g%,h%,i%,j%

r=Rnd*500

P.DrawWidth=1

x=Rnd*5000:

y=Rnd*4000:

a=Rnd*3000:

b=Rnd*3000:

c=Rnd*4000:

d=Rnd*4000:

e=Rnd*4000:

f=Rnd*4000:

n=Rnd*300:

t=Rnd*300

P.FillStyle=0

P.FillColor=QBColor（Rnd*15）

P.Circle（x-1.5*（r+n）+a,y-1.5*（r+n）+b）,1.6*（r+n）

P.Circle（x-1.5*（r+n）+a,y+1.5*（r+n）+b）,1.6*（r+n）

P.Circle（x+1.5*（r+n）+a,y-1.5*（r+n）+b）,1.6*（r+n）

P.Circle（x+1.5*（r+n）+a,y+1.5*（r+n）+b）,1.6*（r+n）

P.FillColor=QBColor（Rnd*10）

P.Circle（x+a,y+b）,r+n

P.FillStyle=0

P.FillColor=QBColor（Rnd*15）

P.Circle（x-1.5*r,y-1.5*r）,1.6*r

P.Circle（x-1.5*r,y+1.5*r）,1.6*r

P.Circle（x+1.5*r,y-1.5*r）,1.6*r

P.Circle（x+1.5*r,y+1.5*r）,1.6*r

P.FillColor=QBColor（Rnd*10）

P.Circle（x,y）,r

P.FillStyle=0

P.FillColor=QBColor（Rnd*15）

P.Circle（x-1.5*（r+t）-c,y-1.5*（r+t）+b）,1.6*（r+t）

P.Circle（x-1.5*（r+t）-c,y+1.5*（r+t）+b）,1.6*（r+t）

P.Circle（x+1.5*（r+t）-c,y-1.5*（r+t）+b）,1.6*（r+t）

P.Circle（x+1.5*（r+t）-c,y+1.5*（r+t）+b）,1.6*（r+t）

P.Circle（x-c,y+b）,r+t

P.FillStyle=0

P.FillColor=QBColor（Rnd*15）

P.Circle（x-1.5*（r+n+t）+c,y-1.5*（r+n+t））,1.6*（r+n+t）

P.Circle（x-1.5*（r+n+t）+c,y+1.5*（r+n+t））,1.6*（r+n+t）

P.Circle（x+1.5*（r+n+t）+c,y-1.5*（r+n+t））,1.6*（r+n+t）

P.Circle（x+1.5*（r+n+t）+c,y+1.5*（r+n+t））,1.6*（r+n+t）

P.Circle（x+c,y）,r+n+t

P.FillStyle=0

P.FillColor=QBColor（Rnd*15）

P.Circle（x-1.5*r+b,y-1.5*r+a）,1.6*r

P.Circle（x-1.5*r+b,y+1.5*r+a）,1.6*r

P.Circle（x+1.5*r+b,y-1.5*r+a）,1.6*r

P.Circle（x+1.5*r+b,y+1.5*r+a）,1.6*r

P.Circle（x+b,y+a）,r

P.FillStyle=0

P.FillColor=QBColor（Rnd*15）

P.Circle（x-1.5*（r+n）+d,y-1.5*（r+n）+e）,1.6*（r+n）

P.Circle（x-1.5*（r+n）+d,y+1.5*（r+n）+e）,1.6*（r+n）

P.Circle（x+1.5*（r+n）+d,y-1.5*（r+n）+e）,1.6*（r+n）

P.Circle（x+1.5*（r+n）+d,y+1.5*（r+n）+e）,1.6*（r+n）

P.FillColor=QBColor（Rnd*10）

P.Circle（x+d,y+e）,r+n

P.FillStyle=0

P.FillColor=QBColor（Rnd*15）

P.Circle（x-1.5*（r+t）-f,y-1.5*（r+t）+d）,1.6*（r+t）

P.Circle（x-1.5*（r+t）-f,y+1.5*（r+t）+d）,1.6*（r+t）

P.Circle（x+1.5*（r+t）-f,y-1.5*（r+t）+d）,1.6*（r+t）

P.Circle（x+1.5*（r+t）-f,y+1.5*（r+t）+d）,1.6*（r+t）

P.Circle（x-f,y+d）,r+t

P.FillColor=QBColor（Rnd*15）

P.Circle（x-1.5*（r+n+t）+d,y-1.5*（r+n+t））,1.6*（r+n+t）

P.Circle（x-1.5*（r+n+t）+d,y+1.5*（r+n+t））,1.6*（r+n+t）

P.Circle（x+1.5*（r+n+t）+d,y-1.5*（r+n+t））,1.6*（r+n+t）

P.Circle（x+1.5*（r+n+t）+d,y+1.5*（r+n+t））,1.6*（r+n+t）

P.Circle（x+d,y）,r+n+t

P.FillStyle=0

P.FillColor=QBColor（Rnd*15）

P.Circle（x-1.5*r+d,y-1.5*r+a）,1.6*r

P.Circle（x-1.5*r+d,y+1.5*r+a）,1.6*r

P.Circle（x+1.5*r+d,y-1.5*r+a）,1.6*r

P.Circle（x+1.5*r+d,y+1.5*r+a）,1.6*r

P.Circle（x+d,y+a）,r

P.FillStyle=0

P.FillColor=QBColor（Rnd*15）

P.Circle（x-1.5*（r+n）+a,y-1.5*（r+n）+e）,1.6*（r+n）

P.Circle（x-1.5*（r+n）+a,y+1.5*（r+n）+e）,1.6*（r+n）

P.Circle（x+1.5*（r+n）+a,y-1.5*（r+n）+e）,1.6*（r+n）

P.Circle（x+1.5*（r+n）+a,y+1.5*（r+n）+e）,1.6*（r+n）

P.FillColor=QBColor（Rnd*10）

P.Circle（x+a,y+e）,r+n

EndSub

一圆环：

PrivateSubCommand3_Click（）

P.Cls

P.FillStyle=0

P.FillColor=&H80000005

Dimr%,x%,y%

r=Rnd*2000

P.DrawWidth=1+0.001*r

x=Int（Rnd*4000）:

y=Int（Rnd*4000）

P.Circle（x,y）,r,QBColor（Rnd*15）

EndSub

十圆环：

PrivateSubCommand4_Click（）

P.Cls

Dimi%,j%,k%,l%,m%,n%,o%,q%,r%,x%,y%

r=Rnd*1500

P.DrawWidth=1+0.001*r

x=Int（Rnd*4000）:

y=Int（Rnd*4000）:

i=Rnd*3000:

j=Rnd*3000:

k=Rnd*3000:

l=Rnd*3000:

m=Rnd*3000:

n=Rnd*3000:

o=Rnd*3000:

q=Rnd*3000:

z=Rnd*3000:

P.Circle（x,y）,r

P.Circle（x+i,y+j）,Rnd*1*r,QBColor（Rnd*15）

P.Circle（x+j,y+k）,Rnd*1.1*r,QBColor（Rnd*15）

P.Circle（x+k,y+l）,Rnd*1.2*r,QBColor（Rnd*15）

P.Circle（x+l,y+m）,Rnd*1.3*r,QBColor（Rnd*15）

P.Circle（x+m,y+n）,Rnd*1.4*r,QBColor（Rnd*15）

P.Circle（x+n,y+o）,Rnd*1.5*r,QBColor（Rnd*15）

P.Circle（x+o,y+P）,Rnd*1.6*r,QBColor（Rnd*15）

P.Circle（x+P,y+z）,Rnd*1.7*r,QBColor（Rnd*15）

P.Circle（x+z,y+i）,Rnd*1.8*r,QBColor（Rnd*15）

EndSub

十正方体：

PrivateSubCommand5_Click（）

P.Cls

DimxAsInteger,yAsInteger,rAsInteger,lAsInteger

P.DrawWidth=3

x=Rnd*4000:

y=Rnd*4000:

r=Rnd*500

P.ForeColor=RGB（Int（Rnd*255）,Int（Rnd*255）,Int（Rnd*255））

P.Line（x,y）-（x+r*6,y）

P.Line（x,y）-（x,y+r*6）

P.Line（x+r*6,y）-（x+r*6,y+r*6）

P.Line（x,y+r*6）-（x+r*6,y+r*6）

P.Line（x,y）-（x+r*1.5*1.7,y-r*3）

P.Line（x+r*1.5*1.7,y-r*3）-（x+r*1.5*1.7+r*6,y-r*3）

P.Line（x+r*6,y）-（x+r*1.5*1.7+r*6,y-r*3）

P.Line（x+r*1.5*1.7+r*6,y-r*3）-（x+r*1.5*1.7+r*6,y-r*3+r*6）

P.Line（x+r*6,y+r*6）-（x+r*1.5*1.7+r*6,y-r*3+r*6）

P.DrawWidth=3

x=Rnd*4000:

y=Rnd*4000:

r=Rnd*500

P.ForeColor=RGB（Int（Rnd*255）,Int（Rnd*255）,Int（Rnd*255））

P.Line（x,y）-（x+r*6,y）

P.Line（x,y）-（x,y+r*6）

P.Line（x+r*6,y）-（x+r*6,y+r*6）

P.Line（x,y+r*6）-（x+r*6,y+r*6）

P.Line（x,y）-（x+r*1.5*1.7,y-r*3）

P.Line（x+r*1.5*1.7,y-r*3）-（x+r*1.5*1.7+r*6,y-r*3）

P.Line（x+r*6,y）-（x+r*1.5*1.7+r*6,y-r*3）

P.Line（x+r*1.5*1.7+r*6,y-r*3）-（x+r*1.5*1.7+r*6,y-r*3+r*6）

P.Line（x+r*6,y+r*6）-（x+r*1.5*1.7+r*6,y-r*3+r*6）

P.DrawWidth=3

x=Rnd*4000:

y=Rnd*4000:

r=Rnd*500

P.ForeColor=RGB（Int（Rnd*255）,Int（Rnd*255）,Int（Rnd*255））

P.Line（x,y）-（x+r*6,y）

P.Line（x,y）-（x,y+r*6）

P.Line（x+r*6,y）-（x+r*6,y+r*6）

P.Line（x,y+r*6）-（x+r*6,y+r*6）

P.Line（x,y）-（x+r*1.5*1.7,y-r*3）

P.Line（x+r*1.5*1.7,y-r*3）-（x+r*1.5*1.7+r*6,y-r*3）

P.Line（x+r*6,y）-（x+r*1.5*1.7+r*6,y-r*3）

P.Line（x+r*1.5*1.7+r*6,y-r*3）-（x+r*1.5*1.7+r*6,y-r*3+r*6）

P.Line（x+r*6,y+r*6）-（x+r*1.5*1.7+r*6,y-r*3+r*6）

P.DrawWidth=3

x=Rnd*4000:

y=Rnd*4000:

r=Rnd*500

P.ForeColor=RGB（Int（Rnd*255）,Int（Rnd*255）,Int（Rnd*255））

P.Line（x,y）-（x+r*6,y）

P.Line（x,y）-（x,y+r*6）

P.Line（x+r*6,y）-（x+r*6,y+r*6）

P.Line（x,y+r*6）-（x+r*6,y+r*6）

P.Line（x,y）-（x+r*1.5*1.7,y-r*3）

P.Line（x+r*1.5*1.7,y-r*3）-（x+r*1.5*1.7+r*6,y-r*3）

P.Line（x+r*6,y）-（x+r*1.5*1.7+r*6,y-r*3）

P.Line（x+r*1.5*1.7+r*6,y-r*3）-（x+r*1.5*1.7+r*6,y-r*3+r*6）

P.Line（x+r*6,y+r*6）-（x+r*1.5*1.7+r*6,y-r*3+r*6）

P.DrawWidth=3

x=Rnd*4000:

y=Rnd*4000:

r=Rnd*500

P.ForeColor=RGB（Int（Rnd*255）,Int（Rnd*255）,Int（Rnd*255））

P.Line（x,y）-（x+r*6,y）

P.Line（x,y）-（x,y+r*6）

P.Line（x+r*6,y）-（x+r*6,y+r*6）

P.Line（x,y+r*6）-（x+r*6,y+r*6）

P.Line（x,y）-（x+r*1.5*1.7,y-r*3）

P.Line（x+r*1.5*1.7,y-r*3）-（x+r*1.5*1.7+r*6,y-r*3）

P.Line（x+r*6,y）-（x+r*1.5*1.7+r*6,y-r*3）

P.Line（x+r*1.5*1.7+r*6,y-r*3）-（x+r*1.5*1.7+r*6,y-r*3+r*6）

P.Line（x+r*6,y+r*6）-（x+r*1.5*1.7+r*6,y-r*3+r*6）

P.DrawWidth=3

x=Rnd*4000:

y=Rnd*4000:

r=Rnd*500

P.ForeColor=RGB（Int（Rnd*255）,Int（Rnd*255）,Int（Rnd*255））

P.Line（x,y）-（x+r*6,y）

P.Line（x,y）-（x,y+r*6）

P.Line（x+r*6,y）-（x+r*6,y+r*6）

P.Line（x,y+r*6）-（x+r*6,y+r*6）

P.Line（x,y）-（x+r*1.5*1.