home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ageome1a / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-10-14  |  31.3 KB  |  933 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Geometry Calculator"
  6.    ClientHeight    =   6840
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   8280
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   6840
  14.    ScaleWidth      =   8280
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin VB.CommandButton Command7 
  18.       Caption         =   "Exit Geometry Calculator"
  19.       BeginProperty Font 
  20.          Name            =   "MS Sans Serif"
  21.          Size            =   12
  22.          Charset         =   0
  23.          Weight          =   700
  24.          Underline       =   0   'False
  25.          Italic          =   0   'False
  26.          Strikethrough   =   0   'False
  27.       EndProperty
  28.       Height          =   615
  29.       Left            =   0
  30.       TabIndex        =   81
  31.       Top             =   6240
  32.       Width           =   8295
  33.    End
  34.    Begin TabDlg.SSTab SSTab1 
  35.       Height          =   6255
  36.       Left            =   0
  37.       TabIndex        =   0
  38.       Top             =   0
  39.       Width           =   8295
  40.       _ExtentX        =   14631
  41.       _ExtentY        =   11033
  42.       _Version        =   393216
  43.       Tabs            =   4
  44.       TabsPerRow      =   5
  45.       TabHeight       =   520
  46.       TabCaption(0)   =   "Welcome"
  47.       TabPicture(0)   =   "Form1.frx":0000
  48.       Tab(0).ControlEnabled=   -1  'True
  49.       Tab(0).Control(0)=   "Label1"
  50.       Tab(0).Control(0).Enabled=   0   'False
  51.       Tab(0).Control(1)=   "Label2"
  52.       Tab(0).Control(1).Enabled=   0   'False
  53.       Tab(0).Control(2)=   "Label3"
  54.       Tab(0).Control(2).Enabled=   0   'False
  55.       Tab(0).Control(3)=   "Label4"
  56.       Tab(0).Control(3).Enabled=   0   'False
  57.       Tab(0).Control(4)=   "Label5"
  58.       Tab(0).Control(4).Enabled=   0   'False
  59.       Tab(0).Control(5)=   "Label48"
  60.       Tab(0).Control(5).Enabled=   0   'False
  61.       Tab(0).Control(6)=   "Label49"
  62.       Tab(0).Control(6).Enabled=   0   'False
  63.       Tab(0).ControlCount=   7
  64.       TabCaption(1)   =   "Area"
  65.       TabPicture(1)   =   "Form1.frx":001C
  66.       Tab(1).ControlEnabled=   0   'False
  67.       Tab(1).Control(0)=   "Frame1"
  68.       Tab(1).Control(0).Enabled=   0   'False
  69.       Tab(1).Control(1)=   "Frame2"
  70.       Tab(1).Control(1).Enabled=   0   'False
  71.       Tab(1).Control(2)=   "Frame3"
  72.       Tab(1).Control(2).Enabled=   0   'False
  73.       Tab(1).Control(3)=   "Frame4"
  74.       Tab(1).Control(3).Enabled=   0   'False
  75.       Tab(1).ControlCount=   4
  76.       TabCaption(2)   =   "Volume"
  77.       TabPicture(2)   =   "Form1.frx":0038
  78.       Tab(2).ControlEnabled=   0   'False
  79.       Tab(2).Control(0)=   "Frame5"
  80.       Tab(2).Control(0).Enabled=   0   'False
  81.       Tab(2).Control(1)=   "Frame6"
  82.       Tab(2).Control(1).Enabled=   0   'False
  83.       Tab(2).ControlCount=   2
  84.       TabCaption(3)   =   "Help"
  85.       TabPicture(3)   =   "Form1.frx":0054
  86.       Tab(3).ControlEnabled=   0   'False
  87.       Tab(3).Control(0)=   "Label42"
  88.       Tab(3).Control(0).Enabled=   0   'False
  89.       Tab(3).Control(1)=   "Label43"
  90.       Tab(3).Control(1).Enabled=   0   'False
  91.       Tab(3).Control(2)=   "Label44"
  92.       Tab(3).Control(2).Enabled=   0   'False
  93.       Tab(3).Control(3)=   "Label45"
  94.       Tab(3).Control(3).Enabled=   0   'False
  95.       Tab(3).Control(4)=   "Label46"
  96.       Tab(3).Control(4).Enabled=   0   'False
  97.       Tab(3).Control(5)=   "Label47"
  98.       Tab(3).Control(5).Enabled=   0   'False
  99.       Tab(3).ControlCount=   6
  100.       Begin VB.Frame Frame6 
  101.          Caption         =   "Cube"
  102.          BeginProperty Font 
  103.             Name            =   "MS Sans Serif"
  104.             Size            =   9.75
  105.             Charset         =   0
  106.             Weight          =   400
  107.             Underline       =   0   'False
  108.             Italic          =   0   'False
  109.             Strikethrough   =   0   'False
  110.          EndProperty
  111.          Height          =   2655
  112.          Left            =   -71160
  113.          TabIndex        =   62
  114.          Top             =   480
  115.          Width           =   3135
  116.          Begin VB.TextBox CubeAnswer 
  117.             Height          =   285
  118.             Left            =   840
  119.             TabIndex        =   72
  120.             Top             =   1440
  121.             Width           =   1695
  122.          End
  123.          Begin VB.CommandButton Command6 
  124.             Caption         =   "Calculate"
  125.             Height          =   375
  126.             Left            =   120
  127.             TabIndex        =   70
  128.             Top             =   1800
  129.             Width           =   2055
  130.          End
  131.          Begin VB.TextBox CubeHeight 
  132.             Height          =   285
  133.             Left            =   840
  134.             TabIndex        =   68
  135.             Top             =   1080
  136.             Width           =   855
  137.          End
  138.          Begin VB.TextBox CubeWidth 
  139.             Height          =   285
  140.             Left            =   840
  141.             TabIndex        =   66
  142.             Top             =   720
  143.             Width           =   855
  144.          End
  145.          Begin VB.TextBox CubeLength 
  146.             Height          =   285
  147.             Left            =   840
  148.             TabIndex        =   64
  149.             Top             =   360
  150.             Width           =   855
  151.          End
  152.          Begin VB.Label Label41 
  153.             Caption         =   "Answer"
  154.             Height          =   255
  155.             Left            =   120
  156.             TabIndex        =   71
  157.             Top             =   1440
  158.             Width           =   615
  159.          End
  160.          Begin VB.Label Label40 
  161.             Caption         =   "Formula: (Length x Width) x height"
  162.             Height          =   255
  163.             Left            =   120
  164.             TabIndex        =   69
  165.             Top             =   2280
  166.             Width           =   2535
  167.          End
  168.          Begin VB.Label Label39 
  169.             Caption         =   "Height"
  170.             Height          =   255
  171.             Left            =   120
  172.             TabIndex        =   67
  173.             Top             =   1080
  174.             Width           =   495
  175.          End
  176.          Begin VB.Label Label38 
  177.             Caption         =   "Width"
  178.             Height          =   255
  179.             Left            =   120
  180.             TabIndex        =   65
  181.             Top             =   720
  182.             Width           =   495
  183.          End
  184.          Begin VB.Label Label37 
  185.             Caption         =   "Length"
  186.             Height          =   255
  187.             Left            =   120
  188.             TabIndex        =   63
  189.             Top             =   360
  190.             Width           =   615
  191.          End
  192.       End
  193.       Begin VB.Frame Frame5 
  194.          Caption         =   "Cylinder"
  195.          BeginProperty Font 
  196.             Name            =   "MS Sans Serif"
  197.             Size            =   9.75
  198.             Charset         =   0
  199.             Weight          =   400
  200.             Underline       =   0   'False
  201.             Italic          =   0   'False
  202.             Strikethrough   =   0   'False
  203.          EndProperty
  204.          Height          =   2655
  205.          Left            =   -74760
  206.          TabIndex        =   51
  207.          Top             =   480
  208.          Width           =   3255
  209.          Begin VB.CommandButton Command5 
  210.             Caption         =   "Calculate"
  211.             Height          =   375
  212.             Left            =   120
  213.             TabIndex        =   61
  214.             Top             =   1560
  215.             Width           =   2055
  216.          End
  217.          Begin VB.TextBox CylAnswer 
  218.             Height          =   285
  219.             Left            =   840
  220.             TabIndex        =   60
  221.             Top             =   1080
  222.             Width           =   1935
  223.          End
  224.          Begin VB.TextBox CylHeight 
  225.             Height          =   285
  226.             Left            =   840
  227.             TabIndex        =   54
  228.             Top             =   720
  229.             Width           =   855
  230.          End
  231.          Begin VB.TextBox CylRadius 
  232.             Height          =   285
  233.             Left            =   840
  234.             TabIndex        =   53
  235.             Top             =   360
  236.             Width           =   855
  237.          End
  238.          Begin VB.Label Label36 
  239.             Caption         =   "Answer"
  240.             Height          =   255
  241.             Left            =   120
  242.             TabIndex        =   59
  243.             Top             =   1080
  244.             Width           =   615
  245.          End
  246.          Begin VB.Label Label35 
  247.             Caption         =   "Formula: (R
  248.  x Height) x Pi"
  249.             Height          =   255
  250.             Left            =   120
  251.             TabIndex        =   58
  252.             Top             =   2280
  253.             Width           =   1935
  254.          End
  255.          Begin VB.Label Label34 
  256.             Caption         =   "Height of cylinder"
  257.             Height          =   255
  258.             Left            =   1800
  259.             TabIndex        =   57
  260.             Top             =   720
  261.             Width           =   1335
  262.          End
  263.          Begin VB.Label Label33 
  264.             Caption         =   "or Diameter 
  265.             Height          =   255
  266.             Left            =   1800
  267.             TabIndex        =   56
  268.             Top             =   360
  269.             Width           =   1335
  270.          End
  271.          Begin VB.Label Label32 
  272.             Caption         =   "Height"
  273.             Height          =   255
  274.             Left            =   120
  275.             TabIndex        =   55
  276.             Top             =   735
  277.             Width           =   615
  278.          End
  279.          Begin VB.Label Label31 
  280.             Caption         =   "Radius"
  281.             Height          =   255
  282.             Left            =   120
  283.             TabIndex        =   52
  284.             Top             =   375
  285.             Width           =   615
  286.          End
  287.       End
  288.       Begin VB.Frame Frame4 
  289.          Caption         =   "Circle"
  290.          BeginProperty Font 
  291.             Name            =   "MS Sans Serif"
  292.             Size            =   9.75
  293.             Charset         =   0
  294.             Weight          =   400
  295.             Underline       =   0   'False
  296.             Italic          =   0   'False
  297.             Strikethrough   =   0   'False
  298.          EndProperty
  299.          Height          =   2775
  300.          Left            =   -71160
  301.          TabIndex        =   42
  302.          Top             =   3240
  303.          Width           =   4335
  304.          Begin VB.CommandButton Command4 
  305.             Caption         =   "Calculate"
  306.             Height          =   375
  307.             Left            =   240
  308.             TabIndex        =   49
  309.             Top             =   1560
  310.             Width           =   1695
  311.          End
  312.          Begin VB.TextBox circAnswer 
  313.             Height          =   285
  314.             Left            =   720
  315.             TabIndex        =   48
  316.             Top             =   1080
  317.             Width           =   2415
  318.          End
  319.          Begin VB.TextBox CircRadius 
  320.             Height          =   285
  321.             Left            =   720
  322.             TabIndex        =   44
  323.             Top             =   360
  324.             Width           =   855
  325.          End
  326.          Begin VB.Label Label30 
  327.             Caption         =   "Formula: R
  328.  x Pi"
  329.             Height          =   255
  330.             Left            =   240
  331.             TabIndex        =   50
  332.             Top             =   2400
  333.             Width           =   3975
  334.          End
  335.          Begin VB.Label Label29 
  336.             Caption         =   "Answer"
  337.             Height          =   255
  338.             Left            =   120
  339.             TabIndex        =   47
  340.             Top             =   1080
  341.             Width           =   615
  342.          End
  343.          Begin VB.Label Label28 
  344.             Caption         =   "Radius = Diameter Divided by 2"
  345.             Height          =   255
  346.             Left            =   120
  347.             TabIndex        =   46
  348.             Top             =   720
  349.             Width           =   2295
  350.          End
  351.          Begin VB.Label Label27 
  352.             Caption         =   "Diameter 
  353.  2 (if radius isnt given)"
  354.             Height          =   255
  355.             Left            =   1800
  356.             TabIndex        =   45
  357.             Top             =   360
  358.             Width           =   2295
  359.          End
  360.          Begin VB.Label Label26 
  361.             Caption         =   "Radius"
  362.             Height          =   255
  363.             Left            =   120
  364.             TabIndex        =   43
  365.             Top             =   360
  366.             Width           =   615
  367.          End
  368.       End
  369.       Begin VB.Frame Frame3 
  370.          Caption         =   "Triangle"
  371.          BeginProperty Font 
  372.             Name            =   "MS Sans Serif"
  373.             Size            =   9.75
  374.             Charset         =   0
  375.             Weight          =   400
  376.             Underline       =   0   'False
  377.             Italic          =   0   'False
  378.             Strikethrough   =   0   'False
  379.          EndProperty
  380.          Height          =   2775
  381.          Left            =   -74880
  382.          TabIndex        =   31
  383.          Top             =   3240
  384.          Width           =   3495
  385.          Begin VB.CommandButton Command3 
  386.             Caption         =   "Calculate"
  387.             Height          =   375
  388.             Left            =   120
  389.             TabIndex        =   41
  390.             Top             =   1800
  391.             Width           =   2055
  392.          End
  393.          Begin VB.TextBox TriAnswer 
  394.             Height          =   285
  395.             Left            =   720
  396.             TabIndex        =   40
  397.             Top             =   1080
  398.             Width           =   1575
  399.          End
  400.          Begin VB.TextBox TriAltitude 
  401.             Height          =   285
  402.             Left            =   720
  403.             TabIndex        =   35
  404.             Top             =   720
  405.             Width           =   855
  406.          End
  407.          Begin VB.TextBox TriBase 
  408.             Height          =   285
  409.             Left            =   720
  410.             TabIndex        =   32
  411.             Top             =   360
  412.             Width           =   855
  413.          End
  414.          Begin VB.Label Label25 
  415.             Caption         =   "Answer"
  416.             Height          =   255
  417.             Left            =   120
  418.             TabIndex        =   39
  419.             Top             =   1080
  420.             Width           =   615
  421.          End
  422.          Begin VB.Label Label24 
  423.             Caption         =   "Formula: (Base x Altitude) x 1/2"
  424.             Height          =   255
  425.             Left            =   120
  426.             TabIndex        =   38
  427.             Top             =   2400
  428.             Width           =   2295
  429.          End
  430.          Begin VB.Label Label23 
  431.             Caption         =   "Heigth of the triangle"
  432.             Height          =   255
  433.             Left            =   1680
  434.             TabIndex        =   37
  435.             Top             =   720
  436.             Width           =   1695
  437.          End
  438.          Begin VB.Label Label22 
  439.             Caption         =   "Base Length"
  440.             Height          =   255
  441.             Left            =   1680
  442.             TabIndex        =   36
  443.             Top             =   360
  444.             Width           =   975
  445.          End
  446.          Begin VB.Label Label21 
  447.             Caption         =   "Altitude"
  448.             Height          =   255
  449.             Left            =   120
  450.             TabIndex        =   34
  451.             Top             =   720
  452.             Width           =   615
  453.          End
  454.          Begin VB.Label Label20 
  455.             Caption         =   "Base"
  456.             Height          =   255
  457.             Left            =   120
  458.             TabIndex        =   33
  459.             Top             =   360
  460.             Width           =   375
  461.          End
  462.       End
  463.       Begin VB.Frame Frame2 
  464.          Caption         =   "Rectangle / Square"
  465.          BeginProperty Font 
  466.             Name            =   "MS Sans Serif"
  467.             Size            =   9.75
  468.             Charset         =   0
  469.             Weight          =   400
  470.             Underline       =   0   'False
  471.             Italic          =   0   'False
  472.             Strikethrough   =   0   'False
  473.          EndProperty
  474.          Height          =   2655
  475.          Left            =   -71160
  476.          TabIndex        =   20
  477.          Top             =   480
  478.          Width           =   4335
  479.          Begin VB.CommandButton Command2 
  480.             Caption         =   "Calculate"
  481.             Height          =   375
  482.             Left            =   120
  483.             TabIndex        =   27
  484.             Top             =   1680
  485.             Width           =   1695
  486.          End
  487.          Begin VB.TextBox RectAnswer 
  488.             Height          =   285
  489.             Left            =   840
  490.             TabIndex        =   26
  491.             Top             =   1080
  492.             Width           =   1695
  493.          End
  494.          Begin VB.TextBox RectBase2 
  495.             Height          =   285
  496.             Left            =   840
  497.             TabIndex        =   24
  498.             Top             =   720
  499.             Width           =   855
  500.          End
  501.          Begin VB.TextBox RectBase1 
  502.             Height          =   285
  503.             Left            =   840
  504.             TabIndex        =   22
  505.             Top             =   360
  506.             Width           =   855
  507.          End
  508.          Begin VB.Label Label19 
  509.             Caption         =   "Base2 = Length of another side"
  510.             Height          =   255
  511.             Left            =   1800
  512.             TabIndex        =   30
  513.             Top             =   720
  514.             Width           =   2415
  515.          End
  516.          Begin VB.Label Label18 
  517.             Caption         =   "Base1 = Length of one side"
  518.             Height          =   255
  519.             Left            =   1800
  520.             TabIndex        =   29
  521.             Top             =   360
  522.             Width           =   2415
  523.          End
  524.          Begin VB.Label Label17 
  525.             Caption         =   "Formula: Base1 * Base2"
  526.             Height          =   255
  527.             Left            =   120
  528.             TabIndex        =   28
  529.             Top             =   2280
  530.             Width           =   1815
  531.          End
  532.          Begin VB.Label Label16 
  533.             Caption         =   "Answer"
  534.             Height          =   255
  535.             Left            =   120
  536.             TabIndex        =   25
  537.             Top             =   1080
  538.             Width           =   615
  539.          End
  540.          Begin VB.Label Label15 
  541.             Caption         =   "Base 2"
  542.             Height          =   255
  543.             Left            =   120
  544.             TabIndex        =   23
  545.             Top             =   720
  546.             Width           =   735
  547.          End
  548.          Begin VB.Label Label14 
  549.             Caption         =   "Base 1"
  550.             Height          =   255
  551.             Left            =   120
  552.             TabIndex        =   21
  553.             Top             =   360
  554.             Width           =   615
  555.          End
  556.       End
  557.       Begin VB.Frame Frame1 
  558.          Caption         =   "Trapazoid / Parallellagram"
  559.          BeginProperty Font 
  560.             Name            =   "MS Sans Serif"
  561.             Size            =   9.75
  562.             Charset         =   0
  563.             Weight          =   400
  564.             Underline       =   0   'False
  565.             Italic          =   0   'False
  566.             Strikethrough   =   0   'False
  567.          EndProperty
  568.          Height          =   2655
  569.          Left            =   -74880
  570.          TabIndex        =   6
  571.          Top             =   480
  572.          Width           =   3495
  573.          Begin VB.CommandButton Command1 
  574.             Caption         =   "Calculate"
  575.             Height          =   375
  576.             Left            =   120
  577.             TabIndex        =   16
  578.             Top             =   1800
  579.             Width           =   2175
  580.          End
  581.          Begin VB.TextBox TrapAnswer 
  582.             Height          =   285
  583.             Left            =   840
  584.             TabIndex        =   14
  585.             Top             =   1440
  586.             Width           =   1935
  587.          End
  588.          Begin VB.TextBox TrapAltitude 
  589.             Height          =   285
  590.             Left            =   840
  591.             TabIndex        =   11
  592.             Top             =   1080
  593.             Width           =   855
  594.          End
  595.          Begin VB.TextBox TrapBase2 
  596.             Height          =   285
  597.             Left            =   840
  598.             TabIndex        =   10
  599.             Top             =   720
  600.             Width           =   855
  601.          End
  602.          Begin VB.TextBox TrapBase1 
  603.             Height          =   285
  604.             Left            =   840
  605.             TabIndex        =   8
  606.             Top             =   360
  607.             Width           =   855
  608.          End
  609.          Begin VB.Label Label13 
  610.             Caption         =   "Altitude = height"
  611.             Height          =   255
  612.             Left            =   1800
  613.             TabIndex        =   19
  614.             Top             =   1080
  615.             Width           =   1575
  616.          End
  617.          Begin VB.Label Label12 
  618.             Caption         =   "Base2 = another side"
  619.             Height          =   255
  620.             Left            =   1800
  621.             TabIndex        =   18
  622.             Top             =   720
  623.             Width           =   1575
  624.          End
  625.          Begin VB.Label Label11 
  626.             Caption         =   "Base1 = one side"
  627.             Height          =   255
  628.             Left            =   1800
  629.             TabIndex        =   17
  630.             Top             =   360
  631.             Width           =   1575
  632.          End
  633.          Begin VB.Label Label10 
  634.             Caption         =   "Answer"
  635.             Height          =   255
  636.             Left            =   120
  637.             TabIndex        =   15
  638.             Top             =   1440
  639.             Width           =   615
  640.          End
  641.          Begin VB.Label Label9 
  642.             Caption         =   "Formula: [ ( Base1 + Base2 ) x Altitude ] x 
  643.             Height          =   255
  644.             Left            =   120
  645.             TabIndex        =   13
  646.             Top             =   2280
  647.             Width           =   3255
  648.          End
  649.          Begin VB.Label Label8 
  650.             Caption         =   "Altitude"
  651.             Height          =   255
  652.             Left            =   120
  653.             TabIndex        =   12
  654.             Top             =   1095
  655.             Width           =   615
  656.          End
  657.          Begin VB.Label Label7 
  658.             Caption         =   "Base 2"
  659.             Height          =   255
  660.             Left            =   120
  661.             TabIndex        =   9
  662.             Top             =   735
  663.             Width           =   615
  664.          End
  665.          Begin VB.Label Label6 
  666.             Caption         =   "Base 1"
  667.             Height          =   255
  668.             Left            =   120
  669.             TabIndex        =   7
  670.             Top             =   375
  671.             Width           =   615
  672.          End
  673.       End
  674.       Begin VB.Label Label49 
  675.          Caption         =   "Do NOT enter the Metric Mesurment: ft. in. cm, mm etc., please add that yourself"
  676.          BeginProperty Font 
  677.             Name            =   "MS Sans Serif"
  678.             Size            =   9.75
  679.             Charset         =   0
  680.             Weight          =   400
  681.             Underline       =   0   'False
  682.             Italic          =   0   'False
  683.             Strikethrough   =   0   'False
  684.          EndProperty
  685.          ForeColor       =   &H000000FF&
  686.          Height          =   375
  687.          Left            =   360
  688.          TabIndex        =   80
  689.          Top             =   4800
  690.          Width           =   7455
  691.       End
  692.       Begin VB.Label Label48 
  693.          Caption         =   "Note: All answers are in Square format. Like Sq. Ft., Square Inch, and so on."
  694.          BeginProperty Font 
  695.             Name            =   "MS Sans Serif"
  696.             Size            =   9.75
  697.             Charset         =   0
  698.             Weight          =   400
  699.             Underline       =   0   'False
  700.             Italic          =   0   'False
  701.             Strikethrough   =   0   'False
  702.          EndProperty
  703.          ForeColor       =   &H000000FF&
  704.          Height          =   375
  705.          Left            =   600
  706.          TabIndex        =   79
  707.          Top             =   4440
  708.          Width           =   6855
  709.       End
  710.       Begin VB.Label Label47 
  711.          Caption         =   "R = Symbol for Radius"
  712.          Height          =   255
  713.          Left            =   -74760
  714.          TabIndex        =   78
  715.          Top             =   1920
  716.          Width           =   1695
  717.       End
  718.       Begin VB.Label Label46 
  719.          Caption         =   "
  720.  = Exponent 3 or Cubed"
  721.          Height          =   255
  722.          Left            =   -74760
  723.          TabIndex        =   77
  724.          Top             =   1680
  725.          Width           =   1815
  726.       End
  727.       Begin VB.Label Label45 
  728.          Caption         =   "
  729.  = Exponent 2 or Squared."
  730.          Height          =   255
  731.          Left            =   -74760
  732.          TabIndex        =   76
  733.          Top             =   1440
  734.          Width           =   1935
  735.       End
  736.       Begin VB.Label Label44 
  737.          Caption         =   "Pi = 3.141592654"
  738.          Height          =   255
  739.          Left            =   -74760
  740.          TabIndex        =   75
  741.          Top             =   1200
  742.          Width           =   1335
  743.       End
  744.       Begin VB.Label Label43 
  745.          Caption         =   "Radius = From dead center of the circle to the outer edge. Or the Diameter 
  746.          Height          =   255
  747.          Left            =   -74760
  748.          TabIndex        =   74
  749.          Top             =   960
  750.          Width           =   5655
  751.       End
  752.       Begin VB.Label Label42 
  753.          Caption         =   "Base = Length of a side of the object"
  754.          Height          =   255
  755.          Left            =   -74760
  756.          TabIndex        =   73
  757.          Top             =   720
  758.          Width           =   2895
  759.       End
  760.       Begin VB.Label Label5 
  761.          Caption         =   "Area claculator is good for those of us who need quick answers! I hate math, so thats why i made this!! :)"
  762.          BeginProperty Font 
  763.             Name            =   "MS Sans Serif"
  764.             Size            =   12
  765.             Charset         =   0
  766.             Weight          =   400
  767.             Underline       =   0   'False
  768.             Italic          =   0   'False
  769.             Strikethrough   =   0   'False
  770.          EndProperty
  771.          Height          =   855
  772.          Left            =   240
  773.          TabIndex        =   5
  774.          Top             =   2760
  775.          Width           =   6375
  776.       End
  777.       Begin VB.Label Label4 
  778.          Caption         =   "Http://www.warpnet.org/bsi"
  779.          BeginProperty Font 
  780.             Name            =   "MS Sans Serif"
  781.             Size            =   12
  782.             Charset         =   0
  783.             Weight          =   400
  784.             Underline       =   0   'False
  785.             Italic          =   0   'False
  786.             Strikethrough   =   0   'False
  787.          EndProperty
  788.          Height          =   495
  789.          Left            =   240
  790.          TabIndex        =   4
  791.          Top             =   2280
  792.          Width           =   2895
  793.       End
  794.       Begin VB.Label Label3 
  795.          Caption         =   "Bootleg Software Inc."
  796.          BeginProperty Font 
  797.             Name            =   "MS Sans Serif"
  798.             Size            =   12
  799.             Charset         =   0
  800.             Weight          =   400
  801.             Underline       =   0   'False
  802.             Italic          =   0   'False
  803.             Strikethrough   =   0   'False
  804.          EndProperty
  805.          Height          =   375
  806.          Left            =   240
  807.          TabIndex        =   3
  808.          Top             =   1800
  809.          Width           =   2415
  810.       End
  811.       Begin VB.Label Label2 
  812.          Caption         =   "Author: Dustin Davis"
  813.          BeginProperty Font 
  814.             Name            =   "MS Sans Serif"
  815.             Size            =   12
  816.             Charset         =   0
  817.             Weight          =   400
  818.             Underline       =   0   'False
  819.             Italic          =   0   'False
  820.             Strikethrough   =   0   'False
  821.          EndProperty
  822.          Height          =   375
  823.          Left            =   240
  824.          TabIndex        =   2
  825.          Top             =   1320
  826.          Width           =   2295
  827.       End
  828.       Begin VB.Label Label1 
  829.          Caption         =   "Geometry Calculator v1.0"
  830.          BeginProperty Font 
  831.             Name            =   "MS Sans Serif"
  832.             Size            =   18
  833.             Charset         =   0
  834.             Weight          =   400
  835.             Underline       =   0   'False
  836.             Italic          =   0   'False
  837.             Strikethrough   =   0   'False
  838.          EndProperty
  839.          Height          =   615
  840.          Left            =   240
  841.          TabIndex        =   1
  842.          Top             =   720
  843.          Width           =   4215
  844.       End
  845.    End
  846. Attribute VB_Name = "Form1"
  847. Attribute VB_GlobalNameSpace = False
  848. Attribute VB_Creatable = False
  849. Attribute VB_PredeclaredId = True
  850. Attribute VB_Exposed = False
  851. Const Pi = 3.141592654
  852. Private Sub Command1_Click()
  853. 'calculate area of Trapazoid, Parallelagram
  854. Dim Base1 As Double
  855. Dim Base2 As Double
  856. Dim Altitude As Double
  857. Dim Answer As Double
  858. Dim temp As Double
  859. Base1 = TrapBase1.Text
  860. Base2 = TrapBase2.Text
  861. Altitude = TrapAltitude.Text
  862. temp = Base1 + Base2
  863. temp = temp * Altitude
  864. temp = temp * 0.5
  865. Answer = temp
  866. TrapAnswer.Text = Answer & " 
  867. End Sub
  868. Private Sub Command2_Click()
  869. 'calculate area of rectangle
  870. Dim Base1 As Double
  871. Dim Base2 As Double
  872. Dim temp As Double
  873. Dim Answer As Double
  874. Base1 = RectBase1.Text
  875. Base2 = RectBase2.Text
  876. temp = Base1 * Base2
  877. Answer = temp
  878. RectAnswer = Answer
  879. End Sub
  880. Private Sub Command3_Click()
  881. 'calculate area of triangle
  882. Dim Base As Double
  883. Dim Altitude As Double
  884. Dim Answer As Double
  885. Dim temp As Double
  886. Base = TriBase.Text
  887. Altitude = TriAltitude.Text
  888. temp = Base * Altitude
  889. temp = temp * 0.5
  890. Answer = temp
  891. TriAnswer = Answer & " 
  892. End Sub
  893. Private Sub Command4_Click()
  894. 'calculate area of a circle
  895. Dim Radius As Double
  896. Dim Answer As Double
  897. Dim temp As Double
  898. Radius = CircRadius.Text
  899. temp = Radius * Radius
  900. temp = temp * Pi
  901. Answer = temp
  902. circAnswer.Text = Answer & " 
  903. End Sub
  904. Private Sub Command5_Click()
  905. 'calculate volume of a cylinder
  906. Dim Radius As Double
  907. Dim Height As Double
  908. Dim temp As Double
  909. Dim Answer As Double
  910. Radius = CylRadius.Text
  911. Height = CylHeight.Text
  912. temp = Radius * Radius
  913. temp = temp * Height
  914. temp = temp * Pi
  915. Answer = temp
  916. CylAnswer.Text = Answer & " 
  917. End Sub
  918. Private Sub Command6_Click()
  919. 'find the volume of a cube
  920. Dim length As Double
  921. Dim Width As Double
  922. Dim cHeight As Double
  923. Dim temp As Double
  924. Dim Answer As Double
  925. length = CubeLength.Text
  926. Width = CubeLength.Text
  927. cHeight = CubeHeight.Text
  928. temp = length * Width
  929. temp = temp * cHeight
  930. Answer = temp
  931. CubeAnswer.Text = Answer & " 
  932. End Sub
  933.