VERSION 5.00
Begin VB.Form Form2 
   BackColor       =   &H00000000&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Редактор массивов"
   ClientHeight    =   4125
   ClientLeft      =   45
   ClientTop       =   570
   ClientWidth     =   4710
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "Form2.frx":000C
   ScaleHeight     =   4125
   ScaleWidth      =   4710
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command4 
      BackColor       =   &H00808080&
      Caption         =   "Готово"
      Height          =   255
      Left            =   2880
      Style           =   1  'Graphical
      TabIndex        =   7
      ToolTipText     =   "Перейти на основное окно"
      Top             =   600
      Width           =   1215
   End
   Begin VB.Timer Timer1 
      Left            =   360
      Top             =   2400
   End
   Begin VB.Timer Timer2 
      Interval        =   1000
      Left            =   720
      Top             =   1800
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H00000000&
      Height          =   480
      Left            =   4080
      Picture         =   "Form2.frx":0316
      Style           =   1  'Graphical
      TabIndex        =   6
      ToolTipText     =   "Сохранить/загрузить готовый массив"
      Top             =   120
      Width           =   615
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00808080&
      Caption         =   "RND"
      Height          =   210
      Left            =   0
      Style           =   1  'Graphical
      TabIndex        =   5
      ToolTipText     =   "Случайный порядок массива"
      Top             =   390
      Width           =   750
   End
   Begin VB.VScrollBar VScroll1 
      Height          =   270
      Left            =   615
      Max             =   10
      Min             =   2
      TabIndex        =   4
      Top             =   120
      Value           =   8
      Width           =   135
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00808080&
      Caption         =   "RND"
      Height          =   210
      Left            =   840
      Style           =   1  'Graphical
      TabIndex        =   3
      ToolTipText     =   "Случайное содержимое массива"
      Top             =   390
      Width           =   3255
   End
   Begin VB.TextBox Text2 
      Alignment       =   1  'Right Justify
      Height          =   285
      Left            =   0
      Locked          =   -1  'True
      TabIndex        =   2
      Text            =   "4"
      ToolTipText     =   "Порядок массива"
      Top             =   120
      Width           =   615
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   840
      TabIndex        =   0
      ToolTipText     =   "Содержимое массива"
      Top             =   120
      Width           =   3255
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Массив"
      ForeColor       =   &H00FFFF00&
      Height          =   195
      Left            =   2040
      TabIndex        =   1
      ToolTipText     =   "Система уравнений"
      Top             =   720
      Width           =   615
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   10
      Index           =   0
      Visible         =   0   'False
      X1              =   120
      X2              =   135
      Y1              =   3960
      Y2              =   3960
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   9
      Index           =   1
      Visible         =   0   'False
      X1              =   240
      X2              =   255
      Y1              =   3840
      Y2              =   3840
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   9
      Index           =   2
      Visible         =   0   'False
      X1              =   360
      X2              =   375
      Y1              =   3720
      Y2              =   3720
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   8
      Index           =   3
      Visible         =   0   'False
      X1              =   480
      X2              =   495
      Y1              =   3600
      Y2              =   3600
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   8
      Index           =   4
      Visible         =   0   'False
      X1              =   600
      X2              =   615
      Y1              =   3480
      Y2              =   3480
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   7
      Index           =   5
      Visible         =   0   'False
      X1              =   720
      X2              =   735
      Y1              =   3360
      Y2              =   3360
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   7
      Index           =   6
      Visible         =   0   'False
      X1              =   840
      X2              =   855
      Y1              =   3240
      Y2              =   3240
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   6
      Index           =   7
      Visible         =   0   'False
      X1              =   960
      X2              =   975
      Y1              =   3120
      Y2              =   3120
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   6
      Index           =   8
      Visible         =   0   'False
      X1              =   1080
      X2              =   1095
      Y1              =   3000
      Y2              =   3000
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   5
      Index           =   9
      Visible         =   0   'False
      X1              =   1200
      X2              =   1215
      Y1              =   2880
      Y2              =   2880
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   5
      Index           =   10
      Visible         =   0   'False
      X1              =   1320
      X2              =   1335
      Y1              =   2760
      Y2              =   2760
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   4
      Index           =   11
      Visible         =   0   'False
      X1              =   1440
      X2              =   1455
      Y1              =   2640
      Y2              =   2640
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   4
      Index           =   12
      Visible         =   0   'False
      X1              =   1560
      X2              =   1575
      Y1              =   2520
      Y2              =   2520
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   3
      Index           =   13
      Visible         =   0   'False
      X1              =   1680
      X2              =   1695
      Y1              =   2400
      Y2              =   2400
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   3
      Index           =   14
      Visible         =   0   'False
      X1              =   1800
      X2              =   1815
      Y1              =   2280
      Y2              =   2280
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   2
      Index           =   15
      Visible         =   0   'False
      X1              =   1920
      X2              =   1935
      Y1              =   2160
      Y2              =   2160
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   2
      Index           =   16
      Visible         =   0   'False
      X1              =   2040
      X2              =   2055
      Y1              =   2040
      Y2              =   2040
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      Index           =   17
      Visible         =   0   'False
      X1              =   2160
      X2              =   2175
      Y1              =   1920
      Y2              =   1920
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      Index           =   18
      Visible         =   0   'False
      X1              =   2295
      X2              =   2235
      Y1              =   1800
      Y2              =   1800
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   10
      Index           =   19
      Visible         =   0   'False
      X1              =   4560
      X2              =   4575
      Y1              =   3960
      Y2              =   3960
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   9
      Index           =   20
      Visible         =   0   'False
      X1              =   4440
      X2              =   4455
      Y1              =   3840
      Y2              =   3840
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   9
      Index           =   21
      Visible         =   0   'False
      X1              =   4320
      X2              =   4335
      Y1              =   3720
      Y2              =   3720
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   8
      Index           =   22
      Visible         =   0   'False
      X1              =   4200
      X2              =   4215
      Y1              =   3600
      Y2              =   3600
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   8
      Index           =   23
      Visible         =   0   'False
      X1              =   4080
      X2              =   4095
      Y1              =   3480
      Y2              =   3480
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   7
      Index           =   24
      Visible         =   0   'False
      X1              =   3960
      X2              =   3975
      Y1              =   3360
      Y2              =   3360
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   7
      Index           =   25
      Visible         =   0   'False
      X1              =   3840
      X2              =   3855
      Y1              =   3240
      Y2              =   3240
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   6
      Index           =   26
      Visible         =   0   'False
      X1              =   3720
      X2              =   3735
      Y1              =   3120
      Y2              =   3120
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   6
      Index           =   27
      Visible         =   0   'False
      X1              =   3600
      X2              =   3615
      Y1              =   3000
      Y2              =   3000
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   5
      Index           =   28
      Visible         =   0   'False
      X1              =   3480
      X2              =   3495
      Y1              =   2880
      Y2              =   2880
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   5
      Index           =   29
      Visible         =   0   'False
      X1              =   3360
      X2              =   3375
      Y1              =   2760
      Y2              =   2760
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   4
      Index           =   30
      Visible         =   0   'False
      X1              =   3240
      X2              =   3255
      Y1              =   2640
      Y2              =   2640
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   4
      Index           =   31
      Visible         =   0   'False
      X1              =   3120
      X2              =   3135
      Y1              =   2520
      Y2              =   2520
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   3
      Index           =   32
      Visible         =   0   'False
      X1              =   3000
      X2              =   3015
      Y1              =   2400
      Y2              =   2400
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   3
      Index           =   33
      Visible         =   0   'False
      X1              =   2880
      X2              =   2895
      Y1              =   2280
      Y2              =   2280
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   2
      Index           =   34
      Visible         =   0   'False
      X1              =   2760
      X2              =   2775
      Y1              =   2160
      Y2              =   2160
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      BorderWidth     =   2
      Index           =   35
      Visible         =   0   'False
      X1              =   2640
      X2              =   2655
      Y1              =   2040
      Y2              =   2040
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      Index           =   36
      Visible         =   0   'False
      X1              =   2520
      X2              =   2535
      Y1              =   1920
      Y2              =   1920
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      Index           =   37
      Visible         =   0   'False
      X1              =   2400
      X2              =   2460
      Y1              =   1800
      Y2              =   1800
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00400040&
      X1              =   0
      X2              =   4680
      Y1              =   1560
      Y2              =   1560
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000000C0&
      BorderWidth     =   4
      Index           =   38
      Visible         =   0   'False
      X1              =   2460
      X2              =   2475
      Y1              =   1800
      Y2              =   1800
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000000C0&
      BorderWidth     =   4
      Index           =   39
      Visible         =   0   'False
      X1              =   2220
      X2              =   2235
      Y1              =   1800
      Y2              =   1800
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00004040&
      BorderStyle     =   3  'Dot
      Index           =   0
      X1              =   1200
      X2              =   2280
      Y1              =   4080
      Y2              =   1920
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00004040&
      BorderStyle     =   3  'Dot
      Index           =   1
      X1              =   3480
      X2              =   2400
      Y1              =   4080
      Y2              =   1920
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00008000&
      Index           =   41
      X1              =   2520
      X2              =   4680
      Y1              =   1920
      Y2              =   4080
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00008000&
      Index           =   40
      X1              =   2160
      X2              =   0
      Y1              =   1920
      Y2              =   4080
   End
   Begin VB.Menu file 
      Caption         =   "Файл"
      Begin VB.Menu new 
         Caption         =   "Новый массив"
      End
      Begin VB.Menu createlist 
         Caption         =   "Создать SaveList"
      End
      Begin VB.Menu load 
         Caption         =   "Загрузить последний массив"
      End
      Begin VB.Menu save 
         Caption         =   "Сохранить в последний массив"
      End
      Begin VB.Menu loadsave 
         Caption         =   "Загрузить/сохранить массив"
      End
      Begin VB.Menu ready 
         Caption         =   "Готово"
      End
      Begin VB.Menu fgh 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "Выход из программы"
      End
   End
   Begin VB.Menu animation 
      Caption         =   "Анимация"
      Begin VB.Menu graph 
         Caption         =   "Разрешить графику"
         Checked         =   -1  'True
         Enabled         =   0   'False
      End
      Begin VB.Menu stoper 
         Caption         =   "Разрешить анимацию"
         Checked         =   -1  'True
      End
   End
   Begin VB.Menu help 
      Caption         =   "Помощь"
      Begin VB.Menu what2 
         Caption         =   "Справка"
      End
      Begin VB.Menu final 
         Caption         =   "Подробный отчет"
      End
      Begin VB.Menu fgg 
         Caption         =   "-"
      End
      Begin VB.Menu about 
         Caption         =   "О программе"
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim b As Integer, kk As Integer, s

