كمك در مورد ساده نويسي

دوستان من يك پروژه دارم كه تعداد 20تصوير داره و با كليك كردن بر روي هر تصوير تصوير به يك اندازه مشخص بزرگ نمايي ميشه و هر كجاي فرم باشه به وسط فرم ميره
من خودم با كمك دوستان اين پروژه رو نوشته ام ولي يك ايراد بزرگ داره كه اون هم تعداد زياد تايمرها است شما اگه پروژه رو ببينيد متوجه ميشيد كه چي ميگم
يه ايراد ديگه هم كه داره اينه كه براي اينكه هر تصوير به وست صفحه بياد بايد مختصات يك به يك تصاوير رو به دست بيارم كه اين كار بسيار وقت گير و كسل كننده اي هست
از دوستان اگه كسي ميتونه كمكم كنه براي ساده نويسي برنامه و احيانا رفع ايرادهاي پروژه ممنون ميشم
اين هم لينك پروژه
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

يعني تو اين سايت به اين بزرگي يكي نيست به من كمك كنه؟:n27:

دوست عزیز برای هر عکس، دوباره همه‌ی کدها رو تکرار کردی؟!
یعنی گرفتن مختصات کنونی عکس و ست کردن مختصات و سایز جدید عکس رو هر بار برای هر عکس تکرار کردی که اینجوری شده؟!

----------------------
از یه کلاس استفاده کنین و کد ها رو یه بار بنویسید و بارها بهشون ارجاع بدین!

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

سلام....
راستش قولی نمی‌تونم بدم ولی باشه ببینم چیکارش میتونم بکنم!

فقط اینکه من پروژتون رو دانلود کردم که ببینمش، چیزی ازش حالیم نشد!!!! :)
اگر بیسیک نوشتین که شرمندتونم....!!!
اگر با سی‌شارپ نوشتین، لطفا کل فایل رو بذارین.... سولوشن حتمی باشه لااقل!

متاسفانه با vb6 نوشتمش روال كارش اينطوره كه با كليك كردن بر روي هر تصوير ،تصوير هر كجاي صفحه كه باشه بزرگنمايي ميشه و به وسط فرم مياد پس از چند ثانيه يك تصوير ديگه ظاهر ميشه و دوباره تصوير هر جايي كه بوده بر ميگرده همونجا اين دستور رو فقط براي تصوير اولي نوشتم

کد هایی که تکرار شده رو قرار بدین تا ببینیم چیکار میشه کرد!!
مخصوصا که میشه کلاس ها رو با سی‌شارپ نوشت و تو بیسیک استفاده کرده و یا اینکه کد ها رو به هم تبدیل کرد! :)

ممنون:n01:
من براي هر تصوير سه تا تايمر دارم
تايمر اول با كليك كردن روي تصوير فعال ميشه
تصوير در حين زوم شده به وسط فرم ميره
Picture1.Left = Picture1.Left + 30
Picture1.Top = Picture1.Top + 10
Label1.Caption = Label1.Caption + 1
ZoomPicture Picture1, Label1.Caption 'stretch it
If Label1.Caption = 70 Then
Picture1.Visible = False
Image1.Visible = True
Timer1.Enabled = False
Timer2.Enabled = True
End If

تايمر دوم هم تصوير اولي رو غير فعال ميكنه و يه تصوير ديگه رو نشون ميده
Private Sub Timer2_Timer()
Timer3.Enabled = True
Label1.Caption = 0
End Sub

تايمر سوم هم دقيقا برعكس تايمر اول كار ميكنه به اين صورت كه تصوير دوم رو غير فعال ميكنه
تصوير اول رو كوچك نمايي ميكنه و به جاي اولش ميبره
Picture1.Left = Picture1.Left - 30
Picture1.Top = Picture1.Top - 10
Timer2.Enabled = False
Image1.Visible = False
Picture1.Visible = True
Label2.Caption = Label2.Caption - 1
ZoomPicture Picture1, Label2.Caption 'shrink it
If Label2.Caption = -70 Then
Label2.Caption = 0
end if
مشكل اصلي من اينه كه اولا تعداد تايمرها زياد هستند و بايد براي هر تصوير سه تا تايمر بزارم
و مشكل بعدي اينه كه من بايد چيكار كنم كه تصاوير هر جاي فرم كه باشند به وسطفرم بروند و بزرگ نمايي بشوند مثل هموني كه براي تايمر اول نوشتم

اولا باید برای کم کردن تایمر ها به 3 تا, پیکچر باکس ها رو ایندکس دار کنی دوما برای بزرگ کردن و اینکه نخواد برای هر عکس کد بزنی مقادیر عکس مورد نظرت رو به همون پیکچر باکس اولی که بزرگ می شه بده تا این مشکل هم حل بشه...

در حقیقت برانامه نویسی پیدا کردن راه هست برای رسید به هدف مورد نظر!! یعنی شما باید برای حل یک مسئله که داری حالا اینجا بزرگ کردنه تصویره که خیلی سادست اما کلا برای موارد دیگه باید فکرد کنید با استفاده از ابزار های یی که دارید چه کاری می تونید انجان بدید

یکم وقت داشتم پروژه ی شما رو تغییر دادم به ساده ترین راه, همون که گفتم بیدم.. دانلود کن ببین مشکلت بالا خره حل میشه یانه

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

