Treceți la conținutul principal

visual basic 6 listing program calculator conversie sistem de numeratie minimalist

VERSION 5.00
Begin VB.Form calculator 
   BackColor       =   &H00C0C0C0&
   Caption         =   "Calculator"
   ClientHeight    =   9270
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   11655
   BeginProperty Font 
      Name            =   "Verdana"
      Size            =   14.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   9270
   ScaleWidth      =   11655
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command15 
      Appearance      =   0  'Flat
      Caption         =   "OctTOBinary"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1800
      TabIndex        =   66
      Top             =   1920
      Width           =   1575
   End
   Begin VB.CommandButton Command14 
      Appearance      =   0  'Flat
      Caption         =   "BinaryTOOct"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1920
      TabIndex        =   65
      Top             =   2160
      Width           =   1575
   End
   Begin VB.CommandButton Command13 
      Appearance      =   0  'Flat
      Caption         =   "BinaryTOHex"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3480
      TabIndex        =   64
      Top             =   1920
      Width           =   1575
   End
   Begin VB.CommandButton Command12 
      Appearance      =   0  'Flat
      Caption         =   "HexTOBinary"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3600
      TabIndex        =   63
      Top             =   2160
      Width           =   1575
   End
   Begin VB.CommandButton Command11 
      Appearance      =   0  'Flat
      Caption         =   "HexTODeca"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1920
      TabIndex        =   62
      Top             =   960
      Width           =   1575
   End
   Begin VB.CommandButton Command10 
      Appearance      =   0  'Flat
      Caption         =   "HexTOOct"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1800
      TabIndex        =   61
      Top             =   1320
      Width           =   1575
   End
   Begin VB.CommandButton Command9 
      Appearance      =   0  'Flat
      Caption         =   "OctTOHex"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1920
      TabIndex        =   60
      Top             =   1560
      Width           =   1575
   End
   Begin VB.CommandButton Command8 
      Appearance      =   0  'Flat
      Caption         =   "OctTODeca"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3480
      TabIndex        =   59
      Top             =   1320
      Width           =   1575
   End
   Begin VB.CommandButton Command7 
      Appearance      =   0  'Flat
      Caption         =   "DecaTOOct"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3600
      TabIndex        =   58
      Top             =   1560
      Width           =   1575
   End
   Begin VB.CommandButton Command6 
      Appearance      =   0  'Flat
      Caption         =   "BinaryTODeca"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3480
      TabIndex        =   57
      Top             =   720
      Width           =   1575
   End
   Begin VB.TextBox txtRez 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   6975
      Left            =   6120
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   56
      Top             =   1560
      Width           =   4455
   End
   Begin VB.CommandButton Command5 
      Appearance      =   0  'Flat
      Caption         =   "DecaTOBinary"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3600
      TabIndex        =   55
      Top             =   960
      Width           =   1575
   End
   Begin VB.CommandButton Command4 
      Appearance      =   0  'Flat
      Caption         =   "Par or Impar"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   54
      Top             =   720
      Width           =   1575
   End
   Begin VB.CommandButton Command3 
      Appearance      =   0  'Flat
      Caption         =   "function test"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   53
      Top             =   960
      Width           =   1575
   End
   Begin VB.CommandButton Command2 
      Appearance      =   0  'Flat
      Caption         =   "DecaTOHex"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1800
      TabIndex        =   52
      Top             =   720
      Width           =   1575
   End
   Begin VB.Frame Frame1 
      Caption         =   "ModulCalcul"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4575
      Left            =   3360
      TabIndex        =   41
      Top             =   3600
      Width           =   2415
      Begin VB.OptionButton Option1 
         Caption         =   "HexEditor"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Index           =   10
         Left            =   240
         TabIndex        =   67
         Top             =   4080
         Width           =   1695
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Ascii Asc"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Index           =   9
         Left            =   240
         TabIndex        =   51
         Top             =   3720
         Width           =   1695
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Float fl"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Index           =   8
         Left            =   240
         TabIndex        =   50
         Top             =   3360
         Width           =   1695
      End
      Begin VB.OptionButton Option1 
         Caption         =   "String Str"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Index           =   7
         Left            =   240
         TabIndex        =   49
         Top             =   3000
         Width           =   1695
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Char Chr"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Index           =   6
         Left            =   240
         TabIndex        =   48
         Top             =   2640
         Width           =   1695
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Binary b"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Index           =   0
         Left            =   240
         TabIndex        =   47
         Top             =   480
         Width           =   1695
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Byte Octet B"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Index           =   1
         Left            =   240
         TabIndex        =   46
         Top             =   840
         Width           =   1695
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Quadecimal Q"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Index           =   2
         Left            =   240
         TabIndex        =   45
         Top             =   1200
         Width           =   1695
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Octadecimal O"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Index           =   3
         Left            =   240
         TabIndex        =   44
         Top             =   1560
         Width           =   1695
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Decimal D"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Index           =   4
         Left            =   240
         TabIndex        =   43
         Top             =   1920
         Value           =   -1  'True
         Width           =   1695
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Hexadecimal Hx"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Index           =   5
         Left            =   240
         TabIndex        =   42
         Top             =   2280
         Width           =   1695
      End
   End
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      Caption         =   "F"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   5
      Left            =   1920
      TabIndex        =   40
      Top             =   6840
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      Caption         =   "E"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   4
      Left            =   1560
      TabIndex        =   39
      Top             =   6840
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      Caption         =   "D"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   3
      Left            =   1200
      TabIndex        =   38
      Top             =   6840
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      Caption         =   "C"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   2
      Left            =   1920
      TabIndex        =   37
      Top             =   6480
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      Caption         =   "B"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   1560
      TabIndex        =   36
      Top             =   6480
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      Caption         =   "A"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   1200
      TabIndex        =   35
      Top             =   6480
      Width           =   375
   End
   Begin VB.CommandButton onb 
      Appearance      =   0  'Flat
      Caption         =   "On"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   1560
      TabIndex        =   34
      Top             =   4440
      Width           =   375
   End
   Begin VB.CommandButton onb 
      Appearance      =   0  'Flat
      Caption         =   "Off"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   1200
      TabIndex        =   33
      Top             =   4440
      Width           =   375
   End
   Begin VB.CommandButton Cmdcos 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "MS"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   11
      Left            =   480
      Style           =   1  'Graphical
      TabIndex        =   32
      Top             =   4560
      UseMaskColor    =   -1  'True
      Width           =   375
   End
   Begin VB.CommandButton Cmdcos 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "MR"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   6
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   31
      Top             =   4560
      UseMaskColor    =   -1  'True
      Width           =   375
   End
   Begin VB.CommandButton Cmdcos 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "sqrt"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   10
      Left            =   600
      Style           =   1  'Graphical
      TabIndex        =   30
      Top             =   5760
      UseMaskColor    =   -1  'True
      Width           =   495
   End
   Begin VB.CommandButton Cmdcos 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "n!"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   3
      Left            =   480
      Style           =   1  'Graphical
      TabIndex        =   29
      Top             =   6120
      UseMaskColor    =   -1  'True
      Width           =   375
   End
   Begin VB.CommandButton Cmdcos 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "Exp"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   9
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   28
      Top             =   5760
      UseMaskColor    =   -1  'True
      Width           =   495
   End
   Begin VB.CommandButton Cmdcos 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "1/x"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   5
      Left            =   600
      Style           =   1  'Graphical
      TabIndex        =   27
      Top             =   6840
      UseMaskColor    =   -1  'True
      Width           =   495
   End
   Begin VB.CommandButton Cmdcos 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "ln"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   4
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   26
      Top             =   6120
      UseMaskColor    =   -1  'True
      Width           =   375
   End
   Begin VB.OptionButton Opt2 
      Caption         =   "Radian"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1320
      TabIndex        =   25
      Top             =   4080
      Width           =   1095
   End
   Begin VB.OptionButton Opt1 
      Caption         =   "Degree"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   24
      Top             =   4080
      Width           =   1215
   End
   Begin VB.CommandButton Cmdcos 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "x^2"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   8
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   23
      Top             =   6840
      Width           =   495
   End
   Begin VB.CommandButton Cmdcos 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "x^3"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   7
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   22
      Top             =   7200
      Width           =   495
   End
   Begin VB.CommandButton Cmdop 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "x^y"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   4
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   21
      Top             =   6480
      Width           =   495
   End
   Begin VB.CommandButton Cmdcos 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "sin"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   2
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   20
      Top             =   5040
      UseMaskColor    =   -1  'True
      Width           =   375
   End
   Begin VB.CommandButton Cmdcos 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "tan"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   480
      Style           =   1  'Graphical
      TabIndex        =   19
      Top             =   5040
      UseMaskColor    =   -1  'True
      Width           =   375
   End
   Begin VB.CommandButton Cmdcos 
      Appearance      =   0  'Flat
      BackColor       =   &H0080C0FF&
      Caption         =   "cos"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   18
      Top             =   5400
      UseMaskColor    =   -1  'True
      Width           =   375
   End
   Begin VB.CommandButton cmd 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "."
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   10
      Left            =   1200
      Style           =   1  'Graphical
      TabIndex        =   17
      Top             =   6000
      Width           =   375
   End
   Begin VB.CommandButton cmdc 
      Appearance      =   0  'Flat
      Caption         =   "Clear"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      Style           =   1  'Graphical
      TabIndex        =   16
      Top             =   4440
      Width           =   735
   End
   Begin VB.CommandButton Cmdop 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0FFC0&
      Caption         =   "-"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   3
      Left            =   2400
      Style           =   1  'Graphical
      TabIndex        =   15
      Top             =   6000
      Width           =   375
   End
   Begin VB.CommandButton Cmdop 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0FFC0&
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   2
      Left            =   2400
      Style           =   1  'Graphical
      TabIndex        =   14
      Top             =   5640
      Width           =   375
   End
   Begin VB.CommandButton Cmdop 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0FFC0&
      Caption         =   "/"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   2400
      Style           =   1  'Graphical
      TabIndex        =   13
      Top             =   4920
      Width           =   375
   End
   Begin VB.CommandButton Cmdop 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0FFC0&
      Caption         =   "+"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   2400
      Style           =   1  'Graphical
      TabIndex        =   12
      Top             =   5280
      Width           =   375
   End
   Begin VB.CommandButton cmde 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "="
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   6000
      Width           =   375
   End
   Begin VB.CommandButton cmd 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "2"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   9
      Left            =   1560
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   4920
      Width           =   375
   End
   Begin VB.CommandButton cmd 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "3"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   8
      Left            =   1920
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   4920
      Width           =   375
   End
   Begin VB.CommandButton cmd 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "4"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   7
      Left            =   1200
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   5280
      Width           =   375
   End
   Begin VB.CommandButton cmd 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "5"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   6
      Left            =   1560
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   5280
      Width           =   375
   End
   Begin VB.CommandButton cmd 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "6"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   5
      Left            =   1920
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   5280
      Width           =   375
   End
   Begin VB.CommandButton cmd 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "7"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   4
      Left            =   1200
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   5640
      Width           =   375
   End
   Begin VB.CommandButton cmd 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "8"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   3
      Left            =   1560
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   5640
      Width           =   375
   End
   Begin VB.CommandButton cmd 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "9"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   2
      Left            =   1920
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   5640
      Width           =   375
   End
   Begin VB.CommandButton cmd 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   1
      Left            =   1560
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   6000
      Width           =   375
   End
   Begin VB.CommandButton cmd 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "1"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Index           =   0
      Left            =   1200
      MaskColor       =   &H00C0FFFF&
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   4920
      Width           =   375
   End
   Begin VB.TextBox txt 
      Alignment       =   1  'Right Justify
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   120
      ScrollBars      =   1  'Horizontal
      TabIndex        =   0
      Text            =   "0"
      Top             =   240
      Width           =   10455
   End
