VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmGeneral 
   AutoRedraw      =   -1  'True
   Caption         =   "Уравнение"
   ClientHeight    =   4230
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   4980
   Icon            =   "Uravnenie_Index.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4230
   ScaleWidth      =   4980
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   0
      Top             =   3960
   End
   Begin VB.Frame Frame1 
      Height          =   3974
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   4980
      Begin VB.Label Label10 
         Caption         =   "Иллюстрировать данный метод с последовательным уточнением корня."
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   120
         TabIndex        =   11
         ToolTipText     =   "Визуализация метода"
         Top             =   1920
         Width           =   4695
      End
      Begin VB.Label Label09 
         Caption         =   "Визуализация метода:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   1680
         Width           =   2055
      End
      Begin VB.Label Label13 
         Caption         =   "Примечание:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   3360
         Width           =   1215
      End
      Begin VB.Label Label05 
         Caption         =   "3."
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   960
         TabIndex        =   6
         ToolTipText     =   "Вариант"
         Top             =   720
         Width           =   135
      End
      Begin VB.Label Label04 
         Caption         =   "Вариант:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   720
         Width           =   855
      End
      Begin VB.Label Label03 
         Caption         =   "Решение нелинейных уравнений."
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   720
         TabIndex        =   4
         ToolTipText     =   "Тема"
         Top             =   480
         Width           =   2655
      End
      Begin VB.Label Label02 
         Caption         =   "Тема:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   480
         Width           =   615
      End
      Begin VB.Label Label12 
         Caption         =   "Сравнить решения полученные данным методом и в математическом пакете; результаты сохранить в текстовом файле."
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   120
         TabIndex        =   13
         ToolTipText     =   "Исследование и сохранение результатов"
         Top             =   2640
         Width           =   4695
      End
      Begin VB.Label Label11 
         Caption         =   "Исследование и сохранение результатов:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   12
         Top             =   2400
         Width           =   3855
      End
      Begin VB.Label Label14 
         Caption         =   "Интервал и точность задаются с клавиатуры. "
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   15
         ToolTipText     =   "Примечание"
         Top             =   3600
         Width           =   3855
      End
      Begin VB.Label Label08 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "2"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   6
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   165
         Left            =   3075
         TabIndex        =   9
         ToolTipText     =   "Задание"
         Top             =   1200
         Width           =   75
      End
      Begin VB.Label Label07 
         Caption         =   "Решение нелинейного уравнения 0,1x -xln(x)=0 на интер- вале [1;2] методом секущих (хорд)."
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   120
         TabIndex        =   8
         ToolTipText     =   "Задание"
         Top             =   1200
         Width           =   4695
      End
      Begin VB.Label Label01 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   """Уравнение"""
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   12
            Charset         =   204
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   285
         Left            =   1590
         TabIndex        =   2
         ToolTipText     =   "Название приложения"
         Top             =   120
         Width           =   1635
      End
      Begin VB.Label Label06 
         BackStyle       =   0  'Transparent
         Caption         =   "Задание:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         TabIndex        =   7
         Top             =   960
         Width           =   825
      End
   End
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   3975
      Width           =   4980
      _ExtentX        =   8784
      _ExtentY        =   450
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   5
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            AutoSize        =   2
            Object.Width           =   1984
            MinWidth        =   1984
            Text            =   "Uravnenie.exe"
            TextSave        =   "Uravnenie.exe"
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "Название"
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            AutoSize        =   2
            Object.Width           =   979
            MinWidth        =   979
            Text            =   "v1.0.0"
            TextSave        =   "v1.0.0"
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "Версия"
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   6
            Alignment       =   1
            AutoSize        =   2
            Object.Width           =   1323
            MinWidth        =   1323
            TextSave        =   "29.06.05"
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "Дата"
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   5
            Alignment       =   1
            AutoSize        =   2
            Object.Width           =   873
            MinWidth        =   873
            TextSave        =   "17:42"
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "Время"
         EndProperty
         BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            AutoSize        =   2
            Bevel           =   0
            Object.Width           =   3175
            Text            =   "Все права защищены!"
            TextSave        =   "Все права защищены!"
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "Права пользования"
         EndProperty
      EndProperty
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   0
      Top             =   3960
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&Файл"
      Begin VB.Menu mnuNew 
         Caption         =   "Созд&ать"
         Shortcut        =   ^N
         Visible         =   0   'False
      End
      Begin VB.Menu mnuOpen 
         Caption         =   "&Открыть"
         Shortcut        =   ^O
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSave 
         Caption         =   "&Сохранить"
         Shortcut        =   ^S
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSaveAs 
         Caption         =   "Сохранить &как"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSeparator1 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuPrint 
         Caption         =   "&Печать"
         Shortcut        =   ^P
         Visible         =   0   'False
      End
      Begin VB.Menu mnuProperties 
         Caption         =   "Сво&йства"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuClose 
         Caption         =   "&Закрыть"
      End
      Begin VB.Menu mnuSeparator2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "В&ыход"
      End
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "&Правка"
      Visible         =   0   'False
      Begin VB.Menu mnuUndo 
         Caption         =   "&Отменить"
         Shortcut        =   ^Z
      End
      Begin VB.Menu mnuRedo 
         Caption         =   "Пов&торить"
         Shortcut        =   ^Y
      End
      Begin VB.Menu mnuSeparator3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCut 
         Caption         =   "&Вырезать"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnuCopy 
         Caption         =   "&Копировать"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnuPast 
         Caption         =   "Вст&авить"
         Shortcut        =   ^V
      End
      Begin VB.Menu mnuDelete 
         Caption         =   "&Удалить"
         Shortcut        =   {DEL}
      End
      Begin VB.Menu mnuSelectAll 
         Caption         =   "Выделить в&сё"
         Shortcut        =   ^A
      End
      Begin VB.Menu mnuSeparator4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFind 
         Caption         =   "&Найти"
         Shortcut        =   ^F
      End
      Begin VB.Menu mnuExchange 
         Caption         =   "&Заменить"
         Shortcut        =   ^H
      End
      Begin VB.Menu mnuProceed 
         Caption         =   "&Перейти"
         Shortcut        =   {F5}
      End
   End
   Begin VB.Menu mnuView 
      Caption         =   "&Вид"
      Begin VB.Menu mnuStatusBarOn 
         Caption         =   "&Строка состояния"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuStatusBarOff 
         Caption         =   "&Строка состояния"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuToolBar 
         Caption         =   "Панель &инструментов"
         Checked         =   -1  'True
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSeparator5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuInAllScreenOn 
         Caption         =   "Во весь &экран"
      End
      Begin VB.Menu mnuInAllScreenOff 
         Caption         =   "Во весь &экран"
         Checked         =   -1  'True
         Visible         =   0   'False
      End
   End
   Begin VB.Menu mnuFunction 
      Caption         =   "Ф&ункция"
      Begin VB.Menu mnuDataEntry 
         Caption         =   "В&вод данных"
         Begin VB.Menu mnuFromTheKeyboard 
            Caption         =   "С клав&иатуры"
         End
         Begin VB.Menu mnuFormTheInputBox 
            Caption         =   "В бл&ок ввода"
         End
         Begin VB.Menu mnuFromTheFile 
            Caption         =   "Из ф&айла"
         End
      End
      Begin VB.Menu mnuChart 
         Caption         =   "&График"
      End
      Begin VB.Menu mnuEquation 
         Caption         =   "&Уравнение"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuMethod 
         Caption         =   "М&етод"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuCompareOutcome 
         Caption         =   "&Сравнить результат..."
         Begin VB.Menu mnuInTheMicrosoftExel 
            Caption         =   "В Microsoft Ex&el"
         End
         Begin VB.Menu mnuInTheMicrosoftMathcad 
            Caption         =   "В Microsoft Math&cad"
         End
         Begin VB.Menu mnuInTheMicrosoftMatLab 
            Caption         =   "В Microsoft M&atLab"
         End
         Begin VB.Menu mnuInTheMicrosoftWord 
            Caption         =   "В Microsoft W&ord"
         End
      End
      Begin VB.Menu mnuSaveData 
         Caption         =   "С&охранить данные"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu mnuTools 
      Caption         =   "С&ервис"
      Visible         =   0   'False
      Begin VB.Menu mnuOptions 
         Caption         =   "&Опции"
      End
      Begin VB.Menu mnuSetUp 
         Caption         =   "&Настройка"
      End
      Begin VB.Menu mnuParameters 
         Caption         =   "П&араметры"
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "&Окно"
      Begin VB.Menu mnuNewWindow 
         Caption         =   "&Новое"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuArrangeAll 
         Caption         =   "&Упорядочить все"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSeparator6 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuNormal 
         Caption         =   "Нор&мализовать"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuMinimize 
         Caption         =   "&Свернуть"
      End
      Begin VB.Menu mnuMaximize 
         Caption         =   "&Развернуть"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "&Справка"
      Begin VB.Menu mnuContents 
         Caption         =   "&Содержание"
      End
      Begin VB.Menu mnuCombinationsOfPushButtons 
         Caption         =   "Сочетания &кнопок"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSysInfo 
         Caption         =   "&Информация о системе"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "&О программе"
      End
   End
