یعنی هیچ کس نمی خواهد جواب منو بده؟!!
من سورس بازی پازل رو میخواستم همین!!!
Printable View
یعنی هیچ کس نمی خواهد جواب منو بده؟!!
من سورس بازی پازل رو میخواستم همین!!!
سلام عزيزم
من يه سورس دارم اميدوارم به دردت بخوره
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
البته به اينجا هم ميتوني سر بزني
[HTML]http://forum.p30world.com/showthread.php?t=107300&page=4[/HTML]
اين يكي هم هست ولي خودم باهاش كار نكردم:
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
به اين مي گن معرفت سوال مارو كه هيشكي جواب نداد:37:
نقل قول:salam man vaghean az homa mamnoonam
kheyli komak bozorghi bood
:20:barnameh harf nadasht
dam shoma gharm
:11:rasti bebakhshid dir tashakor kardam