End
Attribute VB_Name = "calculator"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Dim no1 As Double, ans As Double, no2 As Double, NO3 As Double, cnt As Integer, cv As Integer, cnt1 As Integer
Dim op As String, op1 As String, flag As Integer, a As Double, x As Integer, nos As Integer
Dim modulCalcul As Integer



'

'
'
'   o functie cu return de testare
Function Hypotenuse(a As Integer, b As Integer) As String
   Hypotenuse = Sqr(a ^ 2 + b ^ 2)
End Function

Private Sub takeThis(xwidth As Integer, xheight As Integer)

    strX = Hypotenuse(xwidth, xheight)
    Me.Caption = strX
End Sub
'
'   end testare o functie cu return
'
'


'

'   start function return 1 if par, and o if impar
'
'
Function divByTwo(xx As Long)
    Dim y As Long
    y = xx Mod 2
        If y = 0 Then
            divByTwo = 0    'par sau rest zero
        Else
            divByTwo = 1    'impar sau rest non-zero
        End If
End Function

Function multByX(xx As String, yy As Integer)

         
        If xx = "1" Then
             multByX = 2 ^ yy 'impar sau rest non-zero
       End If
       
       'multByX = 0    'par sau rest zero nu se face nimic
        
End Function

Function hexByX(xx As String, yy As Integer)

         
         
        If xx <> "0" Then
                Select Case xx
                    Case "1", "2", "3", "4", "5", "6", "7", "8", "9"
                            'NU FACE NIMIC
                    Case "a", "A"
                            xx = 10
                    Case "b", "B"
                            xx = 11
                    Case "c", "C"
                            xx = 12
                    Case "d", "D"
                            xx = 13
                    Case "e", "E"
                            xx = 14
                    Case "f", "F"
                            xx = 15
                    Case Else
                          xx = 0
                          a = MsgBox("Not a Hex number!", vbCritical, "Error converting hex to dec!")
                End Select
                
             hexByX = xx * (16 ^ yy)
       End If
       
       'multByX = 0    'par sau rest zero nu se face nimic
        
