几个实验之四

原创 2012年03月27日 22:36:42

实验四:随机生成图形

一、    实验目的

让程序随机不定时间生成随机种类的图形并生成多个

二、    实验内容

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

 

Private Sub Timer1_Timer()

Randomize

    Cls

    Dim MaxX As Long

    Dim MaxY As Long

    MaxX = Form1.ScaleWidth

    MaxY = Form1.ScaleHeight

    For I = 1 To Int(Rnd * 50 + 1)

        x = Int(Rnd * (MaxX - 500))

        y = Int(Rnd * (MaxY - 500))

       Shape1.Shape = Int(Rnd * 5 + 1)

    Next

End Sub

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

不太了解过多的程序语言,无法编写完整的程序理论。程序一旦复杂一点,但觉得无从下手。

通过百度查询不了解的知识,从简单的一步一步改变,逐步完成稍复杂的程序。

四、    心得体会

VB是一个深奥的学科,对于我们这些新手来说。但他有自己的规律,只要掌握其规律,戒骄戒躁,逐步完善,就可以完成任务。最大的收获:戒骄戒躁,循序渐进。不要妄想一蹴而就,踏实的一步一步来,总会成功。

五、    没有解决的问题

不能完成多个图形的生成,只随机产生了一个

几个数字图像处理的实验代码

  • 2011年06月24日 12:47
  • 504KB
  • 下载

Zigbee之旅(五):几个重要的CC2430基础实验——串口通信

Zigbee之旅(五):几个重要的CC2430基础实验——串口通信 一、承上启下   在无线传感网络中,CC2430需要将采集到的数据发送给上位机(即PC)处理,同时上位机需要...
  • Leytton
  • Leytton
  • 2016年05月09日 16:52
  • 940

用VB写的几个小实验

  • 2009年12月25日 14:45
  • 13KB
  • 下载

初学者可用的几个Java实验

  • 2012年01月04日 15:31
  • 92KB
  • 下载

《第五周实验报告2-1》---设计一个简单的分数类,完成对分数的几个运算

/* (程序头部注释开始) * 程序的版权和版本声明部分 * Copyright (c) 2011, 烟台大学计算机学院学生 * All rights reserved. * 文件名称: CFr...

几个操作系统实验

  • 2013年11月20日 23:06
  • 1.8MB
  • 下载

关于油滴实验几个问题的探讨

  • 2008年05月03日 20:46
  • 284KB
  • 下载

Zigbee之旅(九):几个重要的CC2430基础实验——系统睡眠及中断唤醒

Zigbee之旅(九):几个重要的CC2430基础实验——系统睡眠及中断唤醒 一、承上启下   这一篇,我们来讨论一下CC2430的睡眠功能及唤醒方法。在实际运用中的CC243...
  • Leytton
  • Leytton
  • 2016年05月09日 16:59
  • 903
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:几个实验之四
举报原因:
原因补充:

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