|
|
1. |
GameForm
Dim
Start_Date As Date
Dim New_Game_BTime As Date
Dim imgX As ListImage 'Image List
Dim Flg_Time As Boolean
Dim TimerFlag As Boolean
Dim Circle_Draw As Boolean
Dim Welcome_Flag As Boolean
Dim TheGood_Flag As Boolean
Dim Vcount As Integer
Dim Initial As Integer
Dim Fcount As Integer
Dim fcount1 As Integer
Dim G1(4) As Integer
Dim G2(4) As Integer
Dim G3(4) As Integer
Dim G4(4) As Integer
Dim G5(4) As Integer
Dim G6(4) As Integer
Dim G7(4) As Integer
Dim G8(4) As Integer
Dim G9(4) As Integer
Dim A(9, 4) As String
Dim LP(9, 2) As Single
Dim G_Flag(9) As Boolean
Dim G_Box(9) As String
Private Sub CmdAbout_Click()
Dim f As New About_FaceGame
f.Show
End Sub
Private Sub CmdDemo_Click()
Dim f As New DemoForm
f.Show
End Sub
Private Sub CmdExit_Click()
Unload Me
End Sub
Private Sub CmdStart_Click()
' Initial Position
Initial = Initial + 1
If Initial = 0 Or Initial = 8 Then Initial = 1
' New Game Load
New_Game_Sub
End Sub
'Private Sub CmdStop_Click()
Private Sub Stop_Load()
' Load Timers
TimerFlag = False
Timer1.Interval = 0
Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
' New Game, First Time after Load
Start_Date = Time
' Group2 - Frame
lb22.Caption = G1(4)
lb23.Caption = G5(1)
lb24.Caption = G3(2)
' Group4 - Frame
lb41.Caption = G1(3)
lb43.Caption = G7(1)
lb44.Caption = G5(2)
' Group6 - Frame
lb61.Caption = G3(3)
lb62.Caption = G5(4)
lb63.Caption = G9(1)
' Group8 - Frame
lb81.Caption = G5(3)
lb82.Caption = G7(4)
lb84.Caption = G9(2)
' Initial Position
Initial_Position
' New Game, Interval Timer Flag
Flg_Time = True
CmdStart.Enabled = True
Toolbar1.Buttons(2).Enabled = True
LTImer.Visible = True
LInterval.Visible = True
LOne.Visible = False
' Timer Counter Format, Begin
LInterval.Caption = " --- 00:00:00 --- """
' Stop Draw Cicle
Circle_Draw = False
Picture1.Visible = False
Picture1.Left = 4920
Picture1.Top = 6480
' Draw the word Welcome ...
Frame_Start.Visible = False
Frame_Start.Left = 240
Frame_Start.Top = 6480
Timer_Welcome.Interval = 0
Welcome_Flag = False
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single,
Y As Single)
Dim Frame_Name As String
Dim VWidth As Integer
Dim vHeight As Integer
Dim Fcount As Integer
Dim fcount1 As Integer
Dim indexx As String
If TimerFlag = False Then
' In the Frame
If X >= 0 And X < 1680 Then X = 240
If X >= 1680 And X < 3120 Then X = 1680
If X >= 3120 And X < 4560 Then X = 3120
' Out of the Frame
If X >= 4560 And X < 6240 Then X = 4800
If X >= 6240 And X < 7680 Then X = 6240
If X >= 7680 And X <= Me.Width Then X = 7680
If Y >= 0 And Y < 2640 Then Y = 1200
If Y >= 2640 And Y < 4080 Then Y = 2640
If Y >= 4080 And Y < Me.Height Then Y = 4080
Source.Move X, Y
indexx = Right(Source.Name, 1)
If X > 4680 Then
Source.Move LP(Val(indexx), 1), LP(Val(indexx), 2)
End If
' Store Information
G_Flag(Val(indexx)) = True
' Calcul
Calcul_Value indexx, X, Y
' Verification
Equal_Value Source, indexx, X, Y
Fcount = 0
fcount1 = 0
Frame_Name = Source.Name
If Group1.Left <= 3120 Then Fcount = Fcount + 1
If Group2.Left <= 3120 Then Fcount = Fcount + 1
If Group3.Left <= 3120 Then Fcount = Fcount + 1
If Group4.Left <= 3120 Then Fcount = Fcount + 1
If Group5.Left <= 3120 Then Fcount = Fcount + 1
If Group6.Left <= 3120 Then Fcount = Fcount + 1
If Group7.Left <= 3120 Then Fcount = Fcount + 1
If Group8.Left <= 3120 Then Fcount = Fcount + 1
If Group9.Left <= 3120 Then Fcount = Fcount + 1
If Group1.Left = 240 And Group1.Top = 1200 Then fcount1 =
fcount1 + 1
If Group2.Left = 1680 And Group2.Top = 1200 Then fcount1 =
fcount1 + 1
If Group3.Left = 3120 And Group3.Top = 1200 Then fcount1 =
fcount1 + 1
If Group4.Left = 240 And Group4.Top = 2640 Then fcount1 =
fcount1 + 1
If Group5.Left = 1680 And Group5.Top = 2640 Then fcount1 =
fcount1 + 1
If Group6.Left = 3120 And Group6.Top = 2640 Then fcount1 =
fcount1 + 1
If Group7.Left = 240 And Group7.Top = 4080 Then fcount1 =
fcount1 + 1
If Group8.Left = 1680 And Group8.Top = 4080 Then fcount1 =
fcount1 + 1
If Group9.Left = 3120 And Group9.Top = 4080 Then fcount1 =
fcount1 + 1
' Test if All Game Operations is Available
If Fcount = 9 Then
If fcount1 = 9 Then
' Stopped all Function under Timer_Interval
Flg_Time = False
' Activate the control Image1
Picture2.Visible = True
Picture2.Left = 240
Picture2.Top = 1200
Picture2.Height = 4800
Picture2.Width = 4560
VWidth = (Picture2.Width - Image1.Width)
vHeight = (Picture2.Height - Image1.Height)
Picture2.Height = Image1.Height + VWidth + 25
Picture2.Width = Image1.Width + VWidth
Image1.Left = VWidth / 2
Image1.Top = (Picture2.Height - Image1.Height) / 2
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace0.bmp")
' Draw the word The Good ...
Frame_Start.Left = 4800
Frame_Start.Top = 1200
Frame_Start.Visible = True
LSelect.Visible = True
LWelcome.Left = (Frame_Start.Width - LWelcome.Width) / 2
LWelcome.Top = (Frame_Start.Height - LWelcome.Height) / 2
' Activate the Timer_Welcome.Interval Timer
Welcome_Flag = False
TheGood_Flag = True
Timer_Welcome.Interval = 500
Vcount = 1
LWelcome.Caption = "The Good ..."
LWelcome.Font = "Times New Roman" ' LWelcome_Font
'Procedure
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC000&
LSelect.ForeColor = &H40C0&
LInterval.BackColor = &HC000&
Else
Source.Move 6240, 2640
Source.Move LP(Val(indexx), 1), LP(Val(indexx), 2)
End If
End If
End If
End Sub
Private Sub Form_DragOver(Source As Control, X As Single,
Y As Single, State As Integer)
Dim i As Integer
If TimerFlag = False Then
' Change pointer to no drop.
If State = 0 Then
Source.MousePointer = 12
If G_Flag(Val(Right(Source.Name, 1))) Then
For i = 0 To 4
A(Val(G_Box(Val(Right(Source.Name, 1)))), i) = ""
Next
End If
End If
' Use default mouse pointer.
If State = 1 Then Source.MousePointer = 0
End If
End Sub
Private Sub Form_Load()
'Load icon
Me.Icon = LoadPicture(App.Path & "\pic\Face.ico")
ImageList1.ImageHeight = 32
ImageList1.ImageWidth = 32
Set imgX = ImageList1.ListImages.Add(1, ,
LoadPicture(App.Path & "\Pic\New Game.ico"))
Set imgX = ImageList1.ListImages.Add(2, ,
LoadPicture(App.Path & "\Pic\Demo.ico"))
Set imgX = ImageList1.ListImages.Add(3, ,
LoadPicture(App.Path & "\Pic\About.ico"))
Set imgX = ImageList1.ListImages.Add(4, ,
LoadPicture(App.Path & "\Pic\Exit.ico"))
' Toolbar control
Toolbar1.ImageList = ImageList1
Toolbar1.Buttons(2).Image = 1
Toolbar1.Buttons(4).Image = 2
Toolbar1.Buttons(6).Image = 3
Toolbar1.Buttons(8).Image = 4
' Initial Position
Initial = 1
' New Game Load
New_Game_Sub
End Sub
Private Sub New_Game_Sub()
' Initialisation
Initial_Array
CmdStart.Enabled = False
Toolbar1.Buttons(2).Enabled = False
LTImer.Visible = False
LInterval.Visible = False
LOne.Visible = True
LSelect.Visible = False
' Initial Position Sub
Initial_Flag = True
Initial_Position
' Draw Cicle
Circle_Draw = True
Picture1.Visible = True
Picture1.Left = 4800
Picture1.Top = 1200
' Draw the word Welcome ...
Frame_Start.Visible = True
Frame_Start.Left = 240
Frame_Start.Top = 1200
LWelcome.Left = (Frame_Start.Width - LWelcome.Width) / 2
LWelcome.Top = (Frame_Start.Height - LWelcome.Height) / 2
LWelcome.Caption = ""
Timer_Welcome.Interval = 500
Vcount = 1
' Variable
Welcome_Flag = True
Flg_Time = False
TheGood_Flag = False
Picture2.Visible = False
' Start Timer Load, New Game
New_Game_BTime = Format(Time, "hh:mm:ss ")
TimerFlag = True
Timer1.Interval = 1
Timer2.Interval = 1
Timer3.Interval = 1
Timer4.Interval = 1
End Sub
Private Sub mnuAbout_Click()
Dim f As New About_FaceGame
f.Show
End Sub
Private Sub mnuClose_Click()
Unload Me
End Sub
Private Sub mnuDemo_Click()
Dim f1 As New DemoForm
f1.Show
End Sub
Private Sub MnuNewGame_Click()
CmdStart_Click
End Sub
Private Sub Timer_clock_Timer()
' Clock
ltime1.Caption = Format(Time, "hh:mm:ss AM/PM")
' Timer Interval
If Flg_Time Then LInterval.Caption = " --- " & Format(Time
- Start_Date, "hh:mm:ss ") & " --- "
' Stop The Load
If TimerFlag Then
If Time - New_Game_BTime > "5" Then Stop_Load
End If
End Sub
Private Sub Timer_Welcome_Timer()
' Activate Welcome Demo
If Welcome_Flag Then
Welcome_demo
' Activate theGood Demo
ElseIf TheGood_Flag Then
TheGood_demo
End If
End Sub
' Load Timer
Private Sub Timer1_Timer()
Dim i As Integer
Dim j As Integer
Dim k As Integer
If TimerFlag Then
' Group1 - Frame
For i = 1 To 4
If Int(9 * Rnd) + 1 <> 0 Then
G1(i) = Int(9 * Rnd) + 1
End If
Next
lb11.Caption = G1(1)
lb12.Caption = G1(2)
lb13.Caption = G1(3)
lb14.Caption = G1(4)
' Group3 - Frame
For j = 1 To 4
If Int(9 * Rnd) + 1 <> 0 Then
G3(j) = Int(9 * Rnd) + 1
End If
Next
lb31.Caption = G3(1)
lb32.Caption = G3(2)
lb33.Caption = G3(3)
lb34.Caption = G3(4)
' Group5 - Frame
For k = 1 To 4
If Int(9 * Rnd) + 1 <> 0 Then
G5(k) = Int(9 * Rnd) + 1
End If
Next
lb51.Caption = G5(1)
lb52.Caption = G5(2)
lb53.Caption = G5(3)
lb54.Caption = G5(4)
End If
End Sub
' Load Timer
Private Sub Timer2_Timer()
Dim i As Integer
Dim j As Integer
If TimerFlag Then
' Group7 - Frame
For i = 1 To 4
If Int(9 * Rnd) + 1 <> 0 Then
G7(i) = Int(9 * Rnd) + 1
End If
Next
lb71.Caption = G7(1)
lb72.Caption = G7(2)
lb73.Caption = G7(3)
lb74.Caption = G7(4)
' Group9 - Frame
For j = 1 To 4
If Int(9 * Rnd) + 1 <> 0 Then
G9(j) = Int(9 * Rnd) + 1
End If
Next
lb91.Caption = G9(1)
lb92.Caption = G9(2)
lb93.Caption = G9(3)
lb94.Caption = G9(4)
End If
End Sub
' Load Timer
Private Sub Timer3_Timer()
Dim i As Integer
Dim j As Integer
If TimerFlag Then
' Group2 - Frame
For j = 1 To 4
If Int(9 * Rnd) + 1 <> 0 Then
G2(j) = Int(9 * Rnd) + 1
End If
Next
lb21.Caption = G2(1)
lb22.Caption = G2(2)
lb23.Caption = G2(3)
lb24.Caption = G2(4)
' Group4 - Frame
For i = 1 To 4
If Int(9 * Rnd) + 1 <> 0 Then
G4(i) = Int(9 * Rnd) + 1
End If
Next
lb41.Caption = G4(1)
lb42.Caption = G4(2)
lb43.Caption = G4(3)
lb44.Caption = G4(4)
End If
End Sub
' Load Timer
Private Sub Timer4_Timer()
Dim j As Integer
Dim k As Integer
If TimerFlag Then
' Group6 - Frame
For k = 1 To 4
If Int(9 * Rnd) + 1 <> 0 Then
G6(k) = Int(9 * Rnd) + 1
End If
Next
lb61.Caption = G6(1)
lb62.Caption = G6(2)
lb63.Caption = G6(3)
lb64.Caption = G6(4)
' Droup8 - Frame
For j = 1 To 4
If Int(9 * Rnd) + 1 <> 0 Then
G8(j) = Int(9 * Rnd) + 1
End If
Next
lb81.Caption = G8(1)
lb82.Caption = G8(2)
lb83.Caption = G8(3)
lb84.Caption = G8(4)
End If
End Sub
Private Sub Initial_Position()
' Initial Position
Select Case Initial
Case 1
Group1.Move 4800, 2640
Group2.Move 7680, 4080
Group3.Move 6240, 1200
Group4.Move 6240, 4080
Group5.Move 7680, 1200
Group6.Move 4800, 1200
Group7.Move 7680, 2640
Group8.Move 6240, 2640
Group9.Move 4800, 4080
LP(1, 1) = 4800
LP(1, 2) = 2640
LP(2, 1) = 7680
LP(2, 2) = 4080
LP(3, 1) = 6240
LP(3, 2) = 1200
LP(4, 1) = 6240
LP(4, 2) = 4080
LP(5, 1) = 7680
LP(5, 2) = 1200
LP(6, 1) = 4800
LP(6, 2) = 1200
LP(7, 1) = 7680
LP(7, 2) = 2640
LP(8, 1) = 6240
LP(8, 2) = 2640
LP(9, 1) = 4800
LP(9, 2) = 4080
Case 2
Group1.Move 6240, 1200
Group2.Move 4800, 4080
Group3.Move 7680, 4080
Group4.Move 4800, 2640
Group5.Move 4800, 1200
Group6.Move 6240, 2640
Group7.Move 7680, 1200
Group8.Move 7680, 2640
Group9.Move 6240, 4080
LP(1, 1) = 6240
LP(1, 2) = 1200
LP(2, 1) = 4800
LP(2, 2) = 4080
LP(3, 1) = 7680
LP(3, 2) = 4080
LP(4, 1) = 4800
LP(4, 2) = 2640
LP(5, 1) = 4800
LP(5, 2) = 1200
LP(6, 1) = 6240
LP(6, 2) = 2640
LP(7, 1) = 7680
LP(7, 2) = 1200
LP(8, 1) = 7680
LP(8, 2) = 2640
LP(9, 1) = 6240
LP(9, 2) = 4080
Case 3
Group1.Move 4800, 4080
Group2.Move 6240, 1200
Group3.Move 6240, 2640
Group4.Move 6240, 4080
Group5.Move 7680, 2640
Group6.Move 7680, 4080
Group7.Move 4800, 1200
Group8.Move 7680, 1200
Group9.Move 4800, 2640
LP(1, 1) = 4800
LP(1, 2) = 4080
LP(2, 1) = 6240
LP(2, 2) = 1200
LP(3, 1) = 6240
LP(3, 2) = 2640
LP(4, 1) = 6240
LP(4, 2) = 4080
LP(5, 1) = 7680
LP(5, 2) = 2640
LP(6, 1) = 7680
LP(6, 2) = 4080
LP(7, 1) = 4800
LP(7, 2) = 1200
LP(8, 1) = 7680
LP(8, 2) = 1200
LP(9, 1) = 4800
LP(9, 2) = 2640
Case 4
Group1.Move 4800, 4080
Group2.Move 7680, 4080
Group3.Move 4800, 1200
Group4.Move 6240, 1200
Group5.Move 7680, 1200
Group6.Move 6240, 4080
Group7.Move 6240, 2640
Group8.Move 7680, 2640
Group9.Move 4800, 2640
LP(1, 1) = 4800
LP(1, 2) = 4080
LP(2, 1) = 7680
LP(2, 2) = 4080
LP(3, 1) = 4800
LP(3, 2) = 1200
LP(4, 1) = 6240
LP(4, 2) = 1200
LP(5, 1) = 7680
LP(5, 2) = 1200
LP(6, 1) = 6240
LP(6, 2) = 4080
LP(7, 1) = 6240
LP(7, 2) = 2640
LP(8, 1) = 7680
LP(8, 2) = 2640
LP(9, 1) = 4800
LP(9, 2) = 2640
Case 5
Group1.Move 4800, 2640
Group2.Move 6240, 2640
Group3.Move 4800, 4080
Group4.Move 7680, 2640
Group5.Move 7680, 4080
Group6.Move 7680, 1200
Group7.Move 6240, 1200
Group8.Move 4800, 1200
Group9.Move 6240, 4080
LP(1, 1) = 4800
LP(1, 2) = 2640
LP(2, 1) = 6240
LP(2, 2) = 2640
LP(3, 1) = 4800
LP(3, 2) = 4080
LP(4, 1) = 7680
LP(4, 2) = 2640
LP(5, 1) = 7680
LP(5, 2) = 4080
LP(6, 1) = 7680
LP(6, 2) = 1200
LP(7, 1) = 6240
LP(7, 2) = 1200
LP(8, 1) = 4800
LP(8, 2) = 1200
LP(9, 1) = 6240
LP(9, 2) = 4080
Case 6
Group1.Move 7680, 2640
Group2.Move 7680, 1200
Group3.Move 6240, 2640
Group4.Move 4800, 1200
Group5.Move 4800, 4080
Group6.Move 6240, 4080
Group7.Move 4800, 2640
Group8.Move 7680, 4080
Group9.Move 6240, 1200
LP(1, 1) = 7680
LP(1, 2) = 2640
LP(2, 1) = 7680
LP(2, 2) = 1200
LP(3, 1) = 6240
LP(3, 2) = 2640
LP(4, 1) = 4800
LP(4, 2) = 1200
LP(5, 1) = 4800
LP(5, 2) = 4080
LP(6, 1) = 6240
LP(6, 2) = 4080
LP(7, 1) = 4800
LP(7, 2) = 2640
LP(8, 1) = 7680
LP(8, 2) = 4080
LP(9, 1) = 6240
LP(9, 2) = 1200
Case 7
Group1.Move 7680, 4080
Group2.Move 6240, 4080
Group3.Move 7680, 2640
Group4.Move 6240, 2640
Group5.Move 6240, 1200
Group6.Move 7680, 1200
Group7.Move 4800, 4080
Group8.Move 4800, 2640
Group9.Move 4800, 1200
LP(1, 1) = 7680
LP(1, 2) = 4080
LP(2, 1) = 6240
LP(2, 2) = 4080
LP(3, 1) = 7680
LP(3, 2) = 2640
LP(4, 1) = 6240
LP(4, 2) = 2640
LP(5, 1) = 6240
LP(5, 2) = 1200
LP(6, 1) = 7680
LP(6, 2) = 1200
LP(7, 1) = 4800
LP(7, 2) = 4080
LP(8, 1) = 4800
LP(8, 2) = 2640
LP(9, 1) = 4800
LP(9, 2) = 1200
End Select
End Sub
' Draw Circle
Sub CircleDemo()
Dim Radius
' Set Red to a random value.
R = 255 * Rnd
' Set Green to a random value.
G = 255 * Rnd
' Set Blue to a random value.
B = 255 * Rnd
' Set x-coordinate in middle of form.
XPos = Picture1.Width / 2
' Set y-coordinate in middle of form.
YPos = Picture1.Height / 2
' Set radius between 0 & 50% of form height.
Radius = ((YPos * 0.9) + 1) * Rnd
' Draw the circle using a random color.
Picture1.Circle (XPos, YPos), Radius, RGB(R, G, B)
End Sub
Private Sub TimerCircle_Timer()
If Circle_Draw Then
CircleDemo
End If
End Sub
Private Sub Welcome_demo()
If Vcount < 0 Then
LWelcome.Caption = ""
Vcount = Vcount + 1
ElseIf Vcount = 1 Then
LWelcome.Caption = "W"
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC000C0
Vcount = Vcount + 1
ElseIf Vcount = 2 Then
LWelcome.Caption = "We"
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC00000
Vcount = Vcount + 1
ElseIf Vcount = 3 Then
LWelcome.Caption = "Wel"
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC0C000
Vcount = Vcount + 1
ElseIf Vcount = 4 Then
LWelcome.Caption = "Welc"
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC000&
Vcount = Vcount + 1
ElseIf Vcount = 5 Then
LWelcome.Caption = "Welco"
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC000C0
Vcount = Vcount + 1
ElseIf Vcount = 6 Then
LWelcome.Caption = "Welcom"
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &H40C0&
Vcount = Vcount + 1
ElseIf Vcount = 7 Then
LWelcome.Caption = "Welcome"
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC0&
Vcount = Vcount + 1
ElseIf Vcount = 8 Then
LWelcome.Caption = "Welcome ..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &H80FF&
Vcount = Vcount + 1
ElseIf Vcount = 9 Then
LWelcome.Caption = "Welcome"
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HFFFF&
Vcount = 1
End If
End Sub
Private Sub TheGood_demo()
If Vcount = 1 Then
LWelcome.Caption = "The Good ..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC000C0
LSelect.ForeColor = &HC0&
LInterval.BackColor = &HC000C0
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace1.bmp")
Vcount = Vcount + 1
ElseIf Vcount = 2 Then
LWelcome.Caption = "The Good ..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC00000
LSelect.ForeColor = &HC000&
LInterval.BackColor = &HC00000
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace2.bmp")
Vcount = Vcount + 1
ElseIf Vcount = 3 Then
LWelcome.Caption = "The Good ..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC0C000
LSelect.ForeColor = &HC000C0
LInterval.BackColor = &HC0C000
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace3.bmp")
Vcount = Vcount + 1
ElseIf Vcount = 4 Then
LWelcome.Caption = "The Good ..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC000&
LSelect.ForeColor = &HC00000
LInterval.BackColor = &HC000&
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace2.bmp")
Vcount = Vcount + 1
ElseIf Vcount = 5 Then
LWelcome.Caption = "The Good ..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC000C0
LSelect.ForeColor = &H40C0&
LInterval.BackColor = &HC000C0
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace1.bmp")
Vcount = Vcount + 1
ElseIf Vcount = 6 Then
LWelcome.Caption = "The Good ..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &H40C0&
LSelect.ForeColor = &HC000C0
LInterval.BackColor = &H40C0&
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace0.bmp")
Vcount = Vcount + 1
ElseIf Vcount = 7 Then
LWelcome.Caption = "The Good ..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HC0&
LSelect.ForeColor = &HFFFFC0
LInterval.BackColor = &HC0&
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace1.bmp")
Vcount = Vcount + 1
ElseIf Vcount = 8 Then
LWelcome.Caption = "The Good ..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &H80FF&
LSelect.ForeColor = &HC0&
LInterval.BackColor = &H80FF&
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace2.bmp")
Vcount = Vcount + 1
ElseIf Vcount = 9 Then
LWelcome.Caption = "The Good ..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 36
LWelcome.ForeColor = &HFFFF&
LSelect.ForeColor = &HFF00&
LInterval.BackColor = &HC0&
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace3.bmp")
Vcount = 1
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As
MSComctlLib.Button)
Select Case Button.Index
Case 2
CmdStart_Click
Case 4
Dim f As New DemoForm
f.Show
Case 6
Dim f1 As New About_FaceGame
f1.Show
Case 8
Unload Me
End Select
End Sub
Private Sub Initial_Array()
Dim i1 As Integer
Dim i2 As Integer
For i1 = 0 To 9
For i2 = 0 To 4
A(i1, i2) = ""
Next
Next
For i1 = 0 To 7
For i2 = 0 To 2
LP(i1, i2) = 0
Next
Next
For i1 = 0 To 9
G_Flag(i1) = False
Next
For i1 = 0 To 9
G_Box(i1) = ""
Next
End Sub
Private Sub Calcul_Value(indx As String, VarX As Single,
VarY As Single)
If G_Flag(Val(indx)) = False Then
G_Flag(Val(indx)) = True
End If
If VarX = 240 And VarY = 1200 Then
G_Box(Val(indx)) = "1"
Select Case indx
Case "1"
A(1, 1) = lb13.Caption
A(1, 2) = lb14.Caption
Case "2"
A(1, 1) = lb23.Caption
A(1, 2) = lb24.Caption
Case "3"
A(1, 1) = lb33.Caption
A(1, 2) = lb34.Caption
Case "4"
A(1, 1) = lb43.Caption
A(1, 2) = lb44.Caption
Case "5"
A(1, 1) = lb53.Caption
A(1, 2) = lb54.Caption
Case "6"
A(1, 1) = lb63.Caption
A(1, 2) = lb64.Caption
Case "7"
A(1, 1) = lb73.Caption
A(1, 2) = lb74.Caption
Case "8"
A(1, 1) = lb83.Caption
A(1, 2) = lb84.Caption
Case "9"
A(1, 1) = lb93.Caption
A(1, 2) = lb94.Caption
End Select
ElseIf VarX = 240 And VarY = 2640 Then
G_Box(Val(indx)) = "2"
Select Case indx
Case "1"
A(2, 1) = lb11.Caption
A(2, 2) = lb13.Caption
A(2, 3) = lb14.Caption
Case "2"
A(2, 1) = lb21.Caption
A(2, 2) = lb23.Caption
A(2, 3) = lb24.Caption
Case "3"
A(2, 1) = lb31.Caption
A(2, 2) = lb33.Caption
A(2, 3) = lb34.Caption
Case "4"
A(2, 1) = lb41.Caption
A(2, 2) = lb43.Caption
A(2, 3) = lb44.Caption
Case "5"
A(2, 1) = lb51.Caption
A(2, 2) = lb53.Caption
A(2, 3) = lb54.Caption
Case "6"
A(2, 1) = lb61.Caption
A(2, 2) = lb63.Caption
A(2, 3) = lb64.Caption
Case "7"
A(2, 1) = lb71.Caption
A(2, 2) = lb73.Caption
A(2, 3) = lb74.Caption
Case "8"
A(2, 1) = lb81.Caption
A(2, 2) = lb83.Caption
A(2, 3) = lb84.Caption
Case "9"
A(2, 1) = lb91.Caption
A(2, 2) = lb93.Caption
A(2, 3) = lb94.Caption
End Select
ElseIf VarX = 240 And VarY = 4080 Then
G_Box(Val(indx)) = "3"
Select Case indx
Case "1"
A(3, 1) = lb11.Caption
A(3, 2) = lb14.Caption
Case "2"
A(3, 1) = lb21.Caption
A(3, 2) = lb24.Caption
Case "3"
A(3, 1) = lb31.Caption
A(3, 2) = lb34.Caption
Case "4"
A(3, 1) = lb41.Caption
A(3, 2) = lb44.Caption
Case "5"
A(3, 1) = lb51.Caption
A(3, 2) = lb54.Caption
Case "6"
A(3, 1) = lb61.Caption
A(3, 2) = lb64.Caption
Case "7"
A(3, 1) = lb71.Caption
A(3, 2) = lb74.Caption
Case "8"
A(3, 1) = lb81.Caption
A(3, 2) = lb84.Caption
Case "9"
A(3, 1) = lb91.Caption
A(3, 2) = lb94.Caption
End Select
ElseIf VarX = 1680 And VarY = 1200 Then
G_Box(Val(indx)) = "4"
Select Case indx
Case "1"
A(4, 1) = lb12.Caption
A(4, 2) = lb13.Caption
A(4, 3) = lb14.Caption
Case "2"
A(4, 1) = lb22.Caption
A(4, 2) = lb23.Caption
A(4, 3) = lb24.Caption
Case "3"
A(4, 1) = lb32.Caption
A(4, 2) = lb33.Caption
A(4, 3) = lb34.Caption
Case "4"
A(4, 1) = lb42.Caption
A(4, 2) = lb43.Caption
A(4, 3) = lb44.Caption
Case "5"
A(4, 1) = lb52.Caption
A(4, 2) = lb53.Caption
A(4, 3) = lb54.Caption
Case "6"
A(4, 1) = lb62.Caption
A(4, 2) = lb63.Caption
A(4, 3) = lb64.Caption
Case "7"
A(4, 1) = lb72.Caption
A(4, 2) = lb73.Caption
A(4, 3) = lb74.Caption
Case "8"
A(4, 1) = lb82.Caption
A(4, 2) = lb83.Caption
A(4, 3) = lb84.Caption
Case "9"
A(4, 1) = lb92.Caption
A(4, 2) = lb93.Caption
A(4, 3) = lb94.Caption
End Select
ElseIf VarX = 1680 And VarY = 2640 Then
G_Box(Val(indx)) = "5"
Select Case indx
Case "1"
A(5, 1) = lb11.Caption
A(5, 2) = lb12.Caption
A(5, 3) = lb13.Caption
A(5, 4) = lb14.Caption
Case "2"
A(5, 1) = lb21.Caption
A(5, 2) = lb22.Caption
A(5, 3) = lb23.Caption
A(5, 4) = lb24.Caption
Case "3"
A(5, 1) = lb31.Caption
A(5, 2) = lb32.Caption
A(5, 3) = lb33.Caption
A(5, 4) = lb34.Caption
Case "4"
A(5, 1) = lb41.Caption
A(5, 2) = lb42.Caption
A(5, 3) = lb43.Caption
A(5, 4) = lb44.Caption
Case "5"
A(5, 1) = lb51.Caption
A(5, 2) = lb52.Caption
A(5, 3) = lb53.Caption
A(5, 4) = lb54.Caption
Case "6"
A(5, 1) = lb61.Caption
A(5, 2) = lb62.Caption
A(5, 3) = lb63.Caption
A(5, 4) = lb64.Caption
Case "7"
A(5, 1) = lb71.Caption
A(5, 2) = lb72.Caption
A(5, 3) = lb73.Caption
A(5, 4) = lb74.Caption
Case "8"
A(5, 1) = lb81.Caption
A(5, 2) = lb82.Caption
A(5, 3) = lb83.Caption
A(5, 4) = lb84.Caption
Case "9"
A(5, 1) = lb91.Caption
A(5, 2) = lb92.Caption
A(5, 3) = lb93.Caption
A(5, 4) = lb94.Caption
End Select
ElseIf VarX = 1680 And VarY = 4080 Then
G_Box(Val(indx)) = "6"
Select Case indx
Case "1"
A(6, 1) = lb11.Caption
A(6, 2) = lb12.Caption
A(6, 3) = lb14.Caption
Case "2"
A(6, 1) = lb21.Caption
A(6, 2) = lb22.Caption
A(6, 3) = lb24.Caption
Case "3"
A(6, 1) = lb31.Caption
A(6, 2) = lb32.Caption
A(6, 3) = lb34.Caption
Case "4"
A(6, 1) = lb41.Caption
A(6, 2) = lb42.Caption
A(6, 3) = lb44.Caption
Case "5"
A(6, 1) = lb51.Caption
A(6, 2) = lb52.Caption
A(6, 3) = lb54.Caption
Case "6"
A(6, 1) = lb61.Caption
A(6, 2) = lb62.Caption
A(6, 3) = lb64.Caption
Case "7"
A(6, 1) = lb71.Caption
A(6, 2) = lb72.Caption
A(6, 3) = lb74.Caption
Case "8"
A(6, 1) = lb81.Caption
A(6, 2) = lb82.Caption
A(6, 3) = lb84.Caption
Case "9"
A(6, 1) = lb91.Caption
A(6, 2) = lb92.Caption
A(6, 3) = lb94.Caption
End Select
ElseIf VarX = 3120 And VarY = 1200 Then
G_Box(Val(indx)) = "7"
Select Case indx
Case "1"
A(7, 1) = lb12.Caption
A(7, 2) = lb13.Caption
Case "2"
A(7, 1) = lb22.Caption
A(7, 2) = lb23.Caption
Case "3"
A(7, 1) = lb32.Caption
A(7, 2) = lb33.Caption
Case "4"
A(7, 1) = lb42.Caption
A(7, 2) = lb43.Caption
Case "5"
A(7, 1) = lb52.Caption
A(7, 2) = lb53.Caption
Case "6"
A(7, 1) = lb62.Caption
A(7, 2) = lb63.Caption
Case "7"
A(7, 1) = lb72.Caption
A(7, 2) = lb73.Caption
Case "8"
A(7, 1) = lb82.Caption
A(7, 2) = lb83.Caption
Case "9"
A(7, 1) = lb92.Caption
A(7, 2) = lb93.Caption
End Select
ElseIf VarX = 3120 And VarY = 2640 Then
G_Box(Val(indx)) = "8"
Select Case indx
Case "1"
A(8, 1) = lb11.Caption
A(8, 2) = lb12.Caption
A(8, 3) = lb13.Caption
Case "2"
A(8, 1) = lb21.Caption
A(8, 2) = lb22.Caption
A(8, 3) = lb23.Caption
Case "3"
A(8, 1) = lb31.Caption
A(8, 2) = lb32.Caption
A(8, 3) = lb33.Caption
Case "4"
A(8, 1) = lb41.Caption
A(8, 2) = lb42.Caption
A(8, 3) = lb43.Caption
Case "5"
A(8, 1) = lb51.Caption
A(8, 2) = lb52.Caption
A(8, 3) = lb53.Caption
Case "6"
A(8, 1) = lb61.Caption
A(8, 2) = lb62.Caption
A(8, 3) = lb63.Caption
Case "7"
A(8, 1) = lb71.Caption
A(8, 2) = lb72.Caption
A(8, 3) = lb73.Caption
Case "8"
A(8, 1) = lb81.Caption
A(8, 2) = lb82.Caption
A(8, 3) = lb83.Caption
Case "9"
A(8, 1) = lb91.Caption
A(8, 2) = lb92.Caption
A(8, 3) = lb93.Caption
End Select
ElseIf VarX = 3120 And VarY = 4080 Then
G_Box(Val(indx)) = "9"
Select Case indx
Case "1"
A(9, 1) = lb11.Caption
A(9, 2) = lb12.Caption
Case "2"
A(9, 1) = lb21.Caption
A(9, 2) = lb22.Caption
Case "3"
A(9, 1) = lb31.Caption
A(9, 2) = lb32.Caption
Case "4"
A(9, 1) = lb41.Caption
A(9, 2) = lb42.Caption
Case "5"
A(9, 1) = lb51.Caption
A(9, 2) = lb52.Caption
Case "6"
A(9, 1) = lb61.Caption
A(9, 2) = lb62.Caption
Case "7"
A(9, 1) = lb71.Caption
A(9, 2) = lb72.Caption
Case "8"
A(9, 1) = lb81.Caption
A(9, 2) = lb82.Caption
Case "9"
A(9, 1) = lb91.Caption
A(9, 2) = lb92.Caption
End Select
End If
End Sub
' Verification, Equal Values
Private Sub Equal_Value(SourceName As Control, indx As
String, VarX As Single, VarY As Single)
If VarX = 240 And VarY = 1200 Then
If A(2, 1) <> "" Then
If A(1, 1) <> A(2, 1) Then
A(1, 1) = ""
A(1, 2) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(4, 1) <> "" Then
If A(1, 2) <> A(4, 1) Then
A(1, 1) = ""
A(1, 2) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
ElseIf VarX = 240 And VarY = 2640 Then
If A(1, 1) <> "" Then
If A(2, 1) <> A(1, 1) Then
A(2, 1) = ""
A(2, 2) = ""
A(2, 3) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(3, 1) <> "" Then
If A(2, 2) <> A(3, 1) Then
A(2, 1) = ""
A(2, 2) = ""
A(2, 3) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(5, 2) <> "" Then
If A(2, 3) <> A(5, 2) Then
A(2, 1) = ""
A(2, 2) = ""
A(2, 3) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
ElseIf VarX = 240 And VarY = 4080 Then
If A(2, 2) <> "" Then
If A(3, 1) <> A(2, 2) Then
A(3, 1) = ""
A(3, 2) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(6, 2) <> "" Then
If A(3, 2) <> A(6, 2) Then
A(3, 1) = ""
A(3, 2) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
ElseIf VarX = 1680 And VarY = 1200 Then
If A(1, 2) <> "" Then
If A(4, 1) <> A(1, 2) Then
A(4, 1) = ""
A(4, 2) = ""
A(4, 3) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(5, 1) <> "" Then
If A(4, 2) <> A(5, 1) Then
A(4, 1) = ""
A(4, 2) = ""
A(4, 3) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(7, 1) <> "" Then
If A(4, 3) <> A(7, 1) Then
A(4, 1) = ""
A(4, 2) = ""
A(4, 3) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
ElseIf VarX = 1680 And VarY = 2640 Then
If A(4, 2) <> "" Then
If A(5, 1) <> A(4, 2) Then
A(5, 1) = ""
A(5, 2) = ""
A(5, 3) = ""
A(5, 4) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(2, 3) <> "" Then
If A(5, 2) <> A(2, 3) Then
A(5, 1) = ""
A(5, 2) = ""
A(5, 3) = ""
A(5, 4) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(6, 1) <> "" Then
If A(5, 3) <> A(6, 1) Then
A(5, 1) = ""
A(5, 2) = ""
A(5, 3) = ""
A(5, 4) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(8, 2) <> "" Then
If A(5, 4) <> A(8, 2) Then
A(5, 1) = ""
A(5, 2) = ""
A(5, 3) = ""
A(5, 4) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
ElseIf VarX = 1680 And VarY = 4080 Then
If A(5, 3) <> "" Then
If A(6, 1) <> A(5, 3) Then
A(6, 1) = ""
A(6, 2) = ""
A(6, 3) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(3, 2) <> "" Then
If A(6, 2) <> A(3, 2) Then
A(6, 1) = ""
A(6, 2) = ""
A(6, 3) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(9, 2) <> "" Then
If A(6, 3) <> A(9, 2) Then
A(6, 1) = ""
A(6, 2) = ""
A(6, 3) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
ElseIf VarX = 3120 And VarY = 1200 Then
If A(4, 3) <> "" Then
If A(7, 1) <> A(4, 3) Then
A(7, 1) = ""
A(7, 2) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(8, 1) <> "" Then
If A(7, 2) <> A(8, 1) Then
A(7, 1) = ""
A(7, 2) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
ElseIf VarX = 3120 And VarY = 2640 Then
If A(7, 2) <> "" Then
If A(8, 1) <> A(7, 2) Then
A(8, 1) = ""
A(8, 2) = ""
A(8, 3) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(5, 4) <> "" Then
If A(8, 2) <> A(5, 4) Then
A(8, 1) = ""
A(8, 2) = ""
A(8, 3) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(9, 1) <> "" Then
If A(8, 3) <> A(9, 1) Then
A(8, 1) = ""
A(8, 2) = ""
A(8, 3) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
ElseIf VarX = 3120 And VarY = 4080 Then
If A(8, 3) <> "" Then
If A(9, 1) <> A(8, 3) Then
A(9, 1) = ""
A(9, 2) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
If A(6, 3) <> "" Then
If A(9, 2) <> A(6, 3) Then
A(9, 1) = ""
A(9, 2) = ""
SourceName.Move LP(Val(indx), 1), LP(Val(indx), 2)
End If
End If
End If
End Sub |

