VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H80000001&
   Caption         =   "Мультисистемный калькулятор"
   ClientHeight    =   4020
   ClientLeft      =   3516
   ClientTop       =   2676
   ClientWidth     =   5232
   LinkTopic       =   "Form1"
   ScaleHeight     =   4020
   ScaleWidth      =   5232
   Begin VB.CommandButton cmdOctDec 
      Caption         =   "Oct-Dec"
      Height          =   375
      Left            =   1920
      TabIndex        =   20
      Top             =   3360
      Width           =   975
   End
   Begin VB.CommandButton cmdHexDec 
      Caption         =   "Hex-Dec"
      Height          =   375
      Left            =   600
      TabIndex        =   19
      Top             =   3360
      Width           =   975
   End
   Begin VB.CommandButton cmdDecOct 
      Caption         =   "Dec-Oct"
      Height          =   375
      Left            =   1920
      TabIndex        =   15
      Top             =   2880
      Width           =   975
   End
   Begin VB.TextBox txt3Oct 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   2400
      TabIndex        =   14
      Top             =   1320
      Width           =   735
   End
   Begin VB.TextBox txt2Oct 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   1320
      TabIndex        =   13
      Top             =   1320
      Width           =   735
   End
   Begin VB.TextBox txt1Oct 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   240
      TabIndex        =   12
      Top             =   1320
      Width           =   735
   End
   Begin VB.TextBox txt1Dec 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   240
      TabIndex        =   11
      Top             =   360
      Width           =   735
   End
   Begin VB.CommandButton cmdDecHex 
      Caption         =   "Dec-Hex"
      Height          =   375
      Left            =   600
      TabIndex        =   10
      Top             =   2880
      Width           =   975
   End
   Begin VB.TextBox txt3Hex 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   2400
      TabIndex        =   9
      Top             =   2280
      Width           =   735
   End
   Begin VB.TextBox txt2Hex 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   1320
      TabIndex        =   8
      Top             =   2280
      Width           =   735
   End
   Begin VB.TextBox txt1Hex 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   240
      TabIndex        =   7
      Top             =   2280
      Width           =   735
   End
   Begin VB.TextBox txt3Dec 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   2400
      TabIndex        =   6
      Top             =   360
      Width           =   735
   End
   Begin VB.TextBox txt2Dec 
      Alignment       =   1  'Right Justify
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   1320
      TabIndex        =   5
      Top             =   360
      Width           =   735
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Выход"
      Height          =   492
      Left            =   3600
      TabIndex        =   4
      Top             =   1680
      Width           =   1212
   End
   Begin VB.CommandButton cmdDelen 
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   492
      Left            =   4320
      TabIndex        =   3
      Top             =   960
      Width           =   735
   End
   Begin VB.CommandButton cmdUmn 
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   492
      Left            =   4320
      TabIndex        =   2
      Top             =   240
      Width           =   735
   End
   Begin VB.CommandButton cmdMinus 
      Caption         =   "-"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   492
      Left            =   3360
      TabIndex        =   1
      Top             =   960
      Width           =   735
   End
   Begin VB.CommandButton cmdPlus 
      Caption         =   "+"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   492
      Left            =   3360
      TabIndex        =   0
      Top             =   240
      Width           =   735
   End
   Begin VB.Label lblHex 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFC0&
      Caption         =   "Шестнадцатеричная система"
      Height          =   255
      Left            =   360
      TabIndex        =   18
      Top             =   1920
      Width           =   2775
   End
   Begin VB.Label lblOct 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFC0&
      Caption         =   "Восьмеричная система"
      Height          =   255
      Left            =   360
      TabIndex        =   17
      Top             =   960
      Width           =   2775
   End
   Begin VB.Label lblDec 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFC0&
      Caption         =   "Десятичная система"
      Height          =   255
      Left            =   360
      TabIndex        =   16
      Top             =   0
      Width           =   2775
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdPlus_Click()
txt3Dec.Text = Val(txt1Dec.Text) + Val(txt2Dec.Text)
End Sub
Private Sub cmdMinus_Click()
txt3Dec.Text = Val(txt1Dec.Text) - Val(txt2Dec.Text)
End Sub
Private Sub cmdUmn_Click()
txt3Dec.Text = Val(txt1Dec.Text) * Val(txt2Dec.Text)
End Sub
Private Sub cmdDelen_Click()
txt3Dec.Text = Val(txt1Dec.Text) / Val(txt2Dec.Text)
End Sub
Private Sub cmdDecOct_Click()
txt1Oct.Text = Oct(Val(txt1Dec.Text))
txt2Oct.Text = Oct(Val(txt2Dec.Text))
txt3Oct.Text = Oct(Val(txt3Dec.Text))
End Sub
Private Sub cmdDecHex_Click()
txt1Hex.Text = Hex(Val(txt1Dec.Text))
txt2Hex.Text = Hex(Val(txt2Dec.Text))
txt3Hex.Text = Hex(Val(txt3Dec.Text))
End Sub
Private Sub cmdHexDec_Click()
txt1Dec.Text = Val("&H" + txt1Hex.Text)
txt2Dec.Text = Val("&H" + txt2Hex.Text)
txt3Dec.Text = Val("&H" + txt3Hex.Text)
End Sub
Private Sub cmdOctDec_Click()
txt1Dec.Text = Val("&O" + txt1Oct.Text)
txt2Dec.Text = Val("&O" + txt2Oct.Text)
txt3Dec.Text = Val("&O" + txt3Oct.Text)
End Sub
