home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / VB_Basix767484282002.psc / frmVariables.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-28  |  2.7 KB  |  84 lines
  1. VERSION 5.00
  2. Begin VB.Form frmVariables 
  3.    Caption         =   "Variable Stuff"
  4.    ClientHeight    =   1410
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3195
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1410
  10.    ScaleWidth      =   3195
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command4 
  13.       Caption         =   "Multiply"
  14.       Height          =   375
  15.       Left            =   1200
  16.       TabIndex        =   6
  17.       Top             =   960
  18.       Width           =   855
  19.    End
  20.    Begin VB.CommandButton Command3 
  21.       Caption         =   "Subtract"
  22.       Height          =   375
  23.       Left            =   1200
  24.       TabIndex        =   5
  25.       Top             =   480
  26.       Width           =   855
  27.    End
  28.    Begin VB.TextBox Text3 
  29.       Height          =   285
  30.       Left            =   2400
  31.       TabIndex        =   4
  32.       Text            =   "0"
  33.       Top             =   120
  34.       Width           =   855
  35.    End
  36.    Begin VB.TextBox Text2 
  37.       Height          =   285
  38.       Left            =   1200
  39.       TabIndex        =   1
  40.       Text            =   "0"
  41.       Top             =   120
  42.       Width           =   855
  43.    End
  44.    Begin VB.TextBox Text1 
  45.       Height          =   285
  46.       Left            =   0
  47.       TabIndex        =   0
  48.       Text            =   "0"
  49.       Top             =   120
  50.       Width           =   855
  51.    End
  52.    Begin VB.Label Label2 
  53.       Caption         =   "="
  54.       Height          =   255
  55.       Left            =   2160
  56.       TabIndex        =   3
  57.       Top             =   120
  58.       Width           =   135
  59.    End
  60.    Begin VB.Label Label1 
  61.       Height          =   255
  62.       Left            =   960
  63.       TabIndex        =   2
  64.       Top             =   120
  65.       Width           =   135
  66.    End
  67. Attribute VB_Name = "frmVariables"
  68. Attribute VB_GlobalNameSpace = False
  69. Attribute VB_Creatable = False
  70. Attribute VB_PredeclaredId = True
  71. Attribute VB_Exposed = False
  72. Private Sub Command3_Click()
  73.     Dim Answer As Integer 'To keep this shit simple...Byte = small number Integer = fairly large number Long = big ass number
  74.     Answer = Text1.Text - Text2.Text 'Our variable is text1 subtracted by text 2
  75.     Text3.Text = Answer 'text3 is our answer
  76.     Label1.Caption = "-" 'changes caption to -
  77. End Sub
  78. Private Sub Command4_Click()
  79.     Dim Answer As Integer 'To keep this shit simple...Byte = small number Integer = fairly large number Long = big ass number
  80.     Answer = Text1.Text * Text2.Text 'Our variable is text1 multiplied by text 2
  81.     Text3.Text = Answer 'text3 is our answer
  82.     Label1.Caption = "X" 'changes caption to X
  83. End Sub
  84.