home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / graphical_2072586262007.psc / Form1.frm < prev    next >
Text File  |  2007-06-12  |  55KB  |  1,455 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H0080FFFF&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   9000
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   11595
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   9000
  12.    ScaleWidth      =   11595
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   3  'Windows Default
  15.    WindowState     =   2  'Maximized
  16.    Begin VB.Frame Frame1 
  17.       BackColor       =   &H0080FFFF&
  18.       BorderStyle     =   0  'None
  19.       Caption         =   "Frame1"
  20.       Height          =   8250
  21.       Left            =   200
  22.       TabIndex        =   3
  23.       Top             =   540
  24.       Width           =   1395
  25.       Begin VB.OptionButton Option12 
  26.          BackColor       =   &H80000012&
  27.          Caption         =   "Mode 12"
  28.          BeginProperty Font 
  29.             Name            =   "MS Sans Serif"
  30.             Size            =   8.25
  31.             Charset         =   0
  32.             Weight          =   700
  33.             Underline       =   0   'False
  34.             Italic          =   0   'False
  35.             Strikethrough   =   0   'False
  36.          EndProperty
  37.          ForeColor       =   &H8000000E&
  38.          Height          =   270
  39.          Left            =   120
  40.          TabIndex        =   19
  41.          Top             =   5310
  42.          Width           =   1155
  43.       End
  44.       Begin VB.OptionButton Option11 
  45.          BackColor       =   &H80000012&
  46.          Caption         =   "Mode 11"
  47.          BeginProperty Font 
  48.             Name            =   "MS Sans Serif"
  49.             Size            =   8.25
  50.             Charset         =   0
  51.             Weight          =   700
  52.             Underline       =   0   'False
  53.             Italic          =   0   'False
  54.             Strikethrough   =   0   'False
  55.          EndProperty
  56.          ForeColor       =   &H8000000E&
  57.          Height          =   270
  58.          Left            =   135
  59.          TabIndex        =   18
  60.          Top             =   4980
  61.          Width           =   1155
  62.       End
  63.       Begin VB.OptionButton Option10 
  64.          BackColor       =   &H00000000&
  65.          Caption         =   "Mode 10"
  66.          BeginProperty Font 
  67.             Name            =   "MS Sans Serif"
  68.             Size            =   8.25
  69.             Charset         =   0
  70.             Weight          =   700
  71.             Underline       =   0   'False
  72.             Italic          =   0   'False
  73.             Strikethrough   =   0   'False
  74.          EndProperty
  75.          ForeColor       =   &H00FFFFFF&
  76.          Height          =   240
  77.          Left            =   135
  78.          TabIndex        =   15
  79.          Top             =   4635
  80.          Width           =   1125
  81.       End
  82.       Begin VB.OptionButton Option9 
  83.          BackColor       =   &H00000000&
  84.          Caption         =   "Mode 9"
  85.          BeginProperty Font 
  86.             Name            =   "MS Sans Serif"
  87.             Size            =   8.25
  88.             Charset         =   0
  89.             Weight          =   700
  90.             Underline       =   0   'False
  91.             Italic          =   0   'False
  92.             Strikethrough   =   0   'False
  93.          EndProperty
  94.          ForeColor       =   &H00FFFFFF&
  95.          Height          =   225
  96.          Left            =   135
  97.          TabIndex        =   14
  98.          Top             =   4245
  99.          Width           =   1125
  100.       End
  101.       Begin VB.OptionButton Option8 
  102.          BackColor       =   &H00000000&
  103.          Caption         =   "Mode 8"
  104.          BeginProperty Font 
  105.             Name            =   "MS Sans Serif"
  106.             Size            =   8.25
  107.             Charset         =   0
  108.             Weight          =   700
  109.             Underline       =   0   'False
  110.             Italic          =   0   'False
  111.             Strikethrough   =   0   'False
  112.          EndProperty
  113.          ForeColor       =   &H00FFFFFF&
  114.          Height          =   255
  115.          Left            =   135
  116.          TabIndex        =   13
  117.          Top             =   3870
  118.          Width           =   1125
  119.       End
  120.       Begin VB.OptionButton Option7 
  121.          BackColor       =   &H00000000&
  122.          Caption         =   "Mode 7"
  123.          BeginProperty Font 
  124.             Name            =   "MS Sans Serif"
  125.             Size            =   8.25
  126.             Charset         =   0
  127.             Weight          =   700
  128.             Underline       =   0   'False
  129.             Italic          =   0   'False
  130.             Strikethrough   =   0   'False
  131.          EndProperty
  132.          ForeColor       =   &H00FFFFFF&
  133.          Height          =   270
  134.          Left            =   135
  135.          TabIndex        =   12
  136.          Top             =   3450
  137.          Width           =   1140
  138.       End
  139.       Begin VB.OptionButton Option6 
  140.          BackColor       =   &H80000012&
  141.          Caption         =   "Mode 6"
  142.          BeginProperty Font 
  143.             Name            =   "MS Sans Serif"
  144.             Size            =   8.25
  145.             Charset         =   0
  146.             Weight          =   700
  147.             Underline       =   0   'False
  148.             Italic          =   0   'False
  149.             Strikethrough   =   0   'False
  150.          EndProperty
  151.          ForeColor       =   &H00FFFFFF&
  152.          Height          =   255
  153.          Left            =   135
  154.          TabIndex        =   11
  155.          Top             =   3045
  156.          Width           =   1140
  157.       End
  158.       Begin VB.OptionButton Option5 
  159.          BackColor       =   &H00000000&
  160.          Caption         =   "Mode 5"
  161.          BeginProperty Font 
  162.             Name            =   "MS Sans Serif"
  163.             Size            =   8.25
  164.             Charset         =   0
  165.             Weight          =   700
  166.             Underline       =   0   'False
  167.             Italic          =   0   'False
  168.             Strikethrough   =   0   'False
  169.          EndProperty
  170.          ForeColor       =   &H00FFFFFF&
  171.          Height          =   270
  172.          Left            =   135
  173.          TabIndex        =   10
  174.          Top             =   2595
  175.          Width           =   1125
  176.       End
  177.       Begin VB.OptionButton Option4 
  178.          BackColor       =   &H80000012&
  179.          Caption         =   "Mode 4"
  180.          BeginProperty Font 
  181.             Name            =   "MS Sans Serif"
  182.             Size            =   8.25
  183.             Charset         =   0
  184.             Weight          =   700
  185.             Underline       =   0   'False
  186.             Italic          =   0   'False
  187.             Strikethrough   =   0   'False
  188.          EndProperty
  189.          ForeColor       =   &H00FFFFFF&
  190.          Height          =   255
  191.          Left            =   135
  192.          TabIndex        =   9
  193.          Top             =   2175
  194.          Width           =   1110
  195.       End
  196.       Begin VB.OptionButton Option3 
  197.          BackColor       =   &H00000000&
  198.          Caption         =   "Mode 3"
  199.          BeginProperty Font 
  200.             Name            =   "MS Sans Serif"
  201.             Size            =   8.25
  202.             Charset         =   0
  203.             Weight          =   700
  204.             Underline       =   0   'False
  205.             Italic          =   0   'False
  206.             Strikethrough   =   0   'False
  207.          EndProperty
  208.          ForeColor       =   &H8000000E&
  209.          Height          =   240
  210.          Left            =   135
  211.          TabIndex        =   8
  212.          Top             =   1770
  213.          Width           =   1095
  214.       End
  215.       Begin VB.OptionButton Option2 
  216.          BackColor       =   &H00000000&
  217.          Caption         =   "Mode 2"
  218.          BeginProperty Font 
  219.             Name            =   "MS Sans Serif"
  220.             Size            =   8.25
  221.             Charset         =   0
  222.             Weight          =   700
  223.             Underline       =   0   'False
  224.             Italic          =   0   'False
  225.             Strikethrough   =   0   'False
  226.          EndProperty
  227.          ForeColor       =   &H00FFFFFF&
  228.          Height          =   270
  229.          Left            =   120
  230.          TabIndex        =   6
  231.          Top             =   1260
  232.          Width           =   1155
  233.       End
  234.       Begin VB.OptionButton Option1 
  235.          BackColor       =   &H80000012&
  236.          Caption         =   "Mode 1"
  237.          BeginProperty Font 
  238.             Name            =   "MS Sans Serif"
  239.             Size            =   8.25
  240.             Charset         =   0
  241.             Weight          =   700
  242.             Underline       =   0   'False
  243.             Italic          =   0   'False
  244.             Strikethrough   =   0   'False
  245.          EndProperty
  246.          ForeColor       =   &H8000000E&
  247.          Height          =   270
  248.          Left            =   120
  249.          TabIndex        =   5
  250.          Top             =   780
  251.          Value           =   -1  'True
  252.          Width           =   1155
  253.       End
  254.       Begin VB.CommandButton Command5 
  255.          BackColor       =   &H00C0FFFF&
  256.          Caption         =   "Exit"
  257.          Height          =   300
  258.          Left            =   75
  259.          Style           =   1  'Graphical
  260.          TabIndex        =   4
  261.          Top             =   120
  262.          Width           =   1245
  263.       End
  264.       Begin VB.Label Label1 
  265.          BackColor       =   &H80000007&
  266.          BeginProperty Font 
  267.             Name            =   "MS Sans Serif"
  268.             Size            =   9.75
  269.             Charset         =   0
  270.             Weight          =   700
  271.             Underline       =   0   'False
  272.             Italic          =   0   'False
  273.             Strikethrough   =   0   'False
  274.          EndProperty
  275.          ForeColor       =   &H0000FF00&
  276.          Height          =   270
  277.          Left            =   105
  278.          TabIndex        =   17
  279.          Top             =   5610
  280.          Width           =   1140
  281.       End
  282.    End
  283.    Begin VB.PictureBox Picture2 
  284.       Appearance      =   0  'Flat
  285.       BackColor       =   &H80000006&
  286.       FillStyle       =   0  'Solid
  287.       ForeColor       =   &H80000008&
  288.       Height          =   6060
  289.       Left            =   -6650
  290.       ScaleHeight     =   6030
  291.       ScaleWidth      =   6405
  292.       TabIndex        =   16
  293.       Top             =   0
  294.       Visible         =   0   'False
  295.       Width           =   6435
  296.    End
  297.    Begin VB.CommandButton Command1 
  298.       Caption         =   "Command1"
  299.       Height          =   255
  300.       Left            =   600
  301.       TabIndex        =   2
  302.       Top             =   15
  303.       Visible         =   0   'False
  304.       Width           =   375
  305.    End
  306.    Begin VB.CommandButton Command2 
  307.       Caption         =   "Command2"
  308.       Height          =   255
  309.       Left            =   1440
  310.       TabIndex        =   1
  311.       Top             =   0
  312.       Visible         =   0   'False
  313.       Width           =   1695
  314.    End
  315.    Begin VB.Timer Timer1 
  316.       Interval        =   8000
  317.       Left            =   0
  318.       Top             =   15
  319.    End
  320.    Begin VB.Timer Timer2 
  321.       Enabled         =   0   'False
  322.       Interval        =   2
  323.       Left            =   285
  324.       Top             =   -75
  325.    End
  326.    Begin VB.PictureBox Picture1 
  327.       Appearance      =   0  'Flat
  328.       AutoRedraw      =   -1  'True
  329.       BackColor       =   &H00000000&
  330.       DrawWidth       =   3
  331.       FillStyle       =   0  'Solid
  332.       ForeColor       =   &H80000008&
  333.       Height          =   8595
  334.       Left            =   45
  335.       ScaleHeight     =   8565
  336.       ScaleWidth      =   13590
  337.       TabIndex        =   0
  338.       Top             =   225
  339.       Visible         =   0   'False
  340.       Width           =   13620
  341.       Begin VB.Timer Timer3 
  342.          Interval        =   2
  343.          Left            =   2115
  344.          Top             =   120
  345.       End
  346.       Begin VB.CheckBox Check1 
  347.          Caption         =   "Check1"
  348.          Height          =   255
  349.          Left            =   720
  350.          TabIndex        =   7
  351.          Top             =   285
  352.          Value           =   1  'Checked
  353.          Visible         =   0   'False
  354.          Width           =   1005
  355.       End
  356.    End
  357. End
  358. Attribute VB_Name = "Form1"
  359. Attribute VB_GlobalNameSpace = False
  360. Attribute VB_Creatable = False
  361. Attribute VB_PredeclaredId = True
  362. Attribute VB_Exposed = False
  363. Dim t(8) As Integer
  364. Dim X As Integer
  365. Dim Y As Integer
  366. Public df As Integer
  367.  
  368. Sub main()
  369.  
  370.  fomr2.Show
  371.  
  372. End Sub
  373.  
  374.  
  375. Private Sub Check1_Click()
  376.  Picture1.Cls
  377. End Sub
  378.  
  379. Private Sub Command1_Click()
  380.  
  381.  On Error Resume Next
  382.  galaxie.BackColor = 0
  383. galaxie.ForeColor = 10000
  384.  
  385.  
  386.  For n = 1 To 12000 Step 12
  387. For X = 1 To 20
  388. Me.ForeColor = Me.ForeColor + 10
  389.         
  390.  
  391. Line (Cos(n * X), 200 * X * n)-(3000 * X, Sin(X))
  392. Circle (n * 3, X * 2), n * 2 + X * 20
  393.  
  394.  
  395.  DoEvents
  396. Next X
  397. Next n
  398.  
  399.  
  400. End Sub
  401.  
  402. Private Sub Command2_Click()
  403.  Timer1.Enabled = True
  404. End Sub
  405.  
  406.  
  407.  
  408.  
  409. Private Sub Command5_Click()
  410.    Dim s As Integer
  411.    Timer1.Enabled = False
  412.    Timer2.Enabled = False
  413.    
  414.  For s = 20 To -1300 Step -44
  415.      Frame1.Move s, Frame1.Top, Frame1.Width, Frame1.Height
  416.      DoEvents
  417.      Next s
  418.   
  419.    End
  420. End Sub
  421.  
  422. Private Sub Form_Activate()
  423.  On Error Resume Next
  424.  
  425. Me.BackColor = 0
  426. Me.ForeColor = 10000
  427. Picture1.Visible = True
  428. Timer2.Enabled = True
  429. End Sub
  430.  
  431. Private Sub Form_Click()
  432. '   Unload Me
  433. End Sub
  434.  
  435. Private Sub Form_Load()
  436.  
  437.  
  438.         Picture2.Width = Picture1.Width
  439.         Picture2.Height = Picture1.Height
  440.         Picture2.Top = Picture1.Top
  441.         Picture2.Left = Picture1.Left
  442.         Frame1.Height = Picture1.Height
  443.         Picture1.Top = 0
  444.         Picture1.Height = Me.Height + 200
  445.         Picture1.Width = Me.Width
  446.         X = 5200
  447.         Y = 2600
  448.         k = 0
  449.         
  450.   For i = 0 To 7
  451.         t(i) = k
  452.         k = k + 80
  453.   Next
  454.   
  455.   
  456. End Sub
  457.  
  458. Private Sub Form_Unload(Cancel As Integer)
  459.  
  460.  Timer1.Enabled = False
  461.  Timer2.Enabled = False
  462.  
  463. End Sub
  464.  
  465.        
  466. Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  467.     Dim s As Integer
  468.     
  469.     For s = -1300 To 20 Step 44
  470.        Frame1.Move s, Frame1.Top, Frame1.Width, Frame1.Height
  471.        DoEvents
  472.     Next s
  473.     
  474.  
  475. End Sub
  476.  
  477. Private Sub Option1_Click()
  478. df = 0
  479.    Picture1.Cls
  480. End Sub
  481.  
  482. Private Sub Option10_Click()
  483. df = 0
  484.  Picture1.Cls
  485. End Sub
  486.  
  487. Private Sub Option11_Click()
  488.  df = 0
  489.  Picture1.Cls
  490. End Sub
  491.  
  492. Private Sub Option12_Click()
  493.   df = 0
  494.  Picture1.Cls
  495. End Sub
  496.  
  497. Private Sub Option2_Click()
  498. df = 0
  499.    Picture1.Cls
  500.    
  501. End Sub
  502.  
  503. Private Sub Option3_Click()
  504. df = 0
  505.    Picture1.Cls
  506. End Sub
  507.  
  508. Private Sub Option4_Click()
  509. df = 0
  510.  Picture1.Cls
  511. End Sub
  512.  
  513. Private Sub Option5_Click()
  514. df = 0
  515.  Picture1.Cls
  516. End Sub
  517.  
  518. Private Sub Option6_Click()
  519. df = 0
  520.  Picture1.Cls
  521. End Sub
  522.  
  523. Private Sub Option7_Click()
  524. df = 0
  525.  Picture1.Cls
  526. End Sub
  527.  
  528. Private Sub Option8_Click()
  529. df = 0
  530.  Picture1.Cls
  531. End Sub
  532.  
  533. Private Sub Option9_Click()
  534. df = 0
  535.  Picture1.Cls
  536. End Sub
  537.  
  538. Private Sub Picture1_Click()
  539.      Dim s As Integer
  540.     
  541.     For s = 20 To -1300 Step -44
  542.        Frame1.Move s, Frame1.Top, Frame1.Width, Frame1.Height
  543.        DoEvents
  544.     Next s
  545. End Sub
  546.  
  547. Private Sub timer1_timer()
  548. Form1.Cls
  549. ' Picture1.Cls
  550. End Sub
  551.  
  552. Sub fun()
  553.  On Error Resume Next
  554.  Picture1.Top = 200
  555.  Picture1.Height = Me.Height + 200
  556.  Picture1.Width = Screen.Width
  557. X = 6100
  558. Y = 4450
  559. k = 0
  560.  
  561.  
  562. For i = 0 To 7 Step 10
  563. df = df + 1
  564.  
  565. k = i + 10
  566.  
  567. If k > 7 Then k = 0
  568. Picture1.FillColor = vbBlack
  569.  
  570. Picture1.Circle (X - 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y + 3500 * Cos(t(i) * 63.1415 / 4580)), 600, vbRed, , , 1
  571. Picture1.Circle (X + 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y + 3500 * Cos(t(i) * 63.1415 / 4580)), 600, vbRed, , , 1
  572. Picture1.Circle (X - 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y + 3500 * Cos(t(i) * 63.1415 / 4580)), 600, vbRed, , 0.2
  573. Picture1.Circle (X + 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y + 3500 * Cos(t(i) * 63.1415 / 4580)), 600, vbRed, , 0.2
  574.  
  575.  
  576. Picture1.Circle (X - 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y - 3500 * Cos(t(i) * 63.1415 / 4580)), 600, vbRed, , , 1
  577. Picture1.Circle (X + 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y - 3500 * Cos(t(i) * 63.1415 / 4580)), 600, vbRed, , , 1
  578. Picture1.Circle (X - 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y - 3500 * Cos(t(i) * 63.1415 / 4580)), 600, vbRed, , 0.2
  579. Picture1.Circle (X + 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y + 3500 * Cos(t(i) * 63.1415 / 4580)), 600, vbRed, , 0.2
  580.  
  581. Picture1.FillColor = &H80FFFF
  582. Picture1.Circle (X - 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y + 3500 * Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , , 1
  583. Picture1.Circle (X + 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y + 3500 * Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , , 1
  584. Picture1.Circle (X - 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y + 3500 * Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , 0.2
  585. Picture1.Circle (X + 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y + 3500 * Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , 0.2
  586.  
  587.  
  588. Picture1.Circle (X - 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y - 3500 * Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , , 1
  589. Picture1.Circle (X + 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y - 3500 * Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , , 1
  590. Picture1.Circle (X - 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y - 3500 * Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , 0.2
  591. Picture1.Circle (X + 4500 * Sin(Tan(t(i) * 3.1415 / 3480)), Y + 3500 * Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , 0.2
  592.  
  593. Picture1.FillColor = vbBlack
  594.  
  595.  
  596.  
  597.  
  598. Picture1.Circle (X - 4500 * Sin(t(i) * 3.1415 / 1480), Y + 3500 * Cos(t(i) * 3.1415 / 580)), 100, &H8000&, , , 1
  599. Picture1.Circle (X + 4500 * Sin(t(i) * 3.1415 / 1480), Y + 3500 * Cos(t(i) * 3.1415 / 580)), 100, &H8000&, , , 1
  600. Picture1.Circle (X - 4500 * Sin(t(i) * 3.1415 / 1480), Y + 3500 * Cos(t(i) * 3.1415 / 580)), 100, &H8000&, , 0.2
  601. Picture1.Circle (X + 4500 * Sin(t(i) * 3.1415 / 1480), Y + 3500 * Cos(t(i) * 3.1415 / 580)), 100, &H8000&, , 0.2
  602.  
  603.  
  604. Picture1.Circle (X - 4500 * Sin(t(i) * 3.1415 / 1480), Y - 3500 * Cos(t(i) * 3.1415 / 580)), 100, &H8000&, , , 1
  605. Picture1.Circle (X + 4500 * Sin(t(i) * 3.1415 / 1480), Y - 3500 * Cos(t(i) * 3.1415 / 580)), 100, &H8000&, , , 1
  606. Picture1.Circle (X - 4500 * Sin(t(i) * 3.1415 / 1480), Y - 3500 * Cos(t(i) * 3.1415 / 580)), 100, &H8000&, , 0.2
  607. Picture1.Circle (X + 4500 * Sin(t(i) * 3.1415 / 1480), Y + 3500 * Cos(t(i) * 3.1415 / 580)), 100, &H8000&, , 0.2
  608.  
  609. Picture1.Circle (X - 4500 * Sin(t(i) * 3.1415 / 480), Y + 3500 * Cos(t(i) * 3.1415 / 580)), 200, vbYellow, , , 1
  610. Picture1.Circle (X + 4500 * Sin(t(i) * 3.1415 / 480), Y + 3500 * Cos(t(i) * 3.1415 / 580)), 200, vbYellow, , , 1
  611. Picture1.Circle (X - 4500 * Sin(t(i) * 3.1415 / 480), Y + 3500 * Cos(t(i) * 3.1415 / 580)), 200, vbYellow, , 0.2
  612. Picture1.Circle (X + 4500 * Sin(t(i) * 3.1415 / 480), Y + 3500 * Cos(t(i) * 3.1415 / 580)), 200, vbYellow, , 0.2
  613.  
  614.  
  615. Picture1.Circle (X - 4500 * Sin(t(i) * 3.1415 / 480), Y - 3500 * Cos(t(i) * 3.1415 / 580)), 200, vbYellow, , , 1
  616. Picture1.Circle (X + 4500 * Sin(t(i) * 3.1415 / 480), Y - 3500 * Cos(t(i) * 3.1415 / 580)), 200, vbYellow, , , 1
  617. Picture1.Circle (X - 4500 * Sin(t(i) * 3.1415 / 480), Y - 3500 * Cos(t(i) * 3.1415 / 580)), 200, vbYellow, , 0.2
  618. Picture1.Circle (X + 4500 * Sin(t(i) * 3.1415 / 480), Y + 3500 * Cos(t(i) * 3.1415 / 580)), 200, vbYellow, , 0.2
  619.  Label1.Caption = df
  620.  If df >= 11000 Then df = 0: Option2.Value = True: Exit For
  621. Next
  622. For i = 0 To 7 'Line (x, y + 2000)-(x + 500 * Sin(t(i) * 3.1415), y), vbYellow
  623. 'Line (x, y - 1500)-(x + 150 * Sin(t(i) * 3.1415 / 180), y + 10 * Cos(t(i) * 3.1415 / 10)), vbWhite, BF
  624. t(i) = t(i)
  625. Next
  626. k = 0
  627. For i = 0 To 7
  628. k = i + 1
  629. If k > 7 Then k = 0
  630. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  631. Next
  632. For i = 0 To 7
  633. Picture1.DrawWidth = 1
  634. 'Line (x, y)-(x + 0 * Sin(t(i) * 3.1415 / 180), 0 * Cos(t(i) * 0)), vbYellow
  635. 'Line (x, y)-(x + 1500 * Cos(t(i / 3) * 3.1415 / 180), 500 * Tan(t(i) * 0)), &H8000&
  636. t(i) = t(i) + 2
  637. Next
  638.  
  639.  
  640. End Sub
  641. Private Sub Timer2_Timer()
  642.  
  643.         If Option1.Value = True Then
  644.         fun
  645.         End If
  646.         
  647.         If Option2.Value = True Then
  648.         
  649.         
  650.         fun1
  651.         End If
  652.         
  653.         
  654.         
  655.         
  656.         If Option3.Value = True Then
  657.         fun3
  658.         End If
  659.         
  660.         If Option4.Value = True Then
  661.         fun4
  662.         End If
  663.         
  664.         If Option5.Value = True Then
  665.         fun5
  666.         End If
  667.         If Option6.Value = True Then
  668.         fun6
  669.         End If
  670.         If Option7.Value = True Then
  671.         fun7
  672.         End If
  673.         If Option8.Value = True Then
  674.         fun8
  675.         End If
  676.         If Option9.Value = True Then
  677.         fun9
  678.         End If
  679.         If Option10.Value = True Then
  680.         fun10
  681.         End If
  682.         
  683.         If Option11.Value = True Then
  684.         fun11
  685.         End If
  686.  
  687. If Option12.Value = True Then
  688.         fun13
  689.         End If
  690.           
  691. End Sub
  692. Sub fun1()
  693.  
  694.  On Error GoTo Mounib
  695.  Picture1.Top = 200
  696.  Picture1.Height = Me.Height + 200
  697.  Picture1.Width = Screen.Width
  698.  
  699.  
  700.  
  701. X = 6100
  702. Y = 4450
  703. k = 0
  704.  
  705.  
  706. For i = 0 To 7 Step 10
  707.  df = df + 1
  708. k = i + 1
  709. If k > 7 Then k = 0
  710.  
  711.  
  712. Picture1.FillColor = vbBlack
  713. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y + 100 / Cos(t(i) * 63.1415 / 4580)), 1000, &H8000&, , , 1
  714. Picture1.Circle (X + 4500 * Sin(t(i) * 73.1415 / 3480), Y + 100 / Cos(t(i) * 63.1415 / 4580)), 1000, &H8000&, , , 1
  715. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y + 100 / Cos(t(i) * 63.1415 / 4580)), 1000, &H8000&, , 0.2
  716. Picture1.Circle (X + 4500 * Sin(t(i) * 3.1415 / 3480), Y + 100 / Cos(t(i) * 63.1415 / 4580)), 1000, &H8000&, , 0.2
  717.  
  718.  
  719. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y - 100 / Cos(t(i) * 63.1415 / 4580)), 1000, &H8000&, , , 1
  720. Picture1.Circle (X + 4500 * Sin(t(i) * 73.1415 / 3480), Y - 100 / Cos(t(i) * 63.1415 / 4580)), 1000, &H8000&, , , 1
  721. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y - 100 / Cos(t(i) * 63.1415 / 4580)), 1000, &H8000&, , 0.2
  722. Picture1.Circle (X + 4500 * Sin(t(i) * 73.1415 / 3480), Y + 100 / Cos(t(i) * 63.1415 / 4580)), 1000, &H8000&, , 0.2
  723.  
  724. Picture1.FillColor = vbYellow
  725. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y + 100 / Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , , 1
  726. Picture1.Circle (X + 4500 * Sin(t(i) * 73.1415 / 3480), Y + 100 / Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , , 1
  727. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y + 100 / Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , 0.2
  728. Picture1.Circle (X + 4500 * Sin(t(i) * 3.1415 / 3480), Y + 100 / Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , 0.2
  729.  
  730.  
  731. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y - 100 / Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , , 1
  732. Picture1.Circle (X + 4500 * Sin(t(i) * 73.1415 / 3480), Y - 100 / Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , , 1
  733. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y - 100 / Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , 0.2
  734. Picture1.Circle (X + 4500 * Sin(t(i) * 73.1415 / 3480), Y + 100 / Cos(t(i) * 63.1415 / 4580)), 300, vbYellow, , 0.2
  735.  
  736.  
  737. Picture1.FillColor = vbBlack
  738. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 2480), Y + 1500 * Tan(t(i) * 73.1415 / 580)), 100, vbYellow, , , 1
  739. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 2480), Y + 1500 * Tan(t(i) * 73.1415 / 580)), 100, vbYellow, , , 1
  740. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 2480), Y + 1500 * Tan(t(i) * 73.1415 / 580)), 100, vbYellow, , 0.2
  741. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 2480), Y + 1500 * Tan(t(i) * 73.1415 / 580)), 100, vbYellow, , 0.2
  742.  
  743. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 2480), Y - 1500 * Tan(t(i) * 73.1415 / 580)), 100, vbYellow, , , 1
  744. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 2480), Y - 1500 * Tan(t(i) * 73.1415 / 580)), 100, vbYellow, , , 1
  745. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 2480), Y - 1500 * Tan(t(i) * 73.1415 / 580)), 100, vbYellow, , 0.2
  746. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 2480), Y + 1500 * Tan(t(i) * 73.1415 / 580)), 100, vbYellow, , 0.2
  747.  
  748.  
  749. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 480), Y + 1500 * Sin(t(i) * 3.1415 / 580)), 800, vbYellow, , , 1
  750. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 480), Y + 1500 * Sin(t(i) * 3.1415 / 580)), 800, vbYellow, , , 1
  751. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 480), Y + 1500 * Sin(t(i) * 3.1415 / 580)), 800, vbYellow, , 0.2
  752. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 480), Y + 1500 * Sin(t(i) * 3.1415 / 580)), 800, vbYellow, , 0.2
  753.  
  754. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 480), Y - 1500 * Sin(t(i) * 3.1415 / 580)), 800, vbYellow, , , 1
  755. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 480), Y - 1500 * Sin(t(i) * 3.1415 / 580)), 800, vbYellow, , , 1
  756. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 480), Y - 1500 * Sin(t(i) * 3.1415 / 580)), 800, vbYellow, , 0.2
  757. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 480), Y + 1500 * Sin(t(i) * 3.1415 / 580)), 800, vbYellow, , 0.2
  758.  
  759.  
  760.  
  761.  
  762.  If df >= 11000 Then df = 0: Option3.Value = True: Exit For
  763.  
  764. Next
  765. For i = 0 To 7 'Line (x, y + 2000)-(x + 500 * Sin(t(i) * 3.1415), y), vbYellow
  766. 'Line (x, y - 1500)-(x + 150 * Sin(t(i) * 3.1415 / 180), y + 10 * Cos(t(i) * 3.1415 / 10)), vbWhite, BF
  767. t(i) = t(i)
  768. Next
  769. k = 0
  770. For i = 0 To 7
  771. k = i + 1
  772. If k > 7 Then k = 0
  773. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  774. Next
  775. For i = 0 To 7
  776. Picture1.DrawWidth = 1
  777. 'Line (x, y)-(x + 0 * Sin(t(i) * 3.1415 / 180), 0 * Cos(t(i) * 0)), vbYellow
  778. 'Line (x, y)-(x + 1500 * Cos(t(i / 3) * 3.1415 / 180), 500 * Tan(t(i) * 0)), &H8000&
  779. t(i) = t(i) + 2
  780. Next
  781.  
  782. Mounib: bab
  783.  
  784.   
  785.  
  786. End Sub
  787. Sub bab()
  788.    Me.Refresh
  789.  
  790.   Timer2.Enabled = True
  791.  End Sub
  792.   
  793.  
  794.  
  795. Sub fun3()
  796.   On Error Resume Next
  797.  Picture1.Top = 200
  798.  Picture1.Height = Me.Height + 200
  799. ' If Check1.Value = vbChecked Then
  800. ' Picture1.Cls
  801. '
  802. '   End If
  803. '   Check1.Value = vbUnchecked
  804. X = 6400
  805. Y = 4450
  806. k = 0
  807.  
  808.  
  809. For i = 0 To 7 Step 10
  810.  
  811. k = i + 10
  812. If k > 7 Then k = 0
  813.  
  814.  
  815. Next
  816.  
  817. For i = 0 To 7 'Line (x, y + 2000)-(x + 500 * Sin(t(i) * 3.1415), y), vbYellow
  818. 'Line (x, y - 1500)-(x + 150 * Sin(t(i) * 3.1415 / 180), y + 10 * Cos(t(i) * 3.1415 / 10)), vbWhite, BF
  819. t(i) = t(i)
  820. Next
  821. k = 10
  822. For i = 5 To 7 Step 10
  823. df = df + 1
  824. Picture1.Circle (X - 2500 * Sin(Tan(Cos(t(i) / Tan(k * 73.1415) / 750))), Y - 2500 * Sin(Tan(Tan(Tan(t(i) * 44.1415 / 6340))))), 400, vbWhite, , , 5
  825. Picture1.Circle (X - 2500 * Sin(Tan(Cos(t(i) / Tan(k * 73.1415) / 750))), Y + 2500 * Sin(Tan(Tan(Tan(t(i) * 44.1415 / 6340))))), 400, &H80FFFF, , , 5
  826. Picture1.Circle (X - 2500 * Sin(Tan(Cos(t(i) / Tan(k * 73.1415) / 750))), Y - 2500 * Sin(Tan(Tan(Tan(t(i) * 44.1415 / 6340))))), 400, &H8000&, , , 0.425
  827. Picture1.Circle (X - 2500 * Sin(Tan(Cos(t(i) / Tan(k * 73.1415) / 750))), Y + 2500 * Sin(Tan(Tan(Tan(t(i) * 44.1415 / 6340))))), 400, &H8000&, , , 0.425
  828.  
  829.  
  830. Picture1.Circle (X + 2500 * Sin(Tan(Cos(t(i) / Tan(k * 73.1415) / 750))), Y - 2500 * Sin(Tan(Tan(Tan(t(i) * 44.1415 / 6340))))), 400, vbWhite, , , 5
  831. Picture1.Circle (X + 2500 * Sin(Tan(Cos(t(i) / Tan(k * 73.1415) / 750))), Y + 2500 * Sin(Tan(Tan(Tan(t(i) * 44.1415 / 6340))))), 400, &H80FFFF, , , 5
  832. Picture1.Circle (X + 2500 * Sin(Tan(Cos(t(i) / Tan(k * 73.1415) / 750))), Y - 2500 * Sin(Tan(Tan(Tan(t(i) * 44.1415 / 6340))))), 400, &H8000&, , , 0.425
  833. Picture1.Circle (X + 2500 * Sin(Tan(Cos(t(i) / Tan(k * 73.1415) / 750))), Y + 2500 * Sin(Tan(Tan(Tan(t(i) * 44.1415 / 6340))))), 400, &H8000&, , , 0.425
  834.  
  835.  
  836. Picture1.Circle (X + 2500 * Tan(Sin(t(i) / k * 73.1415 / 1080)), Y - 2500 / Sin(Tan(t(i) * 45.1415 / 10340))), 200, vbYellow, , , 5
  837. Picture1.Circle (X + 2500 * Tan(Sin(t(i) / k * 73.1415 / 1080)), Y + 2500 / Sin(Tan(t(i) * 45.1415 / 10340))), 200, vbYellow, , , 5
  838. Picture1.Circle (X + 2500 * Tan(Sin(t(i) / k * 73.1415 / 1080)), Y - 2500 / Sin(Tan(t(i) * 45.1415 / 10340))), 200, &H8000&, , , 0.425
  839. Picture1.Circle (X + 2500 * Tan(Sin(t(i) / k * 73.1415 / 1080)), Y + 2500 / Sin(Tan(t(i) * 45.1415 / 10340))), 200, &H8000&, , , 0.425
  840.  
  841. Picture1.Circle (X - 2500 * Tan(Sin(t(i) / k * 73.1415 / 1080)), Y - 2500 / Sin(Tan(t(i) * 45.1415 / 10340))), 200, vbYellow, , , 5
  842. Picture1.Circle (X - 2500 * Tan(Sin(t(i) / k * 73.1415 / 1080)), Y + 2500 / Sin(Tan(t(i) * 45.1415 / 10340))), 200, vbYellow, , , 5
  843. Picture1.Circle (X - 2500 * Tan(Sin(t(i) / k * 73.1415 / 1080)), Y - 2500 / Sin(Tan(t(i) * 45.1415 / 10340))), 200, &H8000&, , , 0.425
  844. Picture1.Circle (X - 2500 * Tan(Sin(t(i) / k * 73.1415 / 1080)), Y + 2500 / Sin(Tan(t(i) * 45.1415 / 10340))), 200, &H8000&, , , 0.425
  845.  
  846.  
  847.  
  848. If df >= 11000 Then df = 0: Option4.Value = True: Exit For
  849.  
  850.  
  851. k = i + 1
  852. If k > 7 Then k = 0
  853. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  854. Next
  855. For i = 0 To 7
  856. Picture1.DrawWidth = 1
  857. 'Line (x, y)-(x + 0 * Sin(t(i) * 3.1415 / 180), 0 * Cos(t(i) * 0)), vbYellow
  858. 'Line (x, y)-(x + 1500 * Cos(t(i / 3) * 3.1415 / 180), 500 * Tan(t(i) * 0)), &H8000&
  859. t(i) = t(i) + 2
  860. Next
  861.  
  862.  
  863.  
  864. End Sub
  865.  
  866. Sub fun4()
  867.  On Error Resume Next
  868.  Picture1.Top = 200
  869.  Picture1.Height = Me.Height + 200
  870.  Picture1.Width = Screen.Width
  871.  
  872. X = 6000
  873. Y = 4450
  874. k = 0
  875.  
  876.  
  877. For i = 0 To 7 Step 10
  878. df = df + 1
  879. k = i + 10
  880. If k > 7 Then k = 0
  881.  
  882.  
  883. Next
  884. For i = 0 To 7 'Line (x, y + 2000)-(x + 500 * Sin(t(i) * 3.1415), y), vbYellow
  885. 'Line (x, y - 1500)-(x + 150 * Sin(t(i) * 3.1415 / 180), y + 10 * Cos(t(i) * 3.1415 / 10)), vbWhite, BF
  886. t(i) = t(i)
  887. Next
  888. k = 10
  889. For i = 5 To 7 Step 10
  890. '
  891.  
  892. df = df + 1
  893. Picture1.Circle (X + 2500 * Sin(Sin(Sin(t(i) / k * 73.1415 / 580))), Y - 2500 / Tan(t(i) * 45.1415 / 7340)), 200, vbYellow, , , 5
  894. Picture1.Circle (X + 2500 * Sin(Sin(Sin(t(i) / k * 73.1415 / 580))), Y + 2500 / Tan(t(i) * 45.1415 / 7340)), 200, vbYellow, , , 5
  895. Picture1.Circle (X + 2500 * Sin(Sin(Sin(t(i) / k * 73.1415 / 580))), Y - 2500 / Tan(t(i) * 45.1415 / 7340)), 200, &H8000&, , , 0.425
  896. Picture1.Circle (X + 2500 * Sin(Sin(Sin(t(i) / k * 73.1415 / 580))), Y + 2500 / Tan(t(i) * 45.1415 / 7340)), 200, &H8000&, , , 0.425
  897.  
  898. Picture1.Circle (X - 2500 * Sin(Sin(Sin(t(i) / k * 73.1415 / 580))), Y - 2500 / Tan(t(i) * 45.1415 / 7340)), 200, vbYellow, , , 5
  899. Picture1.Circle (X - 2500 * Sin(Sin(Sin(t(i) / k * 73.1415 / 580))), Y + 2500 / Tan(t(i) * 45.1415 / 7340)), 200, vbYellow, , , 5
  900. Picture1.Circle (X - 2500 * Sin(Sin(Sin(t(i) / k * 73.1415 / 580))), Y - 2500 / Tan(t(i) * 45.1415 / 7340)), 200, &H8000&, , , 0.425
  901. Picture1.Circle (X - 2500 * Sin(Sin(Sin(t(i) / k * 73.1415 / 580))), Y + 2500 / Tan(t(i) * 45.1415 / 7340)), 200, &H8000&, , , 0.425
  902.  
  903.  
  904.  
  905. Picture1.Circle (X + 2500 * Tan(Cos(Sin(Sin(t(i) / k * 73.1415 / 580)))), Y - 2500 / Tan(t(i) * 45.1415 / 7340)), 200, vbYellow, , , 5
  906. Picture1.Circle (X + 2500 * Tan(Cos(Sin(Sin(t(i) / k * 73.1415 / 580)))), Y + 2500 / Tan(t(i) * 45.1415 / 7340)), 200, vbYellow, , , 5
  907. Picture1.Circle (X + 2500 * Tan(Cos(Sin(Sin(t(i) / k * 73.1415 / 580)))), Y - 2500 / Tan(t(i) * 45.1415 / 7340)), 200, &H8000&, , , 0.425
  908. Picture1.Circle (X + 2500 * Tan(Cos(Sin(Sin(t(i) / k * 73.1415 / 580)))), Y + 2500 / Tan(t(i) * 45.1415 / 7340)), 200, &H8000&, , , 0.425
  909.  
  910.  
  911. Picture1.Circle (X - 2500 * Tan(Cos(Sin(Sin(t(i) / k * 73.1415 / 580)))), Y - 2500 / Tan(t(i) * 45.1415 / 7340)), 200, vbYellow, , , 5
  912. Picture1.Circle (X - 2500 * Tan(Cos(Sin(Sin(t(i) / k * 73.1415 / 580)))), Y + 2500 / Tan(t(i) * 45.1415 / 7340)), 200, vbYellow, , , 5
  913. Picture1.Circle (X - 2500 * Tan(Cos(Sin(Sin(t(i) / k * 73.1415 / 580)))), Y - 2500 / Tan(t(i) * 45.1415 / 7340)), 200, &H8000&, , , 0.425
  914. Picture1.Circle (X - 2500 * Tan(Cos(Sin(Sin(t(i) / k * 73.1415 / 580)))), Y + 2500 / Tan(t(i) * 45.1415 / 7340)), 200, &H8000&, , , 0.425
  915.  
  916.  
  917.  
  918.  
  919.  
  920. If df >= 11000 Then df = 0: Option5.Value = True: Exit For
  921.  
  922. k = i + 1
  923. If k > 7 Then k = 0
  924. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  925. Next
  926. For i = 0 To 7
  927. Picture1.DrawWidth = 1
  928. 'Line (x, y)-(x + 0 * Sin(t(i) * 3.1415 / 180), 0 * Cos(t(i) * 0)), vbYellow
  929. 'Line (x, y)-(x + 1500 * Cos(t(i / 3) * 3.1415 / 180), 500 * Tan(t(i) * 0)), &H8000&
  930. t(i) = t(i) + 2
  931. Next
  932.  
  933.  
  934.  
  935. End Sub
  936. Sub fun5()
  937.  On Error Resume Next
  938.  Picture1.Top = 200
  939.  Picture1.Height = Me.Height + 200
  940.  Picture1.Width = Screen.Width
  941. X = 6400
  942. Y = 4450
  943. k = 0
  944.  
  945.  
  946. For i = 0 To 7 Step 10
  947.  
  948. k = i + 10
  949. If k > 7 Then k = 0
  950. df = df + 1
  951.  
  952.  
  953. '
  954. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y + 500 / Cos(t(i) * 63.1415 / 4580)), 100, &H8000&, , , 1
  955. Picture1.Circle (X + 4500 * Sin(t(i) * 73.1415 / 3480), Y + 500 / Cos(t(i) * 63.1415 / 4580)), 100, &H8000&, , , 1
  956. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y + 500 / Cos(t(i) * 63.1415 / 4580)), 100, &H8000&, , 0.2
  957. Picture1.Circle (X + 4500 * Sin(t(i) * 3.1415 / 3480), Y + 500 / Cos(t(i) * 63.1415 / 4580)), 100, &H8000&, , 0.2
  958.  
  959.  
  960. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y - 500 / Cos(t(i) * 63.1415 / 4580)), 100, &H8000&, , , 1
  961. Picture1.Circle (X + 4500 * Sin(t(i) * 73.1415 / 3480), Y - 500 / Cos(t(i) * 63.1415 / 4580)), 100, &H8000&, , , 1
  962. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y - 500 / Cos(t(i) * 63.1415 / 4580)), 100, &H8000&, , 0.2
  963. Picture1.Circle (X + 4500 * Sin(t(i) * 73.1415 / 3480), Y + 500 / Cos(t(i) * 63.1415 / 4580)), 100, &H8000&, , 0.2
  964.  
  965.  
  966. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 2480), Y + 1500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , , 1
  967. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 2480), Y + 1500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , , 1
  968. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 2480), Y + 1500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , 0.2
  969. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 2480), Y + 1500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , 0.2
  970.  
  971. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 2480), Y - 1500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , , 1
  972. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 2480), Y - 1500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , , 1
  973. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 2480), Y - 1500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , 0.2
  974. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 2480), Y + 1500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , 0.2
  975.  
  976. If df >= 11000 Then df = 0: Option6.Value = True: Exit For
  977. Next
  978. For i = 0 To 7 'Line (x, y + 2000)-(x + 500 * Sin(t(i) * 3.1415), y), vbYellow
  979. 'Line (x, y - 1500)-(x + 150 * Sin(t(i) * 3.1415 / 180), y + 10 * Cos(t(i) * 3.1415 / 10)), vbWhite, BF
  980. t(i) = t(i)
  981. Next
  982. k = 0
  983. For i = 0 To 7
  984. k = i + 1
  985. If k > 7 Then k = 0
  986. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  987. Next
  988. For i = 0 To 7
  989. Picture1.DrawWidth = 1
  990. 'Line (x, y)-(x + 0 * Sin(t(i) * 3.1415 / 180), 0 * Cos(t(i) * 0)), vbYellow
  991. 'Line (x, y)-(x + 1500 * Cos(t(i / 3) * 3.1415 / 180), 500 * Tan(t(i) * 0)), &H8000&
  992. t(i) = t(i) + 2
  993. Next
  994.  
  995.  
  996. End Sub
  997. Sub fun6()
  998.  On Error Resume Next
  999.  
  1000.  
  1001.  Picture1.Top = 200
  1002.  Picture1.Height = Me.Height + 200
  1003.   Picture1.Width = Screen.Width
  1004. X = 6000
  1005. Y = 4450
  1006. k = 0
  1007.  
  1008.  
  1009. For i = 0 To 7 Step 10
  1010.  
  1011. k = i + 10
  1012. If k > 7 Then k = 0
  1013. df = df + 1
  1014.  
  1015. Picture1.Circle (X - 3500 * Cos(t(i / 20) * 23.1415 / 1480), Y - 3500 * Tan(t(i) * 3.1415 / 880)), 500, &HFFFF&
  1016. Picture1.Circle (X + 3500 * Cos(t(i / 20) * 23.1415 / 1480), Y + 3500 * Tan(t(i) * 3.1415 / 880)), 500, vbRed
  1017.  
  1018.  
  1019. Picture1.Circle (X - 2500 * Tan(t(i) * 3.1415 / 480), Y - 2500 * Cos(t(i) * 65.1415 / 3340)), 500, &HC0FFFF, , , 0.425
  1020. Picture1.Circle (X + 2500 * Tan(t(i) * 3.1415 / 480), Y - 2500 * Cos(t(i) * 65.1415 / 3340)), 500, vbYellow, , , 0.425
  1021. Picture1.Circle (X - 2500 * Tan(t(i) * 3.1415 / 480), Y + 2500 * Cos(t(i) * 65.1415 / 3340)), 500, &HFF&, , , 0.425
  1022. Picture1.Circle (X + 2500 * Tan(t(i) * 3.1415 / 480), Y + 2500 * Cos(t(i) * 65.1415 / 3340)), 500, &H8000&, , , 0.425
  1023.  
  1024. If df >= 11000 Then df = 0: Option7.Value = True: Exit For
  1025.  
  1026.  
  1027. Next
  1028. For i = 0 To 7 'Line (x, y + 2000)-(x + 500 * Sin(t(i) * 3.1415), y), vbYellow
  1029. 'Line (x, y - 1500)-(x + 150 * Sin(t(i) * 3.1415 / 180), y + 10 * Cos(t(i) * 3.1415 / 10)), vbWhite, BF
  1030. t(i) = t(i)
  1031. Next
  1032. k = 0
  1033. For i = 0 To 7
  1034. k = i + 1
  1035. If k > 7 Then k = 0
  1036. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  1037. Next
  1038. For i = 0 To 7
  1039. Picture1.DrawWidth = 1
  1040. 'Line (x, y)-(x + 0 * Sin(t(i) * 3.1415 / 180), 0 * Cos(t(i) * 0)), vbYellow
  1041. 'Line (x, y)-(x + 1500 * Cos(t(i / 3) * 3.1415 / 180), 500 * Tan(t(i) * 0)), &H8000&
  1042. t(i) = t(i) + 2
  1043. Next
  1044.  
  1045.  
  1046. End Sub
  1047. Sub fun7()
  1048.  On Error Resume Next
  1049.  Picture1.Top = 200
  1050.  Picture1.Height = Me.Height + 200
  1051.   Picture1.Width = Me.Width + 600
  1052. X = 6000
  1053. Y = 4450
  1054. k = 0
  1055.  
  1056.  
  1057. For i = 0 To 7 Step 10
  1058.  
  1059. k = i + 10
  1060. If k > 7 Then k = 0
  1061.  
  1062. df = df + 1
  1063.  
  1064. Picture1.Circle (X + 2500 * Cos(t(i) * 3.1415 / 208), Y - 2500 * Tan(t(i) * 55.1415 / 3340)), 500, &HC0FFFF, , , 5
  1065. Picture1.Circle (X + 2500 * Cos(t(i) * 3.1415 / 208), Y + 2500 * Tan(t(i) * 55.1415 / 3340)), 500, vbYellow, , , 5
  1066. Picture1.Circle (X + 2500 * Cos(t(i) * 3.1415 / 208), Y - 2500 * Tan(t(i) * 55.1415 / 3340)), 500, &HFF&, , , 0.425
  1067. Picture1.Circle (X + 2500 * Cos(t(i) * 3.1415 / 208), Y + 2500 * Tan(t(i) * 55.1415 / 3340)), 500, &H8000&, , , 0.425
  1068.  
  1069.  
  1070. Picture1.Circle (X - 2500 * Cos(t(i) * 3.1415 / 208), Y - 2500 * Tan(t(i) * 55.1415 / 3340)), 500, &HC0FFFF, , , 5
  1071. Picture1.Circle (X - 2500 * Cos(t(i) * 3.1415 / 208), Y + 2500 * Tan(t(i) * 55.1415 / 3340)), 500, vbYellow, , , 5
  1072. Picture1.Circle (X - 2500 * Cos(t(i) * 3.1415 / 208), Y - 2500 * Tan(t(i) * 55.1415 / 3340)), 500, &HFF&, , , 0.425
  1073. Picture1.Circle (X - 2500 * Cos(t(i) * 3.1415 / 208), Y + 2500 * Tan(t(i) * 55.1415 / 3340)), 500, &H8000&, , , 0.425
  1074.  
  1075.  
  1076.  
  1077. Picture1.Circle (X - 2500 * Tan(t(i) * 3.1415 / 2080), Y - 2500 * Cos(t(i) * 5.1415 / 340)), 600, &HC0FFFF, , , 0.425
  1078. Picture1.Circle (X + 2500 * Tan(t(i) * 3.1415 / 2080), Y - 2500 * Cos(t(i) * 5.1415 / 340)), 600, vbYellow, , , 0.425
  1079. Picture1.Circle (X - 2500 * Tan(t(i) * 3.1415 / 2080), Y + 2500 * Cos(t(i) * 5.1415 / 340)), 600, &HFF&, , , 0.425
  1080. Picture1.Circle (X + 2500 * Tan(t(i) * 3.1415 / 2080), Y + 2500 * Cos(t(i) * 5.1415 / 340)), 600, &H8000&, , , 0.425
  1081.  
  1082.  
  1083. If df >= 11000 Then df = 0: Option8.Value = True: Exit For
  1084.  
  1085. t(i) = t(i) + 2
  1086.  
  1087. Next
  1088.  
  1089. k = 0
  1090. For i = 0 To 7
  1091. k = i + 1
  1092. If k > 7 Then k = 0
  1093. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  1094. Next
  1095.  
  1096.  
  1097.  
  1098. End Sub
  1099. Sub fun8()
  1100.  On Error Resume Next
  1101.  Picture1.Top = 200
  1102.  Picture1.Height = Me.Height + 200
  1103.  
  1104. X = 6400
  1105. Y = 4450
  1106. k = 0
  1107.  
  1108.  
  1109. For i = 0 To 7 Step 10
  1110.  
  1111. k = i + 10
  1112. If k > 7 Then k = 0
  1113.  
  1114.  
  1115.  
  1116.  
  1117.  
  1118. Next
  1119. 'For i = 0 To 7 'Line (x, y + 2000)-(x + 500 * Sin(t(i) * 3.1415), y), vbYellow
  1120. ''Line (x, y - 1500)-(x + 150 * Sin(t(i) * 3.1415 / 180), y + 10 * Cos(t(i) * 3.1415 / 10)), vbWhite, BF
  1121. 'T(i) = T(i)
  1122. 'Next
  1123. k = 10
  1124. For i = 5 To 7 Step 10
  1125.  df = df + 1
  1126. Picture1.Circle (X - 2500 * Cos(t(i) / k * 73.1415 / 2080), Y - 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, vbYellow, , , 5
  1127. Picture1.Circle (X - 2500 * Cos(t(i) / k * 73.1415 / 2080), Y + 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, vbYellow, , , 5
  1128. Picture1.Circle (X - 2500 * Cos(t(i) / k * 73.1415 / 2080), Y - 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, &H8000&, , , 0.425
  1129. Picture1.Circle (X - 2500 * Cos(t(i) / k * 73.1415 / 2080), Y + 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, &H8000&, , , 0.425
  1130.  
  1131. Picture1.Circle (X + 2500 * Cos(t(i) / k * 73.1415 / 2080), Y - 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, vbYellow, , , 5
  1132. Picture1.Circle (X + 2500 * Cos(t(i) / k * 73.1415 / 2080), Y + 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, vbYellow, , , 5
  1133. Picture1.Circle (X + 2500 * Cos(t(i) / k * 73.1415 / 2080), Y - 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, &H8000&, , , 0.425
  1134. Picture1.Circle (X + 2500 * Cos(t(i) / k * 73.1415 / 2080), Y + 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, &H8000&, , , 0.425
  1135.  
  1136. Picture1.Circle (X - 2500 * Sin(t(i) / k * 73.1415 / 2080), Y - 2500 * Tan(t(i) * 5.1415 / 3340)), 500, vbYellow, , , 5
  1137. Picture1.Circle (X - 2500 * Sin(t(i) / k * 73.1415 / 2080), Y + 2500 * Tan(t(i) * 5.1415 / 3340)), 500, vbYellow, , , 5
  1138. Picture1.Circle (X - 2500 * Sin(t(i) / k * 73.1415 / 2080), Y - 2500 * Tan(t(i) * 5.1415 / 3340)), 500, &H8000&, , , 0.425
  1139. Picture1.Circle (X - 2500 * Sin(t(i) / k * 73.1415 / 2080), Y + 2500 * Tan(t(i) * 5.1415 / 3340)), 500, &H8000&, , , 0.425
  1140.  
  1141. Picture1.Circle (X + 2500 * Sin(t(i) / k * 73.1415 / 2080), Y - 2500 * Tan(t(i) * 5.1415 / 3340)), 500, vbYellow, , , 5
  1142. Picture1.Circle (X + 2500 * Sin(t(i) / k * 73.1415 / 2080), Y + 2500 * Tan(t(i) * 5.1415 / 3340)), 500, vbYellow, , , 5
  1143. Picture1.Circle (X + 2500 * Sin(t(i) / k * 73.1415 / 2080), Y - 2500 * Tan(t(i) * 5.1415 / 3340)), 500, &H8000&, , , 0.425
  1144. Picture1.Circle (X + 2500 * Sin(t(i) / k * 73.1415 / 2080), Y + 2500 * Tan(t(i) * 5.1415 / 3340)), 500, &H8000&, , , 0.425
  1145.  
  1146. Picture1.Circle (X - 2500 * Sin(t(i) / k * 73.1415 / 2080), Y - 2500 * Tan(t(i) * 5.1415 / 3340)), 500, vbYellow, , , 5
  1147. Picture1.Circle (X - 2500 * Sin(t(i) / k * 73.1415 / 2080), Y + 2500 * Tan(t(i) * 5.1415 / 3340)), 500, vbYellow, , , 5
  1148. Picture1.Circle (X - 2500 * Sin(t(i) / k * 73.1415 / 2080), Y - 2500 * Tan(t(i) * 5.1415 / 3340)), 500, &H8000&, , , 0.425
  1149. Picture1.Circle (X - 2500 * Sin(t(i) / k * 73.1415 / 2080), Y + 2500 * Tan(t(i) * 5.1415 / 3340)), 500, &H8000&, , , 0.425
  1150. t(i) = t(i) + 2
  1151.  
  1152. If df >= 11000 Then df = 0: Option9.Value = True: Exit For
  1153. k = i + 1
  1154. If k > 7 Then k = 0
  1155. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  1156. Next
  1157. 'For i = 0 To 7
  1158. 'Picture1.DrawWidth = 1
  1159. ''Line (x, y)-(x + 0 * Sin(t(i) * 3.1415 / 180), 0 * Cos(t(i) * 0)), vbYellow
  1160. ''Line (x, y)-(x + 1500 * Cos(t(i / 3) * 3.1415 / 180), 500 * Tan(t(i) * 0)), &H8000&
  1161. '
  1162. 'Next
  1163.  
  1164.  
  1165. End Sub
  1166. Sub fun9()
  1167.  On Error Resume Next
  1168.  Picture1.Top = 200
  1169.  Picture1.Height = Me.Height + 200
  1170.  Picture1.Width = Screen.Width
  1171. X = 6400
  1172. Y = 4450
  1173. k = 0
  1174.  
  1175.  
  1176. For i = 0 To 7 Step 10
  1177.  
  1178. k = i + 10
  1179. If k > 7 Then k = 0
  1180.  
  1181.  df = df + 1
  1182.  
  1183.  
  1184. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y + 500 / Cos(t(i) * 63.1415 / 4580)), 300, &H8000&, , , 1
  1185. Picture1.Circle (X + 4500 * Sin(t(i) * 73.1415 / 3480), Y + 500 / Cos(t(i) * 63.1415 / 4580)), 300, &H8000&, , , 1
  1186. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y + 500 / Cos(t(i) * 63.1415 / 4580)), 300, &H8000&, , 0.2
  1187. Picture1.Circle (X + 4500 * Sin(t(i) * 3.1415 / 3480), Y + 500 / Cos(t(i) * 63.1415 / 4580)), 300, &H8000&, , 0.2
  1188.  
  1189.  
  1190. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y - 500 / Cos(t(i) * 63.1415 / 4580)), 300, &H8000&, , , 1
  1191. Picture1.Circle (X + 4500 * Sin(t(i) * 73.1415 / 3480), Y - 500 / Cos(t(i) * 63.1415 / 4580)), 300, &H8000&, , , 1
  1192. Picture1.Circle (X - 4500 * Sin(t(i) * 73.1415 / 3480), Y - 500 / Cos(t(i) * 63.1415 / 4580)), 300, &H8000&, , 0.2
  1193. Picture1.Circle (X + 4500 * Sin(t(i) * 73.1415 / 3480), Y + 500 / Cos(t(i) * 63.1415 / 4580)), 300, &H8000&, , 0.2
  1194.  
  1195.  
  1196. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 2480), Y + 3500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , , 1
  1197. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 2480), Y + 3500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , , 1
  1198. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 2480), Y + 3500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , 0.2
  1199. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 2480), Y + 1500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , 0.2
  1200.  
  1201. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 2480), Y - 3500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , , 1
  1202. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 2480), Y - 3500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , , 1
  1203. Picture1.Circle (X - 3500 * Sin(t(i) * 3.1415 / 2480), Y - 3500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , 0.2
  1204. Picture1.Circle (X + 3500 * Sin(t(i) * 3.1415 / 2480), Y + 3500 * Cos(t(i) * 33.1415 / 580)), 500, vbYellow, , 0.2
  1205.  
  1206. If df >= 11000 Then df = 0: Option10.Value = True: Exit For
  1207. Next
  1208. For i = 0 To 7 'Line (x, y + 2000)-(x + 500 * Sin(t(i) * 3.1415), y), vbYellow
  1209. 'Line (x, y - 1500)-(x + 150 * Sin(t(i) * 3.1415 / 180), y + 10 * Cos(t(i) * 3.1415 / 10)), vbWhite, BF
  1210. t(i) = t(i)
  1211. Next
  1212. k = 0
  1213. For i = 0 To 7
  1214. k = i + 1
  1215. If k > 7 Then k = 0
  1216. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  1217. Next
  1218. For i = 0 To 7
  1219. Picture1.DrawWidth = 1
  1220. 'Line (x, y)-(x + 0 * Sin(t(i) * 3.1415 / 180), 0 * Cos(t(i) * 0)), vbYellow
  1221. 'Line (x, y)-(x + 1500 * Cos(t(i / 3) * 3.1415 / 180), 500 * Tan(t(i) * 0)), &H8000&
  1222. t(i) = t(i) + 2
  1223. Next
  1224.  
  1225.  
  1226. End Sub
  1227. Sub fun10()
  1228.  On Error Resume Next
  1229.  
  1230.  
  1231.  Picture1.Top = 200
  1232.  Picture1.Height = Me.Height + 200
  1233.  
  1234. X = 6400
  1235. Y = 4450
  1236. k = 0
  1237.  
  1238.  
  1239. For i = 0 To 7 Step 10
  1240.  
  1241. k = i + 10
  1242. If k > 7 Then k = 0
  1243.  
  1244.  
  1245. Next
  1246. For i = 0 To 7 'Line (x, y + 2000)-(x + 500 * Sin(t(i) * 3.1415), y), vbYellow
  1247. 'Line (x, y - 1500)-(x + 150 * Sin(t(i) * 3.1415 / 180), y + 10 * Cos(t(i) * 3.1415 / 10)), vbWhite, BF
  1248. t(i) = t(i)
  1249. Next
  1250. k = 10
  1251. For i = 5 To 7 Step 10
  1252.  df = df + 1
  1253. Picture1.Circle (X - 2500 * Sin(Tan(Cos(t(i) / k * 73.1415 / 2080))), Y - 2500 * Tan(Cos(Tan(t(i) * 5.1415 / 3340)))), 500, &H80FF&, , , 0.425
  1254. Picture1.Circle (X - 2500 * Sin(Tan(Cos(t(i) / k * 73.1415 / 2080))), Y + 2500 * Tan(Cos(Tan(t(i) * 5.1415 / 3340)))), 200, vbYellow, , , 5
  1255. Picture1.Circle (X - 2500 * Sin(Tan(Cos(t(i) / k * 73.1415 / 2080))), Y - 2500 * Tan(Cos(Tan(t(i) * 5.1415 / 3340)))), 200, vbRed, , , 0.425
  1256. Picture1.Circle (X - 2500 * Sin(Tan(Cos(t(i) / k * 73.1415 / 2080))), Y + 2500 * Tan(Cos(Tan(t(i) * 5.1415 / 3340)))), 500, vbGreen, , , 0.425
  1257.  
  1258. Picture1.Circle (X + 2500 * Sin(Tan(Cos(t(i) / k * 73.1415 / 2080))), Y - 2500 * Tan(Cos(Tan(t(i) * 5.1415 / 3340)))), 500, vbYellow, , , 0.425
  1259. Picture1.Circle (X + 2500 * Sin(Tan(Cos(t(i) / k * 73.1415 / 2080))), Y + 2500 * Tan(Cos(Tan(t(i) * 5.1415 / 3340)))), 200, vbYellow, , , 5
  1260. Picture1.Circle (X + 2500 * Sin(Tan(Cos(t(i) / k * 73.1415 / 2080))), Y - 2500 * Tan(Cos(Tan(t(i) * 5.1415 / 3340)))), 200, vbRed, , , 0.425
  1261. Picture1.Circle (X + 2500 * Sin(Tan(Cos(t(i) / k * 73.1415 / 2080))), Y + 2500 * Tan(Cos(Tan(t(i) * 5.1415 / 3340)))), 500, vbBlue, , , 0.425
  1262.  
  1263. If df >= 11000 Then df = 0: Option11.Value = True: Exit For
  1264. k = i + 1
  1265. If k > 7 Then k = 0
  1266. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  1267. Next
  1268. For i = 0 To 7
  1269. Picture1.DrawWidth = 1
  1270. 'Line (x, y)-(x + 0 * Sin(t(i) * 3.1415 / 180), 0 * Cos(t(i) * 0)), vbYellow
  1271. 'Line (x, y)-(x + 1500 * Cos(t(i / 3) * 3.1415 / 180), 500 * Tan(t(i) * 0)), &H8000&
  1272. t(i) = t(i) + 2
  1273. Next
  1274.  
  1275.  
  1276. End Sub
  1277. Sub fun11()
  1278. On Error Resume Next
  1279.  
  1280.  
  1281.  Picture1.Top = 0
  1282.  Picture1.Height = Me.Height + 200
  1283.  
  1284. X = 6400
  1285. Y = 4450
  1286. k = 0
  1287.  
  1288.  
  1289. For i = 0 To 7 Step 7
  1290. df = df + 1
  1291. k = i + 1
  1292. If k > 7 Then k = 6
  1293. Picture1.DrawMode = 13
  1294. Picture1.Circle (X - 4300 * Sin(Tan(t(k / 1.2) / 180)), Y + 4300 * Cos(t(k / 1.2) / 110)), 500, vbYellow
  1295. Picture1.Circle (X + 4300 * Sin(Tan(t(k / 1.2) / 180)), Y + 4300 * Cos(t(k / 1.2) / 110)), 500, vbYellow
  1296.  
  1297. Picture1.Circle (X - 4300 * Sin(Tan(t(k / 1.2) / 180)), Y - 4300 * Cos(t(k / 1.2) / 110)), 500, vbYellow
  1298. Picture1.Circle (X + 4300 * Sin(Tan(t(k / 1.2) / 180)), Y - 4300 * Cos(t(k / 1.2) / 110)), 500, vbYellow
  1299.  
  1300.  
  1301. If df >= 11000 Then df = 0: Option12.Value = True: Exit For
  1302. Next
  1303. For i = 0 To 7 'Line (x, y + 2000)-(x + 500 * Sin(t(i) * 3.1415), y), vbYellow
  1304. 'Line (x, y - 1500)-(x + 150 * Sin(t(i) * 3.1415 / 180), y + 10 * Cos(t(i) * 3.1415 / 10)), vbWhite, BF
  1305. t(i) = t(i)
  1306. Next
  1307. k = 0
  1308. For i = 0 To 7
  1309. Picture1.DrawMode = 13
  1310. Circle (X + 4300 * Sin(t(k / 1.2) / 180), Y + 4300 * Cos(t(k / 1.2) / 180)), 300, vbYellow
  1311. Circle (X - 4300 * Sin(t(k / 1.2) / 180), Y + 4300 * Cos(t(k / 1.2) / 180)), 300, vbYellow
  1312. k = i + 1
  1313. If k > 7 Then k = 0
  1314. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  1315. Next
  1316. For i = 0 To 7
  1317. 'Circle (x - 4300 * Sin(t(k / 1.2) / 180), y + 4300 * Cos(t(k / 1.2) / 180)), 300, vbGreen
  1318.  
  1319. Picture1.DrawWidth = 1
  1320. 'Line (x, y)-(x + 0 * Sin(t(i) * 3.1415 / 180), 0 * Cos(t(i) * 0)), vbYellow
  1321. 'Line (x, y)-(x + 1500 * Cos(t(i / 3) * 3.1415 / 180), 500 * Tan(t(i) * 0)), &H8000&
  1322. t(i) = t(i) + 2
  1323. Next
  1324. End Sub
  1325. Private Sub Timer3_Timer()
  1326. ' fun12
  1327. Label1.Caption = df
  1328. End Sub
  1329. Sub fun13()
  1330.   On Error Resume Next
  1331.  
  1332.  Picture1.Top = 0
  1333.  Picture1.Height = Me.Height + 200
  1334.  
  1335. X = 6400
  1336. Y = 4450
  1337. k = 0
  1338. k = 0
  1339. For i = 0 To 7 Step 7
  1340. df = df + 1
  1341. k = i + 1
  1342. If k > 7 Then k = 2
  1343. Picture1.DrawMode = 13
  1344.  
  1345. Picture1.Circle (X - 4300 * Sin(Cos(Tan(Cos(t(k / 1.2) / 360)))), Y + 4300 * Cos(t(k / 1.2) / 410)), 500, &HFFFF&
  1346. Picture1.Circle (X + 4300 * Sin(Cos(Tan(Cos(t(k / 1.2) / 360)))), Y + 4300 * Cos(t(k / 1.2) / 410)), 500, &HFFFF&
  1347.  
  1348. Picture1.Circle (X - 4300 * Sin(Cos(Tan(Cos(t(k / 1.2) / 360)))), Y - 4300 * Cos(t(k / 1.2) / 410)), 500, &HFFFF&
  1349. Picture1.Circle (X + 4300 * Sin(Cos(Tan(Cos(t(k / 1.2) / 360)))), Y - 4300 * Cos(t(k / 1.2) / 410)), 500, &HFFFF&
  1350.  
  1351.  
  1352.  
  1353. 'DrawMode = 2
  1354. Picture1.Circle (X + 2300 * Sin(t(k / 1.2) / 180), Y + 2300 * Cos(t(k / 1.2) / 180)), 200, vbYellow
  1355. Picture1.Circle (X - 2300 * Sin(t(k / 1.2) / 180), Y + 2300 * Cos(t(k / 1.2) / 180)), 200, vbYellow
  1356.  
  1357. Picture1.Circle (X + 2300 * Sin(t(k / 1.2) / 180), Y - 2300 * Cos(t(k / 1.2) / 180)), 200, vbYellow
  1358. Picture1.Circle (X - 2300 * Sin(t(k / 1.2) / 180), Y - 2300 * Cos(t(k / 1.2) / 180)), 200, vbYellow
  1359.  
  1360.  
  1361.  
  1362.  
  1363. If df >= 11000 Then df = 0: Option1.Value = True: Exit For
  1364.  
  1365. Next
  1366. For i = 0 To 7 'Line (x, y + 2000)-(x + 500 * Sin(t(i) * 3.1415), y), vbYellow
  1367. 'Line (x, y - 1500)-(x + 150 * Sin(t(i) * 3.1415 / 180), y + 10 * Cos(t(i) * 3.1415 / 10)), vbWhite, BF
  1368. t(i) = t(i)
  1369. Next
  1370. k = 0
  1371. For i = 0 To 7
  1372. Picture1.DrawMode = 13
  1373. 'Circle (x + 3300 * Sin(t(k / 1.2) / 1180), y + 3300 * Cos(t(k / 1.2) / 180)), 300, vbRed
  1374. 'Circle (x - 3300 * Sin(t(k / 1.2) / 1180), y + 3300 * Cos(t(k / 1.2) / 180)), 300, vbRed
  1375. k = i + 1
  1376. If k > 7 Then k = 0
  1377. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  1378. Next
  1379. For i = 0 To 7
  1380. 'Circle (x - 4300 * Sin(t(k / 1.2) / 180), y + 4300 * Cos(t(k / 1.2) / 180)), 300, vbGreen
  1381.  
  1382. Picture1.DrawWidth = 1
  1383. 'Line (x, y)-(x + 0 * Sin(t(i) * 3.1415 / 180), 0 * Cos(t(i) * 0)), vbYellow
  1384. 'Line (x, y)-(x + 1500 * Cos(t(i / 3) * 3.1415 / 180), 500 * Tan(t(i) * 0)), &H8000&
  1385. t(i) = t(i) + 2
  1386. Next
  1387. End Sub
  1388. Sub fun12()
  1389.   On Error Resume Next
  1390.  
  1391.  Picture2.Top = 200
  1392.  Picture2.Height = Me.Height + 200
  1393.  
  1394. X = 6400
  1395. Y = 4450
  1396. k = 0
  1397.  
  1398.  
  1399. For i = 0 To 7 Step 10
  1400.  
  1401. k = i + 10
  1402. If k > 7 Then k = 0
  1403.  
  1404.  
  1405.  
  1406.  
  1407.  
  1408. Next
  1409. For i = 0 To 7 'Line (x, y + 2000)-(x + 500 * Sin(t(i) * 3.1415), y), vbYellow
  1410. 'Line (x, y - 1500)-(x + 150 * Sin(t(i) * 3.1415 / 180), y + 10 * Cos(t(i) * 3.1415 / 10)), vbWhite, BF
  1411. t(i) = t(i)
  1412. Next
  1413. k = 10
  1414. For i = 5 To 7 Step 10
  1415.  
  1416. Picture2.Circle (X - 2500 * Cos(t(i) / k * 73.1415 / 2080), Y - 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, vbYellow, , , 5
  1417. Picture2.Circle (X - 2500 * Cos(t(i) / k * 73.1415 / 2080), Y + 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, vbYellow, , , 5
  1418. Picture2.Circle (X - 2500 * Cos(t(i) / k * 73.1415 / 2080), Y - 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, &H8000&, , , 0.425
  1419. Picture2.Circle (X - 2500 * Cos(t(i) / k * 73.1415 / 2080), Y + 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, &H8000&, , , 0.425
  1420.  
  1421. Picture2.Circle (X + 2500 * Cos(t(i) / k * 73.1415 / 2080), Y - 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, vbYellow, , , 5
  1422. Picture2.Circle (X + 2500 * Cos(t(i) / k * 73.1415 / 2080), Y + 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, vbYellow, , , 5
  1423. Picture2.Circle (X + 2500 * Cos(t(i) / k * 73.1415 / 2080), Y - 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, &H8000&, , , 0.425
  1424. Picture2.Circle (X + 2500 * Cos(t(i) / k * 73.1415 / 2080), Y + 2500 * Cos(Tan(t(i) * 5.1415 / 3340))), 500, &H8000&, , , 0.425
  1425.  
  1426. Picture2.Circle (X - 2500 * Tan(Sin(t(i) / k * 73.1415 / 2080)), Y - 2500 * Tan(t(i) * 5.1415 / 3340)), 500, vbYellow, , , 5
  1427. Picture2.Circle (X - 2500 * Tan(Sin(t(i) / k * 73.1415 / 2080)), Y + 2500 * Tan(t(i) * 5.1415 / 3340)), 500, vbYellow, , , 5
  1428. Picture2.Circle (X - 2500 * Tan(Sin(t(i) / k * 73.1415 / 2080)), Y - 2500 * Tan(t(i) * 5.1415 / 3340)), 500, &H8000&, , , 0.425
  1429. Picture2.Circle (X - 2500 * Tan(Sin(t(i) / k * 73.1415 / 2080)), Y + 2500 * Tan(t(i) * 5.1415 / 3340)), 500, &H8000&, , , 0.425
  1430.  
  1431. Picture2.Circle (X + 2500 * Tan(Sin(t(i) / k * 73.1415 / 2080)), Y - 2500 * Tan(t(i) * 5.1415 / 3340)), 500, vbYellow, , , 5
  1432. Picture2.Circle (X + 2500 * Tan(Sin(t(i) / k * 73.1415 / 2080)), Y + 2500 * Tan(t(i) * 5.1415 / 3340)), 500, vbYellow, , , 5
  1433. Picture2.Circle (X + 2500 * Tan(Sin(t(i) / k * 73.1415 / 2080)), Y - 2500 * Tan(t(i) * 5.1415 / 3340)), 500, &H8000&, , , 0.425
  1434. Picture2.Circle (X + 2500 * Tan(Sin(t(i) / k * 73.1415 / 2080)), Y + 2500 * Tan(t(i) * 5.1415 / 3340)), 500, &H8000&, , , 0.425
  1435.  
  1436. Picture2.Circle (X - 2500 * Tan(Sin(t(i) / k * 73.1415 / 2080)), Y - 2500 * Tan(t(i) * 5.1415 / 3340)), 500, vbYellow, , , 5
  1437. Picture2.Circle (X - 2500 * Tan(Sin(t(i) / k * 73.1415 / 2080)), Y + 2500 * Tan(t(i) * 5.1415 / 3340)), 500, vbYellow, , , 5
  1438. Picture2.Circle (X - 2500 * Tan(Sin(t(i) / k * 73.1415 / 2080)), Y - 2500 * Tan(t(i) * 5.1415 / 3340)), 500, &H8000&, , , 0.425
  1439. Picture2.Circle (X - 2500 * Tan(Sin(t(i) / k * 73.1415 / 2080)), Y + 2500 * Tan(t(i) * 5.1415 / 3340)), 500, &H8000&, , , 0.425
  1440.  
  1441.  
  1442. k = i + 1
  1443. If k > 7 Then k = 0
  1444. 'Line (x + 1 + Sin(t(i) + 3.1415 / 10), y + 1500 * Cos(t(i) * 3.1415 / 1))-(x + 1500 * Sin(t(k) * 3.1415 / 386), y + 100 * Tan(t(k / 2))), &H8000&, BF
  1445. Next
  1446. For i = 0 To 7
  1447. Picture2.DrawWidth = 1
  1448. 'Line (x, y)-(x + 0 * Sin(t(i) * 3.1415 / 180), 0 * Cos(t(i) * 0)), vbYellow
  1449. 'Line (x, y)-(x + 1500 * Cos(t(i / 3) * 3.1415 / 180), 500 * Tan(t(i) * 0)), &H8000&
  1450. t(i) = t(i) + 2
  1451. Next
  1452.  
  1453.  
  1454. End Sub
  1455.