• Home
 · 
• Games
 · 
• Try to match the similar blocks , if u know the game memory blocks,it's is a similar thing. it to

Try to match the similar blocks , if u know the game memory blocks,it's is a similar thing. it to

Try to match the similar blocks , if u know the game "memory blocks",it's is a similar thing. it took about 3 hours to finish. try it or

API Declarations


' mailto : [email protected]
' website:
' http://sherif1.netfirms.com
' http://vbsherif.members.easyspace.com (to download the programs)
' download the program
' ****************************
' http://sherif1.netfirms.com/blocks.zip (whole project)



Rate Try to match the similar blocks , if u know the game memory blocks,it's is a similar thing. it to

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Public m2 As String
Public m3 As String
Public m4 As String
Public m5 As String
Public m6 As String
Public m7 As String
Public m8 As String
Public m9 As String
Public m10 As String
Public m11 As String
Public m12 As String
Public m13 As String
Public m14 As String
Public m15 As String
Public m16 As String
Public x As Integer
Private Sub b1_Click()
m1 = 1
x = x + 1
o = make(x)
r1.Visible = True
b1.Visible = False
End Sub

Private Sub b10_Click()
m10 = 1
x = x + 1
o = make(x)
r10.Visible = True
b10.Visible = False
End Sub

Private Sub b11_Click()
m11 = 1
x = x + 1
o = make(x)
r11.Visible = True
b11.Visible = False
End Sub

Private Sub b12_Click()
m12 = 1
x = x + 1
o = make(x)
r12.Visible = True
b12.Visible = False
End Sub

Private Sub b13_Click()
m13 = 1
x = x + 1
o = make(x)
r13.Visible = True
b13.Visible = False
End Sub

Private Sub b14_Click()
m14 = 1
x = x + 1
o = make(x)
r14.Visible = True
b14.Visible = False
End Sub

Private Sub b15_Click()
m15 = 1
x = x + 1
o = make(x)
r15.Visible = True
b15.Visible = False
End Sub

Private Sub b16_Click()
m16 = 1
x = x + 1
o = make(x)
r16.Visible = True
b16.Visible = False
End Sub

Private Sub b2_Click()
m2 = 1
x = x + 1
o = make(x)
r2.Visible = True
b2.Visible = False
End Sub

Private Sub b3_Click()
m3 = 1
x = x + 1
o = make(x)
r3.Visible = True
b3.Visible = False
End Sub

Private Sub b4_Click()
m4 = 1
x = x + 1
o = make(x)
r4.Visible = True
b4.Visible = False
End Sub

Private Sub b5_Click()
m5 = 1
x = x + 1
o = make(x)
r5.Visible = True
b5.Visible = False
End Sub

Private Sub b6_Click()
m6 = 1
x = x + 1
o = make(x)
r6.Visible = True
b6.Visible = False
End Sub

Private Sub b7_Click()
m7 = 1
x = x + 1
o = make(x)
r7.Visible = True
b7.Visible = False
End Sub

Private Sub b8_Click()
m8 = 1
x = x + 1
o = make(x)
r8.Visible = True
b8.Visible = False
End Sub

Private Sub b9_Click()
m9 = 1
x = x + 1
o = make(x)
r9.Visible = True
b9.Visible = False
End Sub

Private Sub Command1_Click()
Label1.Caption = "click on the pic. of the dish to see the photo under it and try to match each 2 similar photos"
End Sub

Private Sub Form_Load()
m1 = 0
m2 = 0
m3 = 0
m4 = 0
m5 = 0
m6 = 0
m7 = 0
m8 = 0
m9 = 0
m10 = 0
m11 = 0
m12 = 0
m13 = 0
m14 = 0
m15 = 0
m16 = 0
r1.Visible = False
r2.Visible = False
r3.Visible = False
r4.Visible = False
r5.Visible = False
r6.Visible = False
r7.Visible = False
r8.Visible = False
r9.Visible = False
r10.Visible = False
r11.Visible = False
r12.Visible = False
r13.Visible = False
r14.Visible = False
r15.Visible = False
r16.Visible = False
End Sub

Function make(x)
If x = 2 Then
'r1.Visible = False
'r2.Visible = False
'r3.Visible = False
'r4.Visible = False
'r5.Visible = False
'r6.Visible = False
'r7.Visible = False
'r8.Visible = False
'r9.Visible = False
'r10.Visible = False
'r11.Visible = False
'r12.Visible = False
'r13.Visible = False
'r14.Visible = False
'r15.Visible = False
'r16.Visible = False
'b1.Visible = True
'b2.Visible = True
'b3.Visible = True
'b4.Visible = True
'b5.Visible = True
'b6.Visible = True
'b7.Visible = True
'b8.Visible = True
'b9.Visible = True
'b10.Visible = True
'b11.Visible = True
'b12.Visible = True
'b13.Visible = True
'b14.Visible = True
'b15.Visible = True
'b16.Visible = True
x = 0
'If m1 = 1 Or m10 = 1 Then Exit Function
'If m2 = 1 Or m6 = 1 Then Exit Function
'If m3 = 1 Or m12 = 1 Then Exit Function
'If m4 = 1 Or m15 = 1 Then Exit Function
'If m5 = 1 Or m13 = 1 Then Exit Function
'If m7 = 1 Or m16 = 1 Then Exit Function
'If m8 = 1 Or m9 = 1 Then Exit Function
'If m11 = 1 Or m14 = 1 Then Exit Function
If m1 <> 1 Or m10 <> 1 Then
r1.Visible = False
b1.Visible = True
r10.Visible = False
b10.Visible = True
m1 = 0
m10 = 0
End If
If m2 <> 1 Or m6 <> 1 Then
r2.Visible = False
b2.Visible = True
r6.Visible = False
b6.Visible = True
m2 = 0
m6 = 0
End If
If m3 <> 1 Or m12 <> 1 Then
r3.Visible = False
b3.Visible = True
r12.Visible = False
b12.Visible = True
m3 = 0
m12 = 0
End If
If m4 <> 1 Or m15 <> 1 Then
r4.Visible = False
b4.Visible = True
r15.Visible = False
b15.Visible = True
m4 = 0
m15 = 0
End If
If m5 <> 1 Or m13 <> 1 Then
r5.Visible = False
b5.Visible = True
r13.Visible = False
b13.Visible = True
m5 = 0
m13 = 0
End If
If m7 <> 1 Or m16 <> 1 Then
r7.Visible = False
b7.Visible = True
r16.Visible = False
b16.Visible = True
m7 = 0
m16 = 0
End If
If m8 <> 1 Or m9 <> 1 Then
r8.Visible = False
b8.Visible = True
r9.Visible = False
b9.Visible = True
m8 = 0
m9 = 0
End If
If m11 <> 1 Or m14 <> 1 Then
r14.Visible = False
b14.Visible = True
r11.Visible = False
b11.Visible = True
m14 = 0
m11 = 0
End If
End If
If m1 = 1 And m2 = 1 And m3 = 1 And m4 = 1 And m5 = 1 And m6 = 1 And m7 = 1 And m8 = 1 And m9 = 1 And m10 = 1 And m11 = 1 And m12 = 1 And m13 = 1 And m14 = 1 And m15 = 1 And m16 = 1 Then
Label2.Caption = "you are done"
End If
End Function