by DiskJunky (16 Submissions)
Category: Math/Dates
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 14th December 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
put this entire code into a .frm ans save it. Add to a project. This form calculates vaious (really cool) graphics with lots and lots of dots.
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Plotting Points"
ClientHeight = 8595
ClientLeft = 270
ClientTop = 1230
ClientWidth = 11880
Icon = "PlotPoints.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8595
ScaleWidth = 11880
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin VB.CommandButton Command8
Caption = "Random Dots 6"
Height = 375
Left = 7920
TabIndex = 12
Top = 7800
Width = 1335
End
Begin VB.CommandButton Command7
Caption = "Random Dots 5"
Height = 375
Left = 6360
TabIndex = 11
Top = 7800
Width = 1335
End
Begin VB.CommandButton Command6
Caption = "Random Dots 4"
Height = 375
Left = 4680
TabIndex = 10
Top = 7800
Width = 1455
End
Begin VB.CommandButton Command5
Caption = "Random dots 3"
Height = 375
Left = 3120
TabIndex = 9
Top = 7800
Width = 1335
End
Begin VB.CommandButton Command4
Caption = "Random dots 2"
Height = 375
Left = 1560
TabIndex = 8
Top = 7800
Width = 1335
End
Begin VB.Timer TimerDiagonal
Enabled = 0 'False
Interval = 30
Left = 480
Top = 6960
End
Begin VB.Timer TimerZ
Enabled = 0 'False
Interval = 30
Left = 480
Top = 5880
End
Begin VB.CommandButton Command3
Caption = "Random dots 1"
Height = 375
Left = 0
TabIndex = 2
Top = 7800
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "Diagonal Ellipse"
Height = 375
Left = 0
TabIndex = 1
Top = 6720
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "Plot Z axis"
Height = 375
Left = 0
TabIndex = 0
Top = 5640
Width = 1335
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Height = 255
Left = 9720
TabIndex = 7
Top = 5400
Width = 1455
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Angle = "
Height = 255
Left = 9120
TabIndex = 6
Top = 5400
Width = 615
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = $"PlotPoints.frx":030A
Height = 255
Left = 0
TabIndex = 5
Top = 7560
Width = 11895
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = $"PlotPoints.frx":03B5
Height = 255
Left = 0
TabIndex = 4
Top = 6480
Width = 11175
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Pset(1500+cos(angle *3.14 /180) *2000,1500+cos(angle *3.14 /180) *2000)"
Height = 255
Left = 0
TabIndex = 3
Top = 5400
Width = 5655
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Cls
TimerZ.Enabled = True
End Sub
Private Sub Command2_Click()
Cls
TimerDiagonal.Enabled = True
End Sub
Private Sub Command3_Click()
Dim Angle As Variant
Dim pause As Variant
Static MoveCentre As Variant
Cls
Label3.Caption = "PSet (6000 + Tan((Angle / 3) * 3.14 / 180) * 1500 + Sin(Angle * 3.14 / 180) * 1500, 3500 + Cos((Angle / 3) * 3.14 / 180) * 1500 + Cos((Angle ^ 2) * 3.14 / 180) * 1500)"
Label3.Refresh
For Angle = 1 To 200000
MoveCentre = 4500 + Cos((Angle / 5) * 3.14 / 180) * 1500
'PSet (MoveCentre + Cos(Angle * 3.14 / 180) * 1500, MoveCentre + Cos((Angle ^ 2) * 3.14 / 180) * 1500)
PSet (6000 + Tan((Angle / 3) * 3.14 / 180) * 1500 + Sin(Angle * 3.14 / 180) * 1500, 3500 + Cos((Angle / 3) * 3.14 / 180) * 1500 + Cos((Angle ^ 2) * 3.14 / 180) * 1500)
'PSet (1500 + Cos(Angle * 3.14 / 180) * 800, 1500 + Cos((Angle ^ 2) * 3.14 / 180) * 800)
Next Angle
Label5.Caption = Angle
End Sub
Private Sub Command4_Click()
Dim Angle As Variant
Dim pause As Variant
Static MoveCentre As Variant
Cls
Label3.Caption = "PSet ((4500 + Cos((Angle / 5) * 3.14 / 180) * 1500) + Cos(Angle * 3.14 / 180) * 1500, (4500 + Cos((Angle / 5) * 3.14 / 180) * 1500) + Cos((Angle ^ 2) * 3.14 / 180) * 1500)"
Label3.Refresh
For Angle = 1 To 200000
MoveCentre = (4500 + Cos((Angle / 5) * 3.14 / 180) * 1500)
PSet (MoveCentre + Cos(Angle * 3.14 / 180) * 1500, MoveCentre + Cos((Angle ^ 2) * 3.14 / 180) * 1500)
'PSet (6000 + Tan((Angle / 3) * 3.14 / 180) * 1500 + Sin(Angle * 3.14 / 180) * 1500, 3500 + Cos((Angle / 3) * 3.14 / 180) * 1500 + Cos((Angle ^ 2) * 3.14 / 180) * 1500)
'PSet (1500 + Cos(Angle * 3.14 / 180) * 800, 1500 + Cos((Angle ^ 2) * 3.14 / 180) * 800)
Next Angle
Label5.Caption = Angle
End Sub
Private Sub Command5_Click()
Dim Angle As Variant
Dim pause As Variant
Static MoveCentre As Variant
Cls
Label3.Caption = "PSet (1500 + Cos(Angle * 3.14 / 180) * 800, 1500 + Cos((Angle ^ 2) * 3.14 / 180) * 800)"
Label3.Refresh
For Angle = 1 To 200000
MoveCentre = 4500 + Cos((Angle / 5) * 3.14 / 180) * 1500
'PSet (MoveCentre + Cos(Angle * 3.14 / 180) * 1500, MoveCentre + Cos((Angle ^ 2) * 3.14 / 180) * 1500)
'PSet (6000 + Tan((Angle / 3) * 3.14 / 180) * 1500 + Sin(Angle * 3.14 / 180) * 1500, 3500 + Cos((Angle / 3) * 3.14 / 180) * 1500 + Cos((Angle ^ 2) * 3.14 / 180) * 1500)
PSet (1500 + Cos(Angle * 3.14 / 180) * 800, 1500 + Cos((Angle ^ 2) * 3.14 / 180) * 800)
Next Angle
Label5.Caption = Angle
End Sub
Private Sub Command6_Click()
Dim Angle As Variant
Dim pause As Variant
Static MoveCentre As Variant
Cls
Label3.Caption = "PSet (6000 + Tan((Angle / 3) * 3.14 / 180) * 1500 + Tan((Angle ^ 2) * 3.14 / 180) * 1500, 3500 + Cos((Angle / 3) * 3.14 / 180) * 1500 + Sin((Angle ^ 2) * 3.14 / 180) * 1500)"
Label3.Refresh
For Angle = 1 To 200000
MoveCentre = 4500 + Cos((Angle / 5) * 3.14 / 180) * 1500
'PSet (MoveCentre + Cos(Angle * 3.14 / 180) * 1500, MoveCentre + Cos((Angle ^ 2) * 3.14 / 180) * 1500)
PSet (6000 + Tan((Angle / 3) * 3.14 / 180) * 1500 + Tan((Angle ^ 2) * 3.14 / 180) * 1500, 3500 + Cos((Angle / 3) * 3.14 / 180) * 1500 + Sin((Angle ^ 2) * 3.14 / 180) * 1500)
'PSet (1500 + Cos(Angle * 3.14 / 180) * 800, 1500 + Cos((Angle ^ 2) * 3.14 / 180) * 800)
Next Angle
Label5.Caption = Angle
End Sub
Private Sub Command7_Click()
Dim Angle As Variant
Dim pause As Variant
Static MoveCentre As Variant
Cls
Label3.Caption = "PSet (6000 + Tan((Angle / 3) * 3.14 / 180) * 1500 + Tan((Angle ^ 2) * 3.14 / 180) * 1500, 3500 + Cos((Angle / 3) * 3.14 / 180) * 1500 + Sin((Angle ^ 2) * 3.14 / 180) * 1500)"
Label3.Refresh
For Angle = 1 To 200000
MoveCentre = 4500 + Cos((Angle / 5) * 3.14 / 180) * 1500
'PSet (MoveCentre + Cos(Angle * 3.14 / 180) * 1500, MoveCentre + Cos((Angle ^ 2) * 3.14 / 180) * 1500)
PSet (6000 + Sin((Angle / 3) * 3.14 / 180) * 1500 + Sin(Angle * 3.14 / 180) * 1500, 3500 + Sin((Angle / 3) * 3.14 / 180) * 1500 + Sin((Angle ^ 2) * 3.14 / 180) * 1500)
'PSet (1500 + Cos(Angle * 3.14 / 180) * 800, 1500 + Cos((Angle ^ 2) * 3.14 / 180) * 800)
Next Angle
Label5.Caption = Angle
End Sub
Private Sub Command8_Click()
Dim Angle As Variant
Dim pause As Variant
Static MoveCentre As Variant
Cls
Label3.Caption = "PSet (6000 + Sin((Angle / 5) * 3.14 / 180) * 1500 + Sin((Angle ^ 2) * 3.14 / 180) * 1500, 3500 + Sin((Angle / 5) * 3.14 / 180) * 1500 + Tan((Angle ^ 2) * 3.14 / 180) * 1500)"
Label3.Refresh
For Angle = 1 To 200000
MoveCentre = 4500 + Cos((Angle / 5) * 3.14 / 180) * 1500
'PSet (MoveCentre + Cos(Angle * 3.14 / 180) * 1500, MoveCentre + Cos((Angle ^ 2) * 3.14 / 180) * 1500)
PSet (6000 + Sin((Angle / 5) * 3.14 / 180) * 1500 + Sin((Angle ^ 2) * 3.14 / 180) * 1500, 3500 + Sin((Angle / 5) * 3.14 / 180) * 1500 + Tan((Angle ^ 2) * 3.14 / 180) * 1500)
'PSet (1500 + Cos(Angle * 3.14 / 180) * 800, 1500 + Cos((Angle ^ 2) * 3.14 / 180) * 800)
Next Angle
Label5.Caption = Angle
End Sub
Private Sub TimerDiagonal_Timer()
Static Angle As Integer
Static MoveCentre As Variant
If Angle >= 360 Then
Label5.Caption = Angle
Angle = 0
TimerDiagonal.Enabled = False
End If
Label5.Caption = Angle
MoveCentre = 1500 + Cos(Angle * 3.14 / 180) * 800
PSet ((MoveCentre + 300) + Cos(Angle * 3.14 / 180) * 800, MoveCentre + Sin(Angle * 3.14 / 180) * 1000)
Angle = Angle + 2
End Sub
Private Sub TimerZ_Timer()
Static AngleZ As Integer
If AngleZ >= 360 Then
Label5.Caption = Angle
AngleZ = 0
TimerZ.Enabled = False
End If
Label5.Caption = AngleZ
Label5.Refresh
PSet (1500 + Cos(AngleZ * 3.14 / 180) * 1000, 1500 + Cos(AngleZ * 3.14 / 180) * 1000)
AngleZ = AngleZ + 2
End Sub
No comments have been posted about put this entire code into a .frm ans save it. Add to a project. This form calculates vaious (really. Why not be the first to post a comment about put this entire code into a .frm ans save it. Add to a project. This form calculates vaious (really.