فقط يه چيز ديگه

درباره اين پروژه زوم كردن تصوير اگه تصاوير بعد از زوم شدن به سر جاي اصلي خودشون برگردن عالي ميشه
منظورم اينه كه وقتي سايزشون كوچيك ميشه همزمان با كوچيك شدن سايز به جاي اولشون برگردن
كه الان اينطور نيست الان همه ميرن به جاي تصوير شماره يه و بعد سر جاي خودشون نشون داده ميشن

برای ساده کردن برنامه ، میتونید از ماژول ها یا تعریف یک روال یا تابع برای برنامه استفاده کنید .
اینجوری خیلی ساده و قابل فهم میشه .
مثلا یک تابعی تعریف کنید که آرگومان های ورودی آن نام شی و مختصات اون باشه . بعد تابع این کارو به راحتی انجام میده و نیازی نیست واسه هر کدوم از تصاویر کد نویسی کنید.
اگه وقت شد واستون درست میکنم.

يادمه كه قديما ما تو دبيرستان (حدودا 17 سال پيش) :3::3:موقعي كه دبيرها مخصوصا دبير رياضي ميومد و درس ميداد ميگفتم يه مثال بزن كه بهتر بفهميم:42:
حالا داداش من راستش من تازه كارم و علم زيادي در باره برنامه نويسي ندارم :24:لطف كن اين چيزي كه گفتي يه مثال براش بزن كه من هم شير فهم بشم :33:
ممنون

یکم بازی با اعداده و در اوردن یک الگوریتم مناسب برنامه نویسی دفعه ی قبل هم به شما گفتم راه مناسب برای حل مسئله!!! آموزش VB6 خیلی سادست و خیلی هم کار بردیه اما به خوبی vb.net نیست کتاب هایی هم هست که شما می تونی بگیری و آموزش رو از اونا کاملا یاد بگیری که در کتاب فروشی ها فراونه و قیمتی حدود 6000 تا 8000 تقریبا تمام vb6 رو به صورت کلی و جامع آموزش می ده.. که اگر تهیه کنی خیلی میتونه در برنامه نویسی کلا بیسیک کمکت کنه!!!
بگذریم همیشه این رو در نظر داشته باش که اول باید بدونی برنامت داره چی کار می کنه بعد اگر خواستی می تونی اونو هر جور که می خواهی تغییر بدی !!

اینم لینک

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

نوشته شده توسط samasara [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

یکم بازی با اعداده و در اوردن یک الگوریتم مناسب برنامه نویسی دفعه ی قبل هم به شما گفتم راه مناسب برای حل مسئله!!! آموزش 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:
اول اينكه يه مشكل وجود داره كه موقعي بر روي تصا وير كليك ميكنم و تصوير شروع يه بزرگ نمايي و يا كوچك نمايي ميكنن اگه دوباره حالا يا عمدا و يا سهوا بر روي تصوير كليك كنم برنامه به هم ميريزه و جاي تصاوير به هم ميخوره
البته من خودم با استفاده از مخفي كردن و غير فعال كردن كرسر تا حدي اين مشكل رو برطرف كردم كه زياد راضي نيستم حالا اگه شما راه بهتري سراغ داريد ممنون ميشم راهنمايي كنيد

نقل قول:

---

نوشته شده توسط abo1524 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

Dim u%, tick As Long
ببخشيد اين علامت چيه؟ u%:n13:

---

***********
یعنی Dim u As Integer .../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
**************************
اون تابع سیستمی SHRestartSystemMB رو فکر کنم اضافه فراخوانی کردید.../// جایی تو کد ها استفاده نشده.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
****************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

اون تابع سیستمی SHRestartSystemMB رو فکر کنم اضافه فراخوانی کردید.../// جایی تو کد ها استفاده نشده...///

---

تایید میشه .. خودم نمی دونم چرا اینو فرا خونی کردم شاید شب خستم بوده برای خند گذاشتمش!!!

اما بازم ببخشید از دوست خوبمون واقعا یک چند سرم شلوغ شده و نمی رسم جواب بدم ببین دقیقا بعد از انجاییکه رویداد کلیک موس اتفاق می افته یعنی خط زیر:

کد:

---

Private Sub Picture1_Click(Index As Integer)

---

فرم رو غیر فعال کن یعنی بنویس

کد:

---

Form38.Enabled = False

---

و در تایمر 3 انجایی که تایمر 3 رو غیر فعال می کنه یعنی

کد:

---

Private Sub Timer3_Timer()
If stop_mo = False Then

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
  Timer3.Enabled = False

---

فرم رو فعال کن یعنی بزار :

کد:

---

Form38.Enabled = True

---

اینجوری مشکل حل میشه من در برنامه ای برات گذاشتم از متغیر boolean به نام stpo_mo می خواستم استفاده کنم که انگاری درست ننوشتمش و اون مشکل هنوز پا برجاست >>ببخشید..
اگر خواستی از اون روش هم میشه اونجوی دیگه صدای هشدار سیستم هم نمیاد.. اگر نتوانستی بگو تا کلا کد درست شده رو بزارم الان وقتم ندارم مگر نه با همون روش برات درست می کردم

بازم ببخشید بابت کد که اشکال داشت..

ممنون دوست من مشكلم حل شد
خسته نباشي:n16::n12: