السلام عليكم ورحمة الله وبركاته
اولا أود شكر كل القائمين على هذا المنتدى الذي افادني كثيرا في مشروعي
ثانيا اود ان استفيد اكثر من خبرات الموجودين و كما اتمنى ان اجد ضالتي عندكم
المشكلة هي اني عملت لعبة تذكر الصور و لعبتي قائمة على ان يضغط المستخدم احد الصور المخفية وتظهر له ثم يضغط على اخرى اذا كانت صحيحة سوف تختفي الصورتين المتشابهتين اما اذا غلط تتسكر الصور
المشكلة هي انه الصورة الثانية لا تظهر بس يطلع الصوت انه الصورتين اما صحيح انهما متشابهتين او خطأ غير ذلك
مشكلتي اني اريد تظهر الصورتين لمدة زمنية معينة اذا صح راح يختفون بعد هذه المدة اذا لا راح ينغلقون بعدها
وهذا هو الكود اتمنى ان اجد الحل عنكم باسرع وقت لأنه سوف اناقش فيه يوم الاحد
للمعلومية قد طلب مني استبدال (التايمر- ب ديلايDelay
كيف اعمل هذا؟اقصد ديلاي
وهذه هي المتغيرات التي عرفتها على انها عامة مع حدث صندوق الصور
Dim Choice As Integer = 1
Dim Picked(1) As Integer
Dim place(1) As Integer
Dim Pos(1) As Integer
Dim Boxes(15) As PictureBox
Dim Choices(7) As PictureBox
****************************************************************
private Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim SelectPicture As PictureBox = CType(sender, PictureBox)
Dim compare As Integer = CInt(SelectPicture.Tag)
Dim index As Integer = CInt(SelectPicture.AccessibleName)
SelectPicture.Image = Nothing
If Choice = 1 Then
Picked(0) = compare
place(0) = index
Choice = 2
Exit Sub
End If
Picked(1) = compare
place(1) = index
If Picked(0) = Picked(1) Then
My.Computer.Audio.Play(My.Resources.right4, AudioPlayMode.Background)
Boxes(place(0)).Image = Nothing
Boxes(place(0)).BackgroundImage = Nothing
Boxes(place(1)).Image = Nothing
Boxes(place(1)).BackgroundImage = Nothing
Else
My.Computer.Audio.Play(My.Resources.sorry2, AudioPlayMode.Background)
Boxes(place(0)).Image = CoveR.Image
Boxes(place(1)).Image = CoveR.Image
End If
Choice = 1
End Sub