home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games Special 11 / CD_1.iso / wingames / amida / querynum.frm < prev    next >
Text File  |  1995-03-16  |  5KB  |  175 lines
  1. VERSION 2.00
  2. Begin Form QueryNum 
  3.    BorderStyle     =   3  'î┼ÆΦ(2ÅdÉⁿ)
  4.    Caption         =   "Amida - Setup"
  5.    ControlBox      =   0   'False
  6.    FontBold        =   -1  'True
  7.    FontItalic      =   0   'False
  8.    FontName        =   "System"
  9.    FontSize        =   9.75
  10.    FontStrikethru  =   0   'False
  11.    FontUnderline   =   0   'False
  12.    Height          =   2955
  13.    KeyPreview      =   -1  'True
  14.    Left            =   1890
  15.    LinkTopic       =   "Form2"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   2550
  19.    ScaleWidth      =   3450
  20.    Top             =   2970
  21.    Width           =   3570
  22.    Begin CheckBox UnwillingPrize 
  23.       Caption         =   "Don't want to win"
  24.       FontBold        =   -1  'True
  25.       FontItalic      =   0   'False
  26.       FontName        =   "Arial"
  27.       FontSize        =   9.75
  28.       FontStrikethru  =   0   'False
  29.       FontUnderline   =   0   'False
  30.       Height          =   252
  31.       Left            =   840
  32.       TabIndex        =   2
  33.       Top             =   1320
  34.       Width           =   2172
  35.    End
  36.    Begin CommandButton CancelCmd 
  37.       Cancel          =   -1  'True
  38.       Caption         =   "&Cancel"
  39.       FontBold        =   -1  'True
  40.       FontItalic      =   0   'False
  41.       FontName        =   "Arial"
  42.       FontSize        =   9.75
  43.       FontStrikethru  =   0   'False
  44.       FontUnderline   =   0   'False
  45.       Height          =   492
  46.       Left            =   1920
  47.       TabIndex        =   4
  48.       Top             =   1800
  49.       Width           =   1212
  50.    End
  51.    Begin CommandButton OkCmd 
  52.       Caption         =   "&OK"
  53.       FontBold        =   -1  'True
  54.       FontItalic      =   0   'False
  55.       FontName        =   "Arial"
  56.       FontSize        =   9.75
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       Height          =   495
  60.       Left            =   360
  61.       TabIndex        =   3
  62.       Top             =   1800
  63.       Width           =   1215
  64.    End
  65.    Begin TextBox NPrizesTxt 
  66.       FontBold        =   -1  'True
  67.       FontItalic      =   0   'False
  68.       FontName        =   "Arial"
  69.       FontSize        =   9.75
  70.       FontStrikethru  =   0   'False
  71.       FontUnderline   =   0   'False
  72.       Height          =   324
  73.       Left            =   1920
  74.       TabIndex        =   1
  75.       Top             =   720
  76.       Width           =   612
  77.    End
  78.    Begin TextBox NLotsTxt 
  79.       FontBold        =   -1  'True
  80.       FontItalic      =   0   'False
  81.       FontName        =   "Arial"
  82.       FontSize        =   9.75
  83.       FontStrikethru  =   0   'False
  84.       FontUnderline   =   0   'False
  85.       Height          =   324
  86.       Left            =   1920
  87.       TabIndex        =   0
  88.       Top             =   240
  89.       Width           =   612
  90.    End
  91.    Begin Label Label2 
  92.       Alignment       =   2  'Æåë¢æ╡éª
  93.       Caption         =   "Number of wins"
  94.       FontBold        =   -1  'True
  95.       FontItalic      =   0   'False
  96.       FontName        =   "Arial"
  97.       FontSize        =   9.75
  98.       FontStrikethru  =   0   'False
  99.       FontUnderline   =   0   'False
  100.       Height          =   255
  101.       Left            =   120
  102.       TabIndex        =   6
  103.       Top             =   735
  104.       Width           =   1695
  105.    End
  106.    Begin Label Label1 
  107.       Alignment       =   2  'Æåë¢æ╡éª
  108.       Caption         =   "Number of lines"
  109.       FontBold        =   -1  'True
  110.       FontItalic      =   0   'False
  111.       FontName        =   "Arial"
  112.       FontSize        =   9.75
  113.       FontStrikethru  =   0   'False
  114.       FontUnderline   =   0   'False
  115.       Height          =   255
  116.       Left            =   120
  117.       TabIndex        =   5
  118.       Top             =   270
  119.       Width           =   1815
  120.    End
  121. End
  122. Dim Shared IsNotFIrst As Integer
  123.  
  124. Sub CancelCmd_Click ()
  125.   DoNew = 0
  126.   Amida.Enabled = True
  127.   Unload QueryNum
  128. End Sub
  129.  
  130. Sub Form_Load ()
  131.   Caption = AppName$
  132.   If IsNotFIrst Then
  133.     NLotsTxt.Text = LTrim$(Str$(NumLots))
  134.     NPrizesTxt.Text = LTrim$(Str$(NumPrizes))
  135.     UnwillingPrize.Value = IsUnwillingPrize
  136.   End If
  137. End Sub
  138.  
  139. Sub Form_Unload (Cancel As Integer)
  140.   OkCmd.Default = False
  141. End Sub
  142.  
  143. Sub NLotsTxt_GotFocus ()
  144.   TextAllSelect NLotsTxt
  145. End Sub
  146.  
  147. Sub NLotsTxt_KeyPress (KeyAscii As Integer)
  148.  If KeyAscii = 13 Then
  149.    NPrizesTxt.SetFocus
  150.  End If
  151. End Sub
  152.  
  153. Sub nPrizesTxt_GotFocus ()
  154.   OkCmd.Default = True
  155.   TextAllSelect NPrizesTxt
  156. End Sub
  157.  
  158. Sub OkCmd_Click ()
  159.   Dim NL, NP As Integer
  160.   NL = Val(NLotsTxt.Text)
  161.   NP = Val(NPrizesTxt.Text)
  162.   If NL < 2 Or NL > MaxLots Or NP < 1 Or NP >= NL Then
  163.     Beep
  164.     Exit Sub
  165.   End If
  166.   NumLots = NL
  167.   NumPrizes = NP
  168.   IsUnwillingPrize = UnwillingPrize.Value
  169.   DoNew = True
  170.   Amida.Enabled = True
  171.   IsNotFIrst = True
  172.   Unload QueryNum
  173. End Sub
  174.  
  175.