form1.frm

很好的游戏。

      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "西瓜"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   855
      Index           =   5
      Left            =   5160
      TabIndex        =   6
      Top             =   1200
      Width           =   975
   End
   Begin VB.Label label1 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "大铃铛"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   855
      Index           =   4
      Left            =   5160
      TabIndex        =   5
      Top             =   240
      Width           =   975
   End
   Begin VB.Label label1 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "大苹果"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   855
      Index           =   3
      Left            =   4080
      TabIndex        =   4
      Top             =   240
      Width           =   975
   End
   Begin VB.Label label1 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "哈密瓜"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   855
      Index           =   2
      Left            =   3000
      TabIndex        =   3
      Top             =   240
      Width           =   975
   End
   Begin VB.Label label1 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "西瓜"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   855
      Index           =   1
      Left            =   1920
      TabIndex        =   2
      Top             =   240
      Width           =   975
   End
   Begin VB.Label label1 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0FF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "LUCKY"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   855
      Index           =   0
      Left            =   840
      TabIndex        =   1
      Top             =   240
      Width           =   975
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim R As Integer 'label1数组的下标
Dim pStop As Integer '停标记
Dim pStart As Boolean '限定开始按钮按下是否有效
Dim Bet As String '存储押大小的字符
Dim intS As Integer 'timer3停止标记
Private Sub cmdBig_Click()
Randomize
If lblC.Caption <> 0 And Timer2.Interval = 0 Then
Bet = "大"
Timer2.Interval = 50
intS = Int(Rnd * 30 + 10)
End If
End Sub
Private Sub cmdGo_Click()
Randomize
Dim i As Integer, j As Integer
For i = 0 To 7
If lblTotle(i).Caption <> "0" And pStart = False Then
pStart = True
Timer1.Interval = 40
pStop = Int(Rnd * 18) + 54
Call cmdStatic(False)
End If
Next i
End Sub
Private Sub cmdSave_Click()
Dim t As Single
t = Val(lblP.Caption) + Val(lblC.Caption)
If t > 99999 Then
lblP.Caption = 99999
Else
lblP.Caption = Val(lblP.Caption) + Val(lblC.Caption)
End If
lblC.Caption = 0
End Sub
Private Sub cmdSmall_Click()
Randomize
If lblC.Caption <> 0 And Timer2.Interval = 0 Then
Bet = "小"
Timer2.Interval = 50
intS = Int(Rnd * 30 + 10)
End If
End Sub

Private Sub Command1_Click(Index As Integer)
Dim i As Integer
If lblTotle(Index).Caption <> "99" And lblP.Caption <> 0 Then
lblTotle(Index).Caption = Val(lblTotle(Index).Caption) + 1
lblP.Caption = Val(lblP.Caption - 1)
End If
End Sub
Private Sub Command2_Click()
Dim t As Single
t = Val(lblP.Caption) + 10
If t > 99999 Then
lblP.Caption = 99999
Else
lblP.Caption = Val(lblP.Caption) + 10
End If
End Sub
Private Sub cmdStop_Click()
Dim cBet As String
Timer2.Interval = 0
If optB.Value = True Then
cBet = "小"
ElseIf optS.Value = True Then
cBet = "大"
Else
Exit Sub
End If
If Bet = cBet Then
lblC.Caption = Val(lblC.Caption) * 2
Else
lblC.Caption = 0
End If
End Sub
Private Sub Form_Load()
Dim i As Integer, flage As Integer
If App.PrevInstance = True Then
End
End If
Form1.Picture = LoadPicture(App.Path + "/back.jpg")
label1(1).BackColor = &HFF00&
End Sub

Private Sub Text1_Click(Index As Integer)

End Sub

