בניתי משחק זיכרון מאוד פשוט בVB...
מערך של 18 כפתורים מתחת לכל כפתור LABLE עם ערך שהוא מספר רנדומלי בין 1-99
כמובן שעל כל שני קלפים שונים יש את אותו המספר.

בעיקרון. כאשר לוחצים על כפתור, הוא נעלם ואז מתגלה הLABLE שמתחתיו. אם לוחצים על כפתור נוסף גם הוא נעלם (בתיאוריה) ואז מופעלת בדיקה. אם הLABLEים שמתחת לכפתורים זהים כלום לא קורה. אחרת הכפתורים נעלמים שוב.

הכול עובד לי, רק בעייה אחת רצינית. --> כאשר הכפתור השני נלחץ, הוא אינו נעלם!!!
אם הערכים זהים הוא אכן נעלם אבל אם הערכים שונים לאחר שנייה שני הכפתורים שנלחצו נעלמים.

קטע קוד שווה אלף מילים.

זו הפונק' שמופעלת בעת לחיצה על כפתור

MODE מציין את מצב המשחק (0 אם זהו הקלף הראשון שבחרתי, אחרת 1)

קוד PHP:

 Dim val1 As String
Dim val2 As String
Dim tmp11 As Integer
Dim mode As Integer


Private Sub cmd_Click(Index As Integer)
cmd(Index).Visible = False

If (mode = 0) Then
    val1 = lbl(Index).Caption
    tmp11 = Index
    mode = 1
Else

    val2 = lbl(Index).Caption
    mode = 0
    
    If (val1 = val2) Then
    Else
    Sleep (1000)
    
    
    cmd(Index).Visible = True
    cmd(tmp11).Visible = True
        
    End If
    
End If

End Sub 


מאוד קשה עד בילתי אפשרי לדעת מהקטע קוד שצירפת מה הבעיה.
צרף את הפרוייקט או פרוייקט לדוגמא עם אותה הבעיה.

הצלחתי לפתור תבעייה.
צריך להוסיף עוד פקודה שמרעננת את המסך. שכחתי איך קוראים לה וכבר מחקתי תפרוייקט. תודה בכל מקרה

קוד:

DoEvents

למי שלא יודע...
זה טוב ללולאות גדולות וכאלה...