frmactionslot.frm

Visual Basic编写的老虎机游戏。

          intEarnings = intEarnings + (intWinnings(7) * ByThis)
         Case 833, 834, 835, 836, 837, 843, 853, 863, 873
          intEarnings = intEarnings + (intWinnings(7) * ByThis)
         Case 383, 384, 385, 386, 387, 483, 583, 683, 783
          intEarnings = intEarnings + (intWinnings(7) * ByThis)
         Case 338, 348, 358, 368, 378, 438, 538, 638, 738
          intEarnings = intEarnings + (intWinnings(7) * ByThis)
         Case 844, 845, 846, 487, 548, 648, 748
          intEarnings = intEarnings + (intWinnings(7) * ByThis)
         Case 484, 485, 486, 487, 584, 684, 784
          intEarnings = intEarnings + (intWinnings(7) * ByThis)
         Case 448, 458, 468, 478, 548, 648, 748
          intEarnings = intEarnings + (intWinnings(7) * ByThis)
         Case 855, 856, 857, 865, 875
          intEarnings = intEarnings + (intWinnings(7) * ByThis)
        Case 585, 586, 587, 685, 785
         intEarnings = intEarnings + (intWinnings(7) * ByThis)
        Case 558, 568, 578, 658, 758
         intEarnings = intEarnings + (intWinnings(7) * ByThis)
        Case 866, 867, 876
         intEarnings = intEarnings + (intWinnings(7) * ByThis)
        Case 686, 687, 786
         intEarnings = intEarnings + (intWinnings(7) * ByThis)
        Case 668, 678, 768
         intEarnings = intEarnings + (intWinnings(7) * ByThis)
        Case 877
         intEarnings = intEarnings + (intWinnings(7) * ByThis)
        Case 787
         intEarnings = intEarnings + (intWinnings(7) * ByThis)
        Case 778  ' Any $
         intEarnings = intEarnings + (intWinnings(7) * ByThis)
         Case Else
         
      End Select
      ' Check if won
      If intEarnings > 0 Then
         ' Add to earnings
         Text1.Text = Text1.Text + intEarnings
         AmtWin = AmtWin + intEarnings
        SetAmtwin Text1.Text
            
         Picture2.Visible = True
         Timer3.Enabled = True
         ' Reset earnings
          Text4.Text = intEarnings
          SetWinOnHand Text4.Text
         intEarnings = 0
     Else
        Text1.Text = Text1.Text - ByThis
        AmtWin = AmtWin - ByThis
        SetAmtwin Text1.Text
      End If
     
  
   Picture4(12).Visible = False
   Picture3(12).Left = 0
   End Function

Private Sub SetWinOnHand(Amount As Integer)
Dim Dig4 As Integer
Dim Dig3 As Integer
Dim Dig2 As Integer
Dim Dig1 As Integer
Dim Amount2 As Integer, Amount3 As Integer, Amount4 As Integer
Dig4 = 0
Dig3 = 0
Dig2 = 0
Dig1 = 0
 If Amount >= 1000 Then
    Do
        Amount = Amount - 1000
        Dig4 = Dig4 + 1
    Loop Until Amount < 1000
    Amount2 = Amount
Else
   Amount2 = Amount
End If
        Call SetPic(Dig4, Picture4(0), Picture3(0))

If Amount2 >= 100 Then
    Do
        Amount2 = Amount2 - 100
        Dig3 = Dig3 + 1
    Loop Until Amount2 < 100
    Amount3 = Amount2
Else
   Amount3 = Amount2
End If
        Call SetPic(Dig3, Picture4(1), Picture3(1))
        
If Amount3 >= 10 Then
    Do
        Amount3 = Amount3 - 10
        Dig2 = Dig2 + 1
    Loop Until Amount3 < 10
    Amount4 = Amount3
Else
    Amount4 = Amount3
End If
        Call SetPic(Dig2, Picture4(2), Picture3(2))

If Amount4 >= 1 Then
    Do
        Amount4 = Amount4 - 1
        Dig1 = Dig1 + 1
    Loop Until Amount4 < 1
End If
         Call SetPic(Dig1, Picture4(3), Picture3(3))

End Sub

