七彩变换园环

原创 2005年03月02日 15:54:00

Option Explicit
Dim Radius, R, G, B, XPos, YPos, i, j, k, s1, s2, s3, w As Integer
Dim l As Long
Dim d As Boolean

Private Sub Form_Click()
Unload Form1

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Form1
End Sub

Private Sub Form_Load()
Form1.DrawWidth = 1
Radius = 1
w = 20
d = True
R = 10
G = 200
B = 90
s1 = 1
s2 = 2
s3 = 3
i = -1
j = 1
k = 1

End Sub

Private Sub Timer1_Timer()
If R + i * s1 > 255 Then
  R = 510 - R - s1 * i
  i = -1
ElseIf R + s1 * i < 0 Then
  R = -R - s1 * i
  i = 1
Else
  R = R + i * s1
End If

If G + j * s2 > 255 Then
  G = 510 - R - s1 * j
  j = -1
ElseIf G + s2 * j < 0 Then
  G = -G - s2 * j
  j = 1
Else
  G = G + j * s1
End If

If B + k * s3 > 255 Then
  B = 510 - R - s3 * k
  k = -1
ElseIf B + s3 * i < 0 Then
  B = -B - s3 * i
  k = 1
Else
  B = B + k * s3
End If


XPos = Form1.ScaleWidth / 2
YPos = Form1.ScaleHeight / 2

l = Sqr(CLng(YPos) * CLng(YPos) + CLng(XPos) * CLng(XPos))

If Radius <= l Then
  d = True
End If
If Radius > l Then
 d = False
End If

Circle (XPos, YPos), Radius, RGB(R, G, B)


If d Then
 Radius = Radius + w
 
Else
 Radius = Radius - w
 
End If


End Sub

相关文章推荐

Android 七彩手电筒的实现与应用

Android 已经很像 PC 中的Windows,今天就以android 上简单的一个简单例子来说明如何入门android 开发。    现在大家可能经常随身带着手机,但是未必一定会带手电筒,我春...

鼠标移动添加七彩泡泡效果

查看演示 实现此效果只需要两步 一. 引入js 二 . 给哪个div实现此效果(引入实现效果的js) 1 . 下载插件(下载) 2 . 在工程引入js(路径引入正确就行,不同的框架引...

BZOJ 4771 七彩树

主席树如果没有深度限制的话,显然有一种维护方式:对于每一种点,给自己+1,给同一颜色的前驱和自己的LCA-1,给同一颜色的后继和自己的LCA-1,然后查子树和。加了深度限制就坑爹了。直接用dfs序维护...

3.17学习内容---七彩鲜花销售系统

1.       定义鲜花类Flower,放入实体层 2.       定义鲜花管理类FlowerMgr,通过一个数组实现对鲜花的管理,放入业务层。 3.       FlowerMgr类中,实现pu...

七彩霓虹灯 制作

在ui学习,用简单地uiView和视图控制器制作的霓虹灯效果,在这个过程中要学会使用定时器NSTimer的开启与关闭,这个是实现动态效果的关键一步,在使用时可以查看API文档查看,也可以上网查询;初始...

绘制旋转七彩动画_VC源码_易语言源码

绘制旋转七彩动画,使用GDIPlus,FillPie方法,把各个色块当饼形图画出。包含VC源码、易语言源码。...

汇编:动态画出一棵七彩圣诞树

好久没有写文章了,其实想写的有很多,光是汇编代码就有很多知识点值得记下来,但是蓝癌症犯了,总是拖着,今天先写一点,以后慢慢把东西都写到这来吧。 这是 在寒假写的一个汇编程序代码如下:assume ...
  • abitch
  • abitch
  • 2017年05月10日 17:57
  • 61

认证机构管理系统 - 七彩云

认证机构管理系统 - 七彩云 qcycloud 中文名称:七彩云,是一个安全、简洁且高效的认证机构管理系统。...

[BZOJ4771][七彩树][可持久化线段树在线转离线+LCA+Set]

[BZOJ4771][七彩树][主席树+LCA+Set]题目大意:给定一棵N
  • g1n0st
  • g1n0st
  • 2017年03月11日 09:53
  • 203

带指针的【七彩时钟】(C语言)

/*================================================= 编译环境: VC6.0 头文件: graphics.h 可以在http:www.easyx....
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:七彩变换园环
举报原因:
原因补充:

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