Private Sub Timer1_Timer()
Static L As Integer
Dim B As Integer
L = L + 1
R = L Mod 18
B = R
If R = 0 Then
B = 18
End If
label1(R).BackColor = &HFF00&
label1(B - 1).BackColor = &HC0C0FF
If L > pStop Then
Timer1.Interval = Timer1.Interval + 20
    If Timer1.Interval > 260 Then
    Timer1.Interval = 0
    L = R
    pStart = False
    Call Totl(R)
    Call cmdStatic(True)
    End If
End If
End Sub
Private Sub Timer2_Timer()
Static BS As Boolean
Static i As Integer
Dim cBet As String
Dim t As Single
i = i + 1
If BS = True Then
optB.Value = 1
optB.BackColor = &H80C0FF
optS.BackColor = &HC0FFC0
cBet = "大"
Else
optS.Value = 1
optS.BackColor = &H80C0FF
optB.BackColor = &HC0FFC0
cBet = "小"
End If
BS = Not BS

If i = intS Then
Timer2.Interval = 0
i = 0
intS = 0
    If cBet = Bet Then
    t = Val(lblC.Caption) * 2
        If t > 99999 Then
        lblC.Caption = 99999
        Else
        lblC.Caption = Val(lblC.Caption) * 2
        End If
    Else
    lblC.Caption = 0
    End If
End If
End Sub
Public Sub Totl(mIndex As Integer)
Dim i As Integer
Select Case mIndex
Case 0
Timer3.Interval = 1000
Case 1
lblC.Caption = lblC.Caption + 3 * lblTotle(5).Caption
Case 2
lblC.Caption = lblC.Caption + 3 * lblTotle(4).Caption
Case 3
lblC.Caption = lblC.Caption + 6 * lblTotle(7).Caption
Case 4
lblC.Caption = lblC.Caption + 10 * lblTotle(3).Caption
Case 5
lblC.Caption = lblC.Caption + 3 * lblTotle(5).Caption
Case 6
lblC.Caption = lblC.Caption + 3 * lblTotle(6).Caption
Case 7
lblC.Caption = lblC.Caption + 6 * lblTotle(2).Caption
Case 8
lblC.Caption = lblC.Caption + 3 * lblTotle(3).Caption
Case 9
lblC.Caption = lblC.Caption + 100 * lblTotle(0).Caption
Case 10
lblC.Caption = lblC.Caption + 6 * lblTotle(5).Caption
Case 11
lblC.Caption = lblC.Caption + 3 * lblTotle(6).Caption
Case 12
lblC.Caption = lblC.Caption + 10 * lblTotle(2).Caption
Case 13
lblC.Caption = lblC.Caption + 3 * lblTotle(7).Caption
Case 14
lblC.Caption = lblC.Caption + 50 * lblTotle(4).Caption
Case 15
lblC.Caption = lblC.Caption + 6 * lblTotle(4).Caption
Case 16
lblC.Caption = lblC.Caption + 6 * lblTotle(6).Caption
Case 17
lblC.Caption = lblC.Caption + 3 * lblTotle(7).Caption
Case Else
End Select
For i = 0 To 7
lblTotle(i).Caption = 0
Next i
End Sub
Private Sub Timer3_Timer()
Randomize
Dim j As Integer, i As Integer
Static m As Integer
m = m + 1
If m = 4 Then
Timer3.Interval = 0
m = 0
    For i = 0 To 17
        If label1(i).BackColor = &HFF00& Then
        label1(i).BackColor = &HC0C0FF
        lblC.Caption = lblC.Caption + Int(Rnd * 10)
        End If
    Next i
 label1(1).BackColor = &HFF00&
Else
j = Int(Rnd * 18)
label1(j).BackColor = &HFF00&
End If
End Sub
Public Sub cmdStatic(mStatic As Boolean)
Dim i As Integer
If mStatic = True Then
    For i = 0 To 7
    Command1(i).Enabled = True
    Next i
    cmdBig.Enabled = True
    cmdSmall.Enabled = True
Else
    For i = 0 To 7
    Command1(i).Enabled = False
    Next i
    cmdBig.Enabled = False
    cmdSmall.Enabled = False
End If
End Sub