End Function

Function octByX(xx As String, yy As Integer)

         
         
        If xx <> "0" Then
                               
             octByX = xx * (8 ^ yy)
       End If
       
       'multByX = 0    'par sau rest zero nu se face nimic
        
End Function

Function OctToDeca(ByVal x As String, ByVal y As Integer)

        OctToDeca = octByX(x, y)
End Function

Function HexToDeca(ByVal x As String, ByVal y As Integer)

        HexToDeca = hexByX(x, y)
End Function

Function DecaToBin(ByVal x As Long)

        DecaToBin = divByTwo(x)
End Function

Function BinToDeca(ByVal x As String, ByVal y As Integer)

        BinToDeca = multByX(x, y)
End Function



Private Sub Command10_Click()

'hexTOoct
 'txt.Text = Hex(txt.Text)
Call decTohexTestValue(Me.txt.Text)
txt.Text = Oct(Val(txt.Text))
End Sub

Private Sub Command11_Click()

'hextodec
 Call decTohexTestValue(Me.txt.Text)
 End Sub

Private Sub Command12_Click()

'hexTObin

Call decTohexTestValue(Me.txt.Text)
Call binTestValue(Val(Me.txt.Text))
End Sub

Private Sub Command13_Click()

'binTohex
Call decTestValue(Me.txt.Text)
 txt.Text = Hex(txt.Text)
