VERSION 5.00
Begin VB.Form frmFromTheKeyboard 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Ввод данных с клавиатуры"
   ClientHeight    =   3690
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4575
   Icon            =   "Uravnenie_FromTheKeyboard.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3690
   ScaleWidth      =   4575
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Caption         =   "Отм&ена"
      Height          =   375
      Left            =   2760
      MouseIcon       =   "Uravnenie_FromTheKeyboard.frx":69C2
      MousePointer    =   99  'Custom
      TabIndex        =   4
      ToolTipText     =   "Для отмены ввода данных с клавиатуры нажмите кнопку ""Отмена"""
      Top             =   3240
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "З&апомнить"
      Default         =   -1  'True
      Height          =   375
      Left            =   360
      MouseIcon       =   "Uravnenie_FromTheKeyboard.frx":6B14
      MousePointer    =   99  'Custom
      TabIndex        =   3
      ToolTipText     =   "Для дальнейшей работы с данными, введёнными с клавиатуры, нажмите кнопку ""Запомнить"""
      Top             =   3240
      Width           =   1455
   End
   Begin VB.Frame Frame1 
      Height          =   1335
      Left            =   0
      TabIndex        =   11
      Top             =   960
      Width           =   4575
      Begin VB.TextBox Text1 
         Height          =   285
         Left            =   3360
         TabIndex        =   0
         Text            =   "1"
         Top             =   240
         Width           =   1095
      End
      Begin VB.TextBox Text2 
         Height          =   285
         Left            =   3360
         TabIndex        =   1
         Text            =   "2"
         Top             =   600
         Width           =   1095
      End
      Begin VB.TextBox Text3 
         Height          =   285
         Left            =   2880
         TabIndex        =   2
         Text            =   "0,000001"
         Top             =   960
         Width           =   1575
      End
      Begin VB.Label Label2 
         Caption         =   "Начальная координата (по умолчанию 1):"
         Height          =   195
         Left            =   120
         TabIndex        =   6
         Top             =   240
         Width           =   3135
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "Конечная координата (по умолчанию 2):"
         Height          =   195
         Left            =   120
         TabIndex        =   7
         Top             =   600
         Width           =   3030
      End
      Begin VB.Label Label4 
         Caption         =   "Точность (по умолчанию 0,000001):"
         Height          =   195
         Left            =   120
         TabIndex        =   8
         Top             =   960
         Width           =   2670
      End
   End
   Begin VB.Label Label5 
      Caption         =   "Нажмите кнопки ""З&апомнить"" и ""Закр&ыть""  для дальней- шей работы с данными, введёнными с клавиатуры."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   9
      Top             =   2280
      Width           =   4335
   End
   Begin VB.Label Label1 
      Caption         =   $"Uravnenie_FromTheKeyboard.frx":6C66
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   9
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   975
      Left            =   120
      TabIndex        =   5
      Top             =   0
      Width           =   4335
   End
   Begin VB.Label Label6 
      Caption         =   "Для  отмены   ввода  данных   с  клавиатуры   нажмите кнопку ""Отм&ена""."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   10
      Top             =   2760
      Width           =   4335
   End
End
Attribute VB_Name = "frmFromTheKeyboard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Text2_GotFocus()
Text1.Text = "": Text2.Text = "": Text3.Text = ""
Text1.Text = "0,001"
Text2.Text = "2,75"
Text3.Text = "0,000000000000001"
End Sub

Private Sub Text3_GotFocus()
Text1.Text = "": Text2.Text = "": Text3.Text = ""
Text1.Text = "1"
Text2.Text = "2"
Text3.Text = "0,000001"
End Sub

Private Sub Form_Load()
Text1.Text = 1: Text2.Text = 2: Text3.Text = 0.000001
Text1.ToolTipText = "от " & MinimumX & " до " & MaximumX
Text2.ToolTipText = "от " & MinimumX & " до " & MaximumX
Text3.ToolTipText = "от " & MinEps & " до " & MaxEps
Command2.Caption = "Отм&ена"
Command2.ToolTipText = "Для отмены ввода данных с клавиатуры нажмите кнопку " & Chr(34) & "Отмена" & Chr(34)
End Sub

Private Sub Command1_Click()
t1 = Text1.Text
t2 = Text2.Text
t3 = Text3.Text
'Проверка данных, введённых с клавиатуры
If CheckOfEnteredData = True Then
Command2.Caption = "Закр&ыть"
Command2.ToolTipText = "Для дальнейшей работы с данными, введёнными с клавиатуры, нажмите кнопку " & Chr(34) & "Закрыть" & Chr(34)
Else
Command2.Caption = "Отм&ена"
Command2.ToolTipText = "Для отмены ввода данных с клавиатуры нажмите кнопку " & Chr(34) & "Отмена" & Chr(34)
End If
Text1.Text = t1: Text2.Text = t2: Text3.Text = t3
End Sub

Private Sub Command2_Click()
Unload frmFromTheKeyboard
End Sub

Private Sub Text1_DblClick()
Text1.Text = ""
End Sub

Private Sub Text2_DblClick()
Text2.Text = ""
End Sub

Private Sub Text3_DblClick()
Text3.Text = ""
End Sub