VERSION 5.00
Begin VB.Form Main 
   Caption         =   "Главная"
   ClientHeight    =   6420
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8190
   LinkTopic       =   "Form1"
   Picture         =   "Main.frx":0000
   ScaleHeight     =   6420
   ScaleWidth      =   8190
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame1 
      Height          =   5535
      Left            =   240
      TabIndex        =   1
      Top             =   240
      Width           =   7695
      Begin VB.Label Label6 
         Caption         =   "Министерство  образования Российской Федерации"
         Height          =   255
         Left            =   1800
         TabIndex        =   7
         Top             =   240
         Width           =   4215
      End
      Begin VB.Label Label5 
         Caption         =   "Уфа - 2005 г."
         Height          =   255
         Left            =   3360
         TabIndex        =   6
         Top             =   5160
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "Выполнил: ст. гр. ТКС - 107 Хамидуллин А.М.                                                           Проверила: Рамбургер О.Л."
         Height          =   1095
         Left            =   5280
         TabIndex        =   5
         Top             =   3120
         Width           =   2295
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         Caption         =   "На тему: Исследование методов вычисления определенных интегралов"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   204
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   1920
         TabIndex        =   4
         Top             =   1920
         Width           =   3975
      End
      Begin VB.Label Label2 
         Caption         =   "Курсовая работа"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   18
            Charset         =   204
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   2400
         TabIndex        =   3
         Top             =   1440
         Width           =   3135
      End
      Begin VB.Label Label1 
         Caption         =   "Кафедра Информатики УГАТУ"
         Height          =   255
         Left            =   4920
         TabIndex        =   2
         Top             =   600
         Width           =   2535
      End
   End
   Begin VB.CommandButton Exit 
      Caption         =   "Выход"
      Height          =   495
      Left            =   6000
      TabIndex        =   0
      Top             =   5880
      Width           =   1695
   End
   Begin VB.Menu mnuFile 
      Caption         =   "Файл"
      WindowList      =   -1  'True
      Begin VB.Menu mnuClose 
         Caption         =   "Закрыть"
      End
   End
   Begin VB.Menu mnuInt 
      Caption         =   "Выч. интеграла"
      Begin VB.Menu mnuInt_с 
         Caption         =   "Численное решение"
         Begin VB.Menu mnuInt_с_t 
            Caption         =   "Методом трапеций"
         End
         Begin VB.Menu mnuInt_с_s 
            Caption         =   "Методом Симпсона"
         End
      End
      Begin VB.Menu mnuInt_p 
         Caption         =   "Расчет погрешности"
         Begin VB.Menu mnuInt_p_t 
            Caption         =   "Метода трапеций"
         End
         Begin VB.Menu mnuInt_p_s 
            Caption         =   "Метода Симпсона"
         End
         Begin VB.Menu mnuInt_p_compare 
            Caption         =   "Сравнить методы"
         End
      End
      Begin VB.Menu mnuInt_g 
         Caption         =   "График"
      End
   End
   Begin VB.Menu mnuAbout 
      Caption         =   "О программе"
   End
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Exit_Click()
    End
End Sub

Private Sub mnuAbout_Click()
 About.Show
End Sub

Private Sub mnuClose_Click()
    End
End Sub

Private Sub mnuInt_g_Click()
    Int_g.Show
    Main.Hide
End Sub

Private Sub mnuInt_p_compare_Click()
    Pogr_compare.Show
    Main.Hide
    End Sub

Private Sub mnuInt_p_p_Click()
    Pogr_p.Show
    Main.Hide
End Sub

Private Sub mnuInt_p_s_Click()
    Pogr_s.Show
    Main.Hide
    End Sub

Private Sub mnuInt_p_t_Click()
    Pogr_t.Show
    Main.Hide
End Sub

Private Sub mnuInt_с_p_Click()
    Int_c_p.Show
    Main.Hide
End Sub

Private Sub mnuInt_с_s_Click()
    Int_c_s.Show
    Main.Hide
End Sub

Private Sub mnuInt_с_t_Click()
    Int_c_t.Show
    Main.Hide
End Sub

Private Sub mnuMetod_p_Click()
    Metod_p.Show
    Main.Hide
End Sub

Private Sub mnuMetod_s_Click()
    Metod_s.Show
    Main.Hide
End Sub

Private Sub mnuMetod_t_Click()
    Metod_t.Show
    Main.Hide
End Sub

Private Sub mnuOpen_Click()
    OpenFile.Show
End Sub

Private Sub mnuExit_Click()
    End
End Sub