Private Sub about_Click()
Form4.Show
End Sub

Private Sub Command1_Click()
Text1 = ""
For i = 1 To Val(Text2) ^ 2 + Val(Text2)
Text1 = Text1 & Fix(Rnd * 10) & " "
Next
End Sub

Private Sub Command2_Click()
VScroll1 = Rnd * 8 + 2
End Sub

Private Sub Command3_Click()
Form3.Show
End Sub

Private Sub Command4_Click()
save_Click
Form2.Hide
Form1.Show
End Sub

Private Sub createlist_Click()
a = MsgBox("Вы уверены что хотите создать Новый SaveList?" & Chr(13) & Chr(10) & "Новый SaveList заменит старый." & Chr(13) & Chr(10) & "Подробности в справке.", vbOKCancel, "Создать SaveList")
If a = vbOK Then
Open "files\SaveList" For Output As #1
Print #1, ""
Close
MsgBox "Создан новый SaveList", , "Готово"
End If
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Form_Load()
s = 0
  ReDim mas(Val(Text2) - 1, Val(Text2)) As Double
  ReDim resh(Val(Text2) - 1) As Variant
Command1_Click
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
save_Click
Form3.Hide
Form2.Hide
Form1.Show
End Sub

Private Sub graph_Click()
If graph.Checked = True Then
For i = 18 To 41
Line1(i).Visible = False
Next
Line2.Visible = False
Line3(0).Visible = False
Line3(1).Visible = False
graph.Checked = False
Else
Line2.Visible = True
graph.Enabled = False
graph.Checked = True
Line3(0).Visible = True
Line3(1).Visible = True
End If
End Sub

