吃餃子老虎

wc_big_pig天尊

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
   BackColor       =   &H00FFFFFF&
   Caption         =   "吃角子老虎"
   ClientHeight    =   3795
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5100
   LinkTopic       =   "Form1"
   ScaleHeight     =   3795
   ScaleWidth      =   5100
   StartUpPosition =   3  '系統預設值
   Begin MSComctlLib.ImageList PL
      Left            =   5280
      Top             =   1680
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
         NumListImages   =   5
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "Form1.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "Form1.frx":0A72
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "Form1.frx":134C
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "Form1.frx":1CFE
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "Form1.frx":28B4
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Frame Frame1
      BackColor       =   &H00FFFFFF&
      Height          =   3735
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   4935
      Begin VB.CheckBox Check1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         Caption         =   "下注(10%)"
         ForeColor       =   &H80000008&
         Height          =   180
         Index           =   4
         Left            =   3360
         TabIndex        =   17
         Top             =   120
         Value           =   1  '核取
         Width           =   1215
      End
      Begin VB.CheckBox Check1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         Caption         =   "下注(10%)"
         ForeColor       =   &H80000008&
         Height          =   180
         Index           =   3
         Left            =   3360
         TabIndex        =   16
         Top             =   2520
         Value           =   1  '核取
         Width           =   1455
      End
      Begin VB.CheckBox Check1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         Caption         =   "下注(5%)"
         ForeColor       =   &H80000008&
         Height          =   180
         Index           =   2
         Left            =   3720
         TabIndex        =   15
         Top             =   2040
         Value           =   1  '核取
         Width           =   1095
      End
      Begin VB.CheckBox Check1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         Caption         =   "下注(5%)"
         ForeColor       =   &H80000008&
         Height          =   180
         Index           =   1
         Left            =   3720
         TabIndex        =   14
         Top             =   1320
         Value           =   1  '核取
         Width           =   1095
      End
      Begin VB.CheckBox Check1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         Caption         =   "下注(5%)"
         ForeColor       =   &H80000008&
         Height          =   180
         Index           =   0
         Left            =   3720
         TabIndex        =   13
         Top             =   480
         Value           =   1  '核取
         Width           =   1095
      End
      Begin VB.CommandButton Command1
         BackColor       =   &H00FFFFFF&
         Caption         =   "[ 賭 ]"
         Height          =   375
         Left            =   3720
         Style           =   1  '圖片外觀
         TabIndex        =   12
         Top             =   3240
         Width           =   1095
      End
      Begin VB.TextBox txt本金
         Alignment       =   2  '置中對齊
         Appearance      =   0  '平面
         Height          =   270
         Left            =   960
         TabIndex        =   11
         Text            =   "1000"
         Top             =   2880
         Width           =   3855
      End
      Begin VB.PictureBox Picture1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   375
         Index           =   0
         Left            =   360
         ScaleHeight     =   345
         ScaleWidth      =   705
         TabIndex        =   18
         Top             =   360
         Width           =   735
      End
      Begin VB.PictureBox Picture1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   375
         Index           =   3
         Left            =   1320
         ScaleHeight     =   345
         ScaleWidth      =   705
         TabIndex        =   21
         Top             =   360
         Width           =   735
      End
      Begin VB.PictureBox Picture1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   375
         Index           =   6
         Left            =   2280
         ScaleHeight     =   345
         ScaleWidth      =   705
         TabIndex        =   24
         Top             =   360
         Width           =   735
      End
      Begin VB.PictureBox Picture1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   375
         Index           =   1
         Left            =   360
         ScaleHeight     =   345
         ScaleWidth      =   705
         TabIndex        =   19
         Top             =   1200
         Width           =   735
      End
      Begin VB.PictureBox Picture1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   375
         Index           =   2
         Left            =   360
         ScaleHeight     =   345
         ScaleWidth      =   705
         TabIndex        =   20
         Top             =   1920
         Width           =   735
      End
      Begin VB.PictureBox Picture1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   375
         Index           =   4
         Left            =   1320
         ScaleHeight     =   345
         ScaleWidth      =   705
         TabIndex        =   22
         Top             =   1200
         Width           =   735
      End
      Begin VB.PictureBox Picture1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   375
         Index           =   5
         Left            =   1320
         ScaleHeight     =   345
         ScaleWidth      =   705
         TabIndex        =   23
         Top             =   1920
         Width           =   735
      End
      Begin VB.PictureBox Picture1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   375
         Index           =   7
         Left            =   2280
         ScaleHeight     =   345
         ScaleWidth      =   705
         TabIndex        =   25
         Top             =   1200
         Width           =   735
      End
      Begin VB.PictureBox Picture1
         Appearance      =   0  '平面
         BackColor       =   &H80000005&
         ForeColor       =   &H80000008&
         Height          =   375
         Index           =   8
         Left            =   2280
         ScaleHeight     =   345
         ScaleWidth      =   705
         TabIndex        =   26
         Top             =   1920
         Width           =   735
      End
      Begin VB.TextBox Text1
         Alignment       =   2  '置中對齊
         Appearance      =   0  '平面
         BeginProperty Font
            Name            =   "新細明體"
            Size            =   15.75
            Charset         =   136
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   0
         Left            =   360
         TabIndex        =   1
         Text            =   "50"
         Top             =   360
         Width           =   735
      End
      Begin VB.TextBox Text1
         Alignment       =   2  '置中對齊
         Appearance      =   0  '平面
         BeginProperty Font
            Name            =   "新細明體"
            Size            =   15.75
            Charset         =   136
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   1
         Left            =   360
         TabIndex        =   2
         Text            =   "50"
         Top             =   1200
         Width           =   735
      End
      Begin VB.TextBox Text1
         Alignment       =   2  '置中對齊
         Appearance      =   0  '平面
         BeginProperty Font
            Name            =   "新細明體"
            Size            =   15.75
            Charset         =   136
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   2
         Left            =   360
         TabIndex        =   3
         Text            =   "50"
         Top             =   1920
         Width           =   735
      End
      Begin VB.TextBox Text1
         Alignment       =   2  '置中對齊
         Appearance      =   0  '平面
         BeginProperty Font
            Name            =   "新細明體"
            Size            =   15.75
            Charset         =   136
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   3
         Left            =   1320
         TabIndex        =   4
         Text            =   "50"
         Top             =   360
         Width           =   735
      End
      Begin VB.TextBox Text1
         Alignment       =   2  '置中對齊
         Appearance      =   0  '平面
         BeginProperty Font
            Name            =   "新細明體"
            Size            =   15.75
            Charset         =   136
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   4
         Left            =   1320
         TabIndex        =   5
         Text            =   "50"
         Top             =   1200
         Width           =   735
      End
      Begin VB.TextBox Text1
         Alignment       =   2  '置中對齊
         Appearance      =   0  '平面
         BeginProperty Font
            Name            =   "新細明體"
            Size            =   15.75
            Charset         =   136
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   5
         Left            =   1320
         TabIndex        =   6
         Text            =   "50"
         Top             =   1920
         Width           =   735
      End
      Begin VB.TextBox Text1
         Alignment       =   2  '置中對齊
         Appearance      =   0  '平面
         BeginProperty Font
            Name            =   "新細明體"
            Size            =   15.75
            Charset         =   136
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   6
         Left            =   2280
         TabIndex        =   7
         Text            =   "50"
         Top             =   360
         Width           =   735
      End
      Begin VB.TextBox Text1
         Alignment       =   2  '置中對齊
         Appearance      =   0  '平面
         BeginProperty Font
            Name            =   "新細明體"
            Size            =   15.75
            Charset         =   136
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   7
         Left            =   2280
         TabIndex        =   8
         Text            =   "50"
         Top             =   1200
         Width           =   735
      End
      Begin VB.TextBox Text1
         Alignment       =   2  '置中對齊
         Appearance      =   0  '平面
         BeginProperty Font
            Name            =   "新細明體"
            Size            =   15.75
            Charset         =   136
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Index           =   8
         Left            =   2280
         TabIndex        =   9
         Text            =   "50"
         Top             =   1920
         Width           =   735
      End
      Begin VB.Label Label2
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         Height          =   180
         Left            =   360
         TabIndex        =   27
         Top             =   3240
         Width           =   45
      End
      Begin VB.Line Li
         Index           =   4
         X1              =   120
         X2              =   3360
         Y1              =   2520
         Y2              =   240
      End
      Begin VB.Line Li
         Index           =   3
         X1              =   120
         X2              =   3360
         Y1              =   240
         Y2              =   2520
      End
      Begin VB.Line Li
         Index           =   2
         X1              =   240
         X2              =   3600
         Y1              =   2160
         Y2              =   2160
      End
      Begin VB.Line Li
         Index           =   1
         X1              =   240
         X2              =   3600
         Y1              =   1440
         Y2              =   1440
      End
      Begin VB.Line Li
         BorderColor     =   &H00000000&
         Index           =   0
         X1              =   240
         X2              =   3600
         Y1              =   600
         Y2              =   600
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         Caption         =   "本金："
         Height          =   180
         Left            =   360
         TabIndex        =   10
         Top             =   2880
         Width           =   540
      End
      Begin VB.Line Line1
         X1              =   240
         X2              =   4800
         Y1              =   2760
         Y2              =   2760
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Num(4) As String, I As Byte, 本金 As String

