برنامه ی جور چین!

[baran66]

سلام دوستان!
من باید یک برنامه ی جور چین طراحی کنم که شامل چند تا عکس باشه که دو تا دو تا در یک صفحه قرار گرفته و وقتی کاربر می خواد بازی رو شروع کنه عکس ها رو نمی بینه و باید بگرده و عکس های جور رو پیدا کنه!
اما اصلا نمی دونم باید چی کار کنم؟
برنامه نیاز به شمارنده و تایمر هم داره!
لطفاراهنایی کنین اگر کسی می دونه!

[eyes_shut_number1]

برای تایمر, Counter این کارو بکن

Public Class Form1
Public b As Integer = Nothing
Public a As Integer = Nothing
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
a = 500 'Sec
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
b + =1
label2.text = b
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick

a - = 1

Label1.Text = a
if a <= 0 then
Timer1.Enabled = False
msgbox("YOur Time Is Out)

End Sub
End Class

[baran66]

ممنونم دوست من!
اگه در مورد بقیه موارد هم تونستین کمکم کنین ممنون می شم!

[eyes_shut_number1]

متن بالا رو ویرایش کردم یه ریفرش کن دوباره ببین کانتر م هست و در مورد بازیت توضیح کامل بده شاید من بلد بودم

[baran66]

ببینید!
این برنامه این طور هست که مثلا 16 عکس کنار هم قرار می گیره. این عکسها در واقع 8 تا عکس هست که از هر کدوم 2تا در صفحه هستش! و کاربر موقع بازی هیچ عکسی رو نمی بینه. باید با کلیک روی عکس ها اونارو پیدا کنه و اگر عکس های متشابه رو پیدا کرد دو تا عکس قابل دیدن بشه وگرنه عکس برمی گرده و باید دوباره انتخاب کنه! یک شمارنده هم می خواد که هر انتخاب درست رو نشون بده. مثلا این جا باید آخر کار عدد 8 رو نشون بده که 8 انتخاب درست انجام شده!
اگه تونستیم کمکم کنین ممنون می شم!

[eyes_shut_number1]

واست با 4 تا عکس نوشتم خودت بقیه عکسهارو اضافه کن

2005 فقط خواستم راحشو ببینی
به اینم دقت کن
PictureBox1=PictureBox3
PictureBox4=PictureBox2


Public Class Form1
Public a As Integer = Nothing
Public b As Integer = Nothing
Public c As Integer = -1
Public Sec As Integer = 50

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label3.Text = "True Choose : "
PictureBox1.Visible = False
PictureBox3.Visible = False
PictureBox2.Visible = False
PictureBox4.Visible = False
Timer1.Enabled = True

' PictureBox1= PictureBox3
' PictureBox2= PictureBox4
'KHODET INARO HARJOR KE MIKHAY DOROST KON
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
End Sub
Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
End Sub
Private Sub labelpic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles labelpic1.Click
If a = 2 Then
b += 1
MessageBox.Show("True")
Label4.Text = b
a = 0
PictureBox1.Visible = True
PictureBox3.Visible = True
labelpic1.Visible = False
labelpic3.Visible = False
Else
a = 1
End If

End Sub
Private Sub labelpic2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles labelpic2.Click
If a = 3 Then
b += 1
MessageBox.Show("True")
Label4.Text = b
a = 0
PictureBox2.Visible = True
PictureBox4.Visible = True
labelpic2.Visible = False
labelpic4.Visible = False
Else
a = 4
End If
End Sub
Private Sub labelpic3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles labelpic3.Click
If a = 1 Then
b += 1
MessageBox.Show("True")
Label4.Text = b
a = 0
PictureBox1.Visible = True
PictureBox3.Visible = True
labelpic1.Visible = False
labelpic3.Visible = False
Else
a = 2
End If

End Sub
Private Sub labelpic4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles labelpic4.Click
If a = 4 Then
b += 1
MessageBox.Show("True")
Label4.Text = b
a = 0
PictureBox2.Visible = True
PictureBox4.Visible = True
labelpic2.Visible = False
labelpic4.Visible = False
Else
a = 3
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox2.Visible = False
PictureBox4.Visible = False
labelpic2.Visible = True
labelpic4.Visible = True
PictureBox1.Visible = False
PictureBox3.Visible = False
labelpic1.Visible = True
labelpic3.Visible = True
labelpic2.Enabled = True
labelpic4.Enabled = True
labelpic1.Enabled = True
labelpic3.Enabled = True
Label4.Text = "0"
Sec = 50
a = 0
b = 0
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Sec <= 0 Then
Timer1.Enabled = False
lbl1.Text = Sec
Sec -= 1
MessageBox.Show("Your Time Is Out")
MessageBox.Show("Your True Choose Is : " & b)
labelpic2.Enabled = False
labelpic4.Enabled = False
labelpic1.Enabled = False
labelpic3.Enabled = False
Else
lbl1.Text = Sec
Sec -= 1
End If

End Sub
End Class

[eyes_shut_number1]

اینم کل پروژه

[baran66]

سلام !
خیلی خیلی ممنونم ازتون! باورم نمی شه پروژه دستم باشه!
اما فقط یه چیزی! ما با 2003 کار می کنیم و فکر کنم این پروژه 2005 باشه. اگر من همین کدها رو در 2003 استفاده کنم مشکلی پیش نمی یاد؟
خیلی خیلی ممونم از لطفتون! کمک بزرگی بهم کردین!

[eyes_shut_number1]

فکر نکنم مشکلی پیش بیاد

واست با 4 تا عکس نوشتم خودت بقیه عکسهارو اضافه کن

[baran66]

سلام دوست من و خیلی خیلی ازتون ممنونم!
من امتحان می کنم و اگر مشکلی پیش اومد بازم ازتون کمک می خوام!
خیلی لطف کردین!

[samira3]

من اجراشو دیدم
یه مشکلی برنامه بعد از پایان وشروع مجدد نیاز به جابه جاشدن عکسها داره به نظر من باید عکسها ارایه بشه که مننتونستم نام اونها رو یکی کنم
مرسی خیلی عالی بود

[reza1357]

یکسری تغییرات تو برنامه دادم ببین بدردت میخوره یا نه !
8930

[samira3]

من با 2003کار میکنم کد شمارو نمی توانم ببینم لطف کنید برام سوئسشو بزارین