home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Dynamic_Ca215181582009.psc / Calculator / frmMain.frm < prev    next >
Text File  |  2009-04-16  |  27KB  |  823 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Dynamic Calculator"
  6.    ClientHeight    =   4020
  7.    ClientLeft      =   45
  8.    ClientTop       =   435
  9.    ClientWidth     =   4455
  10.    Icon            =   "frmMain.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4020
  15.    ScaleWidth      =   4455
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton CmdButn 
  18.       BackColor       =   &H00FFFFFF&
  19.       Caption         =   "Sin"
  20.       BeginProperty Font 
  21.          Name            =   "MS Sans Serif"
  22.          Size            =   9.75
  23.          Charset         =   178
  24.          Weight          =   700
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   495
  30.       Index           =   25
  31.       Left            =   2040
  32.       Style           =   1  'Graphical
  33.       TabIndex        =   27
  34.       Top             =   3120
  35.       Width           =   495
  36.    End
  37.    Begin VB.PictureBox Picture1 
  38.       Appearance      =   0  'Flat
  39.       BackColor       =   &H80000005&
  40.       ForeColor       =   &H80000008&
  41.       Height          =   255
  42.       Left            =   120
  43.       ScaleHeight     =   225
  44.       ScaleWidth      =   1065
  45.       TabIndex        =   35
  46.       Top             =   3360
  47.       Width           =   1095
  48.       Begin VB.Label Prev 
  49.          AutoSize        =   -1  'True
  50.          BackStyle       =   0  'Transparent
  51.          Caption         =   "~= 0"
  52.          Height          =   195
  53.          Left            =   0
  54.          TabIndex        =   36
  55.          Top             =   0
  56.          Width           =   330
  57.       End
  58.    End
  59.    Begin VB.TextBox ValueText 
  60.       Appearance      =   0  'Flat
  61.       BackColor       =   &H00E0E0E0&
  62.       BeginProperty Font 
  63.          Name            =   "MS Sans Serif"
  64.          Size            =   13.5
  65.          Charset         =   178
  66.          Weight          =   700
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.       ForeColor       =   &H000000C0&
  72.       Height          =   480
  73.       Left            =   120
  74.       TabIndex        =   0
  75.       Top             =   120
  76.       Width           =   3615
  77.    End
  78.    Begin VB.CommandButton Command2 
  79.       BackColor       =   &H00FFFFFF&
  80.       Caption         =   "C"
  81.       BeginProperty Font 
  82.          Name            =   "MS Sans Serif"
  83.          Size            =   9.75
  84.          Charset         =   178
  85.          Weight          =   700
  86.          Underline       =   0   'False
  87.          Italic          =   0   'False
  88.          Strikethrough   =   0   'False
  89.       EndProperty
  90.       Height          =   495
  91.       Left            =   4080
  92.       Style           =   1  'Graphical
  93.       TabIndex        =   34
  94.       Top             =   120
  95.       Width           =   255
  96.    End
  97.    Begin VB.CommandButton Command1 
  98.       BackColor       =   &H00FFFFFF&
  99.       Caption         =   "<"
  100.       BeginProperty Font 
  101.          Name            =   "MS Sans Serif"
  102.          Size            =   9.75
  103.          Charset         =   178
  104.          Weight          =   700
  105.          Underline       =   0   'False
  106.          Italic          =   0   'False
  107.          Strikethrough   =   0   'False
  108.       EndProperty
  109.       Height          =   495
  110.       Left            =   3840
  111.       Style           =   1  'Graphical
  112.       TabIndex        =   33
  113.       Top             =   120
  114.       Width           =   255
  115.    End
  116.    Begin VB.CommandButton CmdButn 
  117.       BackColor       =   &H00FFFFFF&
  118.       Caption         =   "^"
  119.       BeginProperty Font 
  120.          Name            =   "MS Sans Serif"
  121.          Size            =   9.75
  122.          Charset         =   178
  123.          Weight          =   700
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       Height          =   495
  129.       Index           =   30
  130.       Left            =   2640
  131.       Style           =   1  'Graphical
  132.       TabIndex        =   32
  133.       Top             =   1320
  134.       Width           =   495
  135.    End
  136.    Begin VB.CommandButton CmdButn 
  137.       BackColor       =   &H00FFFFFF&
  138.       Caption         =   "Rad"
  139.       BeginProperty Font 
  140.          Name            =   "MS Sans Serif"
  141.          Size            =   8.25
  142.          Charset         =   178
  143.          Weight          =   700
  144.          Underline       =   0   'False
  145.          Italic          =   0   'False
  146.          Strikethrough   =   0   'False
  147.       EndProperty
  148.       Height          =   495
  149.       Index           =   29
  150.       Left            =   2040
  151.       Style           =   1  'Graphical
  152.       TabIndex        =   31
  153.       Top             =   2520
  154.       Width           =   495
  155.    End
  156.    Begin VB.CommandButton CmdButn 
  157.       BackColor       =   &H00FFFFFF&
  158.       Caption         =   "Ctg"
  159.       BeginProperty Font 
  160.          Name            =   "MS Sans Serif"
  161.          Size            =   9.75
  162.          Charset         =   178
  163.          Weight          =   700
  164.          Underline       =   0   'False
  165.          Italic          =   0   'False
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       Height          =   495
  169.       Index           =   28
  170.       Left            =   3840
  171.       Style           =   1  'Graphical
  172.       TabIndex        =   30
  173.       Top             =   3120
  174.       Width           =   495
  175.    End
  176.    Begin VB.CommandButton CmdButn 
  177.       BackColor       =   &H00FFFFFF&
  178.       Caption         =   "Tan"
  179.       BeginProperty Font 
  180.          Name            =   "MS Sans Serif"
  181.          Size            =   9.75
  182.          Charset         =   178
  183.          Weight          =   700
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       Height          =   495
  189.       Index           =   27
  190.       Left            =   3240
  191.       Style           =   1  'Graphical
  192.       TabIndex        =   29
  193.       Top             =   3120
  194.       Width           =   495
  195.    End
  196.    Begin VB.CommandButton CmdButn 
  197.       BackColor       =   &H00FFFFFF&
  198.       Caption         =   "Cos"
  199.       BeginProperty Font 
  200.          Name            =   "MS Sans Serif"
  201.          Size            =   9.75
  202.          Charset         =   178
  203.          Weight          =   700
  204.          Underline       =   0   'False
  205.          Italic          =   0   'False
  206.          Strikethrough   =   0   'False
  207.       EndProperty
  208.       Height          =   495
  209.       Index           =   26
  210.       Left            =   2640
  211.       Style           =   1  'Graphical
  212.       TabIndex        =   28
  213.       Top             =   3120
  214.       Width           =   495
  215.    End
  216.    Begin VB.CommandButton CmdButn 
  217.       BackColor       =   &H00FFFFFF&
  218.       Caption         =   "e"
  219.       BeginProperty Font 
  220.          Name            =   "MS Sans Serif"
  221.          Size            =   9.75
  222.          Charset         =   178
  223.          Weight          =   700
  224.          Underline       =   0   'False
  225.          Italic          =   0   'False
  226.          Strikethrough   =   0   'False
  227.       EndProperty
  228.       Height          =   495
  229.       Index           =   24
  230.       Left            =   2640
  231.       Style           =   1  'Graphical
  232.       TabIndex        =   26
  233.       Top             =   2520
  234.       Width           =   375
  235.    End
  236.    Begin VB.CommandButton CmdButn 
  237.       BackColor       =   &H00FFFFFF&
  238.       Caption         =   "Mg"
  239.       BeginProperty Font 
  240.          Name            =   "MS Sans Serif"
  241.          Size            =   9.75
  242.          Charset         =   178
  243.          Weight          =   700
  244.          Underline       =   0   'False
  245.          Italic          =   0   'False
  246.          Strikethrough   =   0   'False
  247.       EndProperty
  248.       Height          =   495
  249.       Index           =   23
  250.       Left            =   3120
  251.       Style           =   1  'Graphical
  252.       TabIndex        =   25
  253.       Top             =   2520
  254.       Width           =   495
  255.    End
  256.    Begin VB.CommandButton CmdButn 
  257.       BackColor       =   &H00FFFFFF&
  258.       Caption         =   "."
  259.       BeginProperty Font 
  260.          Name            =   "MS Sans Serif"
  261.          Size            =   9.75
  262.          Charset         =   178
  263.          Weight          =   700
  264.          Underline       =   0   'False
  265.          Italic          =   0   'False
  266.          Strikethrough   =   0   'False
  267.       EndProperty
  268.       Height          =   495
  269.       Index           =   22
  270.       Left            =   720
  271.       Style           =   1  'Graphical
  272.       TabIndex        =   24
  273.       Top             =   2520
  274.       Width           =   495
  275.    End
  276.    Begin VB.CommandButton CmdButn 
  277.       BackColor       =   &H00FFFFFF&
  278.       Caption         =   "Plank"
  279.       Height          =   495
  280.       Index           =   21
  281.       Left            =   3720
  282.       Style           =   1  'Graphical
  283.       TabIndex        =   23
  284.       Top             =   2520
  285.       Width           =   615
  286.    End
  287.    Begin VB.CommandButton CmdButn 
  288.       BackColor       =   &H00FFFFFF&
  289.       Caption         =   "Pi"
  290.       BeginProperty Font 
  291.          Name            =   "MS Sans Serif"
  292.          Size            =   9.75
  293.          Charset         =   178
  294.          Weight          =   700
  295.          Underline       =   0   'False
  296.          Italic          =   0   'False
  297.          Strikethrough   =   0   'False
  298.       EndProperty
  299.       Height          =   495
  300.       Index           =   20
  301.       Left            =   3240
  302.       Style           =   1  'Graphical
  303.       TabIndex        =   22
  304.       Top             =   1920
  305.       Width           =   495
  306.    End
  307.    Begin VB.CommandButton CmdButn 
  308.       BackColor       =   &H00FFFFFF&
  309.       Caption         =   "|"
  310.       BeginProperty Font 
  311.          Name            =   "MS Sans Serif"
  312.          Size            =   9.75
  313.          Charset         =   178
  314.          Weight          =   700
  315.          Underline       =   0   'False
  316.          Italic          =   0   'False
  317.          Strikethrough   =   0   'False
  318.       EndProperty
  319.       Height          =   495
  320.       Index           =   19
  321.       Left            =   2040
  322.       Style           =   1  'Graphical
  323.       TabIndex        =   21
  324.       Top             =   1920
  325.       Width           =   495
  326.    End
  327.    Begin VB.CommandButton CmdButn 
  328.       BackColor       =   &H00FFFFFF&
  329.       Caption         =   "!"
  330.       BeginProperty Font 
  331.          Name            =   "MS Sans Serif"
  332.          Size            =   9.75
  333.          Charset         =   178
  334.          Weight          =   700
  335.          Underline       =   0   'False
  336.          Italic          =   0   'False
  337.          Strikethrough   =   0   'False
  338.       EndProperty
  339.       Height          =   495
  340.       Index           =   18
  341.       Left            =   2640
  342.       Style           =   1  'Graphical
  343.       TabIndex        =   20
  344.       Top             =   1920
  345.       Width           =   495
  346.    End
  347.    Begin VB.CommandButton CmdButn 
  348.       BackColor       =   &H00FFFFFF&
  349.       Caption         =   ")"
  350.       BeginProperty Font 
  351.          Name            =   "MS Sans Serif"
  352.          Size            =   9.75
  353.          Charset         =   178
  354.          Weight          =   700
  355.          Underline       =   0   'False
  356.          Italic          =   0   'False
  357.          Strikethrough   =   0   'False
  358.       EndProperty
  359.       Height          =   495
  360.       Index           =   17
  361.       Left            =   3840
  362.       Style           =   1  'Graphical
  363.       TabIndex        =   19
  364.       Top             =   1320
  365.       Width           =   495
  366.    End
  367.    Begin VB.CommandButton CmdButn 
  368.       BackColor       =   &H00FFFFFF&
  369.       Caption         =   "("
  370.       BeginProperty Font 
  371.          Name            =   "MS Sans Serif"
  372.          Size            =   9.75
  373.          Charset         =   178
  374.          Weight          =   700
  375.          Underline       =   0   'False
  376.          Italic          =   0   'False
  377.          Strikethrough   =   0   'False
  378.       EndProperty
  379.       Height          =   495
  380.       Index           =   16
  381.       Left            =   3240
  382.       Style           =   1  'Graphical
  383.       TabIndex        =   18
  384.       Top             =   1320
  385.       Width           =   495
  386.    End
  387.    Begin VB.CommandButton CmdButn 
  388.       BackColor       =   &H00FFFFFF&
  389.       Caption         =   "Sqr"
  390.       BeginProperty Font 
  391.          Name            =   "MS Sans Serif"
  392.          Size            =   9.75
  393.          Charset         =   178
  394.          Weight          =   700
  395.          Underline       =   0   'False
  396.          Italic          =   0   'False
  397.          Strikethrough   =   0   'False
  398.       EndProperty
  399.       Height          =   495
  400.       Index           =   15
  401.       Left            =   2040
  402.       Style           =   1  'Graphical
  403.       TabIndex        =   17
  404.       Top             =   1320
  405.       Width           =   495
  406.    End
  407.    Begin VB.CommandButton CmdButn 
  408.       BackColor       =   &H00FFFFFF&
  409.       Caption         =   "\"
  410.       BeginProperty Font 
  411.          Name            =   "MS Sans Serif"
  412.          Size            =   9.75
  413.          Charset         =   178
  414.          Weight          =   700
  415.          Underline       =   0   'False
  416.          Italic          =   0   'False
  417.          Strikethrough   =   0   'False
  418.       EndProperty
  419.       Height          =   495
  420.       Index           =   14
  421.       Left            =   3840
  422.       Style           =   1  'Graphical
  423.       TabIndex        =   16
  424.       Top             =   1920
  425.       Width           =   495
  426.    End
  427.    Begin VB.CommandButton CmdButn 
  428.       BackColor       =   &H00FFFFFF&
  429.       Caption         =   "/"
  430.       BeginProperty Font 
  431.          Name            =   "MS Sans Serif"
  432.          Size            =   9.75
  433.          Charset         =   178
  434.          Weight          =   700
  435.          Underline       =   0   'False
  436.          Italic          =   0   'False
  437.          Strikethrough   =   0   'False
  438.       EndProperty
  439.       Height          =   495
  440.       Index           =   13
  441.       Left            =   3840
  442.       Style           =   1  'Graphical
  443.       TabIndex        =   15
  444.       Top             =   720
  445.       Width           =   495
  446.    End
  447.    Begin VB.CommandButton CmdButn 
  448.       BackColor       =   &H00FFFFFF&
  449.       Caption         =   "+"
  450.       BeginProperty Font 
  451.          Name            =   "MS Sans Serif"
  452.          Size            =   9.75
  453.          Charset         =   178
  454.          Weight          =   700
  455.          Underline       =   0   'False
  456.          Italic          =   0   'False
  457.          Strikethrough   =   0   'False
  458.       EndProperty
  459.       Height          =   495
  460.       Index           =   12
  461.       Left            =   2040
  462.       Style           =   1  'Graphical
  463.       TabIndex        =   14
  464.       Top             =   720
  465.       Width           =   495
  466.    End
  467.    Begin VB.CommandButton CmdButn 
  468.       BackColor       =   &H00FFFFFF&
  469.       Caption         =   "-"
  470.       BeginProperty Font 
  471.          Name            =   "MS Sans Serif"
  472.          Size            =   9.75
  473.          Charset         =   178
  474.          Weight          =   700
  475.          Underline       =   0   'False
  476.          Italic          =   0   'False
  477.          Strikethrough   =   0   'False
  478.       EndProperty
  479.       Height          =   495
  480.       Index           =   11
  481.       Left            =   2640
  482.       Style           =   1  'Graphical
  483.       TabIndex        =   13
  484.       Top             =   720
  485.       Width           =   495
  486.    End
  487.    Begin VB.CommandButton CmdButn 
  488.       BackColor       =   &H00FFFFFF&
  489.       Caption         =   "*"
  490.       BeginProperty Font 
  491.          Name            =   "MS Sans Serif"
  492.          Size            =   9.75
  493.          Charset         =   178
  494.          Weight          =   700
  495.          Underline       =   0   'False
  496.          Italic          =   0   'False
  497.          Strikethrough   =   0   'False
  498.       EndProperty
  499.       Height          =   495
  500.       Index           =   10
  501.       Left            =   3240
  502.       Style           =   1  'Graphical
  503.       TabIndex        =   12
  504.       Top             =   720
  505.       Width           =   495
  506.    End
  507.    Begin VB.CommandButton CmdButnEq 
  508.       BackColor       =   &H00FFFFFF&
  509.       Caption         =   "="
  510.       BeginProperty Font 
  511.          Name            =   "MS Sans Serif"
  512.          Size            =   9.75
  513.          Charset         =   178
  514.          Weight          =   700
  515.          Underline       =   0   'False
  516.          Italic          =   0   'False
  517.          Strikethrough   =   0   'False
  518.       EndProperty
  519.       Height          =   1095
  520.       Left            =   1320
  521.       Style           =   1  'Graphical
  522.       TabIndex        =   11
  523.       Top             =   2520
  524.       Width           =   615
  525.    End
  526.    Begin VB.CommandButton CmdButn 
  527.       BackColor       =   &H00FFFFFF&
  528.       Caption         =   "0"
  529.       BeginProperty Font 
  530.          Name            =   "MS Sans Serif"
  531.          Size            =   9.75
  532.          Charset         =   178
  533.          Weight          =   700
  534.          Underline       =   0   'False
  535.          Italic          =   0   'False
  536.          Strikethrough   =   0   'False
  537.       EndProperty
  538.       Height          =   495
  539.       Index           =   9
  540.       Left            =   120
  541.       Style           =   1  'Graphical
  542.       TabIndex        =   10
  543.       Top             =   2520
  544.       Width           =   495
  545.    End
  546.    Begin VB.CommandButton CmdButn 
  547.       BackColor       =   &H00FFFFFF&
  548.       Caption         =   "9"
  549.       BeginProperty Font 
  550.          Name            =   "MS Sans Serif"
  551.          Size            =   9.75
  552.          Charset         =   178
  553.          Weight          =   700
  554.          Underline       =   0   'False
  555.          Italic          =   0   'False
  556.          Strikethrough   =   0   'False
  557.       EndProperty
  558.       Height          =   495
  559.       Index           =   8
  560.       Left            =   1320
  561.       Style           =   1  'Graphical
  562.       TabIndex        =   9
  563.       Top             =   1920
  564.       Width           =   495
  565.    End
  566.    Begin VB.CommandButton CmdButn 
  567.       BackColor       =   &H00FFFFFF&
  568.       Caption         =   "7"
  569.       BeginProperty Font 
  570.          Name            =   "MS Sans Serif"
  571.          Size            =   9.75
  572.          Charset         =   178
  573.          Weight          =   700
  574.          Underline       =   0   'False
  575.          Italic          =   0   'False
  576.          Strikethrough   =   0   'False
  577.       EndProperty
  578.       Height          =   495
  579.       Index           =   7
  580.       Left            =   120
  581.       Style           =   1  'Graphical
  582.       TabIndex        =   8
  583.       Top             =   1920
  584.       Width           =   495
  585.    End
  586.    Begin VB.CommandButton CmdButn 
  587.       BackColor       =   &H00FFFFFF&
  588.       Caption         =   "8"
  589.       BeginProperty Font 
  590.          Name            =   "MS Sans Serif"
  591.          Size            =   9.75
  592.          Charset         =   178
  593.          Weight          =   700
  594.          Underline       =   0   'False
  595.          Italic          =   0   'False
  596.          Strikethrough   =   0   'False
  597.       EndProperty
  598.       Height          =   495
  599.       Index           =   6
  600.       Left            =   720
  601.       Style           =   1  'Graphical
  602.       TabIndex        =   7
  603.       Top             =   1920
  604.       Width           =   495
  605.    End
  606.    Begin VB.CommandButton CmdButn 
  607.       BackColor       =   &H00FFFFFF&
  608.       Caption         =   "6"
  609.       BeginProperty Font 
  610.          Name            =   "MS Sans Serif"
  611.          Size            =   9.75
  612.          Charset         =   178
  613.          Weight          =   700
  614.          Underline       =   0   'False
  615.          Italic          =   0   'False
  616.          Strikethrough   =   0   'False
  617.       EndProperty
  618.       Height          =   495
  619.       Index           =   5
  620.       Left            =   1320
  621.       Style           =   1  'Graphical
  622.       TabIndex        =   6
  623.       Top             =   1320
  624.       Width           =   495
  625.    End
  626.    Begin VB.CommandButton CmdButn 
  627.       BackColor       =   &H00FFFFFF&
  628.       Caption         =   "4"
  629.       BeginProperty Font 
  630.          Name            =   "MS Sans Serif"
  631.          Size            =   9.75
  632.          Charset         =   178
  633.          Weight          =   700
  634.          Underline       =   0   'False
  635.          Italic          =   0   'False
  636.          Strikethrough   =   0   'False
  637.       EndProperty
  638.       Height          =   495
  639.       Index           =   4
  640.       Left            =   120
  641.       Style           =   1  'Graphical
  642.       TabIndex        =   5
  643.       Top             =   1320
  644.       Width           =   495
  645.    End
  646.    Begin VB.CommandButton CmdButn 
  647.       BackColor       =   &H00FFFFFF&
  648.       Caption         =   "5"
  649.       BeginProperty Font 
  650.          Name            =   "MS Sans Serif"
  651.          Size            =   9.75
  652.          Charset         =   178
  653.          Weight          =   700
  654.          Underline       =   0   'False
  655.          Italic          =   0   'False
  656.          Strikethrough   =   0   'False
  657.       EndProperty
  658.       Height          =   495
  659.       Index           =   3
  660.       Left            =   720
  661.       Style           =   1  'Graphical
  662.       TabIndex        =   4
  663.       Top             =   1320
  664.       Width           =   495
  665.    End
  666.    Begin VB.CommandButton CmdButn 
  667.       BackColor       =   &H00FFFFFF&
  668.       Caption         =   "3"
  669.       BeginProperty Font 
  670.          Name            =   "MS Sans Serif"
  671.          Size            =   9.75
  672.          Charset         =   178
  673.          Weight          =   700
  674.          Underline       =   0   'False
  675.          Italic          =   0   'False
  676.          Strikethrough   =   0   'False
  677.       EndProperty
  678.       Height          =   495
  679.       Index           =   2
  680.       Left            =   1320
  681.       Style           =   1  'Graphical
  682.       TabIndex        =   3
  683.       Top             =   720
  684.       Width           =   495
  685.    End
  686.    Begin VB.CommandButton CmdButn 
  687.       BackColor       =   &H00FFFFFF&
  688.       Caption         =   "2"
  689.       BeginProperty Font 
  690.          Name            =   "MS Sans Serif"
  691.          Size            =   9.75
  692.          Charset         =   178
  693.          Weight          =   700
  694.          Underline       =   0   'False
  695.          Italic          =   0   'False
  696.          Strikethrough   =   0   'False
  697.       EndProperty
  698.       Height          =   495
  699.       Index           =   1
  700.       Left            =   720
  701.       Style           =   1  'Graphical
  702.       TabIndex        =   2
  703.       Top             =   720
  704.       Width           =   495
  705.    End
  706.    Begin VB.CommandButton CmdButn 
  707.       BackColor       =   &H00FFFFFF&
  708.       Caption         =   "1"
  709.       BeginProperty Font 
  710.          Name            =   "MS Sans Serif"
  711.          Size            =   9.75
  712.          Charset         =   178
  713.          Weight          =   700
  714.          Underline       =   0   'False
  715.          Italic          =   0   'False
  716.          Strikethrough   =   0   'False
  717.       EndProperty
  718.       Height          =   495
  719.       Index           =   0
  720.       Left            =   120
  721.       Style           =   1  'Graphical
  722.       TabIndex        =   1
  723.       Top             =   720
  724.       Width           =   495
  725.    End
  726.    Begin VB.Image Image1 
  727.       Height          =   255
  728.       Left            =   120
  729.       Top             =   3720
  730.       Width           =   255
  731.    End
  732.    Begin VB.Label Label1 
  733.       AutoSize        =   -1  'True
  734.       BackStyle       =   0  'Transparent
  735.       Caption         =   "Written by   Zaid Markabi , Arabic Syrian Programmer ."
  736.       Height          =   195
  737.       Left            =   480
  738.       TabIndex        =   37
  739.       Top             =   3720
  740.       Width           =   3825
  741.    End
  742. End
  743. Attribute VB_Name = "frmMain"
  744. Attribute VB_GlobalNameSpace = False
  745. Attribute VB_Creatable = False
  746. Attribute VB_PredeclaredId = True
  747. Attribute VB_Exposed = False
  748.  
  749. Private Sub CmdButn_Click(index As Integer)
  750. If index < 10 Then
  751. ValueText.Text = ValueText.Text + CmdButn(index).Caption
  752. Else
  753. ValueText.Text = ValueText.Text + " " + CmdButn(index).Caption + " "
  754. End If
  755. End Sub
  756.  
  757. Private Sub CmdButnEq_Click()
  758. ValueText_KeyPress (13)
  759. End Sub
  760.  
  761. Private Sub Command1_Click()
  762. On Error GoTo 1
  763. If Right(ValueText.Text, 1) = " " Then
  764. ValueText.Text = Left(ValueText.Text, Len(ValueText.Text) - 2)
  765. Else
  766. ValueText.Text = Left(ValueText.Text, Len(ValueText.Text) - 1)
  767. End If
  768. Do While Not Right(ValueText.Text, 1) = " "
  769. DoEvents
  770. ValueText.Text = Left(ValueText.Text, Len(ValueText.Text) - 1)
  771. Loop
  772. 1:
  773. End Sub
  774.  
  775. Private Sub Command2_Click()
  776. ValueText.Text = ""
  777. End Sub
  778.  
  779. Private Sub Form_Load()
  780. Image1.Picture = Me.Icon
  781. End Sub
  782.  
  783. Private Sub Form_Unload(Cancel As Integer)
  784. End
  785. End Sub
  786.  
  787. Private Sub ValueText_Change()
  788. On Error Resume Next
  789.  
  790. If InStr(1, ValueText.Text, "| -") > 0 Then
  791. ValueText.Text = ChangeA2B(ValueText.Text, "| -", " |-", 1)
  792. ValueText.SelStart = Len(ValueText.Text)
  793. End If
  794.  
  795. If InStr(1, ValueText.Text, " .") > 0 Then
  796. ValueText.Text = ChangeA2B(ValueText.Text, " .", ".", 1)
  797. ValueText.SelStart = Len(ValueText.Text)
  798. End If
  799. If InStr(1, ValueText.Text, ". ") > 0 Then
  800. ValueText.Text = ChangeA2B(ValueText.Text, ". ", ".", 1)
  801. ValueText.SelStart = Len(ValueText.Text)
  802. End If
  803.  
  804. If InStr(1, ValueText.Text, " E ") > 0 Then
  805. ValueText.Text = ChangeA2B(ValueText.Text, " E ", "E", 1)
  806. ValueText.SelStart = Len(ValueText.Text)
  807. End If
  808. If InStr(1, ValueText.Text, " e ") > 0 Then
  809. ValueText.Text = ChangeA2B(ValueText.Text, " e ", "e", 1)
  810. ValueText.SelStart = Len(ValueText.Text)
  811. End If
  812.  
  813. Prev.Caption = "~= " + Get_Vaule(ValueText.Text)
  814. If Prev.Caption = "~= " Then Prev.Caption = "~= 0"
  815. End Sub
  816.  
  817. Private Sub ValueText_KeyPress(KeyAscii As Integer)
  818. If KeyAscii = 13 And Not Trim(ValueText.Text) = "" Then
  819.  ValueText.Text = Get_Vaule(ValueText.Text)
  820.  ValueText.SelStart = Len(ValueText.Text)
  821. End If
  822. End Sub
  823.