|
2. |
DemoForm
Dim
StartDemo_Date As Date
Dim Demo_Move_Flag As Boolean
Dim Demo_Interval_Flag As Boolean
Dim Demo_Operation_Flag As Boolean
Dim Face_Flag As Boolean
Dim Vcount As Integer
Dim Vcount1 As Integer
Dim DemoCounter1 As Integer
Private Sub CmdClose_Click()
Unload Me
End Sub
Private Sub Demo_Timer_Timer()
If Demo_Move_Flag Then
DemoCounter1 = DemoCounter1 + 1
If DemoCounter1 = 1 Then
Group77.Move 240, 3360
ElseIf DemoCounter1 = 2 Then
Group11.Move 240, 480
ElseIf DemoCounter1 = 3 Then
Group22.Move 1680, 480
ElseIf DemoCounter1 = 4 Then
Group33.Move 3120, 480
ElseIf DemoCounter1 = 5 Then
Group44.Move 240, 1920
ElseIf DemoCounter1 = 6 Then
Group55.Move 1680, 1920
ElseIf DemoCounter1 = 7 Then
Group88.Move 1680, 3360
ElseIf DemoCounter1 = 8 Then
Group66.Move 3120, 1920
ElseIf DemoCounter1 = 9 Then
Group99.Move 3120, 3360
ElseIf DemoCounter1 = 10 Then
Demo_Move_Flag = False
Demo_Timer.Interval = 0
Demo_Interval_Flag = False
Demo_Char_MultiColor
Face_Flag = True
Picture2.Move 4800, 480
Vcount1 = 1
Timer_Welcome.Interval = 500
End If
End If
End Sub
Private Sub Form_Load()
'Load icon
Me.Icon = LoadPicture(App.Path & "\pic\Face.ico")
Group11.Move 7680, 3360
Group22.Move 4800, 1920
Group33.Move 4800, 3360
Group44.Move 6240, 3360
Group55.Move 7680, 480
Group66.Move 6240, 480
Group77.Move 6240, 1920
Group88.Move 7680, 1920
Group99.Move 4800, 480
LTImer.Visible = False
LInterval.Visible = False
' Draw the word Demo Operation ...
Frame_Start.Visible = True
Frame_Start.Height = CmdClose.Top - (ltime1.Top +
ltime1.Height)
Frame_Start.Width = Me.Width
Frame_Start.Top = ltime1.Top + ltime1.Height + 100
LWelcome.Left = (Frame_Start.Width - LWelcome.Width) / 2
LWelcome.Top = (Frame_Start.Height - LWelcome.Height) / 2
LWelcome.Caption = "Demo Operation..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 24
LWelcome.ForeColor = &HC0C000
Vcount = 1
Demo_Operation_Flag = True
End Sub
Private Sub Demo_Char_MultiColor()
lb113.ForeColor = &HC0&
lb141.ForeColor = &HC0&
lb114.ForeColor = &HFF00&
lb122.ForeColor = &HFF00&
lb123.ForeColor = &HC0&
lb151.ForeColor = &HC0&
lb124.ForeColor = &HFF00&
lb132.ForeColor = &HFF00&
lb133.ForeColor = &HC0&
lb161.ForeColor = &HC0&
lb143.ForeColor = &HC0&
lb171.ForeColor = &HC0&
lb144.ForeColor = &HFF00&
lb152.ForeColor = &HFF00&
lb153.ForeColor = &HC0&
lb181.ForeColor = &HC0&
lb154.ForeColor = &HFF00&
lb162.ForeColor = &HFF00&
lb163.ForeColor = &HC0&
lb191.ForeColor = &HC0&
lb174.ForeColor = &HFF00&
lb182.ForeColor = &HFF00&
lb184.ForeColor = &HFF00&
lb192.ForeColor = &HFF00&
End Sub
Private Sub Demo_Ok()
If Vcount1 = 1 Then
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace1.bmp")
Vcount1 = Vcount1 + 1
ElseIf Vcount1 = 2 Then
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace2.bmp")
Vcount1 = Vcount1 + 1
ElseIf Vcount1 = 3 Then
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace3.bmp")
Vcount1 = Vcount1 + 1
ElseIf Vcount = 4 Then
Set Image1.Picture = LoadPicture(App.Path & "\Pic\FaceFace2.bmp")
Else
Vcount1 = 1
End If
End Sub
Private Sub Timer_Welcome_Timer()
' Display the Word "Demo Operation..."
If Demo_Operation_Flag Then TheDemo
End Sub
Private Sub Timerclock_Timer()
' Clock
ltime1.Caption = Format(Time, "hh:mm:ss AM/PM")
' Timer Interval
If Demo_Interval_Flag Then LInterval.Caption = " --- " &
Format(Time - StartDemo_Date, "hh:mm:ss ") & " --- "
' Display the bmp files "Face Game"
If Face_Flag = True Then Demo_Ok
End Sub
Private Sub TheDemo()
If Vcount = 1 Then
LWelcome.Caption = "Demo Operation..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 24
LWelcome.ForeColor = &HC000C0
Vcount = Vcount + 1
ElseIf Vcount = 2 Then
LWelcome.Caption = "Demo Operation..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 24
LWelcome.ForeColor = &HC00000
Vcount = Vcount + 1
ElseIf Vcount = 3 Then
LWelcome.Caption = "Demo Operation..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 24
LWelcome.ForeColor = &HC0&
Vcount = Vcount + 1
ElseIf Vcount = 4 Then
LWelcome.Caption = "Demo Operation..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 24
LWelcome.ForeColor = &HC000&
Vcount = Vcount + 1
ElseIf Vcount = 5 Then
LWelcome.Caption = "Demo Operation..."
LWelcome.Font = "Times New Roman"
LWelcome.FontBold = True
LWelcome.FontSize = 24
LWelcome.ForeColor = &HC000C0
Frame_Start.Visible = False
Demo_Operation_Flag = False
Timer_Welcome.Interval = 0
' Operation Demo Begin
DemoCounter = 0
Demo_Move_Flag = True
StartDemo_Date = Time
LTImer.Visible = True
LInterval.Visible = True
LInterval.BackColor = &H80000001
Demo_Interval_Flag = True
End If
End Sub
| | |