End
Attribute VB_Name = "frmGeneral"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FormWidth As Integer 'задание переменной изменяемой длины формы frmGeneral
Dim FormHeight As Integer 'задание переменной изменяемой высоты формы frmGeneral
Private Start As Double

Private Function Resizing()
Rem "Функция для реакции изменения размера формы frmGeneral (выполняется тогда, когда форма нормализована или развёрнута."
If WindowState = 0 Or WindowState = 2 Then
If frmGeneral.Width < 5100 Then frmGeneral.Width = 5100
If frmGeneral.Height < 4920 Then frmGeneral.Height = 4920
FormWidth = frmGeneral.Width
FormHeight = frmGeneral.Height
Frame1.Width = 4980
'Frame1.Left = 0
Frame1.Left = FormWidth / 2 - 2555
Frame1.Height = 3974
'Frame1.Top = 0
Frame1.Top = FormHeight / 2 - 2460
End If
End Function

Private Sub Form_Load()
mnuStatusBarOn.Visible = True
mnuStatusBarOn.Checked = True
mnuStatusBarOff.Visible = False
mnuStatusBarOff.Checked = False
StatusBar1.Visible = True
mnuInAllScreenOn.Visible = True
mnuInAllScreenOn.Checked = False
mnuInAllScreenOff.Visible = False
mnuInAllScreenOff.Checked = True
mnuNormal.Checked = True
mnuMinimize.Checked = False
mnuMaximize.Checked = False
WindowState = 0
Resizing
End Sub

Private Sub mnuAbout_Click()
frmAbout.Show
End Sub

Private Sub mnuChart_Click()
frmChart.Show
End Sub

Private Sub mnuClose_Click()
Unload frmGeneral
End Sub

Private Sub mnuContents_Click()
If Dir("readme.doc") = "readme.doc" Then
'Файл "readme.doc" присутствует
Start = Shell("C:\Progra~1\Micros~1\Office\Winword.exe readme.doc", vbMaximizedFocus)
'Start = Shell("Winword.exe readme.doc", vbMaximizedFocus)
Else
'Файл "readme.doc" отсутствует
MsgBox "Файл " & Chr(34) & "intro.exe" & Chr(34) & " не найден.", vbCritical, "Ошибка №53"
Exit Sub
End If
End Sub

Private Sub mnuExit_Click()
End
End Sub

Private Sub mnuFind_Click()
frmFind.Show
End Sub

Private Sub mnuFormTheInputBox_Click()
frmFromTheInputBox.Show
End Sub

Private Sub mnuFromTheFile_Click()
frmFromTheFile.Show
End Sub

Private Sub mnuFromTheKeyboard_Click()
frmFromTheKeyboard.Show
End Sub

Private Sub mnuInTheMathcad_Click()
frmInTheMicrosoftMathcad.Show
End Sub

Private Sub mnuInTheMatLab_Click()
frmInTheMicrosoftMatLab.Show
End Sub

Private Sub mnuInAllScreenOff_Click()
mnuInAllScreenOn.Visible = True
mnuNormal.Checked = True
mnuMinimize.Checked = False
mnuMaximize.Checked = False
WindowState = 0
mnuInAllScreenOff.Visible = False
End Sub

Private Sub mnuInAllScreenOn_Click()
mnuInAllScreenOff.Visible = True
mnuMaximize.Checked = True
mnuNormal.Checked = False
mnuMinimize.Checked = False
WindowState = 2
mnuInAllScreenOn.Visible = False
End Sub

Private Sub mnuInTheMicrosoftMathcad_Click()
frmInTheMicrosoftMathcad.Show
End Sub

Private Sub mnuInTheMicrosoftMatLab_Click()
frmInTheMicrosoftMatLab.Show
End Sub

Private Sub mnuSaveData_Click()
'Call frmChart.Command2
End Sub

Private Sub Timer1_Timer()
If frmGeneral.Width <> FormWidth Or frmGeneral.Height <> FormHeight Then
Resizing
End If
End Sub

Private Sub mnuInTheMicrosoftExel_Click()
frmInTheMicrosoftExel.Show
End Sub

Private Sub mnuInTheMicrosoftWord_Click()
frmInTheMicrosoftWord.Show
End Sub

Private Sub mnuMaximize_Click()
mnuInAllScreenOff.Visible = True
mnuInAllScreenOn.Visible = False
mnuMaximize.Checked = True
mnuNormal.Checked = False
mnuMinimize.Checked = False
WindowState = 2
End Sub

Private Sub mnuMinimize_Click()
WindowState = 1
End Sub

Private Sub mnuNormal_Click()
mnuInAllScreenOn.Visible = True
mnuInAllScreenOff.Visible = False
mnuNormal.Checked = True
mnuMinimize.Checked = False
mnuMaximize.Checked = False
WindowState = 0
End Sub

Private Sub mnuStatusBarOff_Click()
mnuStatusBarOn.Visible = True
StatusBar1.Visible = True
mnuStatusBarOff.Visible = False
End Sub

Private Sub mnuStatusBarOn_Click()
mnuStatusBarOff.Visible = True
StatusBar1.Visible = False
mnuStatusBarOn.Visible = False
End Sub

Private Sub mnuSysInfo_Click()
Call frmAbout.StartSysInfo
End Sub

Private Sub mnuOpen_Click()
'Открытие любого текстового файла
CommonDialog1.ShowOpen
File = CommonDialog1.FileName
Open File For Input As #1
Do While Not EOF(1)
Line Input #1, Strfile
Loop
Close
End Sub