home *** CD-ROM | disk | FTP | other *** search
/ PC Extra Super CD 1998 January / PCPLUS131.iso / COMPONEN / COMPCAFE / KITS / 00700405.CIK / aaaaaaaa / disks / disk1 / data.z / ccEvalDemo1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-03-24  |  14.3 KB  |  432 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Eval-O-Matic!"
  4.    ClientHeight    =   4260
  5.    ClientLeft      =   1440
  6.    ClientTop       =   1785
  7.    ClientWidth     =   4905
  8.    Height          =   4665
  9.    Left            =   1380
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4260
  12.    ScaleWidth      =   4905
  13.    Top             =   1440
  14.    Width           =   5025
  15.    Begin VB.TextBox Text2 
  16.       Height          =   288
  17.       Left            =   3480
  18.       TabIndex        =   37
  19.       Top             =   360
  20.       Width           =   1332
  21.    End
  22.    Begin VB.Frame Frame1 
  23.       Caption         =   "Built-in Functions: "
  24.       Height          =   3375
  25.       Left            =   120
  26.       TabIndex        =   2
  27.       Top             =   720
  28.       Width           =   4695
  29.       Begin VB.ListBox List3 
  30.          Height          =   60
  31.          Index           =   8
  32.          ItemData        =   "ccEvalDemo1.frx":0000
  33.          Left            =   5400
  34.          List            =   "ccEvalDemo1.frx":0010
  35.          TabIndex        =   36
  36.          Top             =   1920
  37.          Visible         =   0   'False
  38.          Width           =   495
  39.       End
  40.       Begin VB.ListBox List3 
  41.          Height          =   60
  42.          Index           =   6
  43.          ItemData        =   "ccEvalDemo1.frx":005B
  44.          Left            =   5400
  45.          List            =   "ccEvalDemo1.frx":006B
  46.          TabIndex        =   35
  47.          Top             =   1680
  48.          Visible         =   0   'False
  49.          Width           =   495
  50.       End
  51.       Begin VB.ListBox List3 
  52.          Height          =   60
  53.          Index           =   5
  54.          ItemData        =   "ccEvalDemo1.frx":00AF
  55.          Left            =   5400
  56.          List            =   "ccEvalDemo1.frx":00EC
  57.          TabIndex        =   34
  58.          Top             =   1440
  59.          Visible         =   0   'False
  60.          Width           =   495
  61.       End
  62.       Begin VB.ListBox List3 
  63.          Height          =   60
  64.          Index           =   4
  65.          ItemData        =   "ccEvalDemo1.frx":01F9
  66.          Left            =   5400
  67.          List            =   "ccEvalDemo1.frx":0236
  68.          TabIndex        =   33
  69.          Top             =   1200
  70.          Visible         =   0   'False
  71.          Width           =   495
  72.       End
  73.       Begin VB.ListBox List3 
  74.          Height          =   60
  75.          Index           =   3
  76.          ItemData        =   "ccEvalDemo1.frx":0411
  77.          Left            =   5400
  78.          List            =   "ccEvalDemo1.frx":0427
  79.          TabIndex        =   32
  80.          Top             =   960
  81.          Visible         =   0   'False
  82.          Width           =   495
  83.       End
  84.       Begin VB.ListBox List3 
  85.          Height          =   60
  86.          Index           =   2
  87.          ItemData        =   "ccEvalDemo1.frx":048A
  88.          Left            =   5400
  89.          List            =   "ccEvalDemo1.frx":04B2
  90.          TabIndex        =   31
  91.          Top             =   720
  92.          Visible         =   0   'False
  93.          Width           =   495
  94.       End
  95.       Begin VB.ListBox List3 
  96.          Height          =   60
  97.          Index           =   1
  98.          ItemData        =   "ccEvalDemo1.frx":05B0
  99.          Left            =   5400
  100.          List            =   "ccEvalDemo1.frx":05D8
  101.          TabIndex        =   30
  102.          Top             =   480
  103.          Visible         =   0   'False
  104.          Width           =   495
  105.       End
  106.       Begin VB.ListBox List3 
  107.          Height          =   60
  108.          Index           =   0
  109.          ItemData        =   "ccEvalDemo1.frx":0734
  110.          Left            =   5400
  111.          List            =   "ccEvalDemo1.frx":07C5
  112.          TabIndex        =   29
  113.          Top             =   240
  114.          Visible         =   0   'False
  115.          Width           =   495
  116.       End
  117.       Begin VB.ListBox List2 
  118.          Height          =   60
  119.          Index           =   8
  120.          ItemData        =   "ccEvalDemo1.frx":0A3E
  121.          Left            =   4800
  122.          List            =   "ccEvalDemo1.frx":0A4E
  123.          TabIndex        =   28
  124.          Top             =   1920
  125.          Visible         =   0   'False
  126.          Width           =   495
  127.       End
  128.       Begin VB.ListBox List2 
  129.          Height          =   60
  130.          Index           =   6
  131.          ItemData        =   "ccEvalDemo1.frx":0B1B
  132.          Left            =   4800
  133.          List            =   "ccEvalDemo1.frx":0B2B
  134.          TabIndex        =   27
  135.          Top             =   1680
  136.          Visible         =   0   'False
  137.          Width           =   495
  138.       End
  139.       Begin VB.ListBox List2 
  140.          Height          =   60
  141.          Index           =   5
  142.          ItemData        =   "ccEvalDemo1.frx":0C19
  143.          Left            =   4800
  144.          List            =   "ccEvalDemo1.frx":0C56
  145.          TabIndex        =   26
  146.          Top             =   1440
  147.          Visible         =   0   'False
  148.          Width           =   495
  149.       End
  150.       Begin VB.ListBox List2 
  151.          Height          =   60
  152.          Index           =   4
  153.          ItemData        =   "ccEvalDemo1.frx":0FCA
  154.          Left            =   4800
  155.          List            =   "ccEvalDemo1.frx":1007
  156.          TabIndex        =   25
  157.          Top             =   1200
  158.          Visible         =   0   'False
  159.          Width           =   495
  160.       End
  161.       Begin VB.ListBox List2 
  162.          Height          =   60
  163.          Index           =   3
  164.          ItemData        =   "ccEvalDemo1.frx":1585
  165.          Left            =   4800
  166.          List            =   "ccEvalDemo1.frx":159B
  167.          TabIndex        =   24
  168.          Top             =   960
  169.          Visible         =   0   'False
  170.          Width           =   495
  171.       End
  172.       Begin VB.ListBox List2 
  173.          Height          =   60
  174.          Index           =   2
  175.          ItemData        =   "ccEvalDemo1.frx":1754
  176.          Left            =   4800
  177.          List            =   "ccEvalDemo1.frx":177C
  178.          TabIndex        =   23
  179.          Top             =   720
  180.          Visible         =   0   'False
  181.          Width           =   495
  182.       End
  183.       Begin VB.ListBox List2 
  184.          Height          =   60
  185.          Index           =   1
  186.          ItemData        =   "ccEvalDemo1.frx":1A14
  187.          Left            =   4800
  188.          List            =   "ccEvalDemo1.frx":1A3C
  189.          TabIndex        =   22
  190.          Top             =   480
  191.          Visible         =   0   'False
  192.          Width           =   495
  193.       End
  194.       Begin VB.ListBox List2 
  195.          Height          =   60
  196.          Index           =   0
  197.          ItemData        =   "ccEvalDemo1.frx":1EB2
  198.          Left            =   4800
  199.          List            =   "ccEvalDemo1.frx":1F43
  200.          TabIndex        =   21
  201.          Top             =   240
  202.          Visible         =   0   'False
  203.          Width           =   495
  204.       End
  205.       Begin VB.ListBox List1 
  206.          Height          =   2010
  207.          Index           =   8
  208.          ItemData        =   "ccEvalDemo1.frx":28B2
  209.          Left            =   1680
  210.          List            =   "ccEvalDemo1.frx":28C2
  211.          TabIndex        =   20
  212.          Top             =   240
  213.          Visible         =   0   'False
  214.          Width           =   2655
  215.       End
  216.       Begin VB.ListBox List1 
  217.          Height          =   2010
  218.          Index           =   7
  219.          ItemData        =   "ccEvalDemo1.frx":28EE
  220.          Left            =   1680
  221.          List            =   "ccEvalDemo1.frx":28FB
  222.          TabIndex        =   19
  223.          Top             =   240
  224.          Visible         =   0   'False
  225.          Width           =   2655
  226.       End
  227.       Begin VB.ListBox List1 
  228.          Height          =   2010
  229.          Index           =   6
  230.          ItemData        =   "ccEvalDemo1.frx":2924
  231.          Left            =   1680
  232.          List            =   "ccEvalDemo1.frx":2934
  233.          TabIndex        =   18
  234.          Top             =   240
  235.          Visible         =   0   'False
  236.          Width           =   2655
  237.       End
  238.       Begin VB.ListBox List1 
  239.          Height          =   2010
  240.          Index           =   5
  241.          ItemData        =   "ccEvalDemo1.frx":295E
  242.          Left            =   1680
  243.          List            =   "ccEvalDemo1.frx":299B
  244.          TabIndex        =   17
  245.          Top             =   240
  246.          Visible         =   0   'False
  247.          Width           =   2655
  248.       End
  249.       Begin VB.ListBox List1 
  250.          Height          =   2010
  251.          Index           =   4
  252.          ItemData        =   "ccEvalDemo1.frx":2A31
  253.          Left            =   1680
  254.          List            =   "ccEvalDemo1.frx":2A6E
  255.          TabIndex        =   16
  256.          Top             =   240
  257.          Visible         =   0   'False
  258.          Width           =   2655
  259.       End
  260.       Begin VB.ListBox List1 
  261.          Height          =   2010
  262.          Index           =   3
  263.          ItemData        =   "ccEvalDemo1.frx":2AFD
  264.          Left            =   1680
  265.          List            =   "ccEvalDemo1.frx":2B13
  266.          TabIndex        =   15
  267.          Top             =   240
  268.          Visible         =   0   'False
  269.          Width           =   2655
  270.       End
  271.       Begin VB.ListBox List1 
  272.          Height          =   2010
  273.          Index           =   2
  274.          ItemData        =   "ccEvalDemo1.frx":2B36
  275.          Left            =   1680
  276.          List            =   "ccEvalDemo1.frx":2B5E
  277.          TabIndex        =   14
  278.          Top             =   240
  279.          Visible         =   0   'False
  280.          Width           =   2655
  281.       End
  282.       Begin VB.ListBox List1 
  283.          Height          =   2010
  284.          Index           =   1
  285.          ItemData        =   "ccEvalDemo1.frx":2BB3
  286.          Left            =   1680
  287.          List            =   "ccEvalDemo1.frx":2BDB
  288.          TabIndex        =   13
  289.          Top             =   240
  290.          Visible         =   0   'False
  291.          Width           =   2655
  292.       End
  293.       Begin VB.ListBox List1 
  294.          Height          =   2010
  295.          Index           =   0
  296.          ItemData        =   "ccEvalDemo1.frx":2C1C
  297.          Left            =   1680
  298.          List            =   "ccEvalDemo1.frx":2CAD
  299.          TabIndex        =   11
  300.          Tag             =   "0"
  301.          Top             =   240
  302.          Width           =   2655
  303.       End
  304.       Begin VB.OptionButton Option1 
  305.          Caption         =   "Misc"
  306.          Height          =   252
  307.          Index           =   8
  308.          Left            =   120
  309.          TabIndex        =   10
  310.          Top             =   1920
  311.          Width           =   2412
  312.       End
  313.       Begin VB.OptionButton Option1 
  314.          Caption         =   "Bit Operations"
  315.          Height          =   252
  316.          Index           =   6
  317.          Left            =   120
  318.          TabIndex        =   9
  319.          Top             =   1680
  320.          Width           =   2412
  321.       End
  322.       Begin VB.OptionButton Option1 
  323.          Caption         =   "Unit Conversion"
  324.          Height          =   252
  325.          Index           =   5
  326.          Left            =   120
  327.          TabIndex        =   8
  328.          Top             =   1440
  329.          Width           =   2412
  330.       End
  331.       Begin VB.OptionButton Option1 
  332.          Caption         =   "Text"
  333.          Height          =   252
  334.          Index           =   4
  335.          Left            =   120
  336.          TabIndex        =   7
  337.          Top             =   1200
  338.          Width           =   2412
  339.       End
  340.       Begin VB.OptionButton Option1 
  341.          Caption         =   "Logical"
  342.          Height          =   252
  343.          Index           =   3
  344.          Left            =   120
  345.          TabIndex        =   6
  346.          Top             =   960
  347.          Width           =   2412
  348.       End
  349.       Begin VB.OptionButton Option1 
  350.          Caption         =   "Statistical"
  351.          Height          =   252
  352.          Index           =   2
  353.          Left            =   120
  354.          TabIndex        =   5
  355.          Top             =   720
  356.          Width           =   2412
  357.       End
  358.       Begin VB.OptionButton Option1 
  359.          Caption         =   "Financial"
  360.          Height          =   252
  361.          Index           =   1
  362.          Left            =   120
  363.          TabIndex        =   4
  364.          Top             =   480
  365.          Width           =   2412
  366.       End
  367.       Begin VB.OptionButton Option1 
  368.          Caption         =   "Math and Trig"
  369.          Height          =   252
  370.          Index           =   0
  371.          Left            =   120
  372.          TabIndex        =   3
  373.          Top             =   240
  374.          Value           =   -1  'True
  375.          Width           =   2412
  376.       End
  377.       Begin VB.Label Label2 
  378.          Caption         =   "Explanation:"
  379.          Height          =   615
  380.          Left            =   120
  381.          TabIndex        =   12
  382.          Top             =   2640
  383.          Width           =   4215
  384.          WordWrap        =   -1  'True
  385.       End
  386.    End
  387.    Begin VB.TextBox Text1 
  388.       Height          =   288
  389.       Left            =   120
  390.       TabIndex        =   1
  391.       Top             =   360
  392.       Width           =   2772
  393.    End
  394.    Begin VB.Label Label3 
  395.       Caption         =   "Result:"
  396.       Height          =   252
  397.       Left            =   2928
  398.       TabIndex        =   38
  399.       Top             =   372
  400.       Width           =   540
  401.    End
  402.    Begin MATICLib.EvalOMatic EvalOMatic1 
  403.       Left            =   1920
  404.       Top             =   0
  405.       _Version        =   65536
  406.       _ExtentX        =   741
  407.       _ExtentY        =   741
  408.       _StockProps     =   0
  409.    End
  410.    Begin VB.Label Label1 
  411.       Caption         =   "Go ahead and try it! "
  412.       Height          =   252
  413.       Left            =   120
  414.       TabIndex        =   0
  415.       Top             =   120
  416.       Width           =   2892
  417.    End
  418. Attribute VB_Name = "Form1"
  419. Attribute VB_Creatable = False
  420. Attribute VB_Exposed = False
  421. Private Sub List1_Click(Index As Integer)
  422. Label2.Caption = List2(Index).List(List1(Index).ListIndex)
  423. Text1.Text = List3(Index).List(List1(Index).ListIndex)
  424. EvalOMatic1.Expression = Text1.Text
  425. text2.Text = EvalOMatic1.ResultStr
  426. End Sub
  427. Private Sub Option1_Click(Index As Integer)
  428.    List1(CInt(List1(0).Tag)).Visible = False
  429.    List1(Index).Visible = True
  430.    List1(0).Tag = CStr(Index)
  431. End Sub
  432.