Private Sub SetAmtwin(Amount As Integer)
Dim Dig4 As Integer
Dim Dig3 As Integer
Dim Dig2 As Integer
Dim Dig1 As Integer
Dim Amount2 As Integer, Amount3 As Integer, Amount4 As Integer
Dig4 = 0
Dig3 = 0
Dig2 = 0
Dig1 = 0
 If Amount >= 1000 Then
    Do
        Amount = Amount - 1000
        Dig4 = Dig4 + 1
    Loop Until Amount < 1000
    Amount2 = Amount
Else
   Amount2 = Amount
End If
        Call SetPic(Dig4, Picture4(6), Picture3(6))

If Amount2 >= 100 Then
    Do
        Amount2 = Amount2 - 100
        Dig3 = Dig3 + 1
    Loop Until Amount2 < 100
    Amount3 = Amount2
Else
   Amount3 = Amount2
End If
        Call SetPic(Dig3, Picture4(7), Picture3(7))
        
If Amount3 >= 10 Then
    Do
        Amount3 = Amount3 - 10
        Dig2 = Dig2 + 1
    Loop Until Amount3 < 10
    Amount4 = Amount3
Else
    Amount4 = Amount3
End If
        Call SetPic(Dig2, Picture4(8), Picture3(8))

If Amount4 >= 1 Then
    Do
        Amount4 = Amount4 - 1
        Dig1 = Dig1 + 1
    Loop Until Amount4 < 1
End If
        Call SetPic(Dig1, Picture4(9), Picture3(9))
  
'    If Amount >= 1000 Then
'     'Dig4 = RoundToValue(Amount / 1000, 1, False)
'     Dig4 = Format(Amount / 1000, "##")
'     Amount2 = Amount - (Dig4 * 1000)
'    Else
'     Dig4 = 0
'      Amount2 = Amount
'    End If
'
'    Text2.Text = Dig4
'    Call SetPic(Dig4, Picture4(6), Picture3(6))
'
'     If Amount2 >= 100 Then 'And Amount2 < 1000 Then
'     'Dig3 = RoundToValue(Amount2 / 100, 1, False)
'     Dig3 = Format(Amount2 / 100, "##")
'     Amount3 = Amount2 - (Dig3 * 100)
'     Else
'      Dig3 = 0
'      Amount3 = Amount2
'     End If
'     Text3.Text = Dig3
'     Call SetPic(Dig3, Picture4(7), Picture3(7))
'
'     If Amount3 >= 10 Then 'And Amount3 < 100 Then
'     'Dig2 = RoundToValue(Amount3 / 10, 1, False)
'     Dig2 = Format(Amount3 / 10, "##")
'     Amount4 = Amount3 - (Dig2 * 10)
'     Else
'      Dig2 = 0
'      Amount4 = Amount3
'     End If
'     Text5.Text = Dig2
'     Call SetPic(Dig2, Picture4(8), Picture3(8))
'
'     If Amount4 >= 1 And Amount4 < 10 Then
'     'Dig1 = RoundToValue(Amount4 / 1, 1, False)
'     Dig1 = Format(Amount4 / 1, "##")
'     Else
'     Dig1 = 0
'     End If
'     Text6.Text = Dig1
'     Call SetPic(Dig1, Picture4(9), Picture3(9))
'
End Sub

Private Sub SetPic(NumSet As Integer, Pic1 As PictureBox, Pic2 As PictureBox)
    If NumSet = 0 Then
        Pic1.Visible = False
        Pic2.Left = 0
    ElseIf NumSet = 1 Then
        Pic1.Visible = True
        Pic2.Left = 0
    ElseIf NumSet = 2 Then
        Pic1.Visible = True
        Pic2.Left = -164
    ElseIf NumSet = 3 Then
        Pic1.Visible = True
        Pic2.Left = -328
    ElseIf NumSet = 4 Then
        Pic1.Visible = True
        Pic2.Left = -492
    ElseIf NumSet = 5 Then
        Pic1.Visible = True
        Pic2.Left = -656
    ElseIf NumSet = 6 Then
        Pic1.Visible = True
        Pic2.Left = -820
    ElseIf NumSet = 7 Then
        Pic1.Visible = True
        Pic2.Left = -984
    ElseIf NumSet = 8 Then
        Pic1.Visible = True
        Pic2.Left = -1148
    ElseIf NumSet = 9 Then
        Pic1.Visible = True
        Pic2.Left = -1312
    End If
