home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 April / PCWorld_1999-04_cd.bin / Software / Vyzkuste / BegVisB / BeginVBSW / BVBProjects / VB4Projects / Savings.Frm (.txt) < prev    next >
Visual Basic Form  |  1999-01-26  |  5KB  |  154 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSavings 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Savings Account"
  5.    ClientHeight    =   3075
  6.    ClientLeft      =   3735
  7.    ClientTop       =   1635
  8.    ClientWidth     =   3135
  9.    Height          =   3495
  10.    Left            =   3675
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3075
  15.    ScaleWidth      =   3135
  16.    Top             =   1275
  17.    Width           =   3255
  18.    Begin VB.CommandButton cmdExit 
  19.       Caption         =   "Exit"
  20.       Height          =   495
  21.       Left            =   1680
  22.       TabIndex        =   7
  23.       Top             =   2400
  24.       Width           =   1215
  25.    End
  26.    Begin VB.CommandButton cmdCompute 
  27.       Caption         =   "Compute"
  28.       Height          =   495
  29.       Left            =   240
  30.       TabIndex        =   6
  31.       Top             =   2400
  32.       Width           =   1215
  33.    End
  34.    Begin VB.TextBox txtMonths 
  35.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.          Name            =   "Arial"
  37.          Size            =   9.75
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   495
  45.       Left            =   1680
  46.       TabIndex        =   5
  47.       Top             =   960
  48.       Width           =   1215
  49.    End
  50.    Begin VB.TextBox txtDeposit 
  51.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  52.          Name            =   "Arial"
  53.          Size            =   9.75
  54.          Charset         =   0
  55.          Weight          =   400
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       Height          =   495
  61.       Left            =   1680
  62.       TabIndex        =   4
  63.       Top             =   240
  64.       Width           =   1215
  65.    End
  66.    Begin VB.Label lblTotal 
  67.       BackColor       =   &H00FFFFFF&
  68.       BorderStyle     =   1  'Fixed Single
  69.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  70.          Name            =   "Arial"
  71.          Size            =   9.75
  72.          Charset         =   0
  73.          Weight          =   400
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       Height          =   495
  79.       Left            =   1680
  80.       TabIndex        =   3
  81.       Top             =   1680
  82.       Width           =   1215
  83.    End
  84.    Begin VB.Label lblTotalHeading 
  85.       Caption         =   "Total Savings"
  86.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  87.          Name            =   "Arial"
  88.          Size            =   9.75
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   495
  96.       Left            =   240
  97.       TabIndex        =   2
  98.       Top             =   1680
  99.       Width           =   1215
  100.    End
  101.    Begin VB.Label lblMonthsHeading 
  102.       Caption         =   "Number of Months"
  103.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  104.          Name            =   "Arial"
  105.          Size            =   9.75
  106.          Charset         =   0
  107.          Weight          =   400
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   495
  113.       Left            =   240
  114.       TabIndex        =   1
  115.       Top             =   960
  116.       Width           =   1215
  117.    End
  118.    Begin VB.Label lblDepositHeading 
  119.       Caption         =   "Monthly Deposit"
  120.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  121.          Name            =   "Arial"
  122.          Size            =   9.75
  123.          Charset         =   0
  124.          Weight          =   400
  125.          Underline       =   0   'False
  126.          Italic          =   0   'False
  127.          Strikethrough   =   0   'False
  128.       EndProperty
  129.       Height          =   495
  130.       Left            =   240
  131.       TabIndex        =   0
  132.       Top             =   240
  133.       Width           =   1215
  134.    End
  135. Attribute VB_Name = "frmSavings"
  136. Attribute VB_Creatable = False
  137. Attribute VB_Exposed = False
  138. Option Explicit
  139. Dim Deposit As Integer
  140. Dim Months As Integer
  141. Dim Total As Integer
  142. Private Sub cmdCompute_Click()
  143. 'Get deposit amount
  144. Deposit = Val(txtDeposit.Text)
  145. 'Get number of months
  146. Months = Val(txtMonths.Text)
  147. 'Compute total savings
  148. Total = Deposit * Months
  149. 'Display Total
  150. lblTotal.Caption = "$" + Str(Total)
  151. End Sub
  152. Private Sub cmdExit_Click()
  153. End Sub
  154.