کد بازی پازل در ویژوال بیسیک
Private Sub Form_Load()
If Image1.Picture = Image19.Picture And Image2.Picture = Image20.Picture And Image3.Picture = Image21.Picture And Image4.Picture = Image22.Picture And Image5.Picture = Image23.Picture And Image6.Picture = Image24.Picture And Image7.Picture = Image25.Picture And Image8.Picture = Image26.Picture And Image9.Picture = Image27.Picture And Image10.Picture = Image28.Picture And Image11.Picture = Image29.Picture And Image12.Picture = Image30.Picture And Image13.Picture = Image31.Picture And Image14.Picture = Image32.Picture And Image15.Picture = Image33.Picture Then
Timer1.Enabled = False
Image16.Picture = Image17.Picture
Image18.Visible = True
End If
Image27.Picture = Image1.Picture
Image22.Picture = Image10.Picture
Image29.Picture = Image11.Picture
Image31.Picture = Image12.Picture
Image23.Picture = Image13.Picture
Image25.Picture = Image14.Picture
Image30.Picture = Image15.Picture
Image33.Picture = Image16.Picture
Image21.Picture = Image2.Picture
Image24.Picture = Image3.Picture
Image26.Picture = Image4.Picture
Image20.Picture = Image5.Picture
Image28.Picture = Image6.Picture
Image32.Picture = Image8.Picture
Image19.Picture = Image9.Picture
End Sub
Private Sub Image1_Click()
If Image2.Picture = LoadPicture("") Then Image2.Picture = Image1.Picture: Image1.Picture = LoadPicture("")
If Image5.Picture = LoadPicture("") Then Image5.Picture = Image1.Picture: Image1.Picture = LoadPicture("")
End Sub
Private Sub Image10_Click()
If Image9.Picture = LoadPicture("") Then Image9.Picture = Image10.Picture: Image10.Picture = LoadPicture("")
If Image11.Picture = LoadPicture("") Then Image11.Picture = Image10.Picture: Image10.Picture = LoadPicture("")
If Image6.Picture = LoadPicture("") Then Image6.Picture = Image10.Picture: Image10.Picture = LoadPicture("")
If Image14.Picture = LoadPicture("") Then Image14.Picture = Image10.Picture: Image10.Picture = LoadPicture("")
End Sub
Private Sub Image11_Click()
If Image7.Picture = LoadPicture("") Then Image7.Picture = Image11.Picture: Image11.Picture = LoadPicture("")
If Image10.Picture = LoadPicture("") Then Image10.Picture = Image11.Picture: Image11.Picture = LoadPicture("")
If Image12.Picture = LoadPicture("") Then Image12.Picture = Image11.Picture: Image11.Picture = LoadPicture("")
If Image15.Picture = LoadPicture("") Then Image15.Picture = Image11.Picture: Image11.Picture = LoadPicture("")
End Sub
Private Sub Image12_Click()
If Image11.Picture = LoadPicture("") Then Image11.Picture = Image12.Picture: Image12.Picture = LoadPicture("")
If Image8.Picture = LoadPicture("") Then Image8.Picture = Image12.Picture: Image12.Picture = LoadPicture("")
If Image16.Picture = LoadPicture("") Then Image16.Picture = Image12.Picture: Image12.Picture = LoadPicture("")
End Sub
Private Sub Image13_Click()
If Image9.Picture = LoadPicture("") Then Image9.Picture = Image13.Picture: Image13.Picture = LoadPicture("")
If Image14.Picture = LoadPicture("") Then Image14.Picture = Image13.Picture: Image13.Picture = LoadPicture("")
End Sub
Private Sub Image14_Click()
If Image13.Picture = LoadPicture("") Then Image13.Picture = Image14.Picture: Image14.Picture = LoadPicture("")
If Image15.Picture = LoadPicture("") Then Image15.Picture = Image14.Picture: Image14.Picture = LoadPicture("")
If Image10.Picture = LoadPicture("") Then Image10.Picture = Image14.Picture: Image14.Picture = LoadPicture("")
End Sub
Private Sub Image15_Click()
If Image14.Picture = LoadPicture("") Then Image14.Picture = Image15.Picture: Image15.Picture = LoadPicture("")
If Image16.Picture = LoadPicture("") Then Image16.Picture = Image15.Picture: Image15.Picture = LoadPicture("")
If Image11.Picture = LoadPicture("") Then Image11.Picture = Image15.Picture: Image15.Picture = LoadPicture("")
End Sub
Private Sub Image16_Click()
If Image12.Picture = LoadPicture("") Then Image12.Picture = Image16.Picture: Image16.Picture = LoadPicture("")
If Image15.Picture = LoadPicture("") Then Image15.Picture = Image16.Picture: Image16.Picture = LoadPicture("")
End Sub
Private Sub Image2_Click()
If Image1.Picture = LoadPicture("") Then Image1.Picture = Image2.Picture: Image2.Picture = LoadPicture("")
If Image3.Picture = LoadPicture("") Then Image3.Picture = Image2.Picture: Image2.Picture = LoadPicture("")
If Image6.Picture = LoadPicture("") Then Image6.Picture = Image2.Picture: Image2.Picture = LoadPicture("")
End Sub
Private Sub Image3_Click()
If Image7.Picture = LoadPicture("") Then Image7.Picture = Image3.Picture: Image3.Picture = LoadPicture("")
If Image2.Picture = LoadPicture("") Then Image2.Picture = Image3.Picture: Image3.Picture = LoadPicture("")
If Image4.Picture = LoadPicture("") Then Image4.Picture = Image3.Picture: Image3.Picture = LoadPicture("")
End Sub
Private Sub Image4_Click()
If Image8.Picture = LoadPicture("") Then Image8.Picture = Image4.Picture: Image4.Picture = LoadPicture("")
If Image3.Picture = LoadPicture("") Then Image3.Picture = Image4.Picture: Image4.Picture = LoadPicture("")
End Sub
Private Sub Image5_Click()
If Image6.Picture = LoadPicture("") Then Image6.Picture = Image5.Picture: Image5.Picture = LoadPicture("")
If Image1.Picture = LoadPicture("") Then Image1.Picture = Image5.Picture: Image5.Picture = LoadPicture("")
If Image9.Picture = LoadPicture("") Then Image9.Picture = Image5.Picture: Image5.Picture = LoadPicture("")
End Sub
Private Sub Image6_Click()
If Image2.Picture = LoadPicture("") Then Image2.Picture = Image6.Picture: Image6.Picture = LoadPicture("")
If Image5.Picture = LoadPicture("") Then Image5.Picture = Image6.Picture: Image6.Picture = LoadPicture("")
If Image7.Picture = LoadPicture("") Then Image7.Picture = Image6.Picture: Image6.Picture = LoadPicture("")
If Image10.Picture = LoadPicture("") Then Image10.Picture = Image6.Picture: Image6.Picture = LoadPicture("")
End Sub
Private Sub Image7_Click()
If Image3.Picture = LoadPicture("") Then Image3.Picture = Image7.Picture: Image7.Picture = LoadPicture("")
If Image6.Picture = LoadPicture("") Then Image6.Picture = Image7.Picture: Image7.Picture = LoadPicture("")
If Image8.Picture = LoadPicture("") Then Image8.Picture = Image7.Picture: Image7.Picture = LoadPicture("")
If Image11.Picture = LoadPicture("") Then Image11.Picture = Image7.Picture: Image7.Picture = LoadPicture("")
End Sub
Private Sub Image8_Click()
If Image7.Picture = LoadPicture("") Then Image7.Picture = Image8.Picture: Image8.Picture = LoadPicture("")
If Image12.Picture = LoadPicture("") Then Image12.Picture = Image8.Picture: Image8.Picture = LoadPicture("")
If Image4.Picture = LoadPicture("") Then Image4.Picture = Image8.Picture: Image8.Picture = LoadPicture("")
End Sub
Private Sub Image9_Click()
If Image5.Picture = LoadPicture("") Then Image5.Picture = Image9.Picture: Image9.Picture = LoadPicture("")
If Image10.Picture = LoadPicture("") Then Image10.Picture = Image9.Picture: Image9.Picture = LoadPicture("")
If Image13.Picture = LoadPicture("") Then Image13.Picture = Image9.Picture: Image9.Picture = LoadPicture("")
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
If Label1.Caption = "60" Then Label1.Caption = "0"
If Image1.Picture = Image19.Picture And Image2.Picture = Image20.Picture And Image3.Picture = Image21.Picture And Image4.Picture = Image22.Picture And Image5.Picture = Image23.Picture And Image6.Picture = Image24.Picture And Image7.Picture = Image25.Picture And Image8.Picture = Image26.Picture And Image9.Picture = Image27.Picture And Image10.Picture = Image28.Picture And Image11.Picture = Image29.Picture And Image12.Picture = Image30.Picture And Image13.Picture = Image31.Picture And Image14.Picture = Image32.Picture And Image15.Picture = Image33.Picture Then
Timer1.Enabled = False
Image16.Picture = Image17.Picture
Image18.Visible = True
End If
End Sub
Private Sub Timer2_Timer()
Label2.Caption = Label2.Caption + 1
End Sub
If Image1.Picture = Image19.Picture And Image2.Picture = Image20.Picture And Image3.Picture = Image21.Picture And Image4.Picture = Image22.Picture And Image5.Picture = Image23.Picture And Image6.Picture = Image24.Picture And Image7.Picture = Image25.Picture And Image8.Picture = Image26.Picture And Image9.Picture = Image27.Picture And Image10.Picture = Image28.Picture And Image11.Picture = Image29.Picture And Image12.Picture = Image30.Picture And Image13.Picture = Image31.Picture And Image14.Picture = Image32.Picture And Image15.Picture = Image33.Picture Then
Timer1.Enabled = False
Image16.Picture = Image17.Picture
Image18.Visible = True
End If
Image27.Picture = Image1.Picture
Image22.Picture = Image10.Picture
Image29.Picture = Image11.Picture
Image31.Picture = Image12.Picture
Image23.Picture = Image13.Picture
Image25.Picture = Image14.Picture
Image30.Picture = Image15.Picture
Image33.Picture = Image16.Picture
Image21.Picture = Image2.Picture
Image24.Picture = Image3.Picture
Image26.Picture = Image4.Picture
Image20.Picture = Image5.Picture
Image28.Picture = Image6.Picture
Image32.Picture = Image8.Picture
Image19.Picture = Image9.Picture
End Sub
Private Sub Image1_Click()
If Image2.Picture = LoadPicture("") Then Image2.Picture = Image1.Picture: Image1.Picture = LoadPicture("")
If Image5.Picture = LoadPicture("") Then Image5.Picture = Image1.Picture: Image1.Picture = LoadPicture("")
End Sub
Private Sub Image10_Click()
If Image9.Picture = LoadPicture("") Then Image9.Picture = Image10.Picture: Image10.Picture = LoadPicture("")
If Image11.Picture = LoadPicture("") Then Image11.Picture = Image10.Picture: Image10.Picture = LoadPicture("")
If Image6.Picture = LoadPicture("") Then Image6.Picture = Image10.Picture: Image10.Picture = LoadPicture("")
If Image14.Picture = LoadPicture("") Then Image14.Picture = Image10.Picture: Image10.Picture = LoadPicture("")
End Sub
Private Sub Image11_Click()
If Image7.Picture = LoadPicture("") Then Image7.Picture = Image11.Picture: Image11.Picture = LoadPicture("")
If Image10.Picture = LoadPicture("") Then Image10.Picture = Image11.Picture: Image11.Picture = LoadPicture("")
If Image12.Picture = LoadPicture("") Then Image12.Picture = Image11.Picture: Image11.Picture = LoadPicture("")
If Image15.Picture = LoadPicture("") Then Image15.Picture = Image11.Picture: Image11.Picture = LoadPicture("")
End Sub
Private Sub Image12_Click()
If Image11.Picture = LoadPicture("") Then Image11.Picture = Image12.Picture: Image12.Picture = LoadPicture("")
If Image8.Picture = LoadPicture("") Then Image8.Picture = Image12.Picture: Image12.Picture = LoadPicture("")
If Image16.Picture = LoadPicture("") Then Image16.Picture = Image12.Picture: Image12.Picture = LoadPicture("")
End Sub
Private Sub Image13_Click()
If Image9.Picture = LoadPicture("") Then Image9.Picture = Image13.Picture: Image13.Picture = LoadPicture("")
If Image14.Picture = LoadPicture("") Then Image14.Picture = Image13.Picture: Image13.Picture = LoadPicture("")
End Sub
Private Sub Image14_Click()
If Image13.Picture = LoadPicture("") Then Image13.Picture = Image14.Picture: Image14.Picture = LoadPicture("")
If Image15.Picture = LoadPicture("") Then Image15.Picture = Image14.Picture: Image14.Picture = LoadPicture("")
If Image10.Picture = LoadPicture("") Then Image10.Picture = Image14.Picture: Image14.Picture = LoadPicture("")
End Sub
Private Sub Image15_Click()
If Image14.Picture = LoadPicture("") Then Image14.Picture = Image15.Picture: Image15.Picture = LoadPicture("")
If Image16.Picture = LoadPicture("") Then Image16.Picture = Image15.Picture: Image15.Picture = LoadPicture("")
If Image11.Picture = LoadPicture("") Then Image11.Picture = Image15.Picture: Image15.Picture = LoadPicture("")
End Sub
Private Sub Image16_Click()
If Image12.Picture = LoadPicture("") Then Image12.Picture = Image16.Picture: Image16.Picture = LoadPicture("")
If Image15.Picture = LoadPicture("") Then Image15.Picture = Image16.Picture: Image16.Picture = LoadPicture("")
End Sub
Private Sub Image2_Click()
If Image1.Picture = LoadPicture("") Then Image1.Picture = Image2.Picture: Image2.Picture = LoadPicture("")
If Image3.Picture = LoadPicture("") Then Image3.Picture = Image2.Picture: Image2.Picture = LoadPicture("")
If Image6.Picture = LoadPicture("") Then Image6.Picture = Image2.Picture: Image2.Picture = LoadPicture("")
End Sub
Private Sub Image3_Click()
If Image7.Picture = LoadPicture("") Then Image7.Picture = Image3.Picture: Image3.Picture = LoadPicture("")
If Image2.Picture = LoadPicture("") Then Image2.Picture = Image3.Picture: Image3.Picture = LoadPicture("")
If Image4.Picture = LoadPicture("") Then Image4.Picture = Image3.Picture: Image3.Picture = LoadPicture("")
End Sub
Private Sub Image4_Click()
If Image8.Picture = LoadPicture("") Then Image8.Picture = Image4.Picture: Image4.Picture = LoadPicture("")
If Image3.Picture = LoadPicture("") Then Image3.Picture = Image4.Picture: Image4.Picture = LoadPicture("")
End Sub
Private Sub Image5_Click()
If Image6.Picture = LoadPicture("") Then Image6.Picture = Image5.Picture: Image5.Picture = LoadPicture("")
If Image1.Picture = LoadPicture("") Then Image1.Picture = Image5.Picture: Image5.Picture = LoadPicture("")
If Image9.Picture = LoadPicture("") Then Image9.Picture = Image5.Picture: Image5.Picture = LoadPicture("")
End Sub
Private Sub Image6_Click()
If Image2.Picture = LoadPicture("") Then Image2.Picture = Image6.Picture: Image6.Picture = LoadPicture("")
If Image5.Picture = LoadPicture("") Then Image5.Picture = Image6.Picture: Image6.Picture = LoadPicture("")
If Image7.Picture = LoadPicture("") Then Image7.Picture = Image6.Picture: Image6.Picture = LoadPicture("")
If Image10.Picture = LoadPicture("") Then Image10.Picture = Image6.Picture: Image6.Picture = LoadPicture("")
End Sub
Private Sub Image7_Click()
If Image3.Picture = LoadPicture("") Then Image3.Picture = Image7.Picture: Image7.Picture = LoadPicture("")
If Image6.Picture = LoadPicture("") Then Image6.Picture = Image7.Picture: Image7.Picture = LoadPicture("")
If Image8.Picture = LoadPicture("") Then Image8.Picture = Image7.Picture: Image7.Picture = LoadPicture("")
If Image11.Picture = LoadPicture("") Then Image11.Picture = Image7.Picture: Image7.Picture = LoadPicture("")
End Sub
Private Sub Image8_Click()
If Image7.Picture = LoadPicture("") Then Image7.Picture = Image8.Picture: Image8.Picture = LoadPicture("")
If Image12.Picture = LoadPicture("") Then Image12.Picture = Image8.Picture: Image8.Picture = LoadPicture("")
If Image4.Picture = LoadPicture("") Then Image4.Picture = Image8.Picture: Image8.Picture = LoadPicture("")
End Sub
Private Sub Image9_Click()
If Image5.Picture = LoadPicture("") Then Image5.Picture = Image9.Picture: Image9.Picture = LoadPicture("")
If Image10.Picture = LoadPicture("") Then Image10.Picture = Image9.Picture: Image9.Picture = LoadPicture("")
If Image13.Picture = LoadPicture("") Then Image13.Picture = Image9.Picture: Image9.Picture = LoadPicture("")
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
If Label1.Caption = "60" Then Label1.Caption = "0"
If Image1.Picture = Image19.Picture And Image2.Picture = Image20.Picture And Image3.Picture = Image21.Picture And Image4.Picture = Image22.Picture And Image5.Picture = Image23.Picture And Image6.Picture = Image24.Picture And Image7.Picture = Image25.Picture And Image8.Picture = Image26.Picture And Image9.Picture = Image27.Picture And Image10.Picture = Image28.Picture And Image11.Picture = Image29.Picture And Image12.Picture = Image30.Picture And Image13.Picture = Image31.Picture And Image14.Picture = Image32.Picture And Image15.Picture = Image33.Picture Then
Timer1.Enabled = False
Image16.Picture = Image17.Picture
Image18.Visible = True
End If
End Sub
Private Sub Timer2_Timer()
Label2.Caption = Label2.Caption + 1
End Sub
+ نوشته شده در سه شنبه ۱۳۸۹/۱۱/۱۲ ساعت 21:27 توسط احمد فنونی
|