اولا باید برای کم کردن تایمر ها به 3 تا, پیکچر باکس ها رو ایندکس دار کنی دوما برای بزرگ کردن و اینکه نخواد برای هر عکس کد بزنی مقادیر عکس مورد نظرت رو به همون پیکچر باکس اولی که بزرگ می شه بده تا این مشکل هم حل بشه...
Printable View
اولا باید برای کم کردن تایمر ها به 3 تا, پیکچر باکس ها رو ایندکس دار کنی دوما برای بزرگ کردن و اینکه نخواد برای هر عکس کد بزنی مقادیر عکس مورد نظرت رو به همون پیکچر باکس اولی که بزرگ می شه بده تا این مشکل هم حل بشه...
در حقیقت برانامه نویسی پیدا کردن راه هست برای رسید به هدف مورد نظر!! یعنی شما باید برای حل یک مسئله که داری حالا اینجا بزرگ کردنه تصویره که خیلی سادست اما کلا برای موارد دیگه باید فکرد کنید با استفاده از ابزار های یی که دارید چه کاری می تونید انجان بدید
یکم وقت داشتم پروژه ی شما رو تغییر دادم به ساده ترین راه, همون که گفتم بیدم.. دانلود کن ببین مشکلت بالا خره حل میشه یانه
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
فقط يه چيز ديگه
درباره اين پروژه زوم كردن تصوير اگه تصاوير بعد از زوم شدن به سر جاي اصلي خودشون برگردن عالي ميشه
منظورم اينه كه وقتي سايزشون كوچيك ميشه همزمان با كوچيك شدن سايز به جاي اولشون برگردن
كه الان اينطور نيست الان همه ميرن به جاي تصوير شماره يه و بعد سر جاي خودشون نشون داده ميشن
برای ساده کردن برنامه ، میتونید از ماژول ها یا تعریف یک روال یا تابع برای برنامه استفاده کنید .
اینجوری خیلی ساده و قابل فهم میشه .
مثلا یک تابعی تعریف کنید که آرگومان های ورودی آن نام شی و مختصات اون باشه . بعد تابع این کارو به راحتی انجام میده و نیازی نیست واسه هر کدوم از تصاویر کد نویسی کنید.
اگه وقت شد واستون درست میکنم.
يادمه كه قديما ما تو دبيرستان (حدودا 17 سال پيش) :3::3:موقعي كه دبيرها مخصوصا دبير رياضي ميومد و درس ميداد ميگفتم يه مثال بزن كه بهتر بفهميم:42:
حالا داداش من راستش من تازه كارم و علم زيادي در باره برنامه نويسي ندارم :24:لطف كن اين چيزي كه گفتي يه مثال براش بزن كه من هم شير فهم بشم :33:
ممنون
یکم بازی با اعداده و در اوردن یک الگوریتم مناسب برنامه نویسی دفعه ی قبل هم به شما گفتم راه مناسب برای حل مسئله!!! آموزش VB6 خیلی سادست و خیلی هم کار بردیه اما به خوبی vb.net نیست کتاب هایی هم هست که شما می تونی بگیری و آموزش رو از اونا کاملا یاد بگیری که در کتاب فروشی ها فراونه و قیمتی حدود 6000 تا 8000 تقریبا تمام vb6 رو به صورت کلی و جامع آموزش می ده.. که اگر تهیه کنی خیلی میتونه در برنامه نویسی کلا بیسیک کمکت کنه!!!
بگذریم همیشه این رو در نظر داشته باش که اول باید بدونی برنامت داره چی کار می کنه بعد اگر خواستی می تونی اونو هر جور که می خواهی تغییر بدی !!
اینم لینک
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
نقل قول:
ممنون
دست گلت درد نكنه واقعا كارت حرف نداره:n12:
اینم کد دی باگ شده
کد:Private Declare Function SHRestartSystemMB Lib "shell32" Alias "#59" (ByVal hOwner As Long, ByVal sExtraPrompt As String, ByVal uFlags As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim num_target_pic As Integer
Dim num As Integer
Dim target As Integer
Dim x As Double
Dim y As Double
Dim stop_mo As Boolean
Sub Pause(HowLong As Long)
Dim u%, tick As Long
tick = GetTickCount()
Do
u% = DoEvents
Loop Until tick + HowLong < GetTickCount
End Sub
Public Sub ZoomPicture(pct As PictureBox, zoom As Double)
With pct
.AutoRedraw = True
.Width = .Width + zoom
.Height = .Height + zoom
.PaintPicture .Picture, 0, 0, .ScaleWidth, .ScaleHeight
.Refresh
End With
End Sub
Private Sub Form_Load()
stop_mo = False
Picture2.Picture = Picture1(0).Picture
End Sub
Private Sub Picture1_Click(Index As Integer)
If stop_mo = False Then
Dim a As Integer
Dim b As Integer
num = Index
Timer1.Enabled = True
a = Picture1(Index).Left
b = Picture1(Index).Top
x = (3000 - a) / 80
y = (2000 - b) / 80
Select Case Index
Case 0
Image1.Picture = Picture1(3).Picture
num_target_pic = 3
Case 1
Image1.Picture = Picture1(6).Picture
num_target_pic = 6
Case 2
Image1.Picture = Picture1(9).Picture
num_target_pic = 9
Case 3
Image1.Picture = Picture1(0).Picture
num_target_pic = 0
Case 4
Image1.Picture = Picture1(18).Picture
num_target_pic = 18
Case 5
Image1.Picture = Picture1(12).Picture
num_target_pic = 12
Case 6
Image1.Picture = Picture1(1).Picture
num_target_pic = 1
Case 7
Image1.Picture = Picture1(17).Picture
num_target_pic = 17
Case 8
Image1.Picture = Picture1(11).Picture
num_target_pic = 11
Case 9
Image1.Picture = Picture1(2).Picture
num_target_pic = 2
Case 10
Image1.Picture = Picture1(15).Picture
num_target_pic = 15
Case 11
Image1.Picture = Picture1(8).Picture
num_target_pic = 8
Case 12
Image1.Picture = Picture1(5).Picture
num_target_pic = 5
Case 13
Image1.Picture = Picture1(19).Picture
num_target_pic = 19
Case 14
Image1.Picture = Picture1(16).Picture
num_target_pic = 16
Case 15
Image1.Picture = Picture1(10).Picture
num_target_pic = 10
Case 16
Image1.Picture = Picture1(14).Picture
num_target_pic = 14
Case 17
Image1.Picture = Picture1(7).Picture
num_target_pic = 7
Case 18
Image1.Picture = Picture1(4).Picture
num_target_pic = 4
Case 19
Image1.Picture = Picture1(13).Picture
num_target_pic = 13
End Select
Else
End If
End Sub
Private Sub Timer1_Timer()
stop_mo = True
Picture1(num).Left = Picture1(num).Left + x
Picture1(num).Top = Picture1(num).Top + y
Label1.Caption = Label1.Caption + 1
ZoomPicture Picture1(num), Label1.Caption 'stretch it
If Label1.Caption = 80 Then
stop_mo = False
Pause (1000)
Picture1(num).Visible = False
Image1.Visible = True
Select Case num_target_pic
Case 0
lSound = sndSound(App.Path & "\music 0.wav", 1)
Case 1
lSound = sndSound(App.Path & "\music 1.wav", 1)
Case 2
lSound = sndSound(App.Path & "\music 2.wav", 1)
Case 3
lSound = sndSound(App.Path & "\music 3.wav", 1)
Case 4
lSound = sndSound(App.Path & "\music 4.wav", 1)
Case 5
lSound = sndSound(App.Path & "\music 5.wav", 1)
Case 6
lSound = sndSound(App.Path & "\music 6.wav", 1)
Case 7
lSound = sndSound(App.Path & "\music 7.wav", 1)
Case 8
lSound = sndSound(App.Path & "\music 8.wav", 1)
Case 9
lSound = sndSound(App.Path & "\music 9.wav", 1)
Case 10
lSound = sndSound(App.Path & "\music 10.wav", 1)
Case 11
lSound = sndSound(App.Path & "\music 11.wav", 1)
Case 12
lSound = sndSound(App.Path & "\music 12.wav", 1)
Case 13
lSound = sndSound(App.Path & "\music 13.wav", 1)
Case 14
lSound = sndSound(App.Path & "\music 14.wav", 1)
Case 15
lSound = sndSound(App.Path & "\music 15.wav", 1)
Case 16
lSound = sndSound(App.Path & "\music 16.wav", 1)
Case 17
lSound = sndSound(App.Path & "\music 17.wav", 1)
Case 18
lSound = sndSound(App.Path & "\music 18.wav", 1)
Case 19
lSound = sndSound(App.Path & "\music 19.wav", 1)
End Select
Timer1.Enabled = False
Timer2.Enabled = True
End If
Dim i As Integer
For i = 0 To 19
If num <> i Then Picture1(i).Visible = False
Next i
End Sub
Private Sub Timer2_Timer()
Timer3.Enabled = True
Label1.Caption = 0
End Sub
Private Sub Timer3_Timer()
stop_mo = True
Picture1(num).Left = Picture1(num).Left - x
Picture1(num).Top = Picture1(num).Top - y
Timer2.Enabled = False
Image1.Visible = False
Picture1(num).Visible = True
Label2.Caption = Label2.Caption - 1
ZoomPicture Picture1(num), Label2.Caption 'shrink it
If Label2.Caption = -80 Then
Label2.Caption = 0
stop_mo = False
Timer3.Enabled = False
Dim i As Integer
For i = 0 To 19
Picture1(i).Visible = True
Next i
End If
End Sub
Dim u%, tick As Long
ببخشيد اين علامت چيه؟ u%:n13:
راستي اين قسمت از سوالم درست كار نميكنه:45:
اول اينكه يه مشكل وجود داره كه موقعي بر روي تصا وير كليك ميكنم و تصوير شروع يه بزرگ نمايي و يا كوچك نمايي ميكنن اگه دوباره حالا يا عمدا و يا سهوا بر روي تصوير كليك كنم برنامه به هم ميريزه و جاي تصاوير به هم ميخوره
البته من خودم با استفاده از مخفي كردن و غير فعال كردن كرسر تا حدي اين مشكل رو برطرف كردم كه زياد راضي نيستم حالا اگه شما راه بهتري سراغ داريد ممنون ميشم راهنمايي كنيد