Справка по игре в память! Как показать неспаренные карты

Question

Отображение парных карточек в моей памяти отлично работает. Но проблема в том, что я не могу показать непарные карты. В моей игре 20 карт.

Dim paircount As Integer = 0 
Dim unpaircount As Integer 

Dim Card1 As Integer = 0 
Dim Card2 As Integer = 0 
Dim Card1pic As Integer = 0 
Dim Card2pic As Integer = 0 
Dim Score As Integer = 0 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 

    st = st + 1 
    Label3.Text = "Time : " & st & " seconds" 
    Label7.Text = "Pairs : " & paircount 
    If paircount = 19 And Card1 <> 0 And Card2 <> 0 Then 
     paircount = paircount + 1 
     victory() 
     Label32.Text = "Unpaired : 20" & unpaircount 'This is my code for showing the unpaired card & and it's not working 
     If unpaircount = 19 And Card1 = 0 And Card2 = 0 Then 
      unpaircount = unpaircount - paircount 
     End If 
    End If 

End Sub 

Answer 1

'[Begin]Declare Object/Value' 
Dim paircount As Integer = 0 
Dim unpaircount As Integer 
Dim Card1 As Integer = 0 
Dim Card2 As Integer = 0 
Dim Card1pic As Integer = 0 
Dim Card2pic As Integer = 0 
Dim Score As Integer = 0 
'[End]Declare Object/Value' 

'[Begin]Tick handles' 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
    st = st + 1 
    Label3.Text = "Time : " & st & " seconds" ' Default As 1, in your code' 
    Label7.Text = "Pairs : " & paircount ' Default As 0, in your code' 
    If paircount = 19 And Card1 <> 0 And Card2 <> 0 Then ' Card1 & 2 default as 0, return False' 
     paircount = paircount + 1 ' paircount is 20 
     victory() ' your function or sub' 

     Label32.Text = "Unpaired : 20" & unpaircount 'Default as null, return 0: Unpaired: 200' 

     If unpaircount = 19 And Card1 = 0 And Card2 = 0 Then 'unpaircount = 0, will not be active this checking, please make sure your code will change the unpaircount value before this checking' 
      unpaircount = unpaircount - paircount 
     End If 
    End If 
End Sub 
'[End]Tick handles' 

Как кода обеспечивают сами, для первого из проверки под
'Если paircount = 19 И Card1 <> 0 И Card2 <> 0 Тогда'
ли какой-либо способ изменить парусоединение/card1/card2?

Если нет, то значит, что проверка не будет принимать и на мой взгляд,
Я не думаю, что ваш код был успешным дисплей результат: никаких изменений, ни дисплей

С наилучшими пожеланиями, KT