لطفا کمک کنید خیلی خیلی مهم!!!

من سرس بازی پازل رو میخواستم(با اعداد نه با عکس)
خواهش میکنم کمک کنید خیلی فوری
مرسی:41:

سلام

این کد ها رو توی یه فایل txt کپی کن و بعد پسوندش رو به frm تغییر بده. یه فرم میشه که با vb بازش میکنی با یکم دقت به منطق برنامه پی میبری.
فقط توی اونجایی که فرم را ذخیره کردی یه شاخه به اسم pic بساز و بعد هم تو این شاخه یه فایل به اسم 001.jpg قرار بده که عکس اصلیه و ابعادش 480*480 هست. حالا با یه برنامه مثل فتوشاپ عکس رو 16 قسمت 120*120 پیکسلی بساز و اسمشون رو اینجوری بزار سطر اول ستون اول aa.jpg سطر اول ستون دوم ab.jpg , .. سطر دوم با b شروع میشه یعنی ستون اول ba.jpg . یه نکته اینکه ستون ها رو از چپ به راست و سطر ها رو از بالا به پایین در نظر بگیر. انشاالله اگه درست انجام بدی کار میکنه بازدن دکمه استارت عکس اصلی یه کم نشون داده میشه بعدم پازل نا مرتب میشه کافی روی دو تا سگمنت کلیک کنی تا جاشون عوض شه در آخر که عکس تکمیل شد یه پیغام میده.

کد:

---


 
 
 
 
 
VERSION 5.00Begin VB.Form Form1BackColor = &H00C000C0&
Caption = "Form1"
ClientHeight = 5865
ClientLeft = 60ClientTop = 450ClientWidth = 7620ControlBox = 0 'FalseLinkTopic = "Form1"
ScaleHeight = 5865ScaleWidth = 7620
StartUpPosition = 2 'CenterScreenBegin VB.CommandButtonCommand1Caption = "Exit خروج "
Height = 495Left = 5640TabIndex = 2Top = 2280Width = 1695
EndBegin VB.CommandButton Command2Caption = "START شروع"
Height = 495Left = 5640TabIndex = 1Top = 1560
Width = 1695EndBegin VB.Timer Timer1Enabled = 0 'FalseInterval = 3000
Left = 2400Top = 0EndBegin VB.TextBox TBackColor = &H80000001&
ForeColor = &H0080FFFF&
Height = 285Left = 2640Locked = -1 'TrueTabIndex = 0Top = 480Width = 855EndBeginVB.Timer Tr1Enabled = 0 'FalseInterval = 1
Left = 2880Top = 0EndBegin VB.Timer Tr2Enabled = 0 'FalseInterval = 1Left = 3360Top = 0
EndBegin VB.Timer TmlEnabled = 0 'FalseInterval = 1Left = 4440Top = 0EndBegin VB.Timer NOWINEnabled = 0 'FalseInterval = 1Left = 4920Top = 0EndBeginVB.Image IgHeight = 1095Index = 1
Left = 720Stretch = -1 'TrueTop = 960Width = 1095EndBegin VB.Image IgHeight = 1095Index = 2Left = 1800Stretch = -1 'TrueTop = 960Width = 1095
EndBegin VB.Image IgHeight = 1095
Index = 3Left = 2880Stretch = -1 'TrueTop = 960Width = 1095EndBegin VB.Image IgHeight = 1095Index = 4Left = 3960
Stretch = -1 'TrueTop = 960
Width = 1095EndBegin VB.Image IgHeight = 1095Index = 5Left = 720Stretch = -1 'TrueTop = 2040Width = 1095EndBeginVB.Image IgHeight = 1095Index = 6
Left = 1800Stretch = -1 'TrueTop = 2040Width = 1095EndBegin VB.Image IgHeight = 1095Index = 7Left = 2880Stretch = -1 'TrueTop = 2040Width = 1095
EndBegin VB.Image IgHeight = 1095
Index = 8Left = 3960Stretch = -1 'TrueTop = 2040Width = 1095EndBegin VB.Image IgHeight = 1095Index = 9Left = 720
Stretch = -1 'TrueTop = 3120
Width = 1095EndBegin VB.Image IgHeight = 1095Index = 10Left = 1800Stretch = -1 'TrueTop = 3120Width = 1095EndBeginVB.Image IgHeight = 1095Index = 11
Left = 2880Stretch = -1 'TrueTop = 3120Width = 1095EndBegin VB.Image IgHeight = 1095Index = 12Left = 3960Stretch = -1 'TrueTop = 3120Width = 1095EndBegin VB.Image IgHeight = 1095Index = 13Left = 720Stretch = -1 'TrueTop = 4200Width = 1095EndBeginVB.Image IgHeight = 1095Index = 14
Left = 1800Stretch = -1 'TrueTop = 4200Width = 1095EndBegin VB.Image IgHeight = 1095Index = 15Left = 2880Stretch = -1 'TrueTop = 4200Width = 1095EndBegin VB.Image IgHeight = 1095Index = 16Left = 3960Stretch = -1 'TrueTop = 4200Width = 1095EndBeginVB.Image Image2Height = 4335Left = 720
Picture = "Form1.frx":0000Stretch = -1 'TrueTop = 960Visible = 0 'FalseWidth = 4335EndEndAttribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim MAK(16) As IntegerPublic SEL, RR1, RR2, END1 As Integer
 
