متخصصین محترم لطفا کمک!!!

[sahere_1990]

یعنی هیچ کس نمی خواهد جواب منو بده؟!!

من سورس بازی پازل رو میخواستم همین!!!

[ZIBAYEKHOFTE]

سلام عزيزم
من يه سورس دارم اميدوارم به دردت بخوره

Dim arr(1 To 9) As Integer
Private Sub Command1_Click()
digit% = Val(Text1.Text)
Select Case digit
Case 1
Image1.Picture = Image10.Picture
Case 2
Image2.Picture = Image10.Picture
Case 3
Image3.Picture = Image10.Picture
Case 4
Image4.Picture = Image10.Picture
Case 5
Image5.Picture = Image10.Picture
Case 6
Image6.Picture = Image10.Picture
Case 7
Image7.Picture = Image10.Picture
Case 8
Image8.Picture = Image10.Picture
Case 9
Image9.Picture = Image10.Picture
End Select
Call random_picture
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
Private Sub Command3_Click()
digit% = InputBox("Enter Number For Change (1-9): ", "Game Picture")
Text1.Text = digit
Select Case digit
Case 1
Image10.Picture = Image1.Picture
Case 2
Image10.Picture = Image2.Picture
Case 3
Image10.Picture = Image3.Picture
Case 4
Image10.Picture = Image4.Picture
Case 5
Image10.Picture = Image5.Picture
Case 6
Image10.Picture = Image6.Picture
Case 7
Image10.Picture = Image7.Picture
Case 8
Image10.Picture = Image8.Picture
Case 9
Image10.Picture = Image9.Picture
End Select
Command3.Enabled = False
Command4.Enabled = True
End Sub

Private Sub Command4_Click()
Dim img As Object
digit% = InputBox("Enter Number For Change (1-9): ", "Game Picture")
Set img = pic_load(Val(Text1.Text))
Select Case digit
Case 1
img.Picture = Image1.Picture
Image1.Picture = Image10.Picture
Image10.Picture = LoadPicture()
Case 2
img.Picture = Image2.Picture
Image2.Picture = Image10.Picture
Image10.Picture = LoadPicture()
Case 3
img.Picture = Image3.Picture
Image3.Picture = Image10.Picture
Image10.Picture = LoadPicture()
Case 4
img.Picture = Image4.Picture
Image4.Picture = Image10.Picture
Image10.Picture = LoadPicture()
Case 5
img.Picture = Image5.Picture
Image5.Picture = Image10.Picture
Image10.Picture = LoadPicture()
Case 6
img.Picture = Image6.Picture
Image6.Picture = Image10.Picture
Image10.Picture = LoadPicture()
Case 7
img.Picture = Image7.Picture
Image7.Picture = Image10.Picture
Image10.Picture = LoadPicture()
Case 8
img.Picture = Image8.Picture
Image8.Picture = Image10.Picture
Image10.Picture = LoadPicture()
Case 9
img.Picture = Image9.Picture
Image9.Picture = Image10.Picture
Image10.Picture = LoadPicture()
End Select
Command3.Enabled = True
Command4.Enabled = False
End Sub

Private Sub Form_Load()
Command3.Enabled = False
Command4.Enabled = False
Call random_picture
End Sub
Private Sub random_picture()
Dim y, temp As Integer
Static count As Integer
Do
If count >= 9 Then
Text1.Text = ""
Text1.Enabled = False
Command1.Enabled = False
Image10.Picture = LoadPicture()
Command3.Enabled = True
' Command4.Enabled = True
Exit Do
End If
Randomize
y = 0
temp = DateTime.Second(Time) Mod 9 + 1
For i = 1 To 9
If arr(i) = temp Then y = 1
Next i
Loop While y = 1
If count < 9 Then
arr(count + 1) = temp
count = count + 1
Image10.Picture = LoadPicture(Strings.Trim(Str(temp)) + ".jpg")
End If
End Sub
Function pic_load(x As Integer) As Object
Select Case x
Case 1
Set pic_load = Image1
Case 2
Set pic_load = Image2
Case 3
Set pic_load = Image3
Case 4
Set pic_load = Image4
Case 5
Set pic_load = Image5
Case 6
Set pic_load = Image6
Case 7
Set pic_load = Image7
Case 8
Set pic_load = Image8
Case 9
Set pic_load = Image9
End Select
End Function

[ZIBAYEKHOFTE]

البته به اينجا هم ميتوني سر بزني

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[ZIBAYEKHOFTE]

اين يكي هم هست ولي خودم باهاش كار نكردم:


Private Sub Command1_Click()

m = InputBox("enter a number (0 to 8)")
n = InputBox("enter a number (0 to 8)")

hold = Image1(m).Top
hold1 = Image1(m).Left
Image1(m).Top = Image1(n).Top
Image1(m).Left = Image1(n).Left
Image1(n).Top = hold
Image1(n).Left = hold1

End Sub

Private Sub c2_click()
Timer1.Enabled = True
Command1.Enabled = True
Randomize Timer
c = Rnd * 8
l = Rnd * 8
hold = Image1(c).Top
hold1 = Image1(c).Left
Image1(c).Top = Image1(l).Top
Image1(c).Left = Image1(l).Left
Image1(l).Top = hold
Image1(l).Left = hold1

End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
Command1.Enabled = True
For i = 1 To 9
c = Rnd * 8
l = Rnd * 8
hold = Image1(c).Top
hold1 = Image1(c).Left
Image1(c).Top = Image1(l).Top
Image1(c).Left = Image1(l).Left
Image1(l).Top = hold
Image1(l).Left = hold1
Next
End Sub

Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = True
End Sub

Private Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = False
End Sub

Private Sub Command4_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()

a = Image1(0).Top
b = Image1(0).Left
c = Image1(1).Top
d = Image1(1).Left
e = Image1(2).Top
f = Image1(2).Left
g = Image1(3).Top
h = Image1(3).Left
i = Image1(4).Top
j = Image1(4).Left
k = Image1(5).Top
l = Image1(5).Left
o = Image1(6).Top
m = Image1(6).Left
n = Image1(7).Top
p = Image1(7).Left
q = Image1(8).Top
r = Image1(8).Left
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Label2.Caption + 1
If Label2.Caption = 50 Then
m = MsgBox("you cannot succesful", , pazzel)
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = True
End If

End Sub

[ZIBAYEKHOFTE]

به اين مي گن معرفت سوال مارو كه هيشكي جواب نداد

[sahere_1990]

البته به اينجا هم ميتوني سر بزني

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

salam man vaghean az homa mamnoonam
kheyli komak bozorghi bood
barnameh harf nadasht
dam shoma gharm
rasti bebakhshid dir tashakor kardam