随机图形

原创 2012年03月27日 21:40:10
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), Int(Rnd * 8000))-(Int(Rnd * 8000) + 1000, Int(Rnd * 8000))
End Sub

相关文章推荐

VB088-画随机图形,源代码

  • 2017年06月17日 22:43
  • 3KB
  • 下载

随机图形和文字生成示例

  • 2016年05月04日 22:03
  • 21KB
  • 下载

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

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

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

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

VB 如何实现随机图形验证码

  • 2009年09月30日 21:01
  • 945B
  • 下载

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

这或许是目前位置,我调试的程序中输出效果最美的一个,可谓”惊艳“,比万花筒更富有变化。 代码如下: //Graphics Exercise 6.2 /*Create a program that dr...

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

opencv2-随机图形与文字生成

vb实现随机图形

一·实验目的    为了实现随机生成不同的图形,满足题目需要,实现vb语言程序的运作,最后画出那令人满意的随机的不同图形。 二·实验内容    在窗体上画一个commandbutton按钮,...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:随机图形
举报原因:
原因补充:

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