home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / numgame / nummain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  11.3 KB  |  380 lines
  1. VERSION 2.00
  2. Begin Form NumMain 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "The Number Game"
  5.    ClientHeight    =   5025
  6.    ClientLeft      =   1155
  7.    ClientTop       =   1665
  8.    ClientWidth     =   7095
  9.    ForeColor       =   &H00000000&
  10.    Height          =   5715
  11.    Icon            =   NUMMAIN.FRX:0000
  12.    Left            =   1095
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   5025
  17.    ScaleWidth      =   7095
  18.    Top             =   1035
  19.    Width           =   7215
  20.    Begin PictureBox MathLbl 
  21.       BackColor       =   &H00FFFFFF&
  22.       BorderStyle     =   0  'None
  23.       Height          =   495
  24.       Left            =   1800
  25.       Picture         =   NUMMAIN.FRX:0302
  26.       ScaleHeight     =   495
  27.       ScaleWidth      =   495
  28.       TabIndex        =   21
  29.       Top             =   2760
  30.       Width           =   495
  31.    End
  32.    Begin TextBox UserInput 
  33.       FontBold        =   -1  'True
  34.       FontItalic      =   0   'False
  35.       FontName        =   "MS Sans Serif"
  36.       FontSize        =   24
  37.       FontStrikethru  =   0   'False
  38.       FontUnderline   =   0   'False
  39.       Height          =   855
  40.       Left            =   4800
  41.       TabIndex        =   3
  42.       Top             =   2640
  43.       Width           =   1935
  44.    End
  45.    Begin HScrollBar MinSet 
  46.       Height          =   255
  47.       LargeChange     =   10
  48.       Left            =   2880
  49.       Max             =   100
  50.       TabIndex        =   16
  51.       Top             =   1680
  52.       Value           =   1
  53.       Width           =   1575
  54.    End
  55.    Begin TextBox MinN 
  56.       Height          =   375
  57.       Left            =   3960
  58.       TabIndex        =   18
  59.       Text            =   "0"
  60.       Top             =   1320
  61.       Width           =   495
  62.    End
  63.    Begin CommandButton AnsCk 
  64.       Caption         =   "Check Answer"
  65.       Default         =   -1  'True
  66.       Height          =   735
  67.       Left            =   4800
  68.       TabIndex        =   22
  69.       Top             =   1200
  70.       Width           =   1935
  71.    End
  72.    Begin HScrollBar MaxSet 
  73.       Height          =   255
  74.       LargeChange     =   10
  75.       Left            =   2880
  76.       Max             =   100
  77.       Min             =   1
  78.       TabIndex        =   15
  79.       Top             =   840
  80.       Value           =   1
  81.       Width           =   1575
  82.    End
  83.    Begin TextBox MaxN 
  84.       Height          =   375
  85.       Left            =   3960
  86.       TabIndex        =   20
  87.       Text            =   "1"
  88.       Top             =   480
  89.       Width           =   495
  90.    End
  91.    Begin CommandButton NumSetCmd 
  92.       BackColor       =   &H00C0C0C0&
  93.       Caption         =   "New Number Set"
  94.       Height          =   735
  95.       Left            =   4800
  96.       TabIndex        =   0
  97.       Top             =   360
  98.       Width           =   1935
  99.    End
  100.    Begin Frame Frame1 
  101.       BackColor       =   &H00FFFFFF&
  102.       Caption         =   "Math Function"
  103.       Height          =   1575
  104.       Left            =   120
  105.       TabIndex        =   6
  106.       Top             =   360
  107.       Width           =   2535
  108.       Begin PictureBox PicDiv 
  109.          BackColor       =   &H00C0C000&
  110.          Height          =   495
  111.          Left            =   1920
  112.          Picture         =   NUMMAIN.FRX:0604
  113.          ScaleHeight     =   465
  114.          ScaleWidth      =   465
  115.          TabIndex        =   11
  116.          Top             =   840
  117.          Width           =   495
  118.       End
  119.       Begin PictureBox Picmult 
  120.          BackColor       =   &H00C0C000&
  121.          Height          =   495
  122.          Left            =   1320
  123.          Picture         =   NUMMAIN.FRX:0906
  124.          ScaleHeight     =   465
  125.          ScaleWidth      =   465
  126.          TabIndex        =   10
  127.          Top             =   840
  128.          Width           =   495
  129.       End
  130.       Begin PictureBox Picminus 
  131.          BackColor       =   &H00C0C000&
  132.          Height          =   495
  133.          Left            =   720
  134.          Picture         =   NUMMAIN.FRX:0C08
  135.          ScaleHeight     =   465
  136.          ScaleWidth      =   465
  137.          TabIndex        =   9
  138.          Top             =   840
  139.          Width           =   495
  140.       End
  141.       Begin PictureBox PicPlus 
  142.          BackColor       =   &H00C0C000&
  143.          Height          =   495
  144.          Left            =   120
  145.          Picture         =   NUMMAIN.FRX:0F0A
  146.          ScaleHeight     =   465
  147.          ScaleWidth      =   465
  148.          TabIndex        =   8
  149.          Top             =   840
  150.          Width           =   495
  151.       End
  152.       Begin OptionButton DivBtn 
  153.          BackColor       =   &H00FFFFFF&
  154.          Height          =   255
  155.          Left            =   2040
  156.          TabIndex        =   14
  157.          Top             =   360
  158.          Width           =   255
  159.       End
  160.       Begin OptionButton MultBtn 
  161.          BackColor       =   &H00FFFFFF&
  162.          Height          =   255
  163.          Left            =   1440
  164.          TabIndex        =   13
  165.          Top             =   360
  166.          Width           =   255
  167.       End
  168.       Begin OptionButton MinusBtn 
  169.          BackColor       =   &H00FFFFFF&
  170.          Height          =   255
  171.          Left            =   840
  172.          TabIndex        =   12
  173.          Top             =   360
  174.          Width           =   255
  175.       End
  176.       Begin OptionButton PlusBtn 
  177.          BackColor       =   &H00FFFFFF&
  178.          Height          =   255
  179.          Left            =   240
  180.          TabIndex        =   7
  181.          Top             =   360
  182.          Value           =   -1  'True
  183.          Width           =   255
  184.       End
  185.    End
  186.    Begin Label AnsBox 
  187.       AutoSize        =   -1  'True
  188.       BackColor       =   &H00FFFFFF&
  189.       FontBold        =   -1  'True
  190.       FontItalic      =   0   'False
  191.       FontName        =   "MS Sans Serif"
  192.       FontSize        =   27
  193.       FontStrikethru  =   0   'False
  194.       FontUnderline   =   0   'False
  195.       ForeColor       =   &H00FFFFFF&
  196.       Height          =   645
  197.       Left            =   4920
  198.       TabIndex        =   5
  199.       Top             =   3960
  200.       Width           =   165
  201.    End
  202.    Begin Label CorrectAns 
  203.       BackColor       =   &H00FFFFFF&
  204.       FontBold        =   -1  'True
  205.       FontItalic      =   0   'False
  206.       FontName        =   "MS Sans Serif"
  207.       FontSize        =   24
  208.       FontStrikethru  =   0   'False
  209.       FontUnderline   =   0   'False
  210.       ForeColor       =   &H00FFFFFF&
  211.       Height          =   735
  212.       Left            =   360
  213.       TabIndex        =   4
  214.       Top             =   3960
  215.       Width           =   3855
  216.    End
  217.    Begin Label Num2 
  218.       AutoSize        =   -1  'True
  219.       BackColor       =   &H00FFFFFF&
  220.       Caption         =   "0"
  221.       FontBold        =   -1  'True
  222.       FontItalic      =   0   'False
  223.       FontName        =   "MS Sans Serif"
  224.       FontSize        =   27
  225.       FontStrikethru  =   0   'False
  226.       FontUnderline   =   0   'False
  227.       Height          =   645
  228.       Left            =   2880
  229.       TabIndex        =   2
  230.       Top             =   2640
  231.       Width           =   315
  232.    End
  233.    Begin Label Num1 
  234.       AutoSize        =   -1  'True
  235.       BackColor       =   &H00FFFFFF&
  236.       Caption         =   "0"
  237.       FontBold        =   -1  'True
  238.       FontItalic      =   0   'False
  239.       FontName        =   "MS Sans Serif"
  240.       FontSize        =   27
  241.       FontStrikethru  =   0   'False
  242.       FontUnderline   =   0   'False
  243.       Height          =   645
  244.       Left            =   360
  245.       TabIndex        =   1
  246.       Top             =   2640
  247.       Width           =   315
  248.    End
  249.    Begin Label MinLbl 
  250.       BackColor       =   &H00FFFFFF&
  251.       Caption         =   "Min #"
  252.       Height          =   255
  253.       Left            =   3120
  254.       TabIndex        =   17
  255.       Top             =   1320
  256.       Width           =   735
  257.    End
  258.    Begin Label MaxLbl 
  259.       BackColor       =   &H00FFFFFF&
  260.       Caption         =   "Max #"
  261.       Height          =   255
  262.       Left            =   3120
  263.       TabIndex        =   19
  264.       Top             =   480
  265.       Width           =   735
  266.    End
  267.    Begin Menu FileItem 
  268.       Caption         =   "File"
  269.       Begin Menu HelpItem 
  270.          Caption         =   "Help"
  271.       End
  272.       Begin Menu AboutItem 
  273.          Caption         =   "About"
  274.       End
  275.       Begin Menu Separate 
  276.          Caption         =   "-"
  277.       End
  278.       Begin Menu ExitItem 
  279.          Caption         =   "Exit"
  280.       End
  281.    End
  282. Sub AboutItem_Click ()
  283.     AboutForm.Show
  284. End Sub
  285. Sub AnsCk_Click ()
  286.     A$ = "Correct Answer"
  287.     If Val(userinput.text) = Val(ansbox.caption) Then
  288.     ansbox.forecolor = white
  289.     correctans.forecolor = Blue
  290.     correctans.caption = A$
  291.     Else
  292.     ansbox.forecolor = red
  293.     correctans.forecolor = red
  294.     correctans.caption = A$
  295.     End If
  296. End Sub
  297. Sub DivBtn_Click ()
  298.       mathlbl.picture = picdiv.picture
  299. End Sub
  300. Sub ExitItem_Click ()
  301.     End
  302. End Sub
  303. Sub HelpItem_Click ()
  304.     helpform.Show
  305. End Sub
  306. Sub MaxSet_Change ()
  307.     MaxN.text = Format$(maxset.value)
  308. End Sub
  309. Sub MinSet_Change ()
  310.     MinN.text = Format$(minset.value)
  311. End Sub
  312. Sub MinusBtn_Click ()
  313.      mathlbl.picture = picminus.picture
  314. End Sub
  315. Sub MultBtn_Click ()
  316.       mathlbl.picture = picmult.picture
  317. End Sub
  318. Sub NumSetCmd_Click ()
  319.     On Error GoTo Errorhandler
  320.     ansbox.caption = ""
  321.     userinput.text = ""
  322.     userinput.SetFocus
  323.     correctans.caption = ""
  324.     ansbox.forecolor = white
  325.     maxnum% = maxset.value
  326.     minnum% = minset.value
  327.     Randomize
  328.     n1% = Int(maxnum% - minnum%) * Rnd + minnum% 'FIRST RANDOM NUMBER
  329.     n2% = Int(maxnum% - minnum%) * Rnd + minnum% 'SECOND RANDOM NUMBER
  330.     If plusbtn.value = -1 Then 'CHECK FOR PLUS BUTTON ENABLED
  331.     num1.caption = Str$(n1%)'PLACE RANDOM NUMBERS ON SCREEN
  332.     num2.caption = Str$(n2%)
  333.     n3% = n1% + n2%
  334.     ansbox.caption = Str$(n3%) 'PLACE ANSWER ON SCREEN, TEXT IS WHITE
  335.     ElseIf minusbtn.value = -1 Then
  336.     If (n1% < n2%) Then   'PREVENT NEGATIVE NUMBERS FROM POPPING UP BY
  337.         num1.caption = Str$(n2%) 'SWAPPING POSITION OF RANDOM NUMBERS
  338.         num2.caption = Str$(n1%)
  339.         n3% = n2% - n1%
  340.         ansbox.caption = Str$(n3%)
  341.     Else
  342.         num1.caption = Str$(n1%)
  343.         num2.caption = Str$(n2%)
  344.         n3% = n1% - n2%
  345.         ansbox.caption = Str$(n3%)
  346.     End If
  347.     ElseIf MultBtn.value = -1 Then
  348.     num1.caption = Str$(n1%)
  349.     num2.caption = Str$(n2%)
  350.     n3% = n1% * n2%
  351.     ansbox.caption = Str$(n3%)
  352.     ElseIf DivBtn.value = -1 Then
  353.     n4% = n1% * n2%           'GENERATE A 4TH NUMBER TO REPLACE THE FIRST
  354.     num1.caption = Str$(n4%)  'RANDOM NUMBER, THIS WILL ALLOW ONLY INTEGERS
  355.     num2.caption = Str$(n2%)  'TO BE USED IN DIVISION.
  356.     n3% = n4% / n2%
  357.     ansbox.caption = Str$(n3%)
  358.     End If
  359. Exit Sub
  360. Errorhandler:
  361.     If Err = 11 Then
  362.     msg$ = "Program tried do divide by zero" + Chr$(13) + Chr$(10) + "Try another number set"
  363.     title$ = "Divison error"
  364.     MsgBox msg$, 16, title$
  365.     End If
  366.     Resume Next
  367. End Sub
  368. Sub PlusBtn_Click ()
  369.      mathlbl.picture = picplus.picture
  370. End Sub
  371. Sub UserInput_KeyPress (keyascii As Integer)
  372.     A% = keyascii
  373.  If A% < 47 Or A% > 58 Then ' integers 0 thru 9
  374.     keyascii = 0
  375.     msg$ = "Enter Postive Numbers Only"
  376.     title$ = "Entry Error"
  377.     MsgBox (msg$), 48, title$
  378.     End If
  379. End Sub
  380.