VERSION 5.00 Begin VB.Form Form1 BackColor = &H00FFFFC0& Caption = "Form1" ClientHeight = 6045 ClientLeft = 60 ClientTop = 450 ClientWidth = 5790 LinkTopic = "Form1" ScaleHeight = 6045 ScaleWidth = 5790 StartUpPosition = 3 '系統預設值 Begin VB.Timer Timer1 Enabled = 0 'False Interval = 50 Left = 5400 Top = 4200 End Begin VB.CommandButton Command1 Caption = "轉動" BeginProperty Font Name = "微軟正黑體" Size = 15.75 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 975 Left = 3600 TabIndex = 1 Top = 4560 Width = 1695 End Begin VB.Label Label8 BackColor = &H00FFFFC0& Caption = "1000" BeginProperty Font Name = "微軟正黑體" Size = 18 Charset = 136 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 1680 TabIndex = 8 Top = 4560 Width = 1575 End Begin VB.Label Label7 BackColor = &H00C0FFC0& Caption = "50" BeginProperty Font Name = "微軟正黑體" Size = 21.75 Charset = 136 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4200 TabIndex = 7 Top = 1200 Width = 1095 End Begin VB.Label Label6 BackColor = &H00C0FFC0& Caption = "50" BeginProperty Font Name = "微軟正黑體" Size = 21.75 Charset = 136 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4200 TabIndex = 6 Top = 1800 Width = 1095 End Begin VB.Label Label5 BackColor = &H00C0FFC0& Caption = "50" BeginProperty Font Name = "微軟正黑體" Size = 21.75 Charset = 136 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4200 TabIndex = 5 Top = 600 Width = 1095 End Begin VB.Image Image2 Height = 480 Index = 14 Left = 3600 Picture = "Form1.frx":0000 Top = 1800 Width = 480 End Begin VB.Image Image2 Height = 480 Index = 13 Left = 3120 Picture = "Form1.frx":0113 Top = 1800 Width = 480 End Begin VB.Image Image2 Height = 480 Index = 12 Left = 3600 Picture = "Form1.frx":0226 Top = 1200 Width = 480 End Begin VB.Image Image2 Height = 480 Index = 11 Left = 3120 Picture = "Form1.frx":0309 Top = 1200 Width = 480 End Begin VB.Image Image2 Height = 480 Index = 10 Left = 3600 Picture = "Form1.frx":03EC Top = 600 Width = 480 End Begin VB.Image Image2 Height = 480 Index = 9 Left = 3120 Picture = "Form1.frx":0513 Top = 600 Width = 480 End Begin VB.Label Label4 BackColor = &H00C0FFC0& Caption = "200" BeginProperty Font Name = "微軟正黑體" Size = 21.75 Charset = 136 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 1920 TabIndex = 4 Top = 1200 Width = 1095 End Begin VB.Image Image2 Height = 480 Index = 8 Left = 840 Picture = "Form1.frx":063A Top = 1200 Width = 480 End Begin VB.Image Image2 Height = 480 Index = 7 Left = 1320 Picture = "Form1.frx":071D Top = 1200 Width = 480 End Begin VB.Image Image2 Height = 480 Index = 6 Left = 360 Picture = "Form1.frx":0800 Top = 1200 Width = 480 End Begin VB.Label Label3 BackColor = &H00C0FFC0& Caption = "200" BeginProperty Font Name = "微軟正黑體" Size = 21.75 Charset = 136 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 1920 TabIndex = 3 Top = 1800 Width = 1095 End Begin VB.Image Image2 Height = 480 Index = 5 Left = 840 Picture = "Form1.frx":08E3 Top = 1800 Width = 480 End Begin VB.Image Image2 Height = 480 Index = 4 Left = 1320 Picture = "Form1.frx":09F6 Top = 1800 Width = 480 End Begin VB.Image Image2 Height = 480 Index = 3 Left = 360 Picture = "Form1.frx":0B09 Top = 1800 Width = 480 End Begin VB.Label Label2 BackColor = &H00C0FFC0& Caption = "200" BeginProperty Font Name = "微軟正黑體" Size = 21.75 Charset = 136 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 1920 TabIndex = 2 Top = 600 Width = 1095 End Begin VB.Image Image2 Height = 480 Index = 2 Left = 840 Picture = "Form1.frx":0C1C Top = 600 Width = 480 End Begin VB.Image Image2 Height = 480 Index = 1 Left = 1320 Picture = "Form1.frx":0D43 Top = 600 Width = 480 End Begin VB.Image Image2 Height = 480 Index = 0 Left = 360 Picture = "Form1.frx":0E6A Top = 600 Width = 480 End Begin VB.Label Label1 BackColor = &H00FFFFC0& Caption = "目前分數" BeginProperty Font Name = "微軟正黑體" Size = 18 Charset = 136 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 120 TabIndex = 0 Top = 4560 Width = 1455 End Begin VB.Image Image1 Height = 480 Index = 2 Left = 3480 Picture = "Form1.frx":0F91 Top = 3240 Width = 480 End Begin VB.Image Image1 Height = 480 Index = 1 Left = 2640 Picture = "Form1.frx":10A4 Top = 3240 Width = 480 End Begin VB.Image Image1 Height = 480 Index = 0 Left = 1800 Picture = "Form1.frx":1187 Top = 3240 Width = 480 End Begin VB.Shape Shape1 BackColor = &H00C0FFC0& BackStyle = 1 '不透明 BorderColor = &H000000FF& FillColor = &H0080FF80& Height = 2055 Left = 240 Shape = 4 '圓角矩形 Top = 480 Width = 5295 End Begin VB.Shape Shape2 BackColor = &H0080FFFF& BackStyle = 1 '不透明 BorderColor = &H00FF8080& Height = 1215 Left = 1440 Shape = 4 '圓角矩形 Top = 2880 Width = 3015 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Timer1.Enabled = True Command1.Enabled = False Timer1.Interval = 50 '重設 p = Val(Label8.Caption) p = p - 100 '成本 Label8.Caption = p End Sub Private Sub Timer1_Timer() Randomize Timer '以時間來取用亂數表 a = Int(Rnd * 3) + 1 '整數亂數1~3 filepath = "C:\Documents and Settings\owner\桌面\images\" If a = 1 Then Image1(0).Picture = LoadPicture(filepath & "cherry.gif") End If If a = 2 Then Image1(0).Picture = LoadPicture(filepath & "grape.gif") End If If a = 3 Then Image1(0).Picture = LoadPicture(filepath & "orange.gif") End If b = Int(Rnd * 3) + 1 If b = 1 Then Image1(1).Picture = LoadPicture(filepath & "cherry.gif") End If If b = 2 Then Image1(1).Picture = LoadPicture(filepath & "grape.gif") End If If b = 3 Then Image1(1).Picture = LoadPicture(filepath & "orange.gif") End If c = Int(Rnd * 3) + 1 If c = 1 Then Image1(2).Picture = LoadPicture(filepath & "cherry.gif") End If If c = 2 Then Image1(2).Picture = LoadPicture(filepath & "grape.gif") End If If c = 3 Then Image1(2).Picture = LoadPicture(filepath & "orange.gif") End If t = Timer1.Interval t = t * 1.1 Timer1.Interval = t If t >= 1000 Then '若間隔時間大於等於1秒，則關閉timer Timer1.Enabled = False Command1.Enabled = True p = Val(Label8.Caption) '目前點數 If a = b And a = c Then p = p + 200 Else If a = b Or b = c Or a = c Then '任兩圖相同 p = p + 50 End If End If Label8.Caption = p '更新點數 End If End Sub