四,随机生成图形

原创 2012年03月27日 21:45:48
                            

一、    实验目的

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

二、    实验内容

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程序设计理论对我们这些初学者来说还是一个非常高深的领域,一些语言还需要我们的不断学习和把握。我们只有不断地深入了解弄清这些程序语言,不断的操作练习,加强训练,才能更掌握VB.

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

不太了解过多的程序语言,无法编写完整的程序理论。

通过百度查询不了解的知识,使得程序编写完成。

五、    没有解决的问题

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

 

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

【算法】计算机图形学的一些经典小题:判断点在多边形内,随机生成三角形内的点,判断两个矩形是否相交等

前几天面试的时候被问到了,如何随机在三角形内生成点,我按照我的想法回答了一遍,但觉得回答的不够好。最后面试官说了一个最优的方法。觉得不错,顺带总结一下最近看到的一些关于计算机图形学方面的经典小题,知乎...

opencv2-1随机图形与文字生成

opencv2-随机图形与文字生成

【opencv练习11 - 随机绘制自定义图形】

/****************************************************** 测试程序 006 - 【 随机绘制 】 时间:2016年8月22日 **...

Android图形库Skia(四)-生成PDF

嵌入式Linux下的PDF解决方案。

美轮美奂-随机绘制不同形状、色彩、大小、位置的图形

这或许是目前位置,我调试的程序中输出效果最美的一个,可谓”惊艳“,比万花筒更富有变化。 代码如下: //Graphics Exercise 6.2 /*Create a program that dr...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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