Private Sub Command1_Click()
EndEnd Sub
Private Sub Command2_Click()
For sss = 1 To 16Ig(sss).Picture = LoadPicture("")
Next sssImage2.Visible = TrueTr1.Enabled = FalseTr2.Enabled = FalseTimer1.Enabled = TrueEnd Sub
 
 
 
Private Sub Form_Load()
Form1.BackColor = RGB(186, 19, 186)
EndSub
Private Sub Ig_Click(Index As Integer)
If SEL = 0 ThenSEL = 4RR1 = IndexIg(RR1).Picture = LoadPicture("")
End IfIf SEL = 4 And RR1 <> Index ThenSEL = 0
RR2 = IndexIg(RR2).Picture = LoadPicture("")
For TED = 1 To 16
If MAK(TED) = RR1 Then UI1 = TEDIf MAK(TED) = RR2 Then UI2 = TEDNext TEDMAK(UI1) = RR2MAK(UI2) = RR1Tml.Enabled = TrueEndIf
End Sub
Private Sub NOWIN_Timer()
Tr1.Enabled = FalseTr2.Enabled = FalseFor ASD = 1 To 16MAK(ASD) = 0Ig(ASD).Picture = LoadPicture("")
Next ASDINTVAL = MsgBox("TIMES UP.*.وقت تمام شد")
NOWIN.Enabled = False
End Sub
Private Sub T_Change()
If T.Text = 1 ThenNOWIN.Enabled = TrueEnd IfEnd Sub
Private Sub Timer1_Timer()
Image2.Visible = FalseCONT = 0DimIFG(16) As IntegerDoA = Rnd() * 16B = Int(A) + 1If IFG(B) = 0ThenIFG(B) = 10CONT = CONT + 1MAK(CONT) = BEnd IfLoopUntil CONT = 16T.Text = 10000Tr1.Enabled = TrueTml.Enabled = TrueTimer1.Enabled = FalseEnd SubPrivate SubTimer2_Timer()
T.Text = Timer2.IntervalEnd Sub
Private Sub Tml_Timer()
def = 0For tyu = 1 To 16def = def + MAK(tyu)
Next tyuIf def <> 0 ThenFor CONT = 1 To 16IfCONT = 1 Then Ig(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\AA.JPG")
If CONT = 2 Then Ig(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\AB.JPG")
If CONT = 3 ThenIg(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\AC.JPG")
If CONT = 4Then Ig(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\AD.JPG")
If CONT = 5 Then Ig(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\BA.JPG")
IfCONT = 6 Then Ig(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\BB.JPG")
If CONT = 7 Then Ig(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\BC.JPG")
If CONT = 8 ThenIg(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\BD.JPG")
If CONT = 9Then Ig(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\CA.JPG")
If CONT = 10 Then Ig(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\CB.JPG")
IfCONT = 11 Then Ig(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\CC.JPG")
If CONT = 12 ThenIg(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\CD.JPG")
If CONT = 13Then Ig(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\DA.JPG")
If CONT = 14 Then Ig(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\DB.JPG")
IfCONT = 15 Then Ig(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\DC.JPG")
If CONT = 16 ThenIg(MAK(CONT)).Picture = LoadPicture("D:\puzell\PIC\DD.JPG")
Next CONTEndIfTml.Enabled = FalseDS = 0For EWQ = 1 To 16If MAK(EWQ) <> EWQ Then DS = DS + 1Next EWQIf DS = 0 ThenTr1.Enabled = FalseTr2.Enabled = FalseINTVAL = MsgBox("YOU ARE WIN.*.شما برنده شديد")
End If
End Sub
Private Sub Tr1_Timer()
T.Text = T.Text - 1Tr1.Enabled = FalseTr2.Enabled = TrueEnd Sub
Private Sub Tr2_Timer()
T.Text = T.Text - 1Tr2.Enabled = FalseTr1.Enabled = True
End Sub

---