七彩变换园环

原创 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

JS网页特效让字体一直变换颜色

1. function changeColor(){ var color="#f00|#0f0|#00f|#808|#534";//定义一条变换颜色的字符串 color=color.split(...
  • u012637258
  • u012637258
  • 2017年09月19日 09:32
  • 279

OpenCV学习笔记-霍夫圆变换

霍夫圆变换的函数为:HoughCircles利用 Hough 变换在灰度图像中找圆CvSeq* cvHoughCircles( CvArr* image, void* circle_storage, ...
  • superdont
  • superdont
  • 2011年08月05日 22:51
  • 13415

Arduino使用七彩闪烁LED

本文中的模块是37款传感器套件中的7彩闪烁LED。下面是正面图。中间的引脚不知道是做什么用的,商家给出的例子和Arduino自带的blink示例区别不大。 测试的时候将七彩闪烁两边的引脚接到Ardu...
  • gc_2299
  • gc_2299
  • 2017年11月12日 20:00
  • 123

BZOJ4771 七彩树

很厉害的题 orz了网上的题解,大家似乎都在orz雯舞,那我也赶紧Orz吧,前两天刚在BZOJ把我超了-_-orzorz 然后这题的话,先考虑没有深度的条件 先令每个点的贡献都是1,那么如果有同...
  • neither_nor
  • neither_nor
  • 2017年03月20日 19:24
  • 1025

CSS设置七彩的下拉菜单

CSS设置七彩的下拉菜单           CSS不仅可以控制下拉菜单的整体字体和边框,而且,可以设置每一个选项的背景色和文字颜色。           首先,建立HTML部分,包括表单、下拉菜...
  • nangeali
  • nangeali
  • 2016年10月30日 16:25
  • 881

图像处理-Hough线变换和园变换

1. Hough线变换//Hough线变换 #include "cv.h" #include "highgui.h" int main() { // TODO: Add your c...
  • hustspy1990
  • hustspy1990
  • 2011年03月06日 00:00
  • 2943

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

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

51单片机+PWM控制渐变七彩灯C51程序

http://forum.eepw.com.cn/thread/213121/1 一、硬件介绍:  (采用5050LED 2W) RGB三色LED控制引脚分别为单片机P...
  • mengzhengjie
  • mengzhengjie
  • 2016年12月04日 21:22
  • 969

霍夫圆变换

opencv中实现霍夫圆变换是通过霍夫梯度法。该原理是:首先对图像应用边沿检测(cvCanny)。然后,对边缘图像中每一个非0点,考虑其局部梯度(Sobel()函数计算X、Y方向的sobel一阶导数得...
  • yiluoyan
  • yiluoyan
  • 2015年04月19日 09:24
  • 1760

数学(论)里的一些定理(莫比乌斯反演,傅立叶变换,数论变换...)

莫比乌斯反演 莫比乌斯反演在数论中占有重要的地位,许多情况下能大大简化运算。那么我们先来认识莫比乌斯反演公式。   定理:和是定义在非负整数集合上的两个函数,并且...
  • txl16211
  • txl16211
  • 2015年05月17日 13:11
  • 2467
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:七彩变换园环
举报原因:
原因补充:

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