אם מישהו יוכל לומר.....
בניתי משחק זיכרון כפרוייקט סיום ואנני יודע מדוע לא נטענות לי התמונות אם מישהו יוכל לומר מדוע אודה לו צירפתי את המשחק.מה עלי לעשות כדי שהם יטענו . c=תמונות Option Explicit Dim PlACe As Integer Dim IMagEN As Integer Dim NumBER As Integer Dim TesT As Integer Dim A As Integer Dim LOSTinDEX As Integer Dim MSg Public ENTERnuM As Integer Private Sub click(index As Integer) c(index).Picture = c(index).DownPicture End Sub Private Sub EXIT_Click() End End Sub Private Sub G16_Click() ´ רמה קלה TesT = 16 G32.Checked = False G16.Checked = True Form1.Width = 5000 Form1.Height = 7000 For A = 0 To 16 c(A).Visible = True c(A).Picture = LoadPicture("00.bmp") c(A).DownPicture = LoadPicture() Next Randomize NumBER = Int(Rnd * 40) ´ למה 40ןכ כי יש 40 תמונות If NumBER < 9 Then NumBER = NumBER + 8 ´אם נבחר מס קטן מהתמונות מוסיפים סתם מס להרחיק את הסיכון For A = 1 To 2 IMagEN = NumBER Do Randomize PlACe = Int(Rnd * 16) If c(PlACe).DownPicture = LoadPicture() Then c(PlACe).DownPicture() = LoadPicture(IMagEN) c(PlACe).Tag = IMagEN IMagEN = IMagEN - 1 End If Loop Until IMagEN = NumBER - 8 Next End Sub Private Sub g32_Click() TesT = 24 G16.Checked = False G32.Checked = True Form1.Width = 7600 Form1.Height = 9200 For A = 0 To 24 c(A).Visible = True c(A).DownPicture = LoadPicture() c(A).Picture = LoadPicture("00.bmp") Next Randomize NumBER = Int(Rnd * 40) ´ למה 40ןכ כי יש 40 תמונות If NumBER < 18 Then NumBER = NumBER + 18 ´אם נבחר מס קטן מהתמונות מוסיפים סתם מס להרחיק את הסיכון For A = 1 To 2 ´שתי מהלכים IMagEN = NumBER Do Randomize PlACe = Int(Rnd * 26) If c(PlACe).DownPicture = LoadPicture() Then c(PlACe).DownPicture() = LoadPicture(IMagEN) c(PlACe).Tag = IMagEN IMagEN = IMagEN - 1 End If Loop Until IMagEN = NumBER - 18 Next End Sub Private Sub c_lostfocus(index As Integer) LostFocus = c(index).index End Sub End Sub
בניתי משחק זיכרון כפרוייקט סיום ואנני יודע מדוע לא נטענות לי התמונות אם מישהו יוכל לומר מדוע אודה לו צירפתי את המשחק.מה עלי לעשות כדי שהם יטענו . c=תמונות Option Explicit Dim PlACe As Integer Dim IMagEN As Integer Dim NumBER As Integer Dim TesT As Integer Dim A As Integer Dim LOSTinDEX As Integer Dim MSg Public ENTERnuM As Integer Private Sub click(index As Integer) c(index).Picture = c(index).DownPicture End Sub Private Sub EXIT_Click() End End Sub Private Sub G16_Click() ´ רמה קלה TesT = 16 G32.Checked = False G16.Checked = True Form1.Width = 5000 Form1.Height = 7000 For A = 0 To 16 c(A).Visible = True c(A).Picture = LoadPicture("00.bmp") c(A).DownPicture = LoadPicture() Next Randomize NumBER = Int(Rnd * 40) ´ למה 40ןכ כי יש 40 תמונות If NumBER < 9 Then NumBER = NumBER + 8 ´אם נבחר מס קטן מהתמונות מוסיפים סתם מס להרחיק את הסיכון For A = 1 To 2 IMagEN = NumBER Do Randomize PlACe = Int(Rnd * 16) If c(PlACe).DownPicture = LoadPicture() Then c(PlACe).DownPicture() = LoadPicture(IMagEN) c(PlACe).Tag = IMagEN IMagEN = IMagEN - 1 End If Loop Until IMagEN = NumBER - 8 Next End Sub Private Sub g32_Click() TesT = 24 G16.Checked = False G32.Checked = True Form1.Width = 7600 Form1.Height = 9200 For A = 0 To 24 c(A).Visible = True c(A).DownPicture = LoadPicture() c(A).Picture = LoadPicture("00.bmp") Next Randomize NumBER = Int(Rnd * 40) ´ למה 40ןכ כי יש 40 תמונות If NumBER < 18 Then NumBER = NumBER + 18 ´אם נבחר מס קטן מהתמונות מוסיפים סתם מס להרחיק את הסיכון For A = 1 To 2 ´שתי מהלכים IMagEN = NumBER Do Randomize PlACe = Int(Rnd * 26) If c(PlACe).DownPicture = LoadPicture() Then c(PlACe).DownPicture() = LoadPicture(IMagEN) c(PlACe).Tag = IMagEN IMagEN = IMagEN - 1 End If Loop Until IMagEN = NumBER - 18 Next End Sub Private Sub c_lostfocus(index As Integer) LostFocus = c(index).index End Sub End Sub