不同图形随机的运动
2012-04-09 17:21
344 查看
一·实验目的
为了对VB语言的运用有更好的把握,同时能够运用VB语言实现不同图形随机的运动。
二·实验内容
首先,在form1上画出commandbutton,写上开始运动,在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程
Dim gAs Boolean
Dim xAs Long
再双击开始运动按钮,编写程序语言
PrivateSub 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
最后点击运行实现整个程序的运行。
三·心得体会
通过上机学习提升对其的兴趣,通过网络可以自主学习。
四·遇到的问题及解决问题的方法
不能运用VB语言。不会自主的便成为,上网百度。
五·没有解决的问题
听不懂一些术语,无法熟练运用,提升兴趣。
为了对VB语言的运用有更好的把握,同时能够运用VB语言实现不同图形随机的运动。
二·实验内容
首先,在form1上画出commandbutton,写上开始运动,在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程
Dim gAs Boolean
Dim xAs Long
再双击开始运动按钮,编写程序语言
PrivateSub 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
最后点击运行实现整个程序的运行。
三·心得体会
通过上机学习提升对其的兴趣,通过网络可以自主学习。
四·遇到的问题及解决问题的方法
不能运用VB语言。不会自主的便成为,上网百度。
五·没有解决的问题
听不懂一些术语,无法熟练运用,提升兴趣。
相关文章推荐
- 手指点击的地方随机生成带运动的不同颜色不同大小的圆
- VB----随机生成一个不同种类的图形
- 随机生成不同的图形
- 跟着音乐节奏随机的产生不同颜色形状的图形
- 随机生成不同的图形
- 随机生成不同的图形
- 美轮美奂-随机绘制不同形状、色彩、大小、位置的图形
- 用SQL语句来实现随机选定不同记录
- javascript实现10个球随机运动、碰撞实例详解
- javascript实现10个球随机运动、碰撞实例详解
- 用qt的图形视图框架实现的圆,三角形,矩形运动及碰撞.
- JAVA图形操作中FPS的计算(附带随机生成乱数球体用例)
- 明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了N个1到1000之间的随机整数(N≤1000),对于其中重复的数字,只保留一个,把其余相同的数去掉,不同的数对应着不同的学生的学号。然后再把这些数从
- SVG画多种不同的图形
- 随机生成不同长度的字符串
- 五种不同颜色的球随机抽出三个的排列组合问题
- MFC三种不同方式实现图形的保存和重绘---方法一:通过集合类CPtrArray保存点的坐标
- 【转载】随机生成k个范围为1-n的随机数,其中有多少个不同的随机数?
- 背景小球动画,飘飞小雪花,随机点运动
- 笔记七(随机运动)