VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Begin VB.Form frmGeneral Caption = "Уравнение" ClientHeight = 4710 ClientLeft = 60 ClientTop = 630 ClientWidth = 5295 Icon = "Index.frx":0000 LinkTopic = "Form1" ScaleHeight = 4710 ScaleWidth = 5295 StartUpPosition = 2 'CenterScreen Begin VB.Frame Frame1 Height = 3975 Left = 0 TabIndex = 0 Top = 120 Width = 4980 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 = 13 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 = 12 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 = 11 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 = 10 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 = 9 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 = 8 Top = 2400 Width = 3855 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 = 7 Top = 1680 Width = 2055 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 = 6 Top = 3600 Width = 3855 End 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 = 5 Top = 1920 Width = 4695 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 = 4 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 = 3 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 = 255 Left = 1560 TabIndex = 2 Top = 120 Width = 1695 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 = 1 Top = 960 Width = 825 End End Begin MSComDlg.CommonDialog CommonDialog1 Left = 4200 Top = 3480 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin VB.Menu mnuFile Caption = "&Файл" Begin VB.Menu mnuNew Caption = "Созд&ать" Shortcut = ^N End Begin VB.Menu mnuOpen Caption = "&Открыть" Shortcut = ^O End Begin VB.Menu mnuSave Caption = "&Сохранить" Shortcut = ^S End Begin VB.Menu mnuSaveAs Caption = "Сохранить &как" End Begin VB.Menu mnuSeparator1 Caption = "-" End Begin VB.Menu mnuPrint Caption = "&Печать" Shortcut = ^P End Begin VB.Menu mnuProperties Caption = "Сво&йства" 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 = "&Правка" 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 mnuStatusBar Caption = "&Строка состояния" Checked = -1 'True End Begin VB.Menu mnuToolBar Caption = "Панель &инструментов" Checked = -1 'True End Begin VB.Menu mnuSeparator5 Caption = "-" End Begin VB.Menu mnuInAllScreen Caption = "Во весь &экран" End End Begin VB.Menu mnuFunction Caption = "Ф&ункция" Begin VB.Menu mnuDataEntry Caption = "Ввод данных" Begin VB.Menu mnuFromTheKeyboard Caption = "С клавиатуры" End Begin VB.Menu mnuFromTheFile Caption = "Из файла" End End Begin VB.Menu mnuChart Caption = "График" End Begin VB.Menu mnyEquation Caption = "Уравнение" End Begin VB.Menu mnuMethod Caption = "Метод" End Begin VB.Menu mnuCompare Caption = "Сравнить" End Begin VB.Menu mnuSaveData Caption = "Сохранить данные" End End Begin VB.Menu mnuTools Caption = "С&ервис" 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 = "&Новое" End Begin VB.Menu mnuArrangeAll Caption = "&Упорядочить все" End Begin VB.Menu mnuSeparator6 Caption = "-" 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 = "Сочетания &кнопок" End Begin VB.Menu mnuInfo 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 Private Sub mnuAbout_Click() frmAbout.Show End Sub Private Sub mnuChart_Click() frmChart.Show End Sub Private Sub mnuFromTheKeyboard_Click() frmFromTheKeyboard.Show End Sub Private Sub mnuMethod_Click() Form1.Show End Sub Private Sub mnuOpen_Click() CommonDialog1.ShowOpen File = CommonDialog1.FileName Open File For Input As #1 Input #1, Text Do While Not EOF(1) Line Input #1, Strfile Loop Close End Sub