End Sub

Private Sub Command14_Click()

'binTOoct
Call decTestValue(Me.txt.Text)
txt.Text = Oct(Val(txt.Text))
End Sub

Private Sub Command15_Click()

'oct to bin
Call octTodecaTestValue(Me.txt.Text)
Call binTestValue(Val(Me.txt.Text))
End Sub

Private Sub Command5_Click()

Call binTestValue(Val(Me.txt.Text))
End Sub


Public Function str2Array(xString As String) As String()

    Dim l As Integer
    l = Len(de)
   

    ReDim tmpArray(l) As String

    Dim tmpchar As String

' /* For Each Character In The String */

For i = 1 To l

    ' /* Retrieve The Character */

    tmpchar = Mid(xString, i, 1)
    ' /* Push It Into The Temporary Array */
    tmpArray(i) = tmpchar
Next i

' /* Return The Array To The Calling Procedure */

str2Array = tmpArray
End Function


Private Sub octTodecaTestValue(de As String)

Dim l As Integer
l = Len(de)
ReDim countersA(l) As String


For d = 1 To l

        countersA(d) = Mid(de, d, 1)
        'Me.Caption = Me.Caption & countersA(d) 'for debugging
Next d

Me.txtRez = ""

Me.txt.Text = ""
Dim b, c As Integer
Dim e As Double
e = 0
c = 1
f = l

        While c <= l

            
            b = OctToDeca(countersA(f), c - 1)
             e = e + b
               txt.Text = e
               Me.txtRez = Me.txtRez & " cA(f): " & countersA(f) & " e: " & e & " c: " & c & " f: " & f & " b: " & b & " -: " & vbCrLf
               
                c = c + 1
                f = f - 1
        Wend