Public Function 產生亂數(ByVal N As Byte) As String
    Randomize Time
    產生亂數 = Fix(Rnd * N) + 1
End Function

Public Sub Run()
    Dim A(8) As String
    For I = 0 To 8
        Text1(I) = Num(產生亂數(4))
        Picture1(I).Picture = PL.ListImages(Val(Text1(I).Text)).Picture
    Next I
End Sub

Private Sub Command1_Click()
    If Trim(txt本金.Text) = "0" Then MsgBox "沒錢了": Exit Sub
    本金 = Val(txt本金.Text)
    For I = 0 To 4
        Li(I).BorderColor = "&H80000008"
    Next I
   
    Call Run
    Call 計算中獎的金額
End Sub

Private Sub Form_Load()
    For I = 0 To 4
        Num(I) = I
    Next I
    本金 = txt本金.Text
End Sub

Public Function 計算中獎的金額()
'0 3 6
'1 4 7
'2 5 8
    Dim P As Boolean, J As Byte, H(3) As Single
    For I = 0 To 4
        
        Select Case I
            Case 0
                H(0) = 0: H(1) = 3: H(2) = H(0) + H(1)
                H(3) = 0.05
            Case 1
                H(0) = 1: H(1) = 3: H(2) = H(0) + H(1)
                H(3) = 0.05
            Case 2
                H(0) = 2: H(1) = 3: H(2) = H(0) + H(1)
                H(3) = 0.05
            Case 4
                H(0) = 2: H(1) = 2: H(2) = H(0) + H(1)
                H(3) = 0.1
            Case 3
                H(0) = 0: H(1) = 4: H(2) = H(0) + H(1)
                H(3) = 0.1
        End Select
        If Check1(I).Value = 1 Then
            P = False
            For J = CByte(H(0)) To CByte(H(2)) Step CByte(H(1))
                Debug.Print Text1(J).Text & "   :   " & Text1(J + H(1)).Text
                If Trim(Text1(CByte(J)).Text) <> Trim(Text1(CByte(J) + CByte(H(1))).Text) Then P = True
                If P = True Then Exit For
            Next J
            If P = False Then '壓中
        '    If I = 4 Then Stop
                Debug.Print Val(本金) + (Val(本金) * Val(H(3)))
                本金 = Val(本金) + (Val(本金) * Val(H(3)))
                txt本金.Text = Fix(本金)
                Li(I).BorderColor = "&H000000FF"
                Label2.Caption = "賺錢了!"
            Else '梅仲
                本金 = Val(本金) - (Val(本金) * Val(H(3)))
                txt本金.Text = Fix(Val(本金))
                Li(I).BorderColor = "&H80000008"
                Label2.Caption = "賠錢了!"
            End If
            If Trim(txt本金.Text) = "0" Then MsgBox "沒錢了": Exit Function
        End If
    Next I
End Function