home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wheelo1a / frmstart.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-12  |  15.1 KB  |  529 lines
  1. VERSION 5.00
  2. Begin VB.Form frmStart1 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Wheel-Of-Fortune"
  6.    ClientHeight    =   5940
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   6150
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   5940
  14.    ScaleWidth      =   6150
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin VB.Frame Frame3 
  17.       BackColor       =   &H00000000&
  18.       Caption         =   "Skill level"
  19.       ForeColor       =   &H0000FF00&
  20.       Height          =   1215
  21.       Left            =   2400
  22.       TabIndex        =   15
  23.       Top             =   2640
  24.       Width           =   1335
  25.       Begin VB.HScrollBar HScroll3 
  26.          Height          =   255
  27.          Left            =   480
  28.          Max             =   10
  29.          Min             =   1
  30.          TabIndex        =   17
  31.          Top             =   840
  32.          Value           =   1
  33.          Width           =   375
  34.       End
  35.       Begin VB.Label Label7 
  36.          BackColor       =   &H00000000&
  37.          Caption         =   "(Easy)"
  38.          ForeColor       =   &H0000FF00&
  39.          Height          =   255
  40.          Left            =   480
  41.          TabIndex        =   18
  42.          Top             =   480
  43.          Width           =   615
  44.       End
  45.       Begin VB.Label level1 
  46.          BackColor       =   &H00000000&
  47.          Caption         =   "1"
  48.          BeginProperty Font 
  49.             Name            =   "MS LineDraw"
  50.             Size            =   14.25
  51.             Charset         =   2
  52.             Weight          =   700
  53.             Underline       =   0   'False
  54.             Italic          =   0   'False
  55.             Strikethrough   =   0   'False
  56.          EndProperty
  57.          ForeColor       =   &H0000FF00&
  58.          Height          =   255
  59.          Left            =   480
  60.          TabIndex        =   16
  61.          Top             =   240
  62.          Width           =   375
  63.       End
  64.    End
  65.    Begin VB.CommandButton Command1 
  66.       Caption         =   "E&xit"
  67.       Height          =   255
  68.       Left            =   2400
  69.       TabIndex        =   14
  70.       Top             =   5520
  71.       Width           =   1455
  72.    End
  73.    Begin VB.TextBox Text2 
  74.       Height          =   285
  75.       Left            =   1680
  76.       TabIndex        =   12
  77.       Top             =   4680
  78.       Visible         =   0   'False
  79.       Width           =   3135
  80.    End
  81.    Begin VB.Frame Frame2 
  82.       BackColor       =   &H00000000&
  83.       Caption         =   "Players"
  84.       ForeColor       =   &H0000FF00&
  85.       Height          =   1215
  86.       Left            =   840
  87.       TabIndex        =   9
  88.       Top             =   2640
  89.       Width           =   1335
  90.       Begin VB.HScrollBar HScroll2 
  91.          Height          =   255
  92.          Left            =   480
  93.          TabIndex        =   11
  94.          Top             =   840
  95.          Width           =   375
  96.       End
  97.       Begin VB.Label Label5 
  98.          BackColor       =   &H00000000&
  99.          Caption         =   "1"
  100.          BeginProperty Font 
  101.             Name            =   "NewBskvll BT"
  102.             Size            =   14.25
  103.             Charset         =   0
  104.             Weight          =   400
  105.             Underline       =   0   'False
  106.             Italic          =   0   'False
  107.             Strikethrough   =   0   'False
  108.          EndProperty
  109.          ForeColor       =   &H0000FF00&
  110.          Height          =   375
  111.          Left            =   480
  112.          TabIndex        =   10
  113.          Top             =   240
  114.          Width           =   495
  115.       End
  116.    End
  117.    Begin VB.TextBox Text1 
  118.       Height          =   285
  119.       Left            =   1680
  120.       TabIndex        =   2
  121.       Top             =   4200
  122.       Width           =   3135
  123.    End
  124.    Begin VB.CommandButton cmdPlay 
  125.       Caption         =   "&Play"
  126.       Height          =   255
  127.       Left            =   1920
  128.       TabIndex        =   1
  129.       Top             =   5160
  130.       Width           =   2535
  131.    End
  132.    Begin VB.Frame Frame1 
  133.       BackColor       =   &H00000000&
  134.       Caption         =   "Sound"
  135.       ForeColor       =   &H0000FF00&
  136.       Height          =   1215
  137.       Left            =   3960
  138.       TabIndex        =   6
  139.       Top             =   2640
  140.       Width           =   1335
  141.       Begin VB.HScrollBar HScroll1 
  142.          Height          =   255
  143.          Left            =   480
  144.          TabIndex        =   7
  145.          Top             =   840
  146.          Width           =   375
  147.       End
  148.       Begin VB.Label Label4 
  149.          BackColor       =   &H00000000&
  150.          Caption         =   "OFF"
  151.          BeginProperty Font 
  152.             Name            =   "NewBskvll BT"
  153.             Size            =   12
  154.             Charset         =   0
  155.             Weight          =   400
  156.             Underline       =   0   'False
  157.             Italic          =   0   'False
  158.             Strikethrough   =   0   'False
  159.          EndProperty
  160.          ForeColor       =   &H0000FF00&
  161.          Height          =   375
  162.          Left            =   360
  163.          TabIndex        =   8
  164.          Top             =   240
  165.          Width           =   615
  166.       End
  167.    End
  168.    Begin VB.Shape Shape2 
  169.       BorderColor     =   &H00008000&
  170.       Height          =   1695
  171.       Left            =   480
  172.       Top             =   2400
  173.       Width           =   5175
  174.    End
  175.    Begin VB.Shape Shape1 
  176.       BackStyle       =   1  'Opaque
  177.       BorderStyle     =   0  'Transparent
  178.       FillColor       =   &H0000FF00&
  179.       FillStyle       =   0  'Solid
  180.       Height          =   255
  181.       Index           =   5
  182.       Left            =   4680
  183.       Top             =   600
  184.       Width           =   1575
  185.    End
  186.    Begin VB.Shape Shape1 
  187.       BackStyle       =   1  'Opaque
  188.       BorderStyle     =   0  'Transparent
  189.       FillColor       =   &H0000FF00&
  190.       FillStyle       =   0  'Solid
  191.       Height          =   255
  192.       Index           =   4
  193.       Left            =   0
  194.       Top             =   600
  195.       Width           =   1455
  196.    End
  197.    Begin VB.Shape Shape1 
  198.       BackStyle       =   1  'Opaque
  199.       BorderStyle     =   0  'Transparent
  200.       FillColor       =   &H0000FF00&
  201.       FillStyle       =   0  'Solid
  202.       Height          =   255
  203.       Index           =   3
  204.       Left            =   4680
  205.       Top             =   1560
  206.       Width           =   1575
  207.    End
  208.    Begin VB.Shape Shape1 
  209.       BackStyle       =   1  'Opaque
  210.       BorderStyle     =   0  'Transparent
  211.       FillColor       =   &H0000FF00&
  212.       FillStyle       =   0  'Solid
  213.       Height          =   255
  214.       Index           =   2
  215.       Left            =   0
  216.       Top             =   1560
  217.       Width           =   1455
  218.    End
  219.    Begin VB.Shape Shape1 
  220.       BackStyle       =   1  'Opaque
  221.       BorderStyle     =   0  'Transparent
  222.       FillColor       =   &H0000FF00&
  223.       FillStyle       =   0  'Solid
  224.       Height          =   255
  225.       Index           =   1
  226.       Left            =   4680
  227.       Top             =   1080
  228.       Width           =   1575
  229.    End
  230.    Begin VB.Shape Shape1 
  231.       BackStyle       =   1  'Opaque
  232.       BorderStyle     =   0  'Transparent
  233.       FillColor       =   &H0000FF00&
  234.       FillStyle       =   0  'Solid
  235.       Height          =   255
  236.       Index           =   0
  237.       Left            =   0
  238.       Top             =   1080
  239.       Width           =   1455
  240.    End
  241.    Begin VB.Label Label6 
  242.       BackColor       =   &H00000000&
  243.       Caption         =   "Player 2"
  244.       BeginProperty Font 
  245.          Name            =   "MS Sans Serif"
  246.          Size            =   12
  247.          Charset         =   0
  248.          Weight          =   400
  249.          Underline       =   0   'False
  250.          Italic          =   0   'False
  251.          Strikethrough   =   0   'False
  252.       EndProperty
  253.       ForeColor       =   &H0000FF00&
  254.       Height          =   255
  255.       Left            =   480
  256.       TabIndex        =   13
  257.       Top             =   4680
  258.       Visible         =   0   'False
  259.       Width           =   1095
  260.    End
  261.    Begin VB.Line Line1 
  262.       BorderColor     =   &H0000FF00&
  263.       BorderWidth     =   3
  264.       Index           =   7
  265.       X1              =   1440
  266.       X2              =   4680
  267.       Y1              =   240
  268.       Y2              =   240
  269.    End
  270.    Begin VB.Line Line1 
  271.       BorderColor     =   &H0000FF00&
  272.       BorderWidth     =   3
  273.       Index           =   6
  274.       X1              =   1560
  275.       X2              =   4560
  276.       Y1              =   360
  277.       Y2              =   360
  278.    End
  279.    Begin VB.Line Line1 
  280.       BorderColor     =   &H0000FF00&
  281.       BorderWidth     =   3
  282.       Index           =   5
  283.       X1              =   4560
  284.       X2              =   4560
  285.       Y1              =   360
  286.       Y2              =   2160
  287.    End
  288.    Begin VB.Line Line1 
  289.       BorderColor     =   &H0000FF00&
  290.       BorderWidth     =   3
  291.       Index           =   4
  292.       X1              =   1440
  293.       X2              =   1440
  294.       Y1              =   240
  295.       Y2              =   2280
  296.    End
  297.    Begin VB.Line Line1 
  298.       BorderColor     =   &H0000FF00&
  299.       BorderWidth     =   3
  300.       Index           =   3
  301.       X1              =   4680
  302.       X2              =   4680
  303.       Y1              =   240
  304.       Y2              =   2280
  305.    End
  306.    Begin VB.Line Line1 
  307.       BorderColor     =   &H0000FF00&
  308.       BorderWidth     =   3
  309.       Index           =   2
  310.       X1              =   1440
  311.       X2              =   4680
  312.       Y1              =   2280
  313.       Y2              =   2280
  314.    End
  315.    Begin VB.Line Line1 
  316.       BorderColor     =   &H0000FF00&
  317.       BorderWidth     =   3
  318.       Index           =   1
  319.       X1              =   1560
  320.       X2              =   4560
  321.       Y1              =   2160
  322.       Y2              =   2160
  323.    End
  324.    Begin VB.Line Line1 
  325.       BorderColor     =   &H0000FF00&
  326.       BorderWidth     =   3
  327.       Index           =   0
  328.       X1              =   1560
  329.       X2              =   1560
  330.       Y1              =   360
  331.       Y2              =   2160
  332.    End
  333.    Begin VB.Label Label3 
  334.       BackColor       =   &H00000000&
  335.       Caption         =   "FORTUNE"
  336.       BeginProperty Font 
  337.          Name            =   "AdLib BT"
  338.          Size            =   18
  339.          Charset         =   0
  340.          Weight          =   700
  341.          Underline       =   0   'False
  342.          Italic          =   0   'False
  343.          Strikethrough   =   0   'False
  344.       EndProperty
  345.       ForeColor       =   &H0000FF00&
  346.       Height          =   735
  347.       Left            =   2040
  348.       TabIndex        =   5
  349.       Top             =   1440
  350.       Width           =   3615
  351.    End
  352.    Begin VB.Label Label2 
  353.       BackColor       =   &H00000000&
  354.       Caption         =   "of"
  355.       BeginProperty Font 
  356.          Name            =   "AdLib BT"
  357.          Size            =   15.75
  358.          Charset         =   0
  359.          Weight          =   400
  360.          Underline       =   0   'False
  361.          Italic          =   0   'False
  362.          Strikethrough   =   0   'False
  363.       EndProperty
  364.       ForeColor       =   &H0000FF00&
  365.       Height          =   615
  366.       Left            =   2640
  367.       TabIndex        =   4
  368.       Top             =   960
  369.       Width           =   1335
  370.    End
  371.    Begin VB.Label Label1 
  372.       BackColor       =   &H00000000&
  373.       Caption         =   "Player 1:"
  374.       BeginProperty Font 
  375.          Name            =   "News Gothic MT"
  376.          Size            =   12
  377.          Charset         =   0
  378.          Weight          =   400
  379.          Underline       =   0   'False
  380.          Italic          =   0   'False
  381.          Strikethrough   =   0   'False
  382.       EndProperty
  383.       ForeColor       =   &H0000FF00&
  384.       Height          =   375
  385.       Left            =   480
  386.       TabIndex        =   3
  387.       Top             =   4200
  388.       Width           =   1095
  389.    End
  390.    Begin VB.Label lblWheel 
  391.       BackColor       =   &H00000000&
  392.       Caption         =   "WHEEL"
  393.       BeginProperty Font 
  394.          Name            =   "AdLib BT"
  395.          Size            =   20.25
  396.          Charset         =   0
  397.          Weight          =   400
  398.          Underline       =   0   'False
  399.          Italic          =   0   'False
  400.          Strikethrough   =   0   'False
  401.       EndProperty
  402.       ForeColor       =   &H0000FF00&
  403.       Height          =   495
  404.       Left            =   2040
  405.       TabIndex        =   0
  406.       Top             =   360
  407.       Width           =   2295
  408.    End
  409. Attribute VB_Name = "frmStart1"
  410. Attribute VB_GlobalNameSpace = False
  411. Attribute VB_Creatable = False
  412. Attribute VB_PredeclaredId = True
  413. Attribute VB_Exposed = False
  414. Private Sub cmdPlay_Click()
  415. If Text2.Visible = False Then
  416. If Text1.Text = "" Then
  417. MsgBox "enter"
  418. End If
  419. End If
  420. If Text2.Visible = False Then
  421. If Text1.Text <> "" Then
  422. Form11.Visible = True
  423. frmStart1.Visible = False
  424. End If
  425. End If
  426. If Text2.Visible = True Then
  427. If Text1.Text = "" Or Text2.Text = "" Then
  428. MsgBox "nope"
  429. Form11.Visible = True
  430. frmStart1.Visible = False
  431. End If
  432. End If
  433. End Sub
  434. Private Sub Command1_Click()
  435. Sosa.Visible = True
  436. frmStart1.Visible = False
  437. End Sub
  438. Private Sub Form_Load()
  439. cmdPlay.Enabled = False
  440. End Sub
  441. Private Sub HScroll1_Change()
  442. If Label4.Caption = "OFF" Then
  443. Label4.Caption = "ON"
  444. Label4.Caption = "OFF"
  445. End If
  446. End Sub
  447. Private Sub HScroll2_Change()
  448. If Label5.Caption = "1" Then
  449. Label5.Caption = "2"
  450. Text2.Visible = True
  451. cmdPlay.Enabled = False
  452. Label6.Visible = True
  453. Label5.Caption = "1"
  454. Text2.Visible = False
  455. Text2.Text = ""
  456. If Text1.Text <> "" Then
  457. cmdPlay.Enabled = True
  458. End If
  459. Text1.SetFocus
  460. Label6.Visible = False
  461. End If
  462. End Sub
  463. Private Sub HScroll3_Change()
  464. level1.Caption = HScroll3.Value
  465. If level1.Caption = 1 Then
  466. Label7.Caption = "(Easy)"
  467. End If
  468. If level1.Caption = 2 Then
  469. Label7.Caption = "(Easy)"
  470. End If
  471. If level1.Caption = 3 Then
  472. Label7.Caption = "(Easy)"
  473. End If
  474. If level1.Caption = 4 Then
  475. Label7.Caption = "(Med.)"
  476. End If
  477. If level1.Caption = 5 Then
  478. Label7.Caption = "(Med.)"
  479. End If
  480. If level1.Caption = 6 Then
  481. Label7.Caption = "(Med.)"
  482. End If
  483. If level1.Caption = 7 Then
  484. Label7.Caption = "(Med.)"
  485. End If
  486. If level1.Caption = 8 Then
  487. Label7.Caption = "(Hard)"
  488. End If
  489. If level1.Caption = 9 Then
  490. Label7.Caption = "(Hard)"
  491. End If
  492. If level1.Caption = 10 Then
  493. Label7.Caption = "(Hard)"
  494. End If
  495. End Sub
  496. Private Sub Text1_Change()
  497. If Text1.Text = "" Then
  498. cmdPlay.Enabled = False
  499. End If
  500. If Text2.Visible = False Then
  501. If Text1.Text = "" Then
  502. cmdPlay.Enabled = False
  503. cmdPlay.Enabled = True
  504. End If
  505. End If
  506. If Text2.Visible = True Then
  507. If Text1.Text = "" Then
  508. cmdPlay.Enabled = False
  509. End If
  510. If Text2.Text <> "" Then
  511. If Text1.Text <> "" Then
  512. cmdPlay.Enabled = True
  513. End If
  514. cmdPlay.Enabled = False
  515. End If
  516. End If
  517. End Sub
  518. Private Sub Text2_Change()
  519. If Len(Text2.Text) = 0 Then
  520. cmdPlay.Enabled = False
  521. End If
  522. If Text1.Text <> "" Then
  523. If Len(Text2.Text) >= 1 Then
  524. cmdPlay.Enabled = True
  525. cmdPlay.Enabled = False
  526. End If
  527. End If
  528. End Sub
  529.