End Sub
Private Sub decTohexTestValue(de As String)

Dim l As Integer
l = Len(de)
ReDim countersA(l) As String


For d = 1 To l

        countersA(d) = Mid(de, d, 1)
        'Me.Caption = Me.Caption & countersA(d) 'for debugging
Next d

Me.txtRez = ""

Me.txt.Text = ""
Dim b, c As Integer
Dim e As Double
e = 0
c = 1
f = l

        While c <= l

            
            b = HexToDeca(countersA(f), c - 1)
             e = e + b
               txt.Text = e
               Me.txtRez = Me.txtRez & " cA(f): " & countersA(f) & " e: " & e & " c: " & c & " f: " & f & " b: " & b & " -: " & vbCrLf
               
                c = c + 1
                f = f - 1
        Wend
End Sub

Private Sub decTestValue(de As String)


Dim l As Integer
l = Len(de)
ReDim countersA(l) As String

'''''countersA = str2Array(de) ' this don't work


For d = 1 To l

        countersA(d) = Mid(de, d, 1)
        'Me.Caption = Me.Caption & countersA(d) 'for debugging
Next d

Me.txtRez = ""

Me.txt.Text = ""
Dim b, c As Integer
Dim e As Double
e = 0
c = 1
f = l

        While c <= l

            
            b = BinToDeca(countersA(f), c - 1)
             e = e + b
               txt.Text = e
               Me.txtRez = Me.txtRez & " cA(f): " & countersA(f) & " e: " & e & " c: " & c & " f: " & f & " b: " & b & " -: " & vbCrLf
               
                c = c + 1
                f = f - 1
        Wend
     
End Sub

Private Sub binTestValue(de As Long)

 Me.txtRez = ""
    Me.txt.Text = ""
    Dim b As Long
        While de > 0
            
            b = DecaToBin(de)
            
               txt.Text = b & txt.Text
               Me.txtRez = Me.txtRez & " de: " & de & " b: " & b & " -: " & vbCrLf
               de = Int(de / 2)
                
        Wend
        
      
End Sub

Private Sub binTest()

    Dim a, b As Integer
        'For a = 0 To 10
            a = Val(txt.Text)
                txt.Text = ""
            b = DecaToBin(a)
                txt.Text = txt.Text & b
        'Next a
End Sub
''''''''''
'call function start point
Private Sub Command4_Click()
    Call binTest
End Sub

'

'   end function return 1 if par, and o if impar
'
'

Private Sub NconvertTo(modua, x)


modub = modulCalcul


    Select Case modua

        Case 1
            'tobinary
        Case 2
            'toBite
        Case 4
            'toQuad
        Case 8
            'toOct
        Case 10
            'toDeca
            '
        Case 16
            'toHex
            'txt.Text = Hex(x)
            
    End Select
End Sub
Private Sub cmd_Click(Index As Integer)

    If txt.Text = "0" Then

    txt.Text = ""
    End If
    If x = 0 Then
    txt.Text = ""
    x = x + 1
    End If
    txt.Text = txt.Text + cmd(Index).Caption
End Sub

Private Sub cmdc_Click()

    txt.Text = "0"
    cnt = 0
    cnt1 = 0
    j = 0
    x = 0
End Sub

Private Sub cmdCos_Click(Index As Integer)

   op1 = Cmdcos(Index).Caption
   nos = txt.Text
    Select Case op1
        Case "cos"
                If flag = 1 Then
                ans = Cos((3.14 / 180) * nos)
                Else
                ans = Cos(nos)
                End If
        Case "sin"
                If flag = 1 Then
                ans = Sin((3.14 / 180) * nos)
                Else
                ans = Sin(nos)
                End If
        Case "tan"
                If flag = 1 Then
                ans = Tan((3.14 / 180) * nos)
                Else
                ans = Tan(nos)
                End If
                If no1 Mod 90 = 0 Then
                    NO3 = no1 / 2
                    If NO3 Mod 2 = 1 Then
                        i = MsgBox("Wrong input", vbExclamation + vbOKOnly, "ERROR")
                        ans = 0
                    Else
                    ans = 0
                    End If
                End If
        Case "x^2"
                ans = nos ^ 2
        Case "x^3"
                ans = nos ^ 3
        Case "1/x"
                If nos = 0 Then
                i = MsgBox("Divide by zero error", vbExclamation + vbOKOnly, "ERROR")
                Else
                ans = 1 / nos
                End If
         Case "ln"
                If nos = 0 Then
                i = MsgBox("Math error", vbExclamation + vbOKOnly, "ERROR")
                Else
                ans = Log(nos)
                End If
         Case "Exp"
                ans = Exp(nos)
         Case "n!"
                ans = 1
                no2 = nos
                For i = 1 To no2
                ans = ans * i
                Next
         Case "sqrt"
                ans = Sqr(nos)
         Case "MS"
                ans = nos
                a = nos
          Case "MR"
                ans = a
                no1 = a
       End Select
    txt.Text = ans
End Sub

Private Sub cmde_Click()

cnt1 = 0
    Select Case op
        Case "+"
                ans = txt.Text + no1
                If cnt = 0 Then
                  no1 = txt.Text
                    cnt = cnt + 1
                End If
                txt.Text = ans
        Case "-"
                If cnt > 0 Then
                  txt.Text = no1
                  no1 = ans
                End If
                 ans = no1 - txt.Text
                 no1 = txt.Text
                 txt.Text = ans
                cnt = cnt + 1
        Case "*"
                ans = no1 * txt.Text
                If cnt = 0 Then
                  no1 = txt.Text
                    cnt = cnt + 1
                End If
        txt.Text = ans
        Case "/"
                If cnt > 0 Then
                  txt.Text = no1
                  no1 = ans
                End If
                If txt.Text = "0" Then
                i = MsgBox("Divide by zero error", vbExclamation + vbOKOnly, "ERROR")
                Else
                ans = no1 / txt.Text
                 no1 = txt.Text
                txt.Text = ans
                cnt = cnt + 1
                End If
        Case "x^y"
                ans = no1 ^ txt.Text
                txt.Text = ans
    End Select
End Sub
Private Sub cmdop_Click(Index As Integer)
    x = 0
    If cnt1 > 0 Then
        Select Case op
            Case "+"
                    ans = no1 + txt.Text
                    txt.Text = ans
                    no1 = txt.Text
                    op = Cmdop(Index).Caption
            Case "-"
                    ans = no1 - txt.Text
                    txt.Text = ans
                    no1 = txt.Text
                    op = Cmdop(Index).Caption
            Case "/"
                    ans = no1 / txt.Text
                    txt.Text = ans
                    no1 = txt.Text
                    op = Cmdop(Index).Caption
            Case "*"
                    ans = no1 * txt.Text
                    txt.Text = ans
                    no1 = txt.Text
                    op = Cmdop(Index).Caption
            Case "x^y"
                    ans = no1 ^ txt.Text
                    txt.Text = ans
                    no1 = txt.Text
                    op = Cmdop(Index).Caption
        End Select
    Else
    no1 = Val(txt.Text)
    op = Cmdop(Index).Caption
    txt.Text = 0
    cnt1 = cnt1 + 1
    End If
End Sub


Private Sub Command1_Click(Index As Integer)

 If txt.Text = "0" Then
    txt.Text = ""
    End If
    If x = 0 Then
    txt.Text = ""
    x = x + 1
    End If
    txt.Text = txt.Text & Command1(Index).Caption
End Sub

Private Sub Command2_Click()

 'txtHex.Text = Hex(txt.Text)
 txt.Text = Hex(txt.Text)
End Sub

Private Sub Command3_Click()

Call takeThis(2, 3)
End Sub



Private Sub Command6_Click()

Call decTestValue(Me.txt.Text)
End Sub

Private Sub Command7_Click()

txt.Text = Oct(Val(txt.Text))
End Sub

Private Sub Command8_Click()

'oct to deca
Call octTodecaTestValue(Me.txt.Text)
End Sub

Private Sub Command9_Click()

'octTOhex
Call octTodecaTestValue(Me.txt.Text)
 txt.Text = Hex(txt.Text)
End Sub

Private Sub Form_Load()

Dim pi As Double
pi = 3.14159265358979
flag = 0
cnt = 0
j = 0
i = 1
modulCalcul = 10

End Sub


Private Sub onb_Click(Index As Integer)

If onb(Index).Caption = "On" Then
For i = 0 To 10
 cmd(i).Enabled = True
 Next
 For i = 0 To 4
 Cmdop(i).Enabled = True
 Next
 For i = 3 To 11
 Cmdcos(i).Enabled = True
 Next
 cmde.Enabled = True
 Opt1.Enabled = True
 Opt2.Enabled = True
 'col.BackColor = vbGreen
 Else
For i = 0 To 10
 cmd(i).Enabled = False
 Next
For i = 0 To 4
 Cmdop(i).Enabled = False
 Next
 flag = 0
 For i = 0 To 11
 Cmdcos(i).Enabled = False
 Next
 cmde.Enabled = False
 Opt1.Enabled = False
 Opt2.Enabled = False
 Opt1.Value = False
 Opt2.Value = False
'  col.BackColor = vbRed
 End If
End Sub

Private Sub Opt1_Click()

    flag = 1
    For i = 0 To 2
    Cmdcos(i).Enabled = True
    Next
End Sub

Private Sub Opt2_Click()

    flag = 2
    For i = 0 To 2
    Cmdcos(i).Enabled = True
    Next
End Sub

Private Sub Option1_Click(Index As Integer)

Call DecaMode(0)
Call HexMode(0)
Select Case Index
    Case Is = 0
        modulCalcul = 1
        Me.Frame1.Caption = "Calcul Mode : Binary"
        Call BinMode(1)
    Case Is = 1
        modulCalcul = 2
        Me.Frame1.Caption = "Calcul Mode : Byte"
        Call BinMode(1)
    Case Is = 2
        modulCalcul = 4
        Me.Frame1.Caption = "Calcul Mode : Quad"
        Call QuadMode(1)
    Case Is = 3
        modulCalcul = 8
        Me.Frame1.Caption = "Calcul Mode : Octal"
        Call OctMode(1)
    Case Is = 4
        Call NconvertTo(10, Val(txt.Text))
        modulCalcul = 10
        Me.Frame1.Caption = "Calcul Mode : Deca"
        Call DecaMode(1)
    Case Is = 5
        Call NconvertTo(16, Val(txt.Text))
        modulCalcul = 16
        Me.Frame1.Caption = "Calcul Mode : Hex"
           Call DecaMode(1)
        Call HexMode(1)
End Select



End Sub


Private Sub OctMode(activI)


If activI = 1 Then

QuadMode (1)
cmd.Item(5).Enabled = True
cmd.Item(4).Enabled = True
cmd.Item(7).Enabled = True
cmd.Item(6).Enabled = True
Else
QuadMode (0)
cmd.Item(5).Enabled = False
cmd.Item(4).Enabled = False
cmd.Item(7).Enabled = False
cmd.Item(6).Enabled = False
End If
End Sub

Private Sub BinMode(activI)

If activI = 1 Then
cmd.Item(0).Enabled = True
cmd.Item(1).Enabled = True
Else
cmd.Item(0).Enabled = False
cmd.Item(1).Enabled = False
End If
End Sub

Private Sub QuadMode(activI)