Private Sub load_Click()
Open "files\LostMas" For Append As #1
Print #1, ""
Close
Open "files\LostMas" For Input As #1
Text1 = ""
Input #1, po
If po <> "" Then
VScroll1.Value = Val(po)
MsgBox "Нет данных", , "Ошибка"
End If
Do While Not (EOF(1))
Input #1, strList
If strList <> "" Then
Text1 = Text1 & strList & " "
End If
Loop
Close #1
End Sub

Private Sub loadsave_Click()
Command3_Click
End Sub

Private Sub new_Click()
VScroll1.Value = VScroll1.Max
Form_Load
End Sub

Private Sub ready_Click()
save_Click
Form2.Hide
Form1.Show
End Sub

Private Sub save_Click()
Open "files\LostMas" For Output As #1
av = Split(Form2.Text1, " ")
Print #1, Form2.VScroll1
For i = 0 To UBound(av)
Print #1, Val(av(i))
Next
Close
End Sub

Private Sub stoper_Click()
If stoper.Checked = True Then
Timer2.Interval = 0
stoper.Checked = False
graph.Enabled = True
Else
graph.Checked = False
graph_Click
stoper.Checked = True
Timer2.Interval = 1000
End If
End Sub

Private Sub Text1_Change()
 a = 0
 c = "Массив"
 av = Split(Text1, " ")
 If UBound(av) < 0 Then GoTo 1
 For i = 0 To Text2 - 1
  c = c & Chr(10) & Chr(13)
  For j = 0 To Val(Text2) - 1
   mas(i, j) = Val(av(a))
   c = c & "  " & mas(i, j)
   a = a + 1
   If a > UBound(av) Then a = 0
  Next
  mas(i, Text2) = Val(av(a))
  c = c & "   |   " & mas(i, Text2)
  a = a + 1
  If a > UBound(av) Then a = 0
 Next
 Label1.Caption = c
