Безкінечний круг
Безкінечний круг
Embedded Files
VERSION 5.00
Begin VB.Form Form1
Caption = "Заставка"
ClientHeight = 2070
ClientLeft = 120
ClientTop = 465
ClientWidth = 3720
LinkTopic = "Form1"
ScaleHeight = 2070
ScaleWidth = 3720
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
Caption = "Старт"
Height = 495
Left = 1080
TabIndex = 0
Top = 600
Width = 1575
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()
Form1.BackColor = QBColor(15)
Command1.Visible = False
Form1.WindowState = 2
10
c = c + 1
Circle (14000, 7800), c, QBColor(1)
GoTo 10
End Sub
Безкінечний круг з вибором кольору
Безкінечний круг з вибором кольору
VERSION 5.00
Begin VB.Form Form1
Caption = "Заставка"
ClientHeight = 2070
ClientLeft = 120
ClientTop = 465
ClientWidth = 3720
LinkTopic = "Form1"
ScaleHeight = 2070
ScaleWidth = 3720
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Height = 285
Left = 1800
TabIndex = 1
Top = 1410
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Старт"
Height = 495
Left = 1080
TabIndex = 0
Top = 600
Width = 1575
End
Begin VB.Label Label1
Caption = "№ кольору (1-15) = "
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 1455
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()
Form1.BackColor = QBColor(15)
Command1.Visible = False
Label1.Visible = False
Text1.Visible = False
Form1.WindowState = 2
col = Text1.Text
10
c = c + 1
Circle (14000, 7800), c, QBColor(col)
GoTo 10
End Sub
Безкінечний круг з вибором кольору - різного
Безкінечний круг з вибором кольору - різного
VERSION 5.00
Begin VB.Form Form1
Caption = "Заставка"
ClientHeight = 2070
ClientLeft = 120
ClientTop = 465
ClientWidth = 3720
LinkTopic = "Form1"
ScaleHeight = 2070
ScaleWidth = 3720
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Height = 285
Left = 1800
TabIndex = 1
Top = 1410
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Старт"
Height = 495
Left = 1080
TabIndex = 0
Top = 600
Width = 1575
End
Begin VB.Label Label1
Caption = "№ кольору (1-15) = "
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 1455
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()
Form1.BackColor = QBColor(15)
Command1.Visible = False
Label1.Visible = False
Text1.Visible = False
Form1.WindowState = 2
col = Text1.Text
10
If col > 14 Then col = 1 Else col = col + 1
c = c + 1
Circle (14000, 7800), c, QBColor(col)
GoTo 10
End Sub
Безкінечний круг з вибором кольору - різного (фіксований)
Безкінечний круг з вибором кольору - різного (фіксований)
VERSION 5.00
Begin VB.Form Form1
Caption = "Заставка"
ClientHeight = 2070
ClientLeft = 120
ClientTop = 465
ClientWidth = 3720
LinkTopic = "Form1"
ScaleHeight = 2070
ScaleWidth = 3720
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Height = 285
Left = 1800
TabIndex = 1
Top = 1410
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Старт"
Height = 495
Left = 1080
TabIndex = 0
Top = 600
Width = 1575
End
Begin VB.Label Label1
Caption = "№ кольору (1-15) = "
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 1455
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()
Form1.BackColor = QBColor(15)
Command1.Visible = False
Label1.Visible = False
Text1.Visible = False
Form1.WindowState = 2
col = Text1.Text
c = 3
dr = 1
10
If col > 14 Then col = 1 Else col = col + 1
c = c + dr
If c > 7000 Then dr = dr * -1
If c < 2 Then dr = dr * -1
Circle (14000, 7800), c, QBColor(col)
GoTo 10
End Sub
Безкінечний круг з вибором кольору - різного (фіксований) (чорний фон)
Безкінечний круг з вибором кольору - різного (фіксований) (чорний фон)
VERSION 5.00
Begin VB.Form Form1
Caption = "Заставка"
ClientHeight = 2070
ClientLeft = 120
ClientTop = 465
ClientWidth = 3720
LinkTopic = "Form1"
ScaleHeight = 2070
ScaleWidth = 3720
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Height = 285
Left = 1800
TabIndex = 1
Top = 1410
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Старт"
Height = 495
Left = 1080
TabIndex = 0
Top = 600
Width = 1575
End
Begin VB.Label Label1
Caption = "№ кольору (1-15) = "
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 1455
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()
Form1.BackColor = QBColor(15)
Command1.Visible = False
Label1.Visible = False
Text1.Visible = False
Form1.WindowState = 2
col = Text1.Text
c = 3
dr = 1
10
Form1.BackColor = QBColor(0)
If col > 14 Then col = 1 Else col = col + 1
c = c + dr
If c > 7000 Then dr = dr * -1
If c < 2 Then dr = dr * -1
Circle (14000, 7800), c, QBColor(col)
GoTo 10
End Sub
Безкінечний круг з вибором кольору - різного (фіксований) (потім чорний закриває)
Безкінечний круг з вибором кольору - різного (фіксований) (потім чорний закриває)
VERSION 5.00
Begin VB.Form Form1
Caption = "Заставка"
ClientHeight = 2070
ClientLeft = 120
ClientTop = 465
ClientWidth = 3720
LinkTopic = "Form1"
ScaleHeight = 2070
ScaleWidth = 3720
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Height = 285
Left = 1800
TabIndex = 1
Top = 1410
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Старт"
Height = 495
Left = 1080
TabIndex = 0
Top = 600
Width = 1575
End
Begin VB.Label Label1
Caption = "№ кольору (1-15) = "
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 1455
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()
Form1.BackColor = QBColor(15)
Command1.Visible = False
Label1.Visible = False
Text1.Visible = False
Form1.WindowState = 2
col = Text1.Text
c = 3
dr = 1
10
Form1.BackColor = QBColor(0)
If col > 14 Then col = 1 Else col = col + 1
c = c + dr
If c > 7000 Then dr = dr * -1
If c < 2 Then dr = dr * -1
Circle (14000, 7800), c, QBColor(col)
Circle (14000, 7800), c, QBColor(0)
GoTo 10
End Sub
Система координат
Система координат
VERSION 5.00
Begin VB.Form Form1
Caption = "Заставка"
ClientHeight = 2070
ClientLeft = 120
ClientTop = 465
ClientWidth = 3720
LinkTopic = "Form1"
ScaleHeight = 2070
ScaleWidth = 3720
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Height = 285
Left = 1800
TabIndex = 1
Top = 1410
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Старт"
Height = 495
Left = 1080
TabIndex = 0
Top = 600
Width = 1575
End
Begin VB.Label Label1
Caption = "№ кольору (1-15) = "
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 1455
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()
Form1.BackColor = QBColor(15)
Command1.Visible = False
Label1.Visible = False
Text1.Visible = False
Form1.WindowState = 2
col = Text1.Text
c = 3
dr = 1
x = 3
y = 3
10
Form1.BackColor = QBColor(0)
x = x + 1
y = y + 1
If col > 14 Then col = 1 Else col = col + 1
c = c + dr
If c > 7000 Then dr = dr * -1
If c < 2 Then dr = dr * -1
Circle (x, y), c, QBColor(col)
GoTo 10
End Sub
Система координат (з відбиттям)
Система координат (з відбиттям)
VERSION 5.00
Begin VB.Form Form1
Caption = "Заставка"
ClientHeight = 2070
ClientLeft = 120
ClientTop = 465
ClientWidth = 3720
LinkTopic = "Form1"
ScaleHeight = 2070
ScaleWidth = 3720
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Height = 285
Left = 1800
TabIndex = 1
Top = 1410
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Старт"
Height = 495
Left = 1080
TabIndex = 0
Top = 600
Width = 1575
End
Begin VB.Label Label1
Caption = "№ кольору (1-15) = "
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 1455
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()
Form1.BackColor = QBColor(15)
Command1.Visible = False
Label1.Visible = False
Text1.Visible = False
Form1.WindowState = 2
col = Text1.Text
c = 3
dr = 1
x = 3
y = 3
xd = 1
yd = 1
10
Form1.BackColor = QBColor(0)
x = x + xd
y = y + yd
If x > 29000 Then xd = xd * -1
If x < 2 Then xd = xd * -1
If y > 16000 Then yd = yd * -1
If y < 2 Then yd = yd * -1
If col > 14 Then col = 1 Else col = col + 1
c = c + dr
If c > 7000 Then dr = dr * -1
If c < 2 Then dr = dr * -1
Circle (x, y), c, QBColor(col)
GoTo 10
End Sub
Система координат (з відбиттям і прив'язкою до кольору)
Система координат (з відбиттям і прив'язкою до кольору)
VERSION 5.00
Begin VB.Form Form1
Caption = "Заставка"
ClientHeight = 2070
ClientLeft = 120
ClientTop = 465
ClientWidth = 3720
LinkTopic = "Form1"
ScaleHeight = 2070
ScaleWidth = 3720
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Height = 285
Left = 1800
TabIndex = 1
Top = 1410
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Старт"
Height = 495
Left = 1080
TabIndex = 0
Top = 600
Width = 1575
End
Begin VB.Label Label1
Caption = "№ кольору (1-15) = "
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 1455
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()
Form1.BackColor = QBColor(15)
Command1.Visible = False
Label1.Visible = False
Text1.Visible = False
Form1.WindowState = 2
col = Text1.Text
c = 3
dr = 1
x = 3
y = 3
xd = 1
yd = 1
10
Form1.BackColor = QBColor(0)
x = x + xd
y = y + yd
If x > 29000 Then xd = xd * -1
If x < 2 Then xd = xd * -1
If y > 16000 Then yd = yd * -1
If y < 2 Then yd = yd * -1
If dr = 1 Then col = col + 1
If col > 14 Then col = 1 Else col = col + 1
c = c + dr
If c > 7000 Then dr = dr * -1
If c < 2 Then dr = dr * -1
Circle (x, y), c, QBColor(col)
GoTo 10
End Sub
Система координат (з відбиттям і прив'язкою до кольору)() (потім чорний закриває)
Система координат (з відбиттям і прив'язкою до кольору)() (потім чорний закриває)
VERSION 5.00
Begin VB.Form Form1
Caption = "Заставка"
ClientHeight = 2070
ClientLeft = 120
ClientTop = 465
ClientWidth = 3720
LinkTopic = "Form1"
ScaleHeight = 2070
ScaleWidth = 3720
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Height = 285
Left = 1800
TabIndex = 1
Top = 1410
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Старт"
Height = 495
Left = 1080
TabIndex = 0
Top = 600
Width = 1575
End
Begin VB.Label Label1
Caption = "№ кольору (1-15) = "
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 1455
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()
Form1.BackColor = QBColor(15)
Command1.Visible = False
Label1.Visible = False
Text1.Visible = False
Form1.WindowState = 2
col = Text1.Text
c = 3
dr = 1
x = 3
y = 3
xd = 1
yd = 1
10
Form1.BackColor = QBColor(0)
x = x + xd
y = y + yd
If x > 29000 Then xd = xd * -1
If x < 2 Then xd = xd * -1
If y > 16000 Then yd = yd * -1
If y < 2 Then yd = yd * -1
If col > 14 Then col = 1 Else col = col + 1
c = c + dr
If c > 7000 Then dr = dr * -1
If c < 2 Then dr = dr * -1
Circle (x, y), c, QBColor(col)
Circle (x, y), c, QBColor(0)
GoTo 10
End Sub
Фінальна заставка
Фінальна заставка
VERSION 5.00
Begin VB.Form Form1
Caption = "Заставка"
ClientHeight = 2070
ClientLeft = 120
ClientTop = 465
ClientWidth = 3720
LinkTopic = "Form1"
ScaleHeight = 2070
ScaleWidth = 3720
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
Height = 285
Left = 1800
TabIndex = 1
Top = 1410
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Старт"
Height = 495
Left = 1080
TabIndex = 0
Top = 600
Width = 1575
End
Begin VB.Label Label1
Caption = "№ кольору (1-15) = "
Height = 255
Left = 240
TabIndex = 2
Top = 1440
Width = 1455
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()
Form1.BackColor = QBColor(15)
Command1.Visible = False
Label1.Visible = False
Text1.Visible = False
Form1.WindowState = 2
col = Text1.Text
c = 3
dr = 1
x = 3
y = 3
xd = 1
yd = 1
10
Form1.BackColor = QBColor(0)
x = x + xd
y = y + yd
If x > 29000 Then xd = xd * -1
If x < 2 Then xd = xd * -1
If y > 16000 Then yd = yd * -1
If y < 2 Then yd = yd * -1
If dr = 1 Then col = col + 1
If col > 14 Then col = 1 Else col = col + 1
c = c + dr
If c > 7000 Then dr = dr * -1
If c < 2 Then dr = dr * -1
Circle (x, y), c, QBColor(col)
Line (14000, 7800)-(x, y)
GoTo 10
End Sub
Page updated
Google Sites
Report abuse