If activI = 1 Then
Call BinMode(1)
cmd.Item(9).Enabled = True
cmd.Item(8).Enabled = True
Else
Call BinMode(0)
cmd.Item(9).Enabled = False
cmd.Item(8).Enabled = False
Call BinMode(0)
End If
End Sub

Private Sub DecaMode(activI)

If activI = 1 Then
cmd.Item(0).Enabled = True
cmd.Item(1).Enabled = True
cmd.Item(2).Enabled = True
cmd.Item(3).Enabled = True
cmd.Item(4).Enabled = True
cmd.Item(5).Enabled = True
cmd.Item(6).Enabled = True
cmd.Item(7).Enabled = True
cmd.Item(8).Enabled = True
cmd.Item(9).Enabled = True
Else
cmd.Item(0).Enabled = False
cmd.Item(1).Enabled = False
cmd.Item(2).Enabled = False
cmd.Item(3).Enabled = False
cmd.Item(4).Enabled = False
cmd.Item(5).Enabled = False
cmd.Item(6).Enabled = False
cmd.Item(7).Enabled = False
cmd.Item(8).Enabled = False
cmd.Item(9).Enabled = False
End If
End Sub

Private Sub HexMode(activI)

If activI = 1 Then
Command1.Item(0).Enabled = True
Command1.Item(1).Enabled = True
Command1.Item(2).Enabled = True
Command1.Item(3).Enabled = True
Command1.Item(4).Enabled = True
Command1.Item(5).Enabled = True
Else
Command1.Item(0).Enabled = False
Command1.Item(1).Enabled = False
Command1.Item(2).Enabled = False
Command1.Item(3).Enabled = False
Command1.Item(4).Enabled = False
Command1.Item(5).Enabled = False
End If
End Sub

Comentarii

Postări populare de pe acest blog

program principal cpp

#include "clasa.h" #include <stdio.h> #include <conio.h> #include <stdlib.h> #include <string.h> #define DELAY 9000000 void delay() { for(long i=0;i<DELAY;i++); } //constructor cu initializare de la tastatura BigInt::BigInt() {char x; signed char t[400]; int i; printf("\nNumarul cu semn "); do s=getche(); while((s!='+')&&(s!='-')); n=0; do {x=getche(); t[n]=x-'0'; n++; } while((x>='0')&&(x<='9')); n--; for(i=0;i<n;i++) nr[i]=t[n-i-1]; } //constructor cu initializare prin parametri BigInt::BigInt(char semn,signed char numar[],int dim) {int i; s=semn; n=dim; for(i=0;i<n;i++) nr[i]=numar[n-i-1]; } //transform un int negativ in pozitiv int BigInt::Pozitiv(int x) {int a,vb; a=0; vb=0; while(vb==0) if((x+a)==0) vb=1; else a=a+1; x=a; return x; } //constructor dintr-un nr int obisnuit BigInt::BigInt(int x) {int i; if(x>=0) s='+'…

NUMERE PRIME ALGORITM C++

// NUMERE PRIME ALGORITM C++//  reediting from scratch //on this page is just the study for a next algoritm for generating the parime nr series like Fibonnaci or ....if possibile

74111121313417374414124343447 if u know the red part you can generate the orange part
1 0 1 111112222 1 1 23

o aplicatie php localitati romania

//APLICATIA SE REFERA LA BAZA DE DATE SIRUTA

//dragtable.js


/* dragtable v1.0 June 26, 2008 Dan Vanderkam, http://danvk.org/dragtable/ http://code.google.com/p/dragtable/ \Bsortabledraggable\B Instructions: - Download this file - Add <script src="dragtable.js"></script> to your HTML. - Add class="draggable" to any table you might like to reorder. - Drag the headers around to reorder them. This is code was based on: - Stuart Langridge's SortTable (kryogenix.org/code/browser/sorttable) - Mike Hall's draggable class (http://www.brainjar.com/dhtml/drag/) - A discussion of permuting table columns on comp.lang.javascript Licensed under the MIT license. */ // Here's the notice from Mike Hall's draggable script: //***************************************************************************** // Do not remove this notice. // // Copyright 2001 by Mike Hall. // See http…