1:
End Sub

Private Sub Text2_Change()
  ReDim mas(Val(Text2) - 1, Val(Text2)) As Double
  ReDim resh(Val(Text2) - 1) As Variant
 a = 0
 c = "Массив"
 av = Split(Text1, " ")
 If UBound(av) < 0 Then GoTo 1
 For i = 0 To Text2 - 1
  c = c & Chr(10) & Chr(13)
  For j = 0 To Val(Text2) - 1
   mas(i, j) = Val(av(a))
   c = c & "  " & mas(i, j)
   a = a + 1
   If a > UBound(av) Then a = 0
  Next
  mas(i, Text2) = Val(av(a))
  c = c & "   |   " & mas(i, Text2)
  a = a + 1
  If a > UBound(av) Then a = 0
 Next
 Label1.Caption = c
1:
End Sub

Private Sub Timer1_Timer()
kk = kk + 1
If kk = 2 Then
Line1(b).Visible = False
Line1(b + 19).Visible = False
b = b + 1
Line1(b).Visible = True
Line1(b + 19).Visible = True
If b = 18 Then
Timer1.Interval = 0
End If
kk = 0
End If
End Sub

Private Sub Timer2_Timer()
b = 0
If s > 0 Then
Timer1.Interval = 1
Line1(39).Visible = True
Line1(38).Visible = True
Line1(40).Visible = True
Line1(41).Visible = True
Else
Line3(0).BorderColor = &HC0C0&
Line3(1).BorderColor = &HC0C0&
s = s + 1
End If
End Sub

Private Sub VScroll1_Change()
Text2 = 12 - VScroll1
End Sub

Private Sub what2_Click()
x = Shell("files\iexplore C:\Студент\ТКС-107\Удинские\КР\Высшая Истина\files\help.htm", vbMaximizedFocus)
End Sub