旋转的车轮.frm

下载即可运行

VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   10770
   ClientLeft      =   120
   ClientTop       =   120
   ClientWidth     =   15240
   DrawWidth       =   5
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   10770
   ScaleWidth      =   15240
   ShowInTaskbar   =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   4920
      Top             =   2400
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim t#, secai!, secai2!, j%
Const pi = 3.1415926
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
End
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
j = j + 1
If j > 100 Then
End
End If
End Sub
Private Sub Timer1_Timer()
a = 7680
b = 5700
t = t + 1
Cls
For i = 6 To 24
Form1.DrawWidth = 10
Circle (a, b), i * 50, vbGreen
For o = 1 To 8
Form1.DrawWidth = 20
PSet (a - i * 200 * Sin(o * 2 * pi / 8 + t * pi / 360), b + i * 200 * Cos(o * 2 * pi / 8 + t * pi / 360)), vbYellow
If i = 24 Then
For p = 1 To 8
Form1.DrawWidth = 7
Circle (a - i * 200 * Sin(o * 2 * pi / 8 + t * pi / 360), b + i * 200 * Cos(o * 2 * pi / 8 + t * pi / 360)), 300, vbGreen
Circle (a - i * 200 * Sin(o * 2 * pi / 8 + t * pi / 360), b + i * 200 * Cos(o * 2 * pi / 8 + t * pi / 360)), 500, vbGreen
PSet (a - i * 200 * Sin(o * 2 * pi / 8 + t * pi / 360), b + i * 200 * Cos(o * 2 * pi / 8 + t * pi / 360)), vbRed
PSet (a - i * 200 * Sin(o * 2 * pi / 8 + t * pi / 360) + 400 * Sin(p * 2 * pi / 8 + t * pi / 100), b + i * 200 * Cos(o * 2 * pi / 8 + t * pi / 360) + 400 * Cos(p * 2 * pi / 8 + t * pi / 100)), vbRed
Next p
End If
Next o
Next i
If t > 359 Then
t = 0
End If
Form1.DrawWidth = 35
Circle (a, b), 5600, vbRed
End Sub