系别:电子信息科学与技术 班级:电子2班 姓名: 李金颖 日期:3月20号
一 实验目的:制作实现能动图形
二 实验内容;打开窗口,再左边的工具栏中查找相应的选项,再右边窗口,拖拉产生按钮,再在右下角进行编辑,单机按钮输入 相应程序如下:
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Command2_Click()
Form1.Cls
End Sub
Private Sub Command3_Click()
Timer1 = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800)
'FillStyle = Int(Rnd * 7)
'FillColor = QBColor(Int(Rnd * 15))
'Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800)
FillStyle = Int(Rnd * 7)
FillColor = QBColor(Int(Rnd * 15))
Line (Int(Rnd * 8000),
单机运行程序开始运行,可以便看到圆的运动
三 心得体会:VB真的是一件很神奇的事,编程序的人头脑真不一般啊,
虽然 每次做题时总是出错不过在别人的帮助下最后做完了,会有一种很强的成就感,
这次的程序过程都是在网上找的,也学到了不少东西呢
每次遇到问题会再网上找答案或是找方法而且还会和同学之间交流,这样很大的提高了我们的做题速度,
作题变成了一件很愉快的事情 不过最后还是遇见了很多不能解决的问题就是 没有完成多个圆的运动 ,但是我相信通过我和同学之间的交流最后回将问题解决的