End Sub

Private Sub Image1_Click()
Timer1.Enabled = True
End Sub

Private Sub Image10_Click()
Timer7.Enabled = True
End Sub

Private Sub Image12_Click()
Image13.Visible = True
Image12.Visible = False
End Sub

Private Sub Image13_Click()
Image13.Visible = False
Image12.Visible = True
End Sub


Private Sub Image4_Click()
If Picture4(12).Visible = False Then
Else
Timer2.Enabled = True
End If
End Sub

Private Sub Image6_Click()
Picture4(12).Visible = True
Picture3(12).Left = -626
ByThis = 5
Timer5.Enabled = True
End Sub

Private Sub Image8_Click()
If Picture4(12).Visible = False Then
 Picture4(12).Visible = True
 ByThis = 1
' AmtWin = AmtWin - 1
ElseIf Picture4(12).Visible = True Then
    If Picture3(12).Left - 64 >= -656 Then
        Picture3(12).Left = Picture3(12).Left - 164
If Picture3(12).Left >= 0 Then
  ByThis = 1
ElseIf Picture3(12).Left >= -164 Then
  ByThis = 2
ElseIf Picture3(12).Left >= -328 Then
  ByThis = 3
ElseIf Picture3(12).Left >= -492 Then
  ByThis = 4
ElseIf Picture3(12).Left >= -656 Then
  ByThis = 5
End If
End If
End If

 'Text4.Text = ByThis
 Timer6.Enabled = True
        

End Sub

Private Sub Timer1_Timer()
If Image1.Visible = True Then
  Image2.Visible = True
  Image1.Visible = False
ElseIf Image2.Visible = True Then
  Image3.Visible = True
  Image2.Visible = False
ElseIf Image3.Visible = True Then
  Image1.Visible = True
  Image3.Visible = False
  Timer1.Enabled = False
  If Picture4(12).Visible = False Then
Else
  DoEvents
   ' Start spinning
   SpinWheels
   ' Check result
   CheckResult
 End If
End If
End Sub

Private Sub Timer2_Timer()
If Image4.Visible = True Then
Image4.Visible = False
Image5.Visible = True
ElseIf Image5.Visible = True Then
Image5.Visible = False
Image4.Visible = True
Timer2.Enabled = False
DoEvents
   ' Start spinning
   SpinWheels
   ' Check result
   CheckResult
End If
End Sub

Private Sub Timer3_Timer()
If Picture1.Left > -4320 Then
 Picture1.Left = Picture1.Left - 739
  Timer3.Enabled = False
  Timer4.Enabled = True
Else
 Picture1.Left = 0
 Timer3.Enabled = False
 Picture2.Visible = False
End If
End Sub

Private Sub Timer4_Timer()
If Picture1.Left > -4320 Then
 Picture1.Left = Picture1.Left - 739
  Timer3.Enabled = False
  Timer4.Enabled = True
Else
 Picture1.Left = 0
 Timer4.Enabled = False
 Picture2.Visible = False
End If
End Sub

Private Sub Timer5_Timer()
If Image6.Visible = True Then
Image6.Visible = False
Image7.Visible = True
ElseIf Image7.Visible = True Then
Image7.Visible = False
Image6.Visible = True
Timer5.Enabled = False
DoEvents
   ' Start spinning
   SpinWheels
   ' Check result
   CheckResult
End If

End Sub

Private Sub Timer6_Timer()
If Image8.Visible = True Then
Image8.Visible = False
Image9.Visible = True
ElseIf Image9.Visible = True Then
Image9.Visible = False
Image8.Visible = True
Timer6.Enabled = False
End If
End Sub

Private Sub Timer7_Timer()
If Image10.Visible = True Then
Image10.Visible = False
Image11.Visible = True
ElseIf Image11.Visible = True Then
Image11.Visible = False
Image10.Visible = True
Timer7.Enabled = False
End If
End Sub