七彩变换园环

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

阅读更多
文章标签: integer timer
个人分类: VISUAL BASIC
想对作者说点什么? 我来说一句

hough变换检测多个圆 matlab

2013年08月27日 1KB 下载

制作flash变换的字体

2007年10月23日 611KB 下载

MSI微星七彩键盘控制软件

2013年11月12日 7.35MB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