تمرین برای مسابقات علمی عملی(مرحله عملی)

نقل قول:

---

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

دوستان من میخواستم با فشردن کلید alt+f4 برنامه end نشه اومدم تو رویداد keydown اینو نوشتم:

If KeyCode = 115 And 18 Then

End If

البته keypreview فرم رو هم true کردم حالا باید بین این دستور شرطی چی بذارم؟؟؟؟:20:

---

ما که آخرش نفیمیدیم داری سوال میگی یا داری ما رو امتحان میکنی یا خودت جوابو بلد نیستی ولی به هر حال برای این سوال میتونی یه متغیری رو مثل ex رو توی همین if برابر 1 بذاری و توی unload یه شرط دیگه بذاری که اگه ex=1 بعدش خارج نشه(cancel=1) و ex=0 بشه

موفق باشی

سلام دوسان من میخوام مثل این برنامه درست کنم که کاربر با وارد کردن ردیف و ستون به تعداد عددی که وارد کرده از picture box روی فرم load کنه.
نمیدونم از آرایه 2 بعدی باید استفاده کنم یا چیز دیگه:
اینم شکلش:

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

ممنو میشم از راهنماییتون.

یدونه picture1 بذار رو صفحه و اون رو آرایه صفر کن(برای این کار باید picture1 رو یه بار کپی و پیست کنی و اون picture1(1) رو پاک کنی) یدونه دکمه هم بذار
حالا کد های زیر رو توی صفحه کد کپی کن:

کد:

---

Dim k
Dim left1
Dim top1

Private Sub Command1_Click()
a = InputBox("radif")
b = InputBox("sotoon")
For i = 1 To a
For j = 1 To b

Load Picture1(k)

Picture1(k).Visible = True
Picture1(k).Width = 700
Picture1(k).Height = 700
Picture1(k).Left = left1
Picture1(k).Top = top1

left1 = left1 + 700
k = k + 1
Next j
top1 = top1 + Picture1(k - 2).Height
left1 = 500
Next i
End Sub

Private Sub Form_Load()
k = 1
left1 = 500
top1 = 500

End Sub

---

حالشو ببر:5:

صادق جان ممنون:11:

ولی اگه کاربر بخوادبرای بار دوم عدد وارد کنه برنامه به مشکل برمیخوره و picture box ها جابجا میشه و شکل بدی پیدا میکنه خواستم با دستور unload کار کنم تا یه حدی پیش رفت ولی بازم مشکل داره.ببین میفهمی مشکل از کجاست؟

If Picture1.Count > 2 Then
For i = 1 To Picture1.Count - 1
Unload Picture1(i)

Next

End If

البته برای بار اول کار میکنه ولی بار بعد اخطار میده.
در ضمن این کد رو قبل از اون دسور گذاشتم.
ممنون میشم از راهنمایی:46:

در اول کد دکمه این کد رو بذار

unload form1
form1.show

درضمن این قسمت کد رو هم اینطور تغییر بده(وگرنه داخل 1 ستونی ها یه کم مشکل پیش میاد)

Next j
top1 = top1 + 700
left1 = 500
Next i

unload form1
form1.show

صادق جون این دیگه چه کاری هست:18: اینکه اصلا کار نمیکنه؟
برا اولین بار که میخواد picture box ها رو load کنه که نمیتونه این فقط فرم رو unload میکنه.
فکر کنه بای یه چیزی تو مایه های همونی که من گذاشتم بنویسم:46:

یعنی چی که نمیشه؟ مگه دست خودشه ؟
من کردم شد
سورس رو برات میذارم:

کد:

---

http://up.--------.com/images/cqfglmsg7ff57wagtynk.zip

---

آره درسته صادق جون.شرمنده:20:
آخه من picture ها رو که آرایه ای بود درون یه picture box دیگه قرار داده بودم واسه همینم نمیشد.
خودم این کد رو گذاشتم کار کرد:

For i = 1 To Picture1.Count - 1
Unload Picture1(i)
Next

ممنون:46:

یه برنامه ای هست که یه line رو میچرخونه(مثل عقربه های ساعت):
این برنامه رو بجز با sin و cos جور دیگه هم میشه نوشت؟؟؟؟؟:46:

اینم همونطوری که میخواستی بدون unload کردن فرم و با unload کردن picture ها

توی فایل قبلی که گذاشتم به جای اون کدها اینها رو کپی کن

کد:

---

Dim k
Dim left1
Dim top1

Private Sub Command1_Click()

If k > 0 Then
For i = 1 To k
Unload Picture1(i)
Next i
End If

k = 0
left1 = 500
top1 = 500

a = InputBox("radif")
b = InputBox("sotoon")

For i = 1 To a
For j = 1 To b
k = k + 1
Load Picture1(k)
Picture1(k).Visible = True
Picture1(k).Width = 700
Picture1(k).Height = 700
Picture1(k).Left = left1
Picture1(k).Top = top1

left1 = left1 + 700
Next j

top1 = top1 + 700
left1 = 500
Next i

End Sub

---