home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / FishMath218250672010.psc / Form1.frm < prev    next >
Text File  |  2010-06-07  |  5KB  |  177 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Fishing Math"
  4.    ClientHeight    =   3780
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   5655
  8.    Icon            =   "Form1.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3780
  11.    ScaleWidth      =   5655
  12.    StartUpPosition =   1  'CenterOwner
  13.    Begin VB.TextBox TxtHigh 
  14.       Height          =   375
  15.       Left            =   2040
  16.       TabIndex        =   4
  17.       Text            =   "15"
  18.       Top             =   1320
  19.       Width           =   855
  20.    End
  21.    Begin VB.Label Label2 
  22.       AutoSize        =   -1  'True
  23.       Caption         =   "Highest number used"
  24.       Height          =   195
  25.       Left            =   1680
  26.       TabIndex        =   5
  27.       Top             =   1080
  28.       Width           =   1500
  29.    End
  30.    Begin VB.Label Label1 
  31.       AutoSize        =   -1  'True
  32.       BackColor       =   &H00000000&
  33.       Caption         =   "Divide"
  34.       BeginProperty Font 
  35.          Name            =   "MS Sans Serif"
  36.          Size            =   12
  37.          Charset         =   0
  38.          Weight          =   700
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       ForeColor       =   &H8000000E&
  44.       Height          =   300
  45.       Index           =   3
  46.       Left            =   4200
  47.       TabIndex        =   3
  48.       Top             =   2640
  49.       Width           =   750
  50.    End
  51.    Begin VB.Label Label1 
  52.       AutoSize        =   -1  'True
  53.       BackColor       =   &H00C0FFC0&
  54.       Caption         =   "Multiply"
  55.       BeginProperty Font 
  56.          Name            =   "MS Sans Serif"
  57.          Size            =   12
  58.          Charset         =   0
  59.          Weight          =   700
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   300
  65.       Index           =   2
  66.       Left            =   120
  67.       TabIndex        =   2
  68.       Top             =   2880
  69.       Width           =   915
  70.    End
  71.    Begin VB.Label Label1 
  72.       AutoSize        =   -1  'True
  73.       BackColor       =   &H00FFC0C0&
  74.       Caption         =   "Subtract"
  75.       BeginProperty Font 
  76.          Name            =   "MS Sans Serif"
  77.          Size            =   12
  78.          Charset         =   0
  79.          Weight          =   700
  80.          Underline       =   0   'False
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       Height          =   300
  85.       Index           =   1
  86.       Left            =   3720
  87.       TabIndex        =   1
  88.       Top             =   480
  89.       Width           =   1050
  90.    End
  91.    Begin VB.Label Label1 
  92.       AutoSize        =   -1  'True
  93.       BackColor       =   &H00FFC0FF&
  94.       Caption         =   "Add"
  95.       BeginProperty Font 
  96.          Name            =   "MS Sans Serif"
  97.          Size            =   12
  98.          Charset         =   0
  99.          Weight          =   700
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       Height          =   300
  105.       Index           =   0
  106.       Left            =   480
  107.       TabIndex        =   0
  108.       Top             =   360
  109.       Width           =   495
  110.    End
  111.    Begin VB.Image Fish 
  112.       Height          =   1335
  113.       Index           =   1
  114.       Left            =   3720
  115.       Picture         =   "Form1.frx":030A
  116.       Stretch         =   -1  'True
  117.       Top             =   0
  118.       Width           =   1530
  119.    End
  120.    Begin VB.Image Fish 
  121.       Height          =   1185
  122.       Index           =   2
  123.       Left            =   0
  124.       Picture         =   "Form1.frx":2614
  125.       Stretch         =   -1  'True
  126.       Top             =   2400
  127.       Width           =   1395
  128.    End
  129.    Begin VB.Image Fish 
  130.       Height          =   1080
  131.       Index           =   0
  132.       Left            =   0
  133.       Picture         =   "Form1.frx":426E
  134.       Stretch         =   -1  'True
  135.       Top             =   -120
  136.       Width           =   1530
  137.    End
  138.    Begin VB.Image Fish 
  139.       Height          =   1305
  140.       Index           =   3
  141.       Left            =   3720
  142.       Picture         =   "Form1.frx":4A48
  143.       Stretch         =   -1  'True
  144.       Top             =   2040
  145.       Width           =   2040
  146.    End
  147. End
  148. Attribute VB_Name = "Form1"
  149. Attribute VB_GlobalNameSpace = False
  150. Attribute VB_Creatable = False
  151. Attribute VB_PredeclaredId = True
  152. Attribute VB_Exposed = False
  153. Private Sub Fish_Click(Index As Integer)
  154.   iHighv = TxtHigh.Text
  155.   iMathcase = Index + 1
  156.   frmFish.Show
  157.   Unload Me
  158. End Sub
  159.  
  160. Private Sub Form_Load()
  161.   iHighv = 15
  162.   iLowV = 0
  163.   iMathcase = 1
  164.   cSymbol(1) = "+"
  165.   cSymbol(2) = "-"
  166.   cSymbol(3) = "*"
  167.   cSymbol(4) = "/"
  168.   frmFish.Show
  169.   Unload Me
  170. End Sub
  171.  
  172. Private Sub Label1_Click(Index As Integer)
  173.   iMathcase = Index + 1
  174.   frmFish.Show
  175.   Unload Me
  176. End Sub
  177.