五,能动的图形

原创 2012年03月27日 21:47:23
         

一、  实验目的

生成能动的图形

二、  实验内容

用VB绘制图形并使其运动

绘制圆形并运动的程序代码

Dim g As Boolean

Dim x As Long

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

g = True

x = Shape1.Left

End Sub

Private Sub Timer1_Timer()

If g Then

x = x - 300

Else

x = x + 300

End If

If x < 0 Or x > (Me.ScaleWidth - Shape1.Width) Then

g = Not g

End If

Shape1.Move x

End Sub

在窗体中使用了一个按钮、一个计时器,并且用shape控件绘制了一个圆。

三、  心得体会

每当遇到不懂的知识时,我们都要保持一种积极求解的态度。学会好好利用百度,询问同学,积极寻找解决方法!!百度是很好的学习工具!!!!

四、 遇到的问题及解决的方法

不了解编写能动图形的程序

通过百度资料得以解决

 

实验五:能动的图形

实验五:能动的图形 一、    实验目的 生成能动的图形 二、    实验内容 用VB绘制图形并使其运动 绘制圆形并运动的程序代码 Dim g As Boolean Dim x As L...
  • songyuexiang1
  • songyuexiang1
  • 2012年03月27日 21:15
  • 71

能动的图形

>" name="paperPicArea0" alt="VB实验报告鈥斺>" src="http://simg.sinajs.cn/blog7style/images/common/sg_trans...
  • zd123789
  • zd123789
  • 2012年04月09日 18:45
  • 42

实现能动的图形

首先打开VB程序,在对象视图的窗口中画一个commandbutton,将其caption属性改为“开始运动”,然后在对象视图窗口插入一个timer,将其interval属性改为1000,enabled...
  • w735485005abc
  • w735485005abc
  • 2012年04月02日 21:51
  • 74

生成能动的图形

一、实验目的 生成能动的图形 二、实验内容 用VB绘制图形并使其运动 绘制圆形并运动的程序代码 Dim g As Boolean Dim x As Long Private Sub Co...
  • yasedaoer
  • yasedaoer
  • 2012年04月06日 19:43
  • 70

能动的图形实验

实验五:能动的图形 一、         实验目的 生成能动的图形 二、         实验内容 用VB绘制图形并使其运动 绘制圆形并运动的程序代码 Dim g As B...
  • mahuirong2012
  • mahuirong2012
  • 2012年04月01日 19:15
  • 119

vb实现能动图形

首先,在form1上画出commandbutton,写上开始运动,在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程,语言如下; Dim g As Boolean ...
  • F1594601537qq
  • F1594601537qq
  • 2012年03月28日 11:43
  • 170

生成能动图形

首先,在form1上画出commandbutton,写上开始运动,在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程 Dim gAs Boolean Dim xA...
  • songnianqiao
  • songnianqiao
  • 2012年05月28日 20:53
  • 67

VB实验报告——<<实现能动的图形>>

实验目的:实现能动的图形 实验内容: 实验原理: Private Sub Command1_Click() 定义三个启动按钮 Timer1.Enabled = True Timer1.Int...
  • x2511627852
  • x2511627852
  • 2012年06月12日 13:28
  • 103

UML五类图

一.uml图关系 二.uml图种类细分 1.用例图:用来定义系统的功能需求。         描述角色以及角色与用例之间的连接关系。说明的是谁要使用系统,以及他们使用该系统可以做些什么。一...
  • u012017783
  • u012017783
  • 2017年01月08日 15:42
  • 487

安装系统后鼠标不能动

安装系统后鼠标不能动1.USB设置 inter xHCI模式 智能自动改为关闭或自动 2.USB设置 警用USB Legacy Support...
  • BinChasing
  • BinChasing
  • 2016年06月13日 20:51
  • 923
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:五,能动的图形
举报原因:
原因补充:

(最多只允许输入30个字)