VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmFromTheFile 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Ввод данных из файла"
   ClientHeight    =   3975
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4455
   Icon            =   "Uravnenie_FromTheFile.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3975
   ScaleWidth      =   4455
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      Height          =   3975
      Left            =   0
      TabIndex        =   9
      Top             =   0
      Width           =   4455
      Begin VB.TextBox Text1 
         Height          =   285
         Left            =   120
         Locked          =   -1  'True
         TabIndex        =   2
         ToolTipText     =   "Вывод данных из файла"
         Top             =   3120
         Width           =   4215
      End
      Begin VB.CommandButton Command1 
         Caption         =   "&Открыть"
         Default         =   -1  'True
         Height          =   375
         Left            =   360
         MouseIcon       =   "Uravnenie_FromTheFile.frx":69C2
         MousePointer    =   99  'Custom
         TabIndex        =   0
         ToolTipText     =   "Для ввода данных из файла нажмите кнопку ""Открыть"""
         Top             =   3480
         Width           =   1455
      End
      Begin VB.CommandButton Command2 
         Cancel          =   -1  'True
         Caption         =   "Отм&ена"
         Height          =   375
         Left            =   2640
         MouseIcon       =   "Uravnenie_FromTheFile.frx":6B14
         MousePointer    =   99  'Custom
         TabIndex        =   1
         ToolTipText     =   "Для отмены ввода данных из файла нажмите кнопку ""Отмена"""
         Top             =   3480
         Width           =   1455
      End
      Begin VB.Label Label3 
         Caption         =   $"Uravnenie_FromTheFile.frx":6C66
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9
            Charset         =   204
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   120
         TabIndex        =   5
         Top             =   600
         Width           =   4215
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "Для ввода данных из файла необходимо:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   480
         TabIndex        =   3
         Top             =   120
         Width           =   3480
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         Caption         =   "Для отмены ввода данных из файла нажмите кнопку ""Отмена""."
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   720
         TabIndex        =   8
         Top             =   2640
         Width           =   3135
      End
      Begin VB.Label Label5 
         Caption         =   "4. Нажать кнопку ""З&апомнить"" для дальнейшей работы с введёнными данными."
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9
            Charset         =   204
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   120
         TabIndex        =   7
         Top             =   2040
         Width           =   4215
      End
      Begin VB.Label Label4 
         Caption         =   "3. Нажать   кнопку   ""&Открыть""   на   диалоговом  окне, чтобы  данные  из указанного файла  появились в текс- товом окне;"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9
            Charset         =   204
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   120
         TabIndex        =   6
         Top             =   1320
         Width           =   4215
      End
      Begin VB.Label Label2 
         Caption         =   "1. Нажать кнопку ""&Открыть"";"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9
            Charset         =   204
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   120
         TabIndex        =   4
         Top             =   360
         Width           =   2280
      End
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   4200
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
End
Attribute VB_Name = "frmFromTheFile"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
'Установка фильтров
CommonDialog1.Filter = "Текстовые файлы ( *.txt )|*.txt|Все файлы (*.*)|*.*"
'Задание фильтра по умолчанию
CommonDialog1.FilterIndex = 1
Command2.Caption = "Отм&ена"
Command2.ToolTipText = "Для отмены ввода данных из файла нажмите кнопку " & Chr(34) & "Отмена" & Chr(34)
Text1 = ""
End Sub

Private Sub Command1_Click()
'Установа свойства Cancel в положение True для избежания/"перехвата" ошибок
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'Открытие файла только для чтения данных: конечной и начальной координаты X и точности
Text1 = ""
CommonDialog1.ShowOpen
File = CommonDialog1.FileName
Open File For Input As #1
Input #1, xn, xk, Epsilon
Text1.Text = Format(xn, "#") & "   " & Format(xk, "#") & "   " & Format(Epsilon, "0.000 000")
Close #1
t1 = CStr(xn): t2 = CStr(xk): t3 = CStr(Epsilon):
'Проверка данных, введённых из файла
CheckOfEnteredData
Command2.Caption = "З&апомнить"
Command2.ToolTipText = "Для дальнейшей работы с данными, введёнными из файла, нажмите кнопку " & Chr(34) & "З&апомнить" & Chr(34)
ErrHandler:
'Пользователь нажал кнопку Cancel
Exit Sub
End Sub

Private Sub Command2_Click()
Unload frmFromTheFile
End Sub

Private Sub Text1_DblClick()